Problem mit idHTTP.POST / Umbruch wird eingefügt!!??

[mfg]

Servus, ich arbeite gerade an einem Clienten für eine Webseite (keine Angst, es ist nicht für die Shoutbox oder dieser komisch Wettberwerb) und habe folgendes Problem.

Und zwar wird beim Senden von Daten aus einer TEDIT Box am Ende entweder von der Webseite oder von der Indy komponente ein Zeilen Umbruch eingefügt. Der Zeilenumbruch taucht aber nur auf, wenn ich die Seite über mein Programm anspreche, wenn ich das Formular auf der Webseite benutze geschieht dies nicht.

Hier der Code in meinem Delphi Programm:
(Habe extra trim(benutzt); um eventuelle Fehler bei mir auszuschließen)

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var var1:STRING;data : TidMultiPartFormDataStream;
begin
var1 := Edit1.Text;
//Für POST (geht zur zeit nicht, da Umbruch gesetzt wird)
data := TIdMultiPartFormDataStream.Create;
data.AddFormField('var1',trim(var1));

url := 'http://url/datei.php?SID='+SID+'&para='+para;
html := idhttp1.POST(url,data);
end;

Das Problem ist, dass ich leider nicht das PHP-Script verändern kann, weil es nicht meine Webseite ist. Deshalb hoffe ich, dass es an Delphi liegt und ihr mir vieleicht sagen könnt warum der dem Wert den die Webseite erhält hinten ein Zeilenumbruch angefügt wird!

Danke,

mfg

[SirThornberry]

handelt es sich wirklich um ein multipartformdata-formular?? Probiers einfach mal mit normalem post ohne multipartformdata

[mfg]

Hm, das hilft vieleicht... nur habe ich nicht so die ahnung wie man die daten noch verschicken kann...

Das Beispiel hier aus dem Forum geht nicht...

Delphi-Quellcode:

...
var data : TStrings;
begin
...
var1 := Edit1.Text;
//Für POST
data := TStringList.Create;
data.Add('variable1='+var1);
...
html := idhttp1.Post(url,data);

Die Variable (variable1) mit dem wert var1 wird vom Server nicht angenommen. Also als wenn sie nicht gesendet worden wäre ...

Oder muss ich das anders machen ?

Danke schomal,

mfg

[SirThornberry]

in deinem beispiel ganz oben schreibst du

Delphi-Quellcode:

data.AddFormField('var1',trim(var1));

also muss es dann auch heißen

Delphi-Quellcode:

data := TStringList.Create;
data.Add('var1='+var1);

[mfg]

Anzumerken ist auch, dass die Variable nicht akzeptiert wird, wenn sie mit GET übergeben wird... ich weiß nicht inwiefern das auch auf nicht multipartformdata zutrifft...

[mfg]

Die Variablennamen sind fiktiv, wenn ich den echten Quellcode nehmen würde würde man kaum durchblicken können ...

Also data.Add('XXX=YYY'); stellt Variable XXX mit dem Wert YYY dar, oder ?

Ich habe gerade nochmal alles gecheckt und an dem Code bei mir kann es nicht liegen...

Delphi-Quellcode:

var   data : TStrings;
begin

...
    //Für POST
    data := TStringList.Create;
    data.Add('glname='+Spy_On.Text);

    ...

    if idletime < 1 then sleep(900);
    html := idhttp1.Post(url,data);
...

Das ist jetzt der Orginalauszug...

So sieht das auf der HTML Seite aus:

Code:

        <form action="URL" method="post">
      <input type="text" name="glname" value="NAME" maxlength="30" size="30" class="input" value="NAME">
      <input type="submit" value="suchen" class="button">
      </form>

[mfg]

So sieht das ganze nach dem Posten aus ...

Code:

        <form action="URL" method="post">
      <input type="text" name="glname" value="NAME
" maxlength="30" size="30" class="input" value="NAME
">
      <input type="submit" value="suchen" class="button">
      </form>

leider nicht sehr erfreulich :(

Weiß vieleicht jemand Rat?

Nochmal zusammengefasst:

Beim posten entsteht am ende der des Wertes der übertragen wird ein Umbruch...
Beim benutzen eines TSTringList statt TMultiPartFormData wird die Variable nicht erkannt (ist leer)...

... Danke schonmal für alles und ich hoffe noch mehr ;)

[bttb930]

wir haben das gleiche problem - wurde es in der zwischenzeit irgendwann mal gelöst?