ICh benutzte TIdHTTP
URL := InternetOpenURL(hSession, PChar(URL), nil, 0, 0, 0);
Das "
Url" in der PChar-Methode ist ein String oder
[edit]
Also ich habe jetzt folgenden Code:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
URL: HInternet;
err :
string;
function GetHTTPFileSize(hInet:HINTERNET):cardinal;
var
dwindex,dwcodelen :dword;
dwcode:
array[1..20]
of char;
Begin
dwIndex := 0;
dwCodeLen := 10;
HttpQueryInfo(hInet, HTTP_QUERY_CONTENT_LENGTH, @dwcode, dwcodeLen, dwIndex);
Result := cardinal(strtoint(PCHAR(@dwcode)));
end;
begin
lSize.Caption := '
Size: Loading...';
lSize.Repaint;
try
lSize.Caption := '
Size: ' + IntToStr(GetHTTPFileSize(InternetOpenURL(InternetOpen('
InetURL:/1.0',INTERNET_OPEN_TYPE_PRECONFIG,
nil,
nil,0), PChar(Edit1.Text),
nil, 0, 0, 0))) + '
B';
except
err := SysErrorMessage(GetLastError);
if err <> '
'
then
err := '
(' + err + '
)';
lSize.Caption := '
Size: Error' + err;
end;
end;
Und dieser gibt bei manchen Seiten (z.B.
DP-Index) einen Fehler:
Zitat:
---------------------------
Project1
---------------------------
'ÿÿÿÿäõ' ist kein gültiger Integerwert.
---------------------------
OK
---------------------------
Wie kann ich das beheben?
Bei anderen Seiten (z.B.
Logo) funktioniert es wunderbar....
[/edit]