Hi,
procedure Serielle_Schnittstelle_Pumpen;
var Openstring: String;
j : Integer;
Zeichen : char;
COM : integer;
begin
Openstring := '
COM'+IntToStr(
COM)+':9600,N,8,1';
OPENCOM (pchar (Openstring));
for j:=1 to Length(tosend) do
begin
Zeichen:=tosend[j];
SendByte (ord(Zeichen));
end;
SendByte (ord(VK_RETURN));
CloseCOM;
end;
damit´s funktioniert, braucht man natürlich noch eine entsprechende
DLL. Meine heißt "RSCOMdec".
Ich hoffe ich konnte helfen...