Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö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ÄÚÖõļÓÃܽâÃܵ¥ÔªÊÇÄĸö£¿
DelphiÓÐÄÚÖüÓÃܽâÃܵ¥Ôª£¿

delphiÀïÓиö¼ÓÃܺͽâÃܵĵ¥Ôª

ÒýÓÃ
delphiÀïÓиö¼ÓÃܺͽâÃܵĵ¥Ôª


ÊÇÄĸö£¿

windowsµÄapi£¿

±ê×¼¼ÓÃܵÄÔ´´úÂë£¬ÍøÉÏ ......

delphi Ctrl+×ó¼ü ÎÞ·¨²é¿´ windows.pas Ôõô°ì

ÎÒ°²×°µÄÊÇÆóÒµ°æ¡£¡£¡£ 
ÎÒÎÊÏ£¬ CTRL+×ó¼ü Äܲ鿴 windows.pas Âð£¿
¾ÍÊÇ ½Ó¿ÚÀïµÄwindows¡£

µ±È»¿ÉÒÔ,CTRL+×ó¼üµã»÷Interface²¿·ÖµÄWindows¾Í¿ÉÒÔÁË

ɶɶÆóÒµ°æ£¿È¥°²×°Ä¿Â¼¿´¿´libÎļþ¼ÐÏÂÓÐÃ»Ó ......

Delphi Services ÀïÃæFindwindow ÎÊÌâ

ÀϲúƷά»¤ÎÊÌ⣬
Delphi °æ±¾£ºdelphi6

Èç¹ûн¨Ò»¸öApplication,
ÓÃÒ»ÏÂCode¿ÉÒÔ»ñµÃÕýÈ·µÄHandle
Delphi(Pascal) code:

procedure TForm1.Button1Click(Sender: TObject);
var
EVMHandle ......

delphi ×Ô¶¨ÒåÀàÐÍÓëÀàÐÍÆ¥Åä

//ÎÒÔÚtype¶¨ÒåÒ»¸ötmyarray
type
tmyarray= array[0..255] of integer;


...
function myfun1(a:integer):tmyarray;
function myfun2(pt:array of integer):boolean;

//myfun2 ÒªÓõ½ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ