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);