Долго вчера перебирал примеры и доки, в конце концов получилось следующее
| Код | var
I, F: HINTERNET;
B: BOOL;
C: Cardinal;
Buf: string;
begin
SetLength(Buf, 65500);
I := InternetOpen('MJ Soft special client', 0, '', '', 0);
F := InternetOpenUrl(I, 'http://www.ufacom.ru/', '', 0, 0, 0);
B := InternetReadFile(F, @Buf[1], Length(Buf), C);
if B then
begin
SetLength(Buf, C);
ShowMessage(Buf);
end;
InternetCloseHandle(F);
InternetCloseHandle(I);
end; |
Вроде работает, но где бы найти доки по испольованию этого добра? |