Discussion :

[khlh]

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 :

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

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
End Sub

[anapurna]

salut

voila un truc approchant

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
 
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

[Harvester]

Code :

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

Procedure EcrireDansPort()

Vraiment ?

Code :

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

Procedure EcrireDansPort;

8)