´ÓÄÄÀïÈçÊÖѧϰ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¼òµ¥ ¿Þ
Ò»¸ödll ºÍÒ»¸ö Ö¸Õ뺯Êýµ÷Óà ¸ãÁËÎÒ2Àñ°Ý »¹ÊÇÔÚÎÒÓÐdelphi»ù´¡µÄÇé¿öÏ ¿Þ
ÄÑ¶È ±È delphi ¸ßºÜ¶à¡£¼ÌÐøÅ¬Á¦Ñ§°¡¡£
ºÃÏñÒ²²¢²»±ÈdelphiÄѶàÉÙ°É
Ö÷Òª´úÂë ²»Ö±¹ÛÁË¡ ......
const
WM_REFRESH_USERS = WM_USER + 330;
type
TRefreshParam = (rpRefreshAll, rpAppendItem, rpDeleteItem);
PCmdRec = ^TCmdRec;
TCmdRec = record
&nbs ......
ÈçºÎÓÃÊý×é¸úfor´òÓ¡³öÏÂÃæµÄͼÐÎ
*
**
***
****
Èç¹ûÓиüºÃµÄ·½·¨×îºÃҲдÉÏ XX
procedure TForm1.Button2Click(Sender: TObject);
var
arr: array of Integer;
i,j: I ......
type
myclass=class //¶¨ÒåÒ»¸öÀà
procedure mypro (var x:integer);//´´½¨¹ý³Ì·½·¨
function myfun (var x:integer):integer;//´´½¨º¯Êý·½·¨
end;
function myclass.myfun(var x:integer) ......