прикольная у вас тут дискуссия по изучению работы сокетов
я вот на делфи давно не писал но мне кажеться что с сокетами нужно примерно так работать:
function login;
var
login:TIdTCPClient;
buf:TIdBytes;
val:Byte;
begin
login.Port:=2106;
login.Host:="where.are.you";
login.Connect;
if login.Connected than
with login.Socket
begin
ReadBytes(buf,InputBuffer.Size);
val:=15;
Write(val);
....
end;
end;
тока не говорите что в коде много синтаксических ошибок
NLObP,
Твой исходник кстати не работает на абисе тоже... С явой работает , но конект только со второй попытки ...
Добавлено через 17 часов 26 минут
На этот раз стала делать через вкладку Internet , получилось так:
TCpclient1.ReceiveBuf и так далее(пакеты нормально принимаются в Мемо).
Посмотрела исходники Емулятора, там вообще не понятно как они отправляют .. нету TCPClient .. Как мне пакет теперь отправить то
Последний раз редактировалось Amorality, 19.08.2008 в 06:46.
Причина: Добавлено сообщение
А еще наверно можно использовать TClientSocket, но его нет по умолчанию на панели internet (покраней мере в D7) но можно добавить - component->install packages add...
потом в папке bin найти файл dclsockets70.bpl жмем ок, ок
и на закладке internet появляются ClientSocket, ServerSocket