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.
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:
  ApdComPort1.Open := true; Verbindung beenden
  ApdComPort1.Open := false; String senden
  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)ie 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.

HIIIIIIIIILLLLLLLLLFFFFFFEEEEEEE !!!!!!!!!!!!!!!!!!!!