Discussion :

[Nounours666]

Salut,

Je vous prévient, je n'ai jamais fait de Delphi de ma vie entière...
J'ai récupéré pour mon stage, les sources de deux dlls qui ont été développée sous Win3.1 et je voudrais les recompiler sous Win95... Le problème, c'est que je n'y connait rien...

Quelqu'un peut m'aider ???

Par exemple, une des dll a le source suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
library relais; 
 
Procedure  Output_Data_Register0 (Addr: integer; value:byte);export; 
    begin 
        port[addr]:= value; 
    end; 
 
Procedure  Output_Data_Register1 (Addr: integer; value:byte);export; 
    begin 
        port[addr]:= value; 
    end; 
 
Function DTRead (Addr: integer): Byte;export; 
    begin 
        DTRead:= port[addr]; 
    end; 
{***********programme principal*************************} 
 
exports 
    Output_Data_Register0  index 1, 
    Output_Data_Register1  index 2, 
    DTRead index 3; 
begin 
end.

Et il ne connait pas la fonction Port... Et comme je ne connait pas ce langage, je ne sais pas si c'est une fonction qui existe ou s'il faut rajouter un truc...

Je suis désolé pour ceux que ça énerve que des mecs comme moi qui ont jamais touché au Pascal se pointe comme ça pour poser une question mais je vous remercie par avance de m'aider...

[Thierry Rapp]

Voici 2 fonctions pour lire et ecrire sur un port

Attention fonctionne pas sur NT 2000 ou XP que sur win9X

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Procedure OutPort(Adr:Word;Valeur:Byte);Assembler;register;
asm
  XCHG	AX,DX
  OUT 	DX,AL
end;
 
Function InPort(Adr:Word):Byte;assembler; register;
asm
  MOV	DX,AX
  IN	AL,DX
end;

[Nounours666]

Merci, mais j'arrive pas à faire le lien entre tes fonctions et mon code...
Mais, cette fonction Port, elle existe pas ???

[Thierry Rapp]

Tu remplace :
port[addr]:= value;
Par
OutPort(addr,value);