´ÓÄÄÀïÈçÊÖѧϰDelphiµÄÈý²ã
֮ǰ»ù±¾ÊÇÓÃÁ½²ã×ö¹ýЩСµÄÉè¼Æ£¬ÏÖÔÚÏëѧÈý²ã¡£²»ÖªµÀÈçºÎÈëÊÖ£¬Ó¦ÎªºÃÏñ֮ǰʵÏÖµÄÏë·¨¶¼²»Ò»Ñù¡£
ʵÔÚÀ§»ó¡£Çë¸÷¸ö¸øµãÒâ¼û¡£²»¹»·Ö¿ÉÒÔÔÚ¼Ó
ÄãÒª×öÄÄ·½ÃæÈý²ã
erp,oa
ÊÇʹÓÃwebservice»¹ÊÇcom+£¬
½¨ÒéѧϰwebserviceµÄµ÷Óðɡ£
СÀý×Ó£º
var
ss:ServiceSoap;
hello:WideString;
begin
try
HTTPRIO1.WSDLLocation := edtAddress.Text;
HTTPRIO1.Service := edit3.Text;
HTTPRIO1.Port := edit4.Text;
ss := (HTTPRIO1 as ServiceSoap);
hello:= 'hello';
Memo1.Lines.Add(ss.EchoInt(234));
except
on e : exception do
showmessage(e.Message);
end;
end;
Â¥ÉϵĴóÏÀÄÜ·ñ¸ø¸ö·¶ÀýºÍЩÏà¹ØµÄ×ÊÁÏÂð£¬ÎÒµÄÓÊÏäÊÇcookblack@126.com¡£Ð»Ð»£¡
DELPHI¼¼Êõ·½°¸±¦µä ÈËÃñÓʵç³ö°æÉç
Õâ±¾Êé½²Á˲»ÁËÈý²ãµÄÄÚÈÝ
ÎÒ¹«Ë¾ÓÃÁ½²ãµÄ£¬ÎÒ×Ô¼ºÏëŪÈý²ã¡£ÎÒÊǸձÏÒµµÄ£¬ºÜ¶à¶¼²»¶®£¬×Ô¼ºÃþË÷ºÜÂýÓֺܷÑʱ¼äºÍ¾«Á¦¡£¶àлÄ㣨ukn_ma4£©µÄ°ïÖúÄÜ·ñ¼ÓÄãµÄq£¬ÎÒµÄÊÇ284235045
Óà delphi ×öÈý²ã£¬ÓÃÄÄЩ¿Ø¼þ¿ÉÒÔʵÏÖ£¿Ò»°ãÓм¸ÖÖ·½Ê½£¿
End_rbody_60094129//-->
¸Ã»Ø¸´ÓÚ2009-09-28 09:37:59±»¹ÜÀíԱɾ³ý
¶ÔÎÒÓÐÓÃ[0]
¶ª¸ö°åש[0]
ÒýÓÃ
¾Ù±¨
¹ÜÀí
TOP
Ïà¹ØÎÊ´ð£º
delphiÄÚÖõļÓÃܽâÃܵ¥ÔªÊÇÄĸö£¿
DelphiÓÐÄÚÖüÓÃܽâÃܵ¥Ôª£¿
delphiÀïÓиö¼ÓÃܺͽâÃܵĵ¥Ôª
ÒýÓÃ
delphiÀïÓиö¼ÓÃܺͽâÃܵĵ¥Ôª
ÊÇÄĸö£¿
windowsµÄapi£¿
±ê×¼¼ÓÃܵÄÔ´´úÂë£¬ÍøÉÏ ......
ÎÒ°²×°µÄÊÇÆóÒµ°æ¡£¡£¡£
ÎÒÎÊÏ£¬ CTRL+×ó¼ü Äܲ鿴 windows.pas Âð£¿
¾ÍÊÇ ½Ó¿ÚÀïµÄwindows¡£
µ±È»¿ÉÒÔ,CTRL+×ó¼üµã»÷Interface²¿·ÖµÄWindows¾Í¿ÉÒÔÁË
ɶɶÆóÒµ°æ£¿È¥°²×°Ä¿Â¼¿´¿´libÎļþ¼ÐÏÂÓÐÃ»Ó ......
ÀϲúƷά»¤ÎÊÌ⣬
Delphi °æ±¾£ºdelphi6
Èç¹ûн¨Ò»¸öApplication,
ÓÃÒ»ÏÂCode¿ÉÒÔ»ñµÃÕýÈ·µÄHandle
Delphi(Pascal) code:
procedure TForm1.Button1Click(Sender: TObject);
var
EVMHandle ......
//ÎÒÔÚtype¶¨ÒåÒ»¸ötmyarray
type
tmyarray= array[0..255] of integer;
...
function myfun1(a:integer):tmyarray;
function myfun2(pt:array of integer):boolean;
//myfun2 ÒªÓõ½ ......