COM-Port

[Phlight]

Hallo Zzusammen,
in Delphi kenne ich mich nicht so gut aus, aber muss für meine Firma ein Programm in Delphi3 schreiben, daß an den COM1-Port ASCII-Zeichen senden kann. :wall:
Brauche dringend ein paar Vorschläge.

MfG Phlight

[Sanchez]

hallo erstmal,

Am Besten nimmst du eine Kompo dafür z.B.Async Pro

Siehe hier

Da ist auch eine ausführliche Doku zu finden.

grüße, daniel

[Sanchez]

Erläuterung zur Kompo aufgrund der PN:

Du saugst dir die Kompo, in der Readme steht wie du sie installierst.
Du ziehst sie auf dein Form. Im Objektinspektor stellst du die Parameter ein (Port, Baudrate, ...).

Verbindung herstellen:

Delphi-Quellcode:

  ApdComPort1.Open := true;

Verbindung beenden

Delphi-Quellcode:

  ApdComPort1.Open := false;

String senden

Delphi-Quellcode:

  ApdComPort1.Output := 'Irgendein Text';

Zeichen empfangen:
Du legst im Objektinspektor eine Ereignisbehandlungsroutine für TriggerAvail (oder so ähnlich) an.
In der Procedure holst du dir der reihe nach deine Zeichen vom Port

Delphi-Quellcode:

  einstring := '';
  for i:=1 to count do begin
    einstring := einstring + ApdComPort1.GetChar;
  end;

... war das deine Frage?

grüße daniel

[Phlight]

if not WriteFile(Handle, buf, size, Result, nil) then Result := -1 * Result;

bekomme immerwieder in dieser zeile eine fehlermeldung:

Fehler: ...\COMPort.pas(147):Die Typen der tatsächlichen und formalen Var-Parameter müssen übereinstimmen

[Phlight]

Klappt nicht (habe Delphi3).
Die Datei "OleServer.dcu" wurde nicht gefunden (falls ich die kompo richtig installiert habe).
Habe das ganze System nach dieser durchsucht, aber nichts gefunden.:freak:

HIIIIIIIIILLLLLLLLLFFFFFFEEEEEEE !!!!!!!!!!!!!!!!!!!! :|