Conversion VB -> Delphi

Version imprimable

salut
SVP j'ai besoin de votre aide
j'ai une procedure en VB et je veux la convertir en delphi
ma procedure est la suivante:

Code:

1
2
3
4
5
6
7
8
9
10
11
private sub EcrireDansPort()
     Dim Port
     set port = CreateObject("MSCOMMLib.MSComm")
     With port
          .Commport = 1
          .Settings="9600,N,8,1"
          .InputLen = 1024
     end With
     Port.PortOpen=true
     Port.Output=Asc(2)&"B"&Asc(3)
     Port.PortOpen=false

et merci d'avance :oops:
End Sub

salut

voila un truc approchant

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
Procedure EcrireDansPort; // apres correction :)
var
   Port : oleVariant;
begin
     port := CreateObject('MSCOMMLib.MSComm')
     With port do
     begin
          Commport := 1;
          Settings:='9600,N,8,1';
          InputLen := 1024;
     end ;
     Port.PortOpen:=true
     Port.Output:=chr(2)+"B"+chr(3);
     Port.PortOpen:=false;
end;

@+ Phil

30/11/2005, 17h14
Harvester

Code:

Procedure EcrireDansPort()

Vraiment ?

Code:

Procedure EcrireDansPort;

8)

Fuseau horaire GMT +2. Il est actuellement 19h17.