Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Netzwerke (https://www.delphipraxis.net/14-netzwerke/)
-   -   Delphi Tidhttp (https://www.delphipraxis.net/74815-tidhttp.html)

API 9. Aug 2006 09:00


Tidhttp
 
Guten morgen,

Wenn ich Tidhttp.Get('www.eineadresse.xyz) mache, kommt
"Intercept value is not valid"

Was bedeutet das?

Klaus01 9. Aug 2006 09:12

Re: Tidhttp
 
Geht das nicht so?

Delphi-Quellcode:
idhttp1.Get('http://www.eineadresse.xyz');
Benutzt Du SSL?
Welche Indy Version?

Grüße
Klaus

Angel4585 9. Aug 2006 09:16

Re: Tidhttp
 
vllt solltest du nicht den Typ nehmen, sondern ein Objekt von dem Typ erzeugen und es damit probieren ;)

also sowas:
Delphi-Quellcode:
procedure TForm1.Versenden;
begin
with TIDHTTP.Create(Self) do
  try
    Get('www.eineAdresse.de');
  finally
    Free;
    end;
end;

API 9. Aug 2006 09:50

Re: Tidhttp
 
Danke für die Antworten. Zuhause funktioniert's ja schon aber auf einem anderen Rechner nicht.
Werde am Abend mal schauen, welche Version ich verwende.
Aber grundsätzlich funktioniert's ja. Und ein Try ... except verwende ich auch.

API 9. Aug 2006 10:15

Re: Tidhttp
 
Habe noch herausgefunden, dass die Exception RSInterceptPropInvalid heisst.

Hat's evtl. mit dem Port zu tun?

Angel4585 9. Aug 2006 10:16

Re: Tidhttp
 
poste doch mal ein bisschen mehr Quelltext, von der oberen Zeile allein lässt sich das drumrum nur schwer erahnen ;)

Klaus01 9. Aug 2006 10:27

Re: Tidhttp
 
Du arbeitest mit HTTPS, oder?

Sind auf dem Rechner wo der Fehler auftritt die
OpenSSL DLL's installiert?

Grüße
Klaus

API 9. Aug 2006 11:21

Re: Tidhttp
 
Klaus, ich arbeite nicht mit HTTPS. (nicht dass ich wüsste)
nur mit TIdHTTP

Quelltext:
Delphi-Quellcode:
var
  IdHttp: TIdHTTP;
  ResponseText: string;
begin
  IdHttp := TIdHTTP.Create(nil);
  try
    IdHttp.HandleRedirects := True;
    IdHttp.Request.UserAgent := 'Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1)';
    ResponseText := IdHttp.Get('http://www.google.de/search?ie=ISO-8859-1&q=Test');
    /...
  finally
    IdHttp.Free;
  end;
Biespiel zum Ausprobieren: http://www.delphipraxis.net/download.php?id=21314

Angel4585 9. Aug 2006 11:27

Re: Tidhttp
 
IdHTTP als Variable zu nehmen kann denk ich zu konflikten führen, da die Unit die du für diese aktion einbinden musst ebenfalls idHTTP heisst.
benenn doch mal die variable um.
probier ausserdeme infach mal die Zeile mit dem UserAgent auszuklammern

API 9. Aug 2006 11:31

Re: Tidhttp
 
Zitat:

Zitat von Angel4585
IdHTTP als Variable zu nehmen kann denk ich zu konflikten führen, da die Unit die du für diese aktion einbinden musst ebenfalls idHTTP heisst.

Zuhause geht's aber. Liegt glaub nicht daran.

Zitat:

Zitat von Angel4585
probier ausserdeme infach mal die Zeile mit dem UserAgent auszuklammern

Danke, wäre ein Versuch wert.

inherited 9. Aug 2006 11:34

Re: Tidhttp
 
Zitat:

Zitat von Angel4585
probier ausserdeme infach mal die Zeile mit dem UserAgent auszuklammern

Wozu? Bei Google-anfragen muss dieser leider geändert werden
€dit: klappt bei mir wunderbar (WinXP SP2, Indy 9, D05)

Angel4585 9. Aug 2006 12:13

Re: Tidhttp
 
naja hätt ja sein könnd as da was nich hinhaut ;)

wo genau tritt denn der Fehler jetzt auf?

API 9. Aug 2006 12:18

Re: Tidhttp
 
Zitat:

Zitat von Angel4585
naja hätt ja sein könnd as da was nich hinhaut ;)

wo genau tritt denn der Fehler jetzt auf?

Kann leider nicht genau sagen, wo der Fehler auftritt, habe momentan keinen Zugriff auf Delphi.
Werde am Abend mal Debug Infos hinzufügen und madexcept aktivieren.
Dann kann ich weitere Infos geben.

API 9. Aug 2006 12:34

Re: Tidhttp
 
Hinweis: Wenn ich die gleiche URL via URLDownloadToFile herunterlade, erhalte
ich keinen Fehler und den gleichen "ResponseText" string zurück...

Das Problem liegt also an TIdHTTP !?

API 10. Aug 2006 12:04

Re: Tidhttp
 
Das Problem scheint ein webproxy zu sein.

Der ResponseText enthält u.a
"You are being redirected from the authentication virtual host to your original request."


Alle Zeitangaben in WEZ +1. Es ist jetzt 02:04 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz