本文整理自网络，侵删。
function downloadtomemory (URL : string): string;
const
BufferSize = 3000 ;
var
hSession, hURL: HInternet;
Buffer: Array[1..buffersize] of Byte;
BufferLength: DWORD;
b1 : Array[1..buffersize] of Byte;
rezultat : string;
begin
hSession := InternetOpen('d14l-useragent', INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0) ;
hURL := InternetOpenURL(hSession, PChar(URL), nil, 0, 0, 0) ;
InternetReadFile(hURL, @Buffer, SizeOf(Buffer), BufferLength) ;
move(Buffer,b1,bufferlength);
rezultat := pchar(@b1);
InternetCloseHandle(hURL);
InternetCloseHandle(hSession);
result := rezultat ;
end;
相关阅读 >>
更多相关阅读请进入《Delphi》频道 >>
