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

delphiÖÐÔõô¶¨Ò幫¹²±äÁ¿£¿

ÎÒÒÔǰÊÇ×öVB6µÄ£¬ÏÖÔÚ¸ÄѧDELPHI¡£¹ýÈ¥¿ÉÒÔÓÃpublic ±äÁ¿Ãû¶¨ÒåÒ»¸ö¹«¹²±äÁ¿£¬ÔÚDELPHIÖÐÔõôʵÏÖÕâÒ»¹¦ÄÜ£¿

ÐÂÊÖ£¬¸Ð¾õ±È½Ï±¿£¬ÇëÖ¸½Ì£¡
½¨Ò»¸ö¹«¹²µ¥Ôª£¬ÔÚÀïÃæ¶¨Òå±äÁ¿£¬ÆäËüµÄµ¥ÔªÒýÓÃËü¡£

Ò²¿ÉÒÔ½¨Á¢Ò»¸ö¶ÔÏñ£¬ÔÚ¶ÔÏñÖж¨ÒåÊôÐÔ¡£

ÒýÓÃ
½¨Ò»¸ö¹«¹²µ¥Ôª£¬ÔÚÀïÃæ¶¨Òå±äÁ¿£¬ÆäËüµÄµ¥ÔªÒýÓÃËü¡£

Ò²¿ÉÒÔ½¨Á¢Ò»¸ö¶ÔÏñ£¬ÔÚ¶ÔÏñÖж¨ÒåÊôÐÔ¡£


»¹ÓУº
var
  frmCheckPEPB: TfrmCheckPEPB;
  Param1:Integer;//È«¾Ö£¬ÆäËûuse±¾unitµÄµØ·½Ò²¿ÉÒÔÓÃ

implementation

var Param2:Integer;//È«¾Ö£¬½ö±¾unitÈ«¾Ö¡£

VarÇø¿éÀﶨÒåµÄ¾ÍÊÇÈ«¾Ö±äÁ¿

ÔÚ½Ó¿Ú²¿·ÖÏÂµÄÆäËûµ¥ÔªÒýÓúó¿É¼û Ö´ÐÐÇø¿éµÄ½ö±¾µ¥Ôª¿É¼û

Ò²¿ÉÒÔÔÚpublic»òÕßprivateÖж¨Ò壬¶¨ÒåÔÚpublicµÄ»°ËùÓеĵ¥Ôª¶¼¿ÉÒÔ·ÃÎÊ£¬privateµÄ»°Ö»Óб¾µ¥Ôª¿ÉÒÔ·ÃÎÊ

ÄÜ˵µÃ¾ßÌåÒ»µãÂð£¿ÎÒÊÇÐÂÊÖ£¬²»ÖªµÀÔõôÓá£

!

Delphi(Pascal) code:

unit U_Main;


interface

uses
SysUtils, Controls, Forms, Classes, Windows, DB, StdCtrls, ExtCtrls,
Messages, ImgList, ToolWin, ComCtrls, Dialogs, ExtDlgs;

type
TF_Main = class(TForm)
btnTest: TButton;
btnClose: TButton;
edtCount: TEdit;

procedure btnCloseClick(Sender: TObject);
private

public
procedure AddMsg(sMsg: string);
procedure PrintArray(data:


Ïà¹ØÎÊ´ð£º

delphi編寫×Ô動¸üгÌÐò

ÓÉÓÚ¿Í戶¶ËÓеÄÎļþ經³£¸üУ¨遠³ÌµÄ£¬²»ÊǾÖÓò網£©£¬
ËùÒÔÏë寫個×Ô動¸üÐ嵀 ³ÌÐò¡£
¿´網É쵀 ·½·¨資ÁÏ£¬ÖªµÀЩ·½·¨£¬µ«²»ÖªµÀ¾ß體Ôõô寫¡£
......

delphi動態調ÓÃdllµÄÀ§»ó

procedure RunFunction;  
  type  
  TFunc = function(A: Integer): Integer;stdcall;¡¡//ÕâÀï¸ù¾ÝDLLÀïÃæº¯ÊýµÄÉùÃ÷ÐÞ¸Ä  
  var  
  ......

delphiÖÐselect µÄ whereºóÃæµÄid=±äÁ¿Ôõôд°¡

ÎҵijÌÐòÖÐÓÐÒ»¶Î¸üÐÂijһÌõ¼Ç¼µÄÓï¾ä£º
var
id:=integer;
begin
id:=strtoint(edit1.text);//edit1.textµÄÖµÒѾ­È¡µÃ;
...
...
...
adoQuery1.sql.add('update ¼Æ»®Çåµ¥±í set ¼Æ»®ÈÕ ......

ÇëÎÊÄĸöÅóÓÑÄÜÍÆ¼ö¸öwinsockAPI±à³ÌµÄÊé(DelphiµÄ)£¿

Òª°üº¬winsock2 ¶øÇÒÏêϸЩµÄ¡£
ÄÇЩʹÓÿؼþµÄµÄÊé±¾¾Í²»ÒªÁË£¬
Ï£ÍûÂò¹ýÕâÀàÊéµÄÅóÓÑÄÜÍÆ¼öÏÂ×Ô¼º¾õµÃ²»´íµÄ¡£
À´¹Ø×¢Ï¡£

WindowsÍøÂçÓëͨÐųÌÐòÉè¼Æ(µÚ2°æ)
À¶Æ¤µÄÊÇаæ,ËäÈ»ÊÇÖйúÈËдµÄµ«ÊǷdz ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ