delphi¶àÏ̵߳÷ÓÃwebserviceµÄÎÊÌ⣬·Ç³£×ż±¡£
Delphi(Pascal) code:
function getbook:Integer;stdcall;
var
WsObj:HosServicePortType;
begin
try
CoInitialize(Nil);
WsObj:=MainForm.HTTPRIO1 as HosServicePortType;//ÒýÓÃMainformÉϵÄHTTPRIO¿Ø¼þ
WsArray:=WsObj.getBook('0371001','20100302');//·¢ËÍÇëÇó(getbookÊÇwebserviceÖеĺ¯Êý)
finally
CoUninitialize;
end;
Result:=0;
end;
¡£¡£¡£¡£Ê¡ÂÔ
procedure TMainForm.FormShow(Sender: TObject);
var i:Integer;
ARegistry:TRegistry;
ID: DWORD;
begin
hThread := CreateThread(nil, 0, @getbook, nil,0, ID);//ÕâÑù²úÉú½ø³Ì
......Ê¡ÂÔ
ÎÒÏëÔÚÏß³ÌÖÐʵÏߺǫ́×Ô¶¯·¢ËÍÇëÇ󣬵«ÊÇÒ»Ö±Ìáʾ´íÎó£º
Thread Start: Thread ID: 1732. Process HosClient.exe (3436)
First chance exception at $7C812AFB. Exception class ESOAPHTTPException with message 'The handle is in the wrong state for the requested operation - URL:http://192.168.0.100:8080/crm_pt/service/HosService?wsdl - SOAPAction:""'. Process HosClient.exe (3436)
²»ÖªµÀʲôÔÒò£¬ÎÒ¸Õ¿ªÊ¼Ñ§Ï°Ị̈߳¬ÍøÉϲéÁ˺ܶà×ÊÁ϶¼Ñ§²»À´~ÇëÇó°ïÖú¡£
ÎҸоõÄã×îºÃдһ¸ö¶ÀÁ¢µÄỊ̈߳¬ÄÇÑùºÃ´¦ÀíһЩ¡£
{{
Ïà¹ØÎÊ´ð£º
·µ»ØµÄÄÚÈÝÊÇÈçÏ´úÂë,ÔõôÄÜÇþµÀ2b?
<p class="text1">1a </p>
<p class="text1">2b </p>
<p class="text1">3c </p>
<p cl ......
ÎÒ±¾À´ÔÚѧУÊÇŪµÄJ2EE
×òÌìÈ¥Á˳¤É³Ò»¼Ò¹«Ë¾Ó¦Æ¸ ˵ÊÇÓÐÒ»¸öÏîÄ¿ delphiµÄ
ʵϰÆÚÒ»¸öÔ ËÄÌì°ëµÄdelphiÅàѵ ºóÃæ25Ìì¸øÄãÒ»¸öÉè¼ÆÎĵµ×Ô¼º×öÒ»¸öÏîÄ¿
×ߺ󲻾ôòµç»°¹ýÀ´½ÐÎÒÐÇÆÚһȥ±¨µ½
¿´µ½delphiµ ......
ÎÒÔÚÍøÉÏÕÒÁ˸ö¹ØÓÚIEBHOµÄ´úÂ룬Ȼºó°´ÕÕÄĸöÉèÖÃÁË£¬ºóÀ´ÔËÐеÄʱºò³öÏÖ
¹¹½¨
[¾¯¸æ] Project2.dpr(14): File not found: 'MYbho.TLB'
[¾¯¸æ] Project2.dpr(16): File not found: 'MYbho.RES'
......
ÎÒÔÚÍøÉÏÕÒÁ˸ö¹ØÓÚIEBHOµÄ´úÂ룬Ȼºó°´ÕÕÄĸöÉèÖÃÁË£¬ºóÀ´ÔËÐеÄʱºò³öÏÖ
[´íÎó] Unit1.pas(15): Undeclared identifier: 'GetTypeInfoCount'
[´íÎó] Unit1.pas(15): Undeclared identifier: 'GetTypeInfo ......
delphiÈçºÎ»ñÈ¡ÍøÒ³µÄ·µ»Ø×´Ì¬£¬¾ÍÏñä¯ÀÀÆ÷Öзµ»ØµÄhttp 500´íÎó£¬404´íÎóµÈ
ÁíÍâÄܲ»ÄÜ»ñÈ¡µ½´ò¿ªÒ»¸öÍøÒ³µÄ·´Ó¦Ê±¼ä£¬¿ÉÒÔ´óÖ²ο¼ÍøÒ³´ò¿ªµÄËÙ¶È
лл£¡
¶¼¿ÉÒÔʵÏֵ쬾ßÌåµÄÄ㻹ÊDzé×ÊÁϰɣ¡
×Ô¼º ......