ANTICHAT — форум по информационной безопасности, OSINT и технологиям

procedure Download(url:pansichar;var ress:pchar); 
var
 hSession, hURL: pointer;// для скачевания
 Buffer: array[0..1023] of char; // буфер
 BufferLen: DWORD;
 x:integer;
begin
hSession:=InternetOpen('svchost.exe', 1, nil, nil, 0); // открытие сессии
if hSession=nil then exit;
hURL:=InternetOpenURL(hSession, URL, nil, 0, $04000000, 0); // открытие удаленного файла
if hURL=nil then exit;
lstrcpy(ress,#0);
repeat
 for x:=0 to 1023 do buffer[x]:=#0; // тупой метод очистки бефера. но для моих целей пойдет
 InternetReadFile(hURL, @Buffer[0], SizeOf(Buffer), BufferLen); // считывание удаленного файла в буфер
 lstrcat(ress,buffer);
until BufferLen=0; // если буфер пуст, то файл уже скачался
InternetCloseHandle(hURL); // закрыть удаленный файл
InternetCloseHandle(hSession); // закрыть сессию
end;