BorlandTalk.com

Atle Smelvær · Guest

I can't get IdHTTP.Post to work when using values containing ". Look at this
code:

const
XMLMessage = '<?xml version=''1.0'' encoding=''ISO-8859-1''?>'+
'<messages from="PROVIDER" time="20050916 104800">'+
'<message provider="1" price_category="CPA000">'+
'<billing number="%s"/>'+
'<recipient number="%0:s"/>'+
'<text>%s</text>'+
'<validityperiod days="0" hours="0" minutes="5"/>'+
'</message>'+
'</messages>';
var
str: string;
List: TStringList;
ResponseStream: TStringStream;
begin
List := TStringList.Create;
ResponseStream := TStringStream.Create('');
try
str := Format(XMLMessage,[Edit1.Text,Memo1.Lines.Text]);
IdHTTP1.Post('http://someplace.com/servlet/Send',List,ResponseStream);
Memo2.Lines.Text := ResponseStream.DataString;
finally
List.Free;
ResponseStream.Free;
end;
end;

Problem is that when Post is done, the it treats the value as several
values, putting & inside and corrupting the XML. Is there a way to fix this?
Problem is, if I change " to %22 it will be posted as %22 and I need it to
be converted back, or have another solution that handles " properly.

-Atle

Atle Smelvær · Guest

Deleted to mutch of the source there, replace this:

str := Format(XMLMessage,[Edit1.Text,Memo1.Lines.Text]);

with this:

List.Values['messages'] := Format(XMLMessage,[Edit1.Text,Memo1.Lines.Text]);

-Atle

Remy Lebeau (TeamB) · Guest

"Atle Smelvær" <atle (AT) datagrafikk (DOT) no> wrote

Atle Smelvær · Guest

I posted it with a stream, but had to change the XMLMessage to contain
"messages=" first. Good enough for the first part, but then there is some
converting that needs to be done. Is there a good URLEncode function inside
Indy9. The TIdUri.PathEncode does not convert properly the way I want it. ?
is not converted, and spaces are converted to %20 instead of +.

-Atle

Atle Smelvær · Guest

Just in case someone wondered. Did not find any good function inside Indy,
so I used a little snippet from the internet:

function URLEncode(const S: string; const InQueryString: Boolean): string;
var
i: integer;
begin
Result := '';
for i := 1 to length(s) do
begin
case s[i] of
'A'..'Z',
'a'..'z',
'0'..'9',
'-', '_', '.': result := result + s[i];
' ': if InQueryString then
result := result + '+'
else
result := result + '%20';
else
result := result + '%' + SysUtils.IntToHex(Ord(s[i]), 2);
end;
end;
end;

And ofcourse, setting

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

is very important... And used MSXML to create the XML data instead, don't
matter that mutch where I will use this. Other than that, it works like a
charm.

-Atle