> I am trying to use HTTPSend from Synapse. I need to send a file (name in
> cxTextEdit2) an email address >(name in cxDBTextEdit1) the contents of a Memo
> field (cxMemo1). I also need to send some additional text ie 'Tax Office'.
>
> I have tried to use HTTPSend as follows:
>
> procedure TfITISPaymentG.cxSendReturnBtnClick(Sender: TObject);
> var
> st: TFileStream;
> begin
> Screen.Cursor := crHourGlass;
> st := TFileStream.Create(cxTextEdit2.Text, fmOpenRead or
> fmShareDenyWrite);
> try
> // The next instruction sends URL, File name, EMail address, File and
> Memo text.
> HTTPPostFile('https://rc.gov.gg/API/SubmitReturnTest',
> ExtractFilename(cxTextEdit2.Text), >cxDBTextEdit1.Text, st,
> TStringList(cxMemo1.Lines));
> finally
> st.Free;
> end;
> Screen.Cursor := crDefault;
> end;
>
> I do not know how to send the additional text 'Tax Office'.
>
> Can anyone please help?
>
> Kind regards - Peter
> --
Hi Peter,
I don't use a lot of the stock Delphi'esk classes, but I need on
occasions like this. Perhaps you can make a NEW TStringList and Copy the
contents from the one, add some blank lines and then add the other info
- you Tax Info? If I'm way off base, forgive me. Just trying to help
with a suggestion.
--Jason
------------------------------------------------------------------------------
Everyone hates slow websites. So do we.
Make your web apps faster with AppDynamics
Download AppDynamics Lite for free today:
http://ad.doubleclick.net/clk;258768047;13503038;j?
http://info.appdynamics.com/FreeJavaPerformanceDownload.html
_______________________________________________
synalist-public mailing list
synalist-public@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/synalist-public
