Spørgsmål til kroning.
Hej kroning,du hjalp mig tidligere med at oprette seriel kommunikation med et maaleinstrument.
Jeg er nu i gang med et andet projekt, hvor jeg bruger samme komponent til at sende AT kommandoer til et modem.
Naar jeg sender kommandoerne fra Windows' Hyper terminal fungerer alt perfekt.
Men naar jeg sender kommandoerne fra Delphi, faar jeg bare mine egne kommandoer retur, som jeg lige har sendt afsted.
Her er lidt eksempelkode:
procedure TForm1.Button1Click(Sender: TObject);
begin
if not VaComm.Active then
begin
VaComm.PortNum:=1;
VaComm.Open;
end;
VaComm.WriteText(Edit1.Text);
end;
procedure TForm1.VaCommRxChar(Sender: TObject; Count: Integer);
var
ch: char;
begin
while VaComm.ReadChar(ch) do
begin
Memo.Lines.Add(ch);
end;
end;
Dvs., hvis jeg skriver AT+CMGS, faar jeg AT+CMGS til at staa i Memoen.
Kan du umiddelbart se, hvad jeg goer forkert?
Pft.
