Formular ausfüllen u. abschicken

**Crishnu**

Hallo!

Ich habe ein Problem mit der indy Komponente, konkret will ich dieses Formular mit der indy http Komponente ausfüllen, abschicken und die zurückgegebene html Seite auswerten:

markieren

Code:

			<form action="test.php" enctype="multipart/form-data" method="post">

<input type="file" name="datei"> <input type="submit" value="Los">

Ich hab schon hier im Forum gesucht, aber leider nichts passendes gefunden.
Bin für jede Hilfe dankbar.

MFG

**DocBorn**

ich bin gerade nicht sicher, was die indys so können, aber ich denke mal du willst nicht wirklich das Formular (in irgendeinem Browser o.Ä.) ausfüllen sondern die URL so aufrufen als hättest du das Formular aufgerufen. Wenn dem so ist dann musst du folglich einen POST-Request machen (method=post"), des weiteren willst du hier ja auchnoch eine Datei mitschicken und dazu muss das Formular noch encodiert werden. Genau das gleiche Problem habe ich vor einer Weile auch mal gelöst *such*
Also dazu erstmal die MsMultiPartFormData.pas einbinden (Anhang) und dann kannst du was in dem Stil machen:

zusammenfalten · markieren

Delphi-Quellcode:

			var

  MultiPartFormDataStream: TMsMultiPartFormDataStream;

  HttpServer, Response: String;

begin

  // Objekte instanzieren

  MultiPartFormDataStream := TMsMultiPartFormDataStream.Create;

  try

      // Content-Type bestimmen

      httpMain.Request.ContentType := MultiPartFormDataStream.RequestContentType;

      // andere Formular-Felder übergeben

      MultiPartFormDataStream.AddFormField('EinAnderesFeld', 'dadum');

      // Datei laden

      MultiPartFormDataStream.AddFile('datei', 'C:\autoexec.bat', '');

      // Anfrage vorbereiten

      MultiPartFormDataStream.PrepareStreamForDispatch; { You must make sure you call this method *before* sending the stream }

      MultiPartFormDataStream.Position := 0;

      try

        // Anfrage stellen

        Response := httpMain.Post('http://www.microsoft.com/test.php, MultiPartFormDataStream);

      except

        // Upload fehlgeschlagen

      end;

    end;

  finally

    MultiPartFormDataStream.Free;

  end;

end;

viel Erfolg.

Lg Lars

**Crishnu**

Ok, werds versuchen

Danke

Edit: funktioniert 1 a

Formular ausfüllen u. abschicken

Formular ausfüllen u. abschicken

Re: Formular ausfüllen u. abschicken

Re: Formular ausfüllen u. abschicken

Forumregeln

Crishnu Registriert seit: 28. Apr 2005 22 Beiträge	#3 Re: Formular ausfüllen u. abschicken 9. Dez 2006, 10:59 Ok, werds versuchen Danke Edit: funktioniert 1 a
	Zitat