Klar liegt der Fehler bei mir, hät ich nicht anders erwartet, Programme sind schließlich perfekt
Also, ich kann deinen Erläuterungen folgen, muss sie aber falsch verstanden haben, denn ich bekomme kein Ergebnis zustande.
Nochmal mein kompletter Code, könnt mir vielleicht jemand mit Rotstift editieren was falsch ist, die Fehlermeldung ist immer noch die gleiche in Zeile 41 "undefinierter Bezeichner"
Tut mir Leid das ich mich so blöd anstelle...
Gruß Denis
Delphi-Quellcode:
unit rs232;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
SerialNG, StdCtrls;
type
TForm1 =
class(TForm)
SerialPortNG1: TSerialPortNG;
Label1: TLabel;
procedure Button1Click(Sender: TObject);
procedure Label2Click(Sender: TObject);
procedure machwas2(port: TSerialPortNG);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
var
Form1: TForm1;
port: TSerialPortNG;
implementation
{$R *.DFM}
procedure machwas;
begin
// schnittstelle aufmachen
port := TSerialPortNG.Create(
nil);
// objekt kerstellen
try
port.CommPort := '
COM1';
// comport einstellen
port.BaudRate := 9600;
// baud-rate einstellen
port.Active := true;
// schnittstelle öffnen
machwas2(port:);
finally
// schnittstelle zumachen
port.Active := false;
freeandnil(port);
end;
end;
procedure machwas2(port: TSerialPortNG);
var
text:
String;
begin
text := '
Hallo';
port.SendString(text + #11);
end;
end.