idhttp post problem

[agm65]

hi leute ..ich dreh hier gleich ab ich möchte per http post eine email über eine php verschicken:

Delphi-Quellcode:

<?
 mail($_POST['email'], $_POST['subject'], $_POST['message'], "from: " . $_POST['sender']);
?>


var
  ParamData : TStringStream;
begin
  Sendhttp.HandleRedirects:=true;
  ParamData := TStringStream.Create('');
  ParamData.WriteString('email=' + sendMailAddy );
  ParamData.WriteString('subject=' + txtsubject.Text);
  ParamData.WriteString('message=' + txtmessage.text);
  ParamData.WriteString('sender=[e-mail]');
  try
   txtmessage.text :=  SendHTTP.Post('http://atmail.php', ParamData);
   statusbar.Panels[0].Text := 'Status: eMail gesendet..';
  finally
  ParamData.Free;
  end;

es kommt einfach nichts an ..aber ich bekomme auch keinen fehler und wenn ich in der php get statt post mache und die im browser aufrufe, geht alles !

[mkinzler]

Was kommt den im Skript an?

[agm65]

wie kann ich mir das ausgeben lassen ?

[inherited]

echo($_POST['email']) ?

[agm65]

ja, das dachte ich auch und dann müsste ich ja in message.text was zurück bekommen aber da steht nichts..muss hinter das .php noch ein '?' ? nein geht auch nicht..

[inherited]

Und wenn du statt einem StringStream den Indy-eigenen TIdMultiPartFormData(oder so ähnlich) Stream nimmst?

[agm65]

glaube nicht das es daran liegt ... vll lieg es am proxy ...ich werde nochmal weiter suchen

[Phistev]

Müssen die einzelnen Parameter evtl. durch #13#10 oder & getrennt werden? (hab gerade keine Möglichkeit, das festzustellen)

/edit: Wofür gibt's Wireshark

Code:

Content-Type: multipart/form-data; boundary=---------------------------6430211613648
Content-Length: 1735

-----------------------------6430211613648
Content-Disposition: form-data; name="subject"

Re: idhttp post problem
-----------------------------6430211613648
Content-Disposition: form-data; name="helpbox"

URL einf.gen: [URL]http://url[/URL] or [URL=http://url]URL text[/URL]
-----------------------------6430211613648
Content-Disposition: form-data; name="message"

M.ssen die einzelnen Parameter evtl. durch #13#10 oder & getrennt werden? (hab gerade keine M.glichkeit, das festzustellen)
-----------------------------6430211613648
Content-Disposition: form-data; name="attach_sig"

on
-----------------------------6430211613648
Content-Disposition: form-data; name="notify"

on
-----------------------------6430211613648
Content-Disposition: form-data; name="add_attachment_body"

0
-----------------------------6430211613648
Content-Disposition: form-data; name="posted_attachments_body"

0
-----------------------------6430211613648
Content-Disposition: form-data; name="fileupload"; filename=""
Content-Type: application/octet-stream


-----------------------------6430211613648
Content-Disposition: form-data; name="filecomment"


-----------------------------6430211613648
Content-Disposition: form-data; name="mode"

reply
-----------------------------6430211613648
Content-Disposition: form-data; name="t"

117276
-----------------------------6430211613648
Content-Disposition: form-data; name="sets"

1188372289
-----------------------------6430211613648
Content-Disposition: form-data; name="last_newpost_reminder_time"

0
-----------------------------6430211613648
Content-Disposition: form-data; name="post"

Absenden
-----------------------------6430211613648--

[inherited]

Zitat von agm65:

glaube nicht das es daran liegt ... vll lieg es am proxy ...ich werde nochmal weiter suchen

Da kennst du Indy aber schlecht. Ich hatte durchaus schon ähnliche Probleme. probier es doch mal aus, mehr als eine Exception kann schon nicht passieren

[agm65]

Zitat von agm65:

glaube nicht das es daran liegt ... vll lieg es am proxy ...ich werde nochmal weiter suchen

Zitat von inherited:

Da kennst du Indy aber schlecht. Ich hatte durchaus schon ähnliche Probleme. probier es doch mal aus, mehr als eine Exception kann schon nicht passieren

wollte hierzu nur nochmal kurz sagen ...ja stimmt ...es geht:

Delphi-Quellcode:

Uses IdMultipartFormData;


var
  data: TIdMultiPartFormDataStream;
begin
  data := TIdMultiPartFormDataStream.Create;

  data.AddFormField('email',   sendMailAddy);
  data.AddFormField('subject', txtsubject.Text);
  data.AddFormField('message', txtmessage.text);
  data.AddFormField('sender',  '[e-mail]');
  try

   test.text :=  SendHTTP.POST('http://atmail.php' , data);