Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

´ÓÄÄÀïÈçÊÖѧϰ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¼òµ¥ ¿Þ
Ò»¸ödll ºÍÒ»¸ö Ö¸Õ뺯Êýµ÷Óà ¸ãÁËÎÒ2Àñ°Ý »¹ÊÇÔÚÎÒÓÐdelphi»ù´¡µÄÇé¿öÏ ¿Þ
ÄÑ¶È ±È delphi ¸ßºÜ¶à¡£¼ÌÐøÅ¬Á¦Ñ§°¡¡£
ºÃÏñÒ²²¢²»±ÈdelphiÄѶàÉÙ°É

Ö÷Òª´úÂë ²»Ö±¹ÛÁË¡ ......

ÇëÎÊÕ⼸¾ädelphiÔõô¸Ä³Ébcb

const
  WM_REFRESH_USERS = WM_USER + 330;

type
  TRefreshParam = (rpRefreshAll, rpAppendItem, rpDeleteItem);

  PCmdRec = ^TCmdRec;
  TCmdRec = record
&nbs ......

delphi Êý×é¸úfor

ÈçºÎÓÃÊý×é¸úfor´òÓ¡³öÏÂÃæµÄͼÐÎ
*
**
***
****

Èç¹ûÓиüºÃµÄ·½·¨×îºÃҲдÉÏ XX
procedure TForm1.Button2Click(Sender: TObject);
var
  arr: array of Integer;
  i,j: I ......

delphi¼òµ¥µÄÎÊÌ⣿

type
myclass=class  //¶¨ÒåÒ»¸öÀà
procedure mypro (var x:integer);//´´½¨¹ý³Ì·½·¨
function myfun (var x:integer):integer;//´´½¨º¯Êý·½·¨
end;

function myclass.myfun(var x:integer) ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ