Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Проблема с Модемом [D5, D6, Win95/98, WinME]

Страницы: < 1 2
ksa3003 © (2003-01-15 10:01:00)
Народ отправляю сообщение модему,а тот ГАД в ответ молчит как, партизан.Если кто рабатал с модемами,может подскажити???

ksa3003 (2003-01-16 14:23:00) [21]
Нашёл каяк.
s:="ati"+"<cr>";
writeFile(hCom, Pchar(s)^, length(s), dwRead, nil);
B всеравно тишина

Digitman (2003-01-16 14:13:00) [22]

> Примерно так
> s:string;
> s:="ati";
> writeFile(hCom, s,length(s), dwRead, nil);

еще большая "хрень")))

ладно, не парься ... чувствуется, до осознания необходимости читать книги по Паскалю, ты еще не созрел)

> writeFile(hCom, PChar(s),length(s), dwRead, nil);

Anatoly Podgoretsky (2003-01-16 14:11:00) [23]
Вот опять неверно, ты бы сразу когда говоришь, что сделал правильно, приводилбы свой правильный код :-)

Pchar(s)

ksa3003 (2003-01-16 14:05:00) [24]
Примерно так
s:string; s:="ati"; writeFile(hCom, s,length(s), dwRead, nil);

Anatoly Podgoretsky (2003-01-16 14:02:00) [25]
Это как поставил?

ksa3003 (2003-01-16 13:54:00) [26]
Ладно вместо второй хрене поставим string и всеравно нифига уже
пробовал

Digitman (2003-01-16 13:37:00) [27]
вот это вот :

> writeFile(hCom, Pchar(s)^, length(s), dwRead, nil);

с какого боку ты разыменование-то делаешь ?
2-й параметр в вызове writeFile() объявлен как const Buffer; !!!

ф-ция здесь ожидает любой указатель, передаваемый по значению

а ты что передаешь ? не значение указателя, а значение по адресу, на который ссылается указатель ! Одним словом - хрень всякую передаешь, а не at&v ))))

вот он тебе и не отвечает, потому как на хрень реагировать вовсе не обязан))))

ksa3003 (2003-01-16 13:23:00) [28]
procedure TForm1.Button1Click(Sender: TObject);
var
dcb : TDcb;
hCom : THandle;
fSuccess : boolean;
dwRead : DWORD;
cs:TcomStat;
s:string;
CharArray : array[0..100000] of char;
fileOut : file of char;
i : integer;
begin
hCom := CreateFile(PChar("COM1"),GENERIC_READ+GENERIC_write,0,nil,OPEN_EXISTING,0,0); //получение указателя на СОМ2

try

fSuccess:= GetCommState(hCom, dcb);

dcb.BaudRate := CBR_9600;
dcb.ByteSize := 8;
dcb.Parity := NOPARITY;
dcb.StopBits := ONESTOPBIT;

fSuccess := SetCommState(hCom, dcb);

except
ShowMessage("Error");
end;

memo3.text:=""; s:="at&v" + #13 + #10;
dwRead:=0;
writeFile(hCom, Pchar(s)^, length(s), dwRead, nil);
dwRead:=0;
for i:=0 to 1000 do
begin
memo1.text:=inttostr(cs.cbinQue);
memo2.text:=inttostr(cs.cbOutQue);
ReadFile(hCom, CharArray[i], 1, dwRead, nil);
memo3.text:=memo3.text+CharArray[i];

end;

AssignFile(FileOut,"c:\out.txt");
Rewrite(FileOut);
for i:=0 to 10 do
begin
Application.ProcessMessages;
Write(FileOut,CharArray[i]);
end;

CloseFile(FileOut);
CloseHandle(hCom);
end;
end.
Вот !!!

ksa3003 (2003-01-16 13:20:00) [29]
Щас будет

Digitman (2003-01-16 13:05:00) [30]
> ksa3003

> Неработает

Чего не работает-то ? Код-то свой покажи) ... чего ты твм творишь - совершенно непонятно ... в "угадай с 3-х раз" будем играть ?

ksa3003 (2003-01-16 13:00:00) [31]
Неработает.Может ктонибуть даст исходник плиззз(если не жалко)

Digitman (2003-01-16 11:56:00) [32]
ATI <cr>

ksa3003 (2003-01-16 06:41:00) [33]
Так я и отправляю допустим ATI иии-и-и ничего. нет в буфере данных.

Vad (2003-01-16 01:25:00) [34]
Ты не сообщения отправляй, а команды!

Страницы: < 1 2

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »