PHP код:
function web_GetFileSize(const FileURL: string): Integer;
var
hSession, hFile: hInternet;
dwBuffer: array [1 .. 20] of WideChar;
dwBufferLen, dwIndex: DWORD;
begin
Result := 0;
hSession := InternetOpen('GetUrlSize', INTERNET_OPEN_TYPE_PRECONFIG,
nil, nil, 0);
if Assigned(hSession) then
begin
hFile := InternetOpenURL(hSession, PChar(FileURL), nil, 0,
INTERNET_FLAG_RELOAD, 0);
dwIndex := 0;
dwBufferLen := 20;
if HttpQueryInfo(hFile, HTTP_QUERY_CONTENT_LENGTH, @dwBuffer, dwBufferLen,
dwIndex) then
Result := StrToInt(StrPas(PWideChar(@dwBuffer)));
if Assigned(hFile) then
InternetCloseHandle(hFile);
InternetCloseHandle(hSession);
end;
end;