|
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 --
Are you
looking for a more
efficient way to run your Business? We offer a
range of standard computer
software programs including CI PAYROLL,
HR, TIME BILLING, CLIENT
MANAGEMENT, GST, IFA
and SALES ORDER
PROCESSING Systems. We have
wide experience of
resolving these important issues. Company
and provide you with a business
specific solution. |
------------------------------------------------------------------------------ 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
