【结贴】购物车、在线支付

op+ · 发表于 2009-11-2 10:21:59

TStreamOwnership.soOwned

zfang · 发表于 2009-11-2 10:47:17

(WebBrowser1.Document as Borland.Delphi.ActiveX.IPersistStreamInit).Load()
这里需要传入的类型是IStream
平台里 TStreamAdapter.Create这种用法好像有问题。

op+ · 发表于 2009-11-2 10:55:48

是啊。。我就是不知道怎么写啊~你写完整下给我啊，，

zfang · 发表于 2009-11-2 11:00:16

这方面也没弄过，你换种写法试试呢
var
  lStreamAdapter : TStreamAdapter;
begin
  lStreamAdapter := TStreamAdapter.Create(StrStream, TStreamOwnership.soOwned);
  (WebBrowser1.Document as Borland.Delphi.ActiveX.IPersistStreamInit).Load(IStream(lStreamAdapter));
end;

再不行就换种思路吧，或者delphi中实现以第三方控件的形式引入到平台。

op+ · 发表于 2009-11-2 17:21:40

能网上支付成功了，，哎，不过接下来还用弄网上支付不成功从网银返回个值，这个贴先结吧。。谢谢版主的耐心回复了。哈哈

zfang · 发表于 2009-11-2 17:22:35

恭喜楼主。
请楼主把实现的方式共享一下吧

op+ · 发表于 2009-11-2 17:24:11

var
  StrStream:TStringStream;
  SetNoteStr: string;
  k,strMD,url:string;//拼凑加密串,md5加密
begin
DataSetWSZFJK.Open;
Edit2.Text:=DataSetWSZFJK.FieldByName('SHH').AsString;  // 商户号
Edit4.Text:=DataSetWSZFJK.FieldByName('HB').AsString; // 货币
Edit5.Text:=DataSetWSZFJK.FieldByName('NJSFHDDZ').AsString; // 你接收返回的地址
Edit6.Text:=DataSetWSZFJK.FieldByName('MWDMY').AsString;  // 明文的密钥
Edit8.Text:=DataSetWSZFJK.FieldByName('SHRXM').AsString;  // 收货人姓名
Edit9.Text:=DataSetWSZFJK.FieldByName('SHRDZ').AsString;  // 收货人地址
Edit10.Text:=DataSetWSZFJK.FieldByName('SHRDH').AsString;  // 收货人电话
Edit11.Text:=DataSetWSZFJK.FieldByName('SHRYB').AsString;  // 收货人邮编
Edit12.Text:=DataSetWSZFJK.FieldByName('SHRYJ').AsString;  // 收货人邮件
Edit13.Text:=DataSetWSZFJK.FieldByName('SHRSJH').AsString;  // 收货人手机号
Edit14.Text:=DataSetWSZFJK.FieldByName('BZ1').AsString;  // 备注1
DataSetZXWTD.Close;
DataSetZXWTD.SQL.Text:='select *from ZXWTDD where YSLH='''+strYSLH+'''';
DataSetZXWTD.Open;

  k:=DataEdit2.Text+edit4.Text+DataEdit1.Text+edit2.Text+edit5.Text+edit6.Text;
  edit7.Text := jsCommon.MakeHashValue(k);
  SetNoteStr :='<html>                                                                                  '
+'  '
+' <body>  '
+' <form action="https://pay3.chinabank.com.cn/PayGate" method="

OST" name="E_FORM">                         '
+' 订单号  <input type="text" id="v_oid" name="v_oid" size="100"    value='''+DataEdit1.Text+'''><br/>                   '
+' <input type="hidden" type="text" id="v_mid" name="v_mid" size="100"    value='''+Edit2.Text+'''><br/>                   '
+' 金额  <input type="text" id="v_amount" name="v_amount"  size="100" value='''+DataEdit2.Text+'''><br/>                      '
+' <input  type="hidden"  type="text" name="v_moneytype" size="100"  value='''+Edit4.Text+'''><br/>                                        '
+' <input  type="hidden" type="text" id="v_url" name="v_url" size="150" value='''+Edit5.Text+'''><br/>    '
+' <input  type="hidden" type="text" id="key" name="key" size="100" value='''+Edit6.Text+'''><br/>                '
+'<br/>                                     '
+' <input  type="hidden" type="text" id="_pingStr" name="_pingStr" value='''+k+''' size="200" ><br/> '
+' <input type="hidden"  type="text" name="v_md5info" value='''+Edit7.Text+''' size="100"><br/> '
+' <input type="hidden"  type="button" value="按照顺序生成字符串" onclick="_ping()">                                                          '
+'<TABLE cellSpacing=0 cellPadding=0 width=760 align=center >                '
+' <input type="submit" value="确认支付"/>                                                             '
+'                   <TR>                                                                         '
+'                      <TD height=23 align=right></TD>                                  '
+'                      <TD height=23 ><input type="hidden" name="v_rcvname" type="text" value='''+Edit8.Text+'''>             '
+'                            <font color="#FF0000"></TD> '
+'                   </TR>                                                                         '
+'                   <TR>                                                                         '
+'                      <TD align=right height=23></TD>                                  '
+'                      <TD height=23><input type="hidden" name="v_rcvaddr" type="text" id="v_rcvaddr"  value='''+Edit9.Text+'''>'
+'                            <font color="#FF0000"></TD>'
+'                   </TR>                                                                         '
+'                   <TR>                                                                         '
+'                      <TD align=right height=23></TD>                                  '
+'                      <TD height=23><input type="hidden" name="v_rcvtel" type="text" id="v_rcvtel"  value='''+Edit10.Text+'''> '
+'                            <font color="#FF0000"></TD> '
+'                   </TR>                                                                         '
+'                   <TR>                                                                         '
+'                      <TD align=right height=23></TD>                                  '
+'                      <TD height=23><input type="hidden" name="v_rcvpost" type="text" id="v_rcvpost"  value='''+Edit11.Text+'''> '
+'                            <font color="#FF0000"></TD> '
+'                   </TR>                                                                         '
+'                   <TR>                                                                         '
+'                      <TD align=right height=23></TD>                                  '
+'                      <TD height=23><input type="hidden" type="text" name="v_rcvemail" value='''+Edit12.Text+'''> '
+'                         <font color="#FF0000"></TD>  '
+'                   </TR>                                                                         '
+'                   <TR>                                                                         '
+'                      <TD align=right height=23></TD>                               '
+'                      <TD height=23><input type="hidden" type="text" name="v_rcvmobile" value='''+Edit13.Text+'''> '
+'                         <font color="#FF0000"></TD> '
+'                   </TR>                                                                         '
+'                   <TR>                                                                         '
+'                      <TD align=right height=24></TD>                                     '
+'                      <TD valign="top"><input type="hidden" name="remark1" type=text id="remark1" value='''+Edit14.Text+'''>  '
+'                            <font color="#FF0000"></TD>'
+'                   </TR>                                                                         '
+'                   <TR>                                                                         '
+'                      <TD height=23 align=right></TD>                                  '
+'                      <TD height=23 ><input type="hidden" name="v_ordername" type="text" id="v_ordername" value='''+DataEdit3.Text+'''>'
+'                            <font color="#FF0000"></TD> '
+'                   </TR>                                                                         '
+'                   <TR>                                                                         '
+'                      <TD align=right height=23></TD>                                  '
+'                      <TD height=23><input type="hidden" name="v_orderaddr" type="text" id="v_orderaddr"  value='''+DataEdit4.Text+'''> '
+'                            <font color="#FF0000"></TD>'
+'                   </TR>                                                                         '
+'                   <TR>                                                                         '
+'                      <TD align=right height=23></TD>                                  '
+'                      <TD height=23><input type="hidden" name="v_ordertel" type="text" id="v_ordertel"  value='''+DataEdit5.Text+'''>'
+'                            <font color="#FF0000"></TD> '
+'                   </TR>                                                                         '
+'                   <TR>                                                                         '
+'                      <TD align=right height=23></TD>                                  '
+'                      <TD height=23><input type="hidden" name="v_orderpost" type="text" id="v_orderpost"  value='''+DataEdit6.Text+'''> '
+'                            <font color="#FF0000"></TD> '
+'                   </TR>                                                                         '
+'                   <TR>                                                                         '
+'                      <TD align=right height=23></TD>                                  '
+'                      <TD height=23><input type="hidden" name="v_orderemail" type="text" id="v_orderemail" value='''+DataEdit7.Text+'''>'
+'                            <font color="#FF0000"></TD>'
+'                   </TR>                                                                         '
+'                   <TR>                                                                         '
+'                      <TD align=right height=23></TD>                               '
+'                      <TD height=23><input type="hidden" name="v_ordermobile" type="text" id="v_ordermobile" value='''+DataEdit8.Text+'''> '
+'                            <font color="#FF0000"></TD> '
+'                   </TR>                                                                         '
+'                   <TR>                                                                            '
+'                      <TD align=right height=24></TD>                                        '
+'                      <TD valign="top"><input type="hidden" name="remark2" type=text id="remark2" value='''+DataEdit9.Text+'''>  '
+'</TD>  '
+'                   </TR>  '
+'</TABLE>'
+' </form>                                                                                                                      '
+' </body>                                                                                                                         '
+' </html>                                                                                                                         '
+' <script>                                                                                                                         '
+' </script>' ;
StrStream:=TStringStream.Create(SetNoteStr);
WebBrowser1.Navigate('about:blank');
try
   StrStream.Position:=0;
   WebBrowser1.LoadFromStream(StrStream);
finally
StrStream.Free;
end;
end;

zfang · 发表于 2009-11-2 17:27:13

谢谢分享。结贴。

		自动登录	找回密码
密码			立即注册