Indy 10 HTTP(S) Protokoll

[Rolf Frei]

Ja. Um OpenSSL würde ich, wenn möglich, einen grossen Bogen machen. Die System.Net Funktionen laufen nativ auf Windows und brauchen daher kein OpenSSL.

Habe damit aber das Problem, dass es bei Redirects (301/302) keine Möglichkeit zu geben scheint, die wirklich gelesene URL zu ermitteln. Die Funktinon ist also recht eingeschränkt. Ich muss für meine Anwendung wissen wie die zurückgelieferte URL denn nun genau gelautet hat. Habe keine Weg gefunden da an die nötige Info zu gelangen.

[Sherlock]

Randbemerkung: Um OpenSSL kann man aber nur einen Bogen machen, wenn man nicht plattformübergreifend entwickeln will.

Sherlock

[Hobbycoder]

Zitat von Rolf Frei:

Ja. Um OpenSSL würde ich, wenn möglich, einen grossen Bogen machen. Die System.Net Funktionen laufen nativ auf Windows und brauchen daher kein OpenSSL.

Das ist schön zu wissen. Mich hat das immer gestört, fremde DLL's mit auszuliefern.
Wobei ich jetzt aber auch dazu sagen muss, dass ich mit Indy+OpenDLL nie wirklich Probleme hatte, außer denen die ich selbst reinprogrammiert habe

[hoika]

Hallo,
zu Redirects findest Du für Indy hier was

https://stackoverflow.com/questions/...rl-redirection

[CCRDude]

Zitat von Rolf Frei:

Ja. Um OpenSSL würde ich, wenn möglich, einen grossen Bogen machen. Die System.Net Funktionen laufen nativ auf Windows und brauchen daher kein OpenSSL.

Nativ kann aber auch von Nachteil sein. Gerade erst erlebt, auf dem Server wollten wir veralterte TLS-Versionen abschalten - ging aber noch nicht, da die Software nativ zugreift und damit auf altem Windows noch ein altes TLS verwendet.

[Minz3]

Hey ho,

danke für das Tutorial, es hat mir gut geholfen!

An einer Stelle stolpere ich allerdings etwas und zwar bei der POST Methode.

Ich hab den Code aus dem Tutorial übernommen und etwas angepasst:

Delphi-Quellcode:

procedure TProgWebAppFrm.HTTPPost(Username : String; Password : String; Database : String);
var
  Params: TStringList;
  Enc: TEncoding;
  ResponseStr: string;

begin
  with TIdHTTP.Create(nil) do
  try
    Request.ContentType := 'application/x-www-form-urlencoded';

    Params := TStringList.Create;
    try
      with Params do
      begin
        Add('username=' + Username);
        Add('password=' + Password);
        Add('database=' + Database);
      end;

      // Request.CharSet vorher setzten: z.B: ISO-8859-1
      Enc := CharsetToEncoding(Request.CharSet);
      try
        // Daten senden
        ResponseStr := Post('https://nb1819157:5001/login?', Params, Enc);
      finally
        Enc.Free;
      end;

    finally
      Params.Free;
    end;
  finally
    Free;
  end;
end;

An folgender Stelle:
Enc := CharsetToEncoding(Request.CharSet); Kommt nun der Fehler, dass die Typen TEncoding und IIdTextEncoding nicht miteinander kompatibel sind. Das verstehe ich soweit auch, aber wie wurde das dann im Tutorial gemacht? Es schien ja so mal funktioniert zu haben. Wurden mit der Zeit Libraries angepasst so das die Inkompabilität jetzt zustande kommt?

[hoika]

Hallo,
du hast den Kommentar überlesen?

// Request.CharSet vorher setzten: z.B: ISO-8859-1

[Minz3]

Zitat von hoika:

Hallo,
du hast den Kommentar überlesen?

// Request.CharSet vorher setzten: z.B: ISO-8859-1

Scheinbar hab ich das einfach hingenommen.
Wird der ganz einfach mit
Request.CharSet := 'UTF-8'; gesetzt oder muss ich da noch was beachten?

*Edit:
Auch wenn das Charset gesetzt wäre, also nur mal angenommen, so wäre es vom Typ immer noch IIdTextEncoding und damit noch inkompatibel zu TEncoding. Eine Idee, wie ich das beheben kann?

[hoika]

Hallo,
da bin ich raus
Müsste mal auf Arbeit nachsehen, was ich da so gesetzt hatte.