POST-Ergebnis speichern / Datei herunterladen

**Marvin666**

Hallo,
ich benötoge mal wieder euren Rat:

Das ganze sieht so aus (IST-Zustand):
Ich lade eine HTML-Datei, die ein ganz einfaches Formular enthält, dass aus zwei Textfeldern und einem Submit-Button besteht. Per POST werden die Parameter in den Textfeldern ("ID" und "Produkt") an eine https-URL geschickt.
Als Reaktion auf den POST öffnet sich das Dialogfenster "Zertifikat annehmen JA oder NEIN" und eine "Username/Passwort-Abfrage". Ist diese Hürde genommen, zeigt mein TWebBrowser die Grafik an, die ich bestellt habe.

Soll-Zustand:
Per Indy-Komponenten sollen an den Server die Parameter "Id" und "Produkt" gesendet werden. Die Antwort (hier: eine Grafik des Typs png) soll dann (automatisch) gespeichert werden.
Wichtig: Die nerfige Authentifizierungs-Abfrage soll nicht mehr auftauchen.

Problem:
Wie kann ich meine Parameter ("ID" und "Produkt") an eine https-URL senden und eine Antwort (also die o.g. Grafikdatei) speichern ?
Bisher habe ich es nur geschafft strings zu empfangen - das ging so:

zusammenfalten · markieren

Delphi-Quellcode:

			function TForm1.SendPostData(Ahttp: TIdHTTP; const AtoURL: string): string;

  //AtoURL: An diese URL werden die Informationen gesendet

  //Result: HTML-Ergebnis (quasi Antwort des Scripts)

var

  aStream: TMemoryStream;

  Params: TStringStream;

begin

  aStream := TMemoryStream.create;

  Params := TStringStream.create('');

  AHTTP.Request.ContentType := 'application/x-www-form-urlencoded';

  try

    //Stream mit Werten füllen

    Params.WriteString('TRANSAKTIONSKENNUNG=' + transaktionskennung + '&');  //hier sollen "ID" und "Produkt" 

    Params.WriteString('INSTITUTION=' + institution);                        //eingelesen werden.

    AHTTP.Request.BasicAuthentication:=true;

    AHTTP.Request.Username:=MeinBenutzername;

    AHTTP.Request.Password:=MeinPasswort;

    try

      AHTTP.Post(AtoURL,Params,aStream);

    except

      on E: Exception do

        showmessage('Fehler bei der Übertragung: ' + E.Message);

    end;

    aStream.WriteBuffer(#0' ', 1);

    Result := PChar(aStream.Memory);

  except

    Result := 'Fehler!';

  end;

end;

POST-Ergebnis speichern / Datei herunterladen

POST-Ergebnis speichern / Datei herunterladen

Forumregeln