Witam,

mam problem z ComPort Library. Chodzi o symulację wciśnięcia "<ctrl-z>". ComPort potrzebuję do obsługi modemu GSM. Program łączy się z nim za pośrednictwem portu COM. A następnie wysyła komendy:

procedure TForm1.Button1Click(Sender: TObject);
begin
   ComPort1.WriteStr('AT'+CHR(13));
   ComPort1.WriteStr('ATE1'+CHR(13));
   ComPort1.WriteStr('at+cmgf=1'+CHR(13));
   ComPort1.WriteStr('AT+CSCA="+48790998250"'+CHR(13));
   //do tego miejsca wszystko jest ok wiadomości ustawiane są na tryb tekstowy, podawany jest numer centrum sms Play
   // poniżej zaczyna się problem ponieważ po wpisaniu komendy at+cmgs="numer telefonu gdzie sms ma być wysłany" 
   // w oknie terminala pojawia się znak ">" gdzie należy wpisać wiadomość i wcisnąć Ctrl-z i w tym momencie powinna wiadomość zostać wysłana, niestety się tak nie dzieje. Nie wiem co zrobić aby zadziałało. Wg danych z internetu CTRL-Z to CHR(26) ale niestety po klinijce "ComPort1.WriteStr('at+cmgs="+48666777888"'+CHR(13));" program czeka...

   //ComPort1.WriteStr('at+cmgs="+48666777888"'+CHR(13));
   //ComPort1.WriteStr('Tresc wiadomosci' + CHR(13) + CHR(26));
end;

udało się:

   Comport1.WriteStr('at+cmgf=1'+#13#10);
   sleep(1000);
   Comport1.WriteStr('at+cscs="GSM"'+#13#10);
   sleep(1000);   
   ComPort1.WriteStr('AT+CSCA="+48790998250"'+CHR(13));
   ComPort1.WriteStr('AT+CMGS="+48666777888"'+#13#10);
   sleep(200);
   ComPort1.WriteStr(MEMO2.TEXT);
   sleep(200);
   ComPort1.WriteStr(#26#26);