´ÓÄÄÀïÈçÊÖѧϰ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
Ïà¹ØÎÊ´ð£º
ÎÒÔÚÄ£¿éÀï×Ô¶¨ÒåÁËÒ»¸öº¯Êý:stradd()
¿ÉÊÇÔÚadoquery1.sql.add('select stradd(author) from book');
ʱÌáʾstradd䶨Òå...
Õâ¸öÎÊÌâÓÐʲô°ì·¨¿ÉÒÔ½â¾öµÄÂð? ·Ç³£¸Ð¼¤!
(ÔÚA ......
ÎÒ°²×°µÄÊÇÆóÒµ°æ¡£¡£¡£
ÎÒÎÊÏ£¬ CTRL+×ó¼ü Äܲ鿴 windows.pas Âð£¿
¾ÍÊÇ ½Ó¿ÚÀïµÄwindows¡£
µ±È»¿ÉÒÔ,CTRL+×ó¼üµã»÷Interface²¿·ÖµÄWindows¾Í¿ÉÒÔÁË
ɶɶÆóÒµ°æ£¿È¥°²×°Ä¿Â¼¿´¿´libÎļþ¼ÐÏÂÓÐÃ»Ó ......
¾ÍÊÇÒ»¸ö·þÎñ¶ËºÍÒ»¸ö¿Í»§¶Ë£¬Àï±ßÓÐһЩ¹²Óõ¥Ôª £¬ÎÒÔÚ ¹¤³ÌµÄSEARCH PATHÀïÉèÖõÄ·¾¶£¬
Àï±ßÓиö½á¹¹Ì壬ÎÒÔÚ·þÎñ¶Ë´ò¿ª£¬¼ÓÁ˳ÉÔ±£¬µ«ÊÇÎÒÔÚ¿Í»§¶ËÆäËûµ¥Ôª·ÃÎʲ»µ½ÎÒмӵģ¬ÎÒÔÚ¿Í»§¶Ë´ò¿ªÄǸöµ¥Ôª£¬È·Êµ¼ÓÁ ......
ÀϲúƷά»¤ÎÊÌ⣬
Delphi °æ±¾£ºdelphi6
Èç¹ûн¨Ò»¸öApplication,
ÓÃÒ»ÏÂCode¿ÉÒÔ»ñµÃÕýÈ·µÄHandle
Delphi(Pascal) code:
procedure TForm1.Button1Click(Sender: TObject);
var
EVMHandle ......
type
myclass=class //¶¨ÒåÒ»¸öÀà
procedure mypro (var x:integer);//´´½¨¹ý³Ì·½·¨
function myfun (var x:integer):integer;//´´½¨º¯Êý·½·¨
end;
function myclass.myfun(var x:integer) ......