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

← →
zxs (2007-08-05 08:37) [0]

помогите подскажите в чем ошибка
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;

← →
MetalFan © (2007-08-05 09:42) [1]

> "site.ru/"[1],

ого!

← →
Zagaevskiy © (2007-08-05 09:45) [2]

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

ага!

← →
Zagaevskiy © (2007-08-05 09:58) [3]

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

← →
zxs (2007-08-05 10:00) [4]

напиши тут

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

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

> напиши тут

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

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