internet üzerindeki bir dosyanın boyutunu alabilirsiniz.
Kod: Tümünü seç
function GetParsedURL(const URL: String; const ResultType : SmallInt): String;
var
Pos1 : SmallInt;
Temp1 : String;
begin
Result := '';
Temp1 := Trim(URL);
Temp1 := StringReplace(Temp1,'\','/',[rfReplaceAll]);
if Length(Temp1) > 0 then
begin
//---
Pos1 := Pos('://',Temp1);
if Pos1 > 0 then
begin
//HTTP Yazılmış
Pos1 := Pos1 + 3;
Temp1 := Trim(Copy(Temp1,Pos1,Length(URL)));
end;
Pos1 := Pos('/',Temp1);
case ResultType of
0: //Server
begin
if Pos1 > 0 then
begin
Temp1 := Trim(Copy(Temp1,1,(Pos1-1)));
end;
Result := Temp1;
end;
1: //Dosya
begin
if Pos1 > 0 then
begin
Temp1 := Copy(Temp1,Pos1,Length(Temp1));
Result := Temp1;
end
else
begin
Result := '/';
end;
end;
end;
//---
end;
end;
function GetInetFileSize(const FileURL: String): LongInt;
var
hInternetSession, hInternetConnect, hHttpOpenRequest : HINTERNET;
lpszAgent, lpszServerName, lpszObjectName, lpszReferrer, lplpszAcceptTypes : PChar;
lpdwBufferLength, lpdwReserved : DWORD;
lpvBuffer : Array[0..1024] Of Char;
begin
//Değişkenler ayarlanıyor
lpszAgent := PChar(ExtractFileName(Application.ExeName));
lpszServerName := PChar(GetParsedURL(FileURL,0));
lpszObjectName := PChar(GetParsedURL(FileURL,1));
lpszReferrer := PChar('');
lplpszAcceptTypes := PChar('Accept: */*');
lpdwBufferLength := 1024;
lpdwReserved := 0;
try
hInternetSession := InternetOpen(lpszAgent, INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0);
try
hInternetConnect := InternetConnect(hInternetSession, lpszServerName, INTERNET_DEFAULT_HTTP_PORT, nil, nil, INTERNET_SERVICE_HTTP, 0, 0);
hHttpOpenRequest := HttpOpenRequest(hInternetConnect, 'HEAD', lpszObjectName, 'HTTP/1.1', lpszReferrer, @lplpszAcceptTypes, INTERNET_FLAG_RELOAD, 0);
HttpSendRequest(hHttpOpenRequest, nil, 0, 0, 0);
HttpQueryInfo(hHttpOpenRequest, HTTP_QUERY_CONTENT_LENGTH, @lpvBuffer, lpdwBufferLength, lpdwReserved);
if lpdwBufferLength > 0 then
begin
Result := StrToInt(Copy(lpvBuffer,1,lpdwBufferLength));
end
else
begin
Result := 0;
end;
except
Result := 0;
end;
except
Result := 0;
end;
if hInternetSession <> nil then
begin
InternetCloseHandle(hInternetSession);
end;
end;//KULLANIMI
Kod: Tümünü seç
ShowMessage('Dosya Boyutu: ' + IntToStr(GetInetFileSize('http://download.microsoft.com/download/d/c/3/dc37439a-172b-4f20-beac-bab52cdd38bc/Windows-KB833330-ENU.exe')));