comport

[MArkus_R19]

hi ich will ein paar zeichen über die serielle Schnittstelle ausgeben. --> hab mir die cport komponente runtergeladen und installiert jetzt sollte man ja mit WriteStr() und einem speicherplatz was rausschicken können jedoch kommt beim ausführen des Befehls die fehlereldung "writefile function failed (win error code:6)" was is da falsch????

hier noch ein kliener auszug aus dem programm:

var
Spi: TSpi;
b,a,ce,bef, cebus,befbus,adresse, daten:string;

procedure TSpi.Button1Click(Sender: TObject);
begin
comport1.WriteStr(cebus);

if bef='write'
then begin
befbus:='a';
adresse:= SPI.Adresse_Edit1.Text;
comport1.WriteStr(befbus);
comport1.WriteStr(adresse);
befbus:='b';
Daten:= SPI.Adresse_Edit1.Text;
comport1.WriteStr(befbus);
comport1.WriteStr(daten);
end;
if bef ='read'
then begin
befbus:='c';
adresse:=SPI.Adresse_Edit1.Text;
comport1.WriteStr(befbus);
Comport1.WriteStr(adresse);
comport1.ReadStr(daten,2) ;

end;

end;