GSM модем TCommPortDriver

УСТРАНЕНИЕ КОНКУРЕНТОВ. БЛОКИРОВКА ДОМЕНОВ, БЛОКИРОВКА ИНСТАГРАМ/ТЕЛЕГРАМ И ДРУГОЕ. ПРОВЕРЕННЫЙ СЕЛЛЕР.

НОВЫЕ ТОРГОВАЯ НОВОСТИ

Скрыть

		ANTICHAT > ПРОГРАММИРОВАНИЕ > С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby
GSM модем TCommPortDriver

Опции темы

Поиск в этой теме

Опции просмотра

GSM модем TCommPortDriver

01.02.2010, 01:54

Student :)

Участник форума

Регистрация: 09.02.2007

Сообщений: 202

С нами: 10132786

Репутация: 9

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

𝕏 Twitter Reddit Telegram Копировать ссылку

Предыдущая тема Следующая тема

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Американский хакер взломал код GSM	.Life	Мировые новости. Обсуждения.	0	29.12.2009 20:55

Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)

Быстрый переход