| Student :) |
01.02.2010 01:54 |
GSM модем TCommPortDriver
пишу программу для работы с gsm модемом , с помощью компонента TCommPortDriver , Возникла проблема при приёме ответа модема(вместо текста приходит что то не понятное)
вот мой код
PHP код:
procedure TForm1.Button1Click(Sender: TObject);
begin
with CommPortDriver1 do begin
ComPort:= TComPortNumber(pnCOM01);
Disconnect;
if not Connect then begin
ShowMessage('ERROR');
exit;
end;
CommPortDriver1.SendString('AT' + #13#10);
end;
end;
через снифер com порта приходит что ок
а программа выдаёт (.Â…jÕRÿ)
вот приём
PHP код:
procedure TForm1.CommPortDriver1ReceiveData(Sender: TObject;
DataPtr: Pointer; DataSize: Integer);
var
s : string;
begin
s:= StringOfChar(' ', DataSize);
Move(DataPtr^, PChar(s)^, DataSize);
MEMO1.Lines.Add(s);
end;
как переделать чтоб в Memo был результат OK |
