开发环境:Delphi7(Client) + C#(Web Service)
Web Service 方法:调用方法:
objSoap.SetSellDataLog(sRte)
sRte="<HQInfo>'#$D#$A' <Para>'#$D#$A' <Uname>NB-HBBJ013</Uname>'#$D#$A' <UPW>1234</UPW>'#$D#$A' <RefDate>1991-01-01</RefDate>'#$D#$A' </Para>'#$D#$A' <N_Sell>'#$D#$A' <SellID>2</SellID>'#$D#$A' <SellNO>BJ01050712002</SellNO>'#$D#$A' <SellStateID>2</SellStateID>'#$D#$A' <SellReason>0</SellReason>'#$D#$A' <DateSell>2005-07-12 13:13:44</DateSell>'#$D#$A' <SellMemo></SellMemo>'#$D#$A' <OwnerID>1221</OwnerID>'#$D#$A' <HandlerID>30</HandlerID>'#$D#$A' <DateHandle>2005-07-12 13:14:09</DateHandle>'#$D#$A' <DateCreated>2005-07-12 13:13:44</DateCreated>'#$D#$A' <DateModified>2005-07-12 13:13:44</DateModified>'#$D#$A' <CreatedBy>30</CreatedBy>'#$D#$A' <ModifiedBy>30</ModifiedBy>'#$D#$A' <BizRoleID>4</BizRoleID>'#$D#$A' <FormTypeID>1</FormTypeID>'#$D#$A' <IsEnable>1</IsEnable>'#$D#$A' <CustomerID>1</CustomerID>'#$D#$A' <CustomerName>345</CustomerName>'#$D#$A' <IsPayed>True</IsPayed>'#$D#$A' <PayType>现金</PayType>'#$D#$A' <IsShipment>True</IsShipment>'#$D#$A' <InvoiceNo>123</InvoiceNo>'#$D#$A' <IsSend>1</IsSend>'#$D#$A' </N_Sell>'#$A#$D' <N_SellDetail>'#$D#$A' <SellDetailID>2</SellDetailID>'#$D#$A' <OwnerID>1221</OwnerID>'#$D#$A' <SellNO>BJ01050712002</SellNO>'#$D#$A' <SellObjectID>14</SellObjectID>'#$D#$A' <SellObjectNO></SellObjectNO>'#$D#$A' <Quantity>1</Quantity>'#$D#$A' <UnitPrice>143</UnitPrice>'#$D#$A' <FormTypeID>1</FormTypeID>'#$D#$A' <Flag>1</Flag>'#$D#$A' <SendFlag>0</SendFlag>'#$D#$A' </N_SellDetail>'#$A#$D#$A#$D'</HQInfo>";
出错信息:
Project Test.exe raised exception class EAccessViolation with massage 'Access violation at address 006A3079 in module 'Test.exe'. Read of address 00000000'.Process stopped. Use Setup or run to continue.
附加信息:
将上述参数放到NotNet测试环境(C#)中测试没有问题。
Web Service 方法:调用方法:
objSoap.SetSellDataLog(sRte)
sRte="<HQInfo>'#$D#$A' <Para>'#$D#$A' <Uname>NB-HBBJ013</Uname>'#$D#$A' <UPW>1234</UPW>'#$D#$A' <RefDate>1991-01-01</RefDate>'#$D#$A' </Para>'#$D#$A' <N_Sell>'#$D#$A' <SellID>2</SellID>'#$D#$A' <SellNO>BJ01050712002</SellNO>'#$D#$A' <SellStateID>2</SellStateID>'#$D#$A' <SellReason>0</SellReason>'#$D#$A' <DateSell>2005-07-12 13:13:44</DateSell>'#$D#$A' <SellMemo></SellMemo>'#$D#$A' <OwnerID>1221</OwnerID>'#$D#$A' <HandlerID>30</HandlerID>'#$D#$A' <DateHandle>2005-07-12 13:14:09</DateHandle>'#$D#$A' <DateCreated>2005-07-12 13:13:44</DateCreated>'#$D#$A' <DateModified>2005-07-12 13:13:44</DateModified>'#$D#$A' <CreatedBy>30</CreatedBy>'#$D#$A' <ModifiedBy>30</ModifiedBy>'#$D#$A' <BizRoleID>4</BizRoleID>'#$D#$A' <FormTypeID>1</FormTypeID>'#$D#$A' <IsEnable>1</IsEnable>'#$D#$A' <CustomerID>1</CustomerID>'#$D#$A' <CustomerName>345</CustomerName>'#$D#$A' <IsPayed>True</IsPayed>'#$D#$A' <PayType>现金</PayType>'#$D#$A' <IsShipment>True</IsShipment>'#$D#$A' <InvoiceNo>123</InvoiceNo>'#$D#$A' <IsSend>1</IsSend>'#$D#$A' </N_Sell>'#$A#$D' <N_SellDetail>'#$D#$A' <SellDetailID>2</SellDetailID>'#$D#$A' <OwnerID>1221</OwnerID>'#$D#$A' <SellNO>BJ01050712002</SellNO>'#$D#$A' <SellObjectID>14</SellObjectID>'#$D#$A' <SellObjectNO></SellObjectNO>'#$D#$A' <Quantity>1</Quantity>'#$D#$A' <UnitPrice>143</UnitPrice>'#$D#$A' <FormTypeID>1</FormTypeID>'#$D#$A' <Flag>1</Flag>'#$D#$A' <SendFlag>0</SendFlag>'#$D#$A' </N_SellDetail>'#$A#$D#$A#$D'</HQInfo>";
出错信息:
Project Test.exe raised exception class EAccessViolation with massage 'Access violation at address 006A3079 in module 'Test.exe'. Read of address 00000000'.Process stopped. Use Setup or run to continue.
附加信息:
将上述参数放到NotNet测试环境(C#)中测试没有问题。
解决方案 »
- Undeclared identifier: 'YH' &Undeclared identifier: 'QX'怎么办
- 如何用最简单速度最快的方法判断外网是否连接
- 请问:如何删除TreeView节点以及其子节点
- 如何在WIN2000和WIN NT 下注册系统热键?在线急等!!!
- 录入库单怎么样使用dbgrid呢?想不通?
- 字符串截取的问题?
- 一个我纳闷的问题,请各位见仁见智,各抒已见,也方便人人学习!
- 挑战——如何将一个图像存到数据库中
- 急,如何将SQLSERVER中的大数据IMAGE字段(几百M)分块读出来??
- Delphi if in 和ord函数问题
- 小问题急
- 怎么将一个图片保存在Access数据库中?
http://210.51.0.216/HPWebService/DataAccess.asmx
方法:
SetSellData
参数:
<HQInfo>'#$D#$A' <Para>'#$D#$A' <Uname>NB-HBBJ013</Uname>'#$D#$A' <UPW>1234</UPW>'#$D#$A' <RefDate>1991-01-01</RefDate>'#$D#$A' </Para>'#$D#$A' <N_Sell>'#$D#$A' <SellID>2</SellID>'#$D#$A' <SellNO>BJ01050712002</SellNO>'#$D#$A' <SellStateID>2</SellStateID>'#$D#$A' <SellReason>0</SellReason>'#$D#$A' <DateSell>2005-07-12 13:13:44</DateSell>'#$D#$A' <SellMemo></SellMemo>'#$D#$A' <OwnerID>1221</OwnerID>'#$D#$A' <HandlerID>30</HandlerID>'#$D#$A' <DateHandle>2005-07-12 13:14:09</DateHandle>'#$D#$A' <DateCreated>2005-07-12 13:13:44</DateCreated>'#$D#$A' <DateModified>2005-07-12 13:13:44</DateModified>'#$D#$A' <CreatedBy>30</CreatedBy>'#$D#$A' <ModifiedBy>30</ModifiedBy>'#$D#$A' <BizRoleID>4</BizRoleID>'#$D#$A' <FormTypeID>1</FormTypeID>'#$D#$A' <IsEnable>1</IsEnable>'#$D#$A' <CustomerID>1</CustomerID>'#$D#$A' <CustomerName>345</CustomerName>'#$D#$A' <IsPayed>True</IsPayed>'#$D#$A' <PayType>现金</PayType>'#$D#$A' <IsShipment>True</IsShipment>'#$D#$A' <InvoiceNo>123</InvoiceNo>'#$D#$A' <IsSend>1</IsSend>'#$D#$A' </N_Sell>'#$A#$D' <N_SellDetail>'#$D#$A' <SellDetailID>2</SellDetailID>'#$D#$A' <OwnerID>1221</OwnerID>'#$D#$A' <SellNO>BJ01050712002</SellNO>'#$D#$A' <SellObjectID>14</SellObjectID>'#$D#$A' <SellObjectNO></SellObjectNO>'#$D#$A' <Quantity>1</Quantity>'#$D#$A' <UnitPrice>143</UnitPrice>'#$D#$A' <FormTypeID>1</FormTypeID>'#$D#$A' <Flag>1</Flag>'#$D#$A' <SendFlag>0</SendFlag>'#$D#$A' </N_SellDetail>'#$A#$D#$A#$D'</HQInfo>