Отправить AT команду модему и получить ответ

[Никки]

Необходимо отправить следующую команду модему: ATI1 и получить его ответ в строковой переменной.

Я пытался сделать это с использованием компонента cport-3.10, но он в ответе выдавал мне ATI1 и точно так же дело обстояло когда я открывал ком порт модема функцией CreateFile.

Как быть??

[Flenov]

Не понял, ответ есть, но не тот, что ты ожидаешь? А параметры подключения правильно указал (битность, скорость)?

[Никки]

Иногда ответа вообще нет! а иногда вместо ответа мне выдаётся мой запрос ATI1... даже не уверен что это читается из COM порта.

Всё указано правильно. Я испробовал не один компонент и много всяких примеров пересмотрел. Ничего не выходит.. Я посылаю команду на виртуальный COM4 порт, который в программе Tellnet отвечает на все AT команды, а у меня не хочет!

[Никки]

Пишу так:

procedure TForm1.Button1Click(Sender: TObject);
var
    COM:THandle;
    DCB:TDCB;
    TimeOuts:TCommTimeouts;
    N,N2:Cardinal;
    S:String;
begin
    COM:=CreateFile('COM4',GENERIC_READ or GENERIC_WRITE,0,nil,OPEN_EXISTING,FILE_FLAG_OVERLAPPED,0);
    SetupComm(COM,255,255);
    GetCommState(COM,DCB);
    DCB.BaudRate := 9599;
    DCB.ByteSize := 8;
    DCB.Parity := NoParity;
    DCB.StopBits := OneStopBit;
    SetCommState(COM,DCB);
    GetCommTimeouts(COM,TimeOuts);
    TimeOuts.ReadIntervalTimeout:=MAXDWORD;
    TimeOuts.ReadTotalTimeoutMultiplier:=0;
    TimeOuts.ReadTotalTimeoutConstant:=0;
    TimeOuts.WriteTotalTimeoutMultiplier:=0;
    TimeOuts.WriteTotalTimeoutConstant:=0;
    SetCommTimeouts(COM,TimeOuts);
    WriteFile(COM,'AT',2,N,nil);
    ReadFile(COM,S,255,N,nil);
    CloseHandle(COM);
    Label1.Caption:=S;
end;

и не работает... а в Label1 должен попасть ответ, прочитанный с ком порта... а там пусто!