| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

WinAPI + скачивание файла по http (просто)

Dima ©   (2008-03-13 19:37:00) 

Здравствуйте.

Подскажите пожалуйста, в чем моя ошибка?
Представленный ниже код компилируется, но работает не правильно (файл по http не скачивается).

program AK;
{$APPTYPE CONSOLE}
uses Windows, SysUtils, Messages, WinSock;
var
 F: TextFile;
 s: TSocket;
 data: TWSAData;
 Addr: TSockAddr;
 Recived: Integer;
 Buff: array [0..1023] of Char;
 HTTPRequest,HTTPResponse,Name,IP,Path: string;
begin
 IP:= '192.168.0.2';
 Name:= '192.168.0.2';
 Path:= '/files/file.exe';
 WSAStartup($101, data);
 s:=socket(AF_INET, SOCK_STREAM,IPPROTO_TCP);
 Addr.sin_family:=AF_Inet;
 Addr.sin_port:=htons(80);
 Addr.sin_addr.S_addr:=inet_addr(PAnsiChar(IP));
 if (connect(s,Addr,SizeOf(TSockAddr)) <> SOCKET_ERROR) then
   begin
     HTTPRequest:='GET '+Path+' HTTP/1.1'+#13#10+'Host: '+Name+#13#10+'Connection: Close'+#13#10#13#10;
     send(s, HTTPRequest[1], length(HTTPRequest),0);
     HTTPResponse:= '';
     Recived:= 1;
     while Recived <> 0 do
       begin
         Recived:= recv(s, Buff, Length(Buff), 0);
         HTTPResponse:= HTTPResponse + Copy (Buff,0,Recived);
       end;
     closesocket(s);
     AssignFile(F, 'file.exe');
     Rewrite(F);
     Writeln(F, HTTPResponse);
     CloseFile(F);
   end;
 WSACleanup();
end.

Спасибо.
С уважением,
Дима

---

brother   (2008-10-08 10:50:00) [1]

> мля... даже не посмотрел... это все он, некто Dian...

вспомнилось: в 2 часа ночи... откуда? из морга! О_О

---

Palladin   (2008-10-08 10:47:00) [2]

мля... даже не посмотрел... это все он, некто Dian...

---

Slym   (2008-10-08 10:43:00) [3]

Некрофилы! ветке 7 месяцев :)

---

Palladin   (2008-10-08 07:45:00) [4]

Через строки (String) будет работать, но не нужно пользоваться TextFile, и понимать разницу между бинарными данными и текстовыми

---

Dian   (2008-10-08 03:27:00) [5]

Через строки будет работать только с текстовыми файлами

---

Slym   (2008-03-14 04:30:00) [6]

Slym ©   (14.03.08 4:25) [1]
отрезать нужно начало до #13#10#13#10 включительно
    Recived:=pos(#13#10#13#10,HTTPResponse);
    if Recived<>0 then
     HTTPResponse:=copy(HTTPResponse,Recived+4,MaxInt);

---

Slym   (2008-03-14 04:25:00) [7]

все работает... ты не отрезаешь заголовок у ответа аля 'HTTP/1.1 200 OK' и т.д.

---

Наверх