<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
  <meta content="text/html;charset=ISO-8859-1" http-equiv="Content-Type">
</head>
<body bgcolor="#ffffff" text="#000000">
Hi Just found this which looks like it hits the spot !<br>
<br>
<br>
<br>
var<br>
&nbsp;&nbsp;&nbsp; Stream&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; : TIdMultipartFormDataStream;<br>
&nbsp;&nbsp;&nbsp; PostDataStream&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; : TStringStream;<br>
begin<br>
&nbsp;&nbsp;&nbsp; PostDataStream&nbsp; := TStringStream.Create('');<br>
&nbsp;&nbsp;&nbsp; Stream := TIdMultipartFormDataStream.Create;<br>
&nbsp;&nbsp;&nbsp; try<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Stream.AddFile( 'XMLData', 'C:\a\Test.xml', 'text/xml' );<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; IdHTTP1.Post('<a class="moz-txt-link-freetext" href="http://www.aaaaa.com.au/clc_UploadTest.php">http://www.aaaaa.com.au/clc_UploadTest.php</a>',
Stream, PostDataStream);<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ShowMessage(PostDataStream.DataString);<br>
&nbsp;&nbsp;&nbsp; finally<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; PostDataStream.Free;<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Stream.Free;<br>
&nbsp;&nbsp;&nbsp; end;<br>
<br>
<br>
Which seems to work fine.&nbsp; However I now get a funny PHP message.&nbsp; But
I will take that to the offtopic section if required :)<br>
<br>
Cheers<br>
<br>
<div class="moz-signature">
<div class="Section1">
<p class="MsoNormal"><span style="color: rgb(255, 153, 0);" lang="EN-NZ"><o:p>&nbsp;</o:p></span></p>
<p class="MsoNormal"><span style="" lang="EN-NZ"><o:p>&nbsp;</o:p></span></p>
</div>
</div>
<br>
<br>
Robert martin wrote:
<blockquote cite="mid:4A076165.8020800@chreos.co.nz" type="cite">Hi all<br>
  <br>
I am wanting to send an XML file I have to a PHP script for
processing.&nbsp; I am wanting to use TidHttp and have the following code
snippet...<br>
  <br>
var<br>
&nbsp; sResponse: String;<br>
&nbsp; fsParams: TFileStream;<br>
begin<br>
&nbsp;&nbsp;
fsParams := TFileStream.Create('.\test.xml', fmOpenRead or
fmShareDenyWrite);<br>
try<br>
&nbsp; IdHTTP.Request.ContentType := 'text/xml';<br>
&nbsp;&nbsp;
sResponse :=
IdHTTP.Post('<a moz-do-not-send="true" class="moz-txt-link-freetext"
 href="https://secure.dev.gateway.gov.uk/submission">https://secure.dev.gateway.gov.uk/submission</a>',
fsParams);<br>
&nbsp; ShowMessage(sResponse);<br>
except<br>
&nbsp; on E: Exception do<br>
&nbsp;&nbsp;
ShowMessage('Error encountered during POST: ' + E.Message);<br>
end;<br>
  <br>
  <br>
This was from a web site.&nbsp; Not mine !<br>
  <br>
But I wonder what should happen at the PHP end.&nbsp; When my scripts
processes usually things usually I go 'vardata = $_REQUEST[FieldName]
to get the value.&nbsp; Than my XML I should do something like<br>
  <br>
  <br>
  <code><span style="color: rgb(0, 0, 0);"><span
 style="color: rgb(0, 119, 0);"><br>
  </span><span style="color: rgb(0, 0, 187);">$xml&nbsp;</span><span
 style="color: rgb(0, 119, 0);">=&nbsp;new&nbsp;</span><span
 style="color: rgb(0, 0, 187);">SimpleXMLElement</span><span
 style="color: rgb(0, 119, 0);">(</span><span
 style="color: rgb(0, 0, 187);">$vardata</span><span
 style="color: rgb(0, 119, 0);">);<br>
  <br>
echo&nbsp;</span><span style="color: rgb(0, 0, 187);">$xml</span><span
 style="color: rgb(0, 119, 0);">-&gt;</span><span
 style="color: rgb(0, 0, 187);">movie</span><span
 style="color: rgb(0, 119, 0);">[</span><span
 style="color: rgb(0, 0, 187);">0</span><span
 style="color: rgb(0, 119, 0);">]-&gt;</span><span
 style="color: rgb(0, 0, 187);">plot</span><span
 style="color: rgb(0, 119, 0);">; </span><span
 style="color: rgb(255, 128, 0);"></span></span></code><br>
  <br>
The question I have (which is Delphi related) is.&nbsp; My code doesn't pass
the XML file as a param (does it?)&nbsp; how should I do this or am I
misunderstanding.<br>
  <br>
Sorry if I have not been clear enough.<br>
  <br>
Thanks<br>
Rob<br>
  <pre wrap="">
<hr size="4" width="90%">
_______________________________________________
NZ Borland Developers Group - Delphi mailing list
Post: <a class="moz-txt-link-abbreviated" href="mailto:delphi@delphi.org.nz">delphi@delphi.org.nz</a>
Admin: <a class="moz-txt-link-freetext" href="http://delphi.org.nz/mailman/listinfo/delphi">http://delphi.org.nz/mailman/listinfo/delphi</a>
Unsubscribe: send an email to <a class="moz-txt-link-abbreviated" href="mailto:delphi-request@delphi.org.nz">delphi-request@delphi.org.nz</a> with Subject: unsubscribe</pre>
</blockquote>
</body>
</html>