title image


Smiley Re: Serielle Schnittstelle unter Delphi
Folgende kleine Funktionen:(der kürzehalber alles ohne fehlerprüfung!!)Schnittstelle öffnenfunction GetCOMPortHandle:THandle;begin Result:=CreateFile('COM1', GENERIC_READ or GENERIC_WRITE, 0, NIL, 0);end;schreiben (1 Byte)function SendByte(COMHandle:THandle;ByteToSend:Byte):Boolean;var Tmp:Integer;begin Result:=WriteFile(COMHandle,ByteToSend,1,tmp,nil);end;lesen (1 Byte)function RecieveByte(COMHandle:THandle):Byte;var tmp:integer; ByteToRead:Byte;begin ReadFile(COMHandle,ByteToRead,1,tmp,nil); Result:=ByteToRead;end;Ich hoffe, dass hilft Dir erstmal, ich schreibe zur Zeit ein Programm zur Kommunikation mit einem SBC.GrüsseJörg

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: