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)
²»ÖªµÀʲôÔÒò£¬ÎÒ¸Õ¿ªÊ¼Ñ§Ï°Ị̈߳¬ÍøÉϲéÁ˺ܶà×ÊÁ϶¼Ñ§²»À´~ÇëÇó°ïÖú¡£
ÎҸоõÄã×îºÃдһ¸ö¶ÀÁ¢µÄỊ̈߳¬ÄÇÑùºÃ´¦ÀíһЩ¡£
{{
Ïà¹ØÎÊ´ð£º
VC ¿ØÖÆÌ¨³ÌÐò:
#include <iostream>
using namespace std;
int main()
{
const int def_buffer = 1024 * 4;
DWORD t;
BYTE b[def_buffer];
memset(b, 0, sizeof(b));
PBYTE p;
t = GetTickC ......
¸÷λ¸ßÊָϿì°ï°ïæ¡£
ÏÖÔÚÓÐÒ»¸ödelphiдµÄdll£¬º¯ÊýÖÐÓÐPIntegerµÄ·µ»Ø²ÎÊý£¬ÔÚdelphiÖпÉÒÔÕý³£µ÷Ó㬵«ÊÇÎÒÔÚvbÀïдµÄʱºò¾Í²»ÖªµÀ¸ÃÔõôÀ´µ÷ÓÃÁË¡£
Çë¿´´úÂë
ÒÔÏÂÊÇdelphiÖеĺ¯Êý¶¨ÒåºÍµ÷ÓôúÂ룬ÄÜÕý³£ÔËÐ ......
¼±Óá£ÁªÏµQQ£º8775262£¬Ð»Ð»¡£
ÐèÒª½øÐÐDllImportµÄµØ·½Ö±½ÓдDLLImport.·½·¨Ãû¡£
È磺DLLImport.GlobalAddAtom(¡¡);
Îļþ£ºUShare.pas
Delphi(Pascal) code:
unit UShare;
interface
uses Windows, Me ......
hongqi162¡¢windindance
´Ë2È˳¤ÆÚ²»ÔÚÏߣ¬ÌرðÊÇwindindance
¸ü»»ÓÐÄÜÁ¦µÄÈËÉÏ
hongqi162»¹ÊǾ³£ÉÏÀ´×ª×ªµÄ
ÒýÓÃ
¸ü»»ÓÐÄÜÁ¦µÄÈËÉÏ
ÆäʵҲ²»ÊÇʲôÄÜÁ¦µÄÔÒò£¬Ö÷Òª¿ÉÄÜÊÇʱ¼äÎÊÌâ°É
¹¤×÷µÄ»¹ÒªÉÏ°à£¬Ñ§Ï ......
ÎÒÔõô²éÁËÄÇô¶à˵ÊÇÄÜÆÆ½âµÄ£®½á¹û¶¼²»ÐУ®ÄãÃÇÓÐûÓÐѽ£®¸øÎÒ¸öÏêϸµÄ½â¾ö·½°¸£®ÏÂÔØÄĸö°æ±¾£®ÆÆ½âÎļþ£¬»¹ÓÐ×¢²áÂë
²»Çå³þ
ÏÂÔØ¹Ù·½¹âÅ̾µÏñ£¬ÓÃdelphidistiller1.85ÆÆ½â
µ½www.2ccc.comÉÏÈ¥ÕÒdelphidis ......