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

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

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

подксажите в чем ошибка

zxs © (2007-08-05 08:37:00)
помогите подскажите в чем ошибка
function TMailAgentClient.Get:string;
var
Sock:TSocket;
Server:TSockAddr;
begin
Sock:=socket(AF_INET,SOCK_STREAM,IPPROTO_TCP);
if Sock=INVALID_SOCKET then Exit;
Server.sin_family:=AF_INET;
Server.sin_port:=htons(80);
Server.sin_addr.S_addr:=inet_addr('site.ru');
if connect(Sock, Server, SizeOf(Server))=SOCKET_ERROR then Exit;
send(Sock, 'site.ru/'[1], SizeOf('site.ru'), 0);
recv(Sock, Result, 1024, 0);
end;

Zagaevskiy (2007-08-05 10:26:00) [1]

> напиши тут

Да просто загромождать ветку не охота, это довольно громоздко реализовано.

MetalFan (2007-08-05 10:25:00) [2]

> А, разобрался!Дай мыло, я скину тебе правильный код

форум предназначен для того, чтобы задавать вопросы и получать ответы на них.
и чтобы другой программист мог, воспользовавшись поиском, получить ответ на возникший вопрос

zxs (2007-08-05 10:00:00) [3]
напиши тут

Zagaevskiy (2007-08-05 09:58:00) [4]
А, разобрался!Дай мыло, я скину тебе правильный код

Zagaevskiy (2007-08-05 09:45:00) [5]

> MetalFan © (05.08.07 09:42) [1]

ага!

MetalFan (2007-08-05 09:42:00) [6]

> 'site.ru/'[1],

ого!

Наверх

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