Скачать: CL | DM;

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

← →
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]

напиши тут

---

← →
MetalFan ©   (2007-08-05 10:25) [5]

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

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

---

← →
Zagaevskiy ©   (2007-08-05 10:26) [6]

> напиши тут

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.016 c