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

delphi ´«Êä¶à¸öÎļþ - Delphi / ÍøÂçͨÐÅ/·Ö²¼Ê½¿ª·¢

дµÃ³ÌÐòÒѾ­¿ÉÒÔ´«ÊäÒ»¸öÎļþ¡£
ÎÒÏÖÔÚµÄÎÊÌâÊÇ£¬ÎÒÏë´«Êä¶à¸öÎļþÔõô°ì£¿
²»ÖªµÀÄãÔõôÉè¼ÆµÄ


unit Frm_Client;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, FileCtrl,ScktComp, StdCtrls, XPMan;
const
  Buffersize=1048576; //41943040; //40MB
  CPort = 6656;

type
  TForm1 = class(TForm)
  SClient: TClientSocket;
  BtnConn: TButton;
  BtnSelFile: TButton;
  GBxStatus: TGroupBox;
  MmStatus: TMemo;
  EDIPAddr: TEdit;
  Label1: TLabel;
  OpenDialog1: TOpenDialog;
  Label2: TLabel;
  EResourceFiles: TEdit;
  Label3: TLabel;
  ListBox1: TListBox;
  BtnsSplit: TButton;
  BtnAdd: TButton;
  BtnBrowse: TButton;
  EDestination: TEdit;
  Label6: TLabel;
  SaveDialog1: TSaveDialog;
  procedure FormClose(Sender: TObject; var Action: TCloseAction);
  procedure FormCreate(Sender: TObject);
  procedure FormDestroy(Sender: TObject);
  procedure SClientConnect(Sender: TObject; Socket: TCustomWinSocket);
  procedure SClientDisconnect(Sender: TObject; Socket: TCustomWinSocket);
  procedure SClientRead(Sende


Ïà¹ØÎÊ´ð£º

delphiÈçºÎµ÷ÓÃdllÎļþÖеÄexe

Çë½Ì¸÷·¸ßÊÖ¡£ÎäÁÖÇ°±²¡£ÎÒ½«B.EXE×ö³É×ÊÔ´Îļþ£¬È»ºó¼Óµ½123.dllÖС£ÓÃA.EXEÀ´µ÷ÓÃ123.dllÖеÄB.EXE
Çë¸÷λǰ±²°ïæָ½ÌÏ¡£A.exeÈçºÎÀ´µ÷ÓÃdllÖеÄexe£¿´úÂëÓÖ¸ÃÈçºÎд£¿


ÎÞÈ˻شð£¿

×ö³É×ÊÔ´Î ......

delphiÓï¾ä - Delphi / ·Ç¼¼ÊõÇø

procedure WMNCHitTest(var Msg:TWMNCHitTest); message WM_NCHITTEST;
procedure WMNCPaint(var Msg: TWMNCPaint); message WM_NCPAINT;
ÇëÎÊһϣ¬ÕâÁ½¸öº¯ÊýÊÇÉÏÃæÒâ˼£¬ÔÚÉÏÃæʱºòµ÷Óã¬message WM_NCHITTEST; ......

¹ØÓÚDELPHIÎÊÌâµÄ - Delphi / ÓïÑÔ»ù´¡/Ëã·¨/ϵͳÉè¼Æ

ÎÒÊÇDELPHIµÄ³õѧÕߣ¬µ«ÀÏʦҪÇóÎÒÃÇ×ö¿Î³ÌÉè¼Æ£¬´ÓÊé±¾ÀïÃ濽ÁË´úÂë×Ô¼ºÑо¿£¬µ«ÀÏÊdzöÎÊÌ⣬ÓÐË­ÊÇÕâ·½ÃæµÄ¸ßÊÖ°¡£¬ÄÜ·ñÁôϸöÁªÏµµÄ·½Ê½°ï°ïæ°¡
³öʲôÎÊÌ⣬Çë¾ßÌå˵Ã÷
·¢ÏÖ¡¢½â¾öÎÊÌâµÄ¹ý³Ì¾ÍÊÇѧϰµÄ¹ý³Ì ......

delphiÔõô¿ØÖÆUSB - Delphi / VCL×é¼þ¿ª·¢¼°Ó¦ÓÃ

ÒÔÇ°ÖмäÕ¾ÊǵçÄÔͨ¹ý´®¿Ú¿ØÖƵģ¬ÏÖÔڸijÉÁËUSB½Ó¿Ú£¬ÇëÎÊÒªÔõô×ö°¡£¿Çó¸ßÊÖÖ¸µãÒ»ÏÂ
ÊÇusbת´®¿ÚÂð£¿ÄÇÓ¦¸Ã»¹ÊÇ¿ÉÒÔ°´´®¿Ú²Ù×÷µÄ£¬Ö»ÊÇËٶȲ»ÄÜÌ«¸ß

Èç¹û²»ÊÇusbת´®¿Ú£¬Çë²éÔÄusbÇý¶¯µÄsdk˵Ã÷¡£

Õâ¸öÊDz ......

Delphi spcomm ¿Ø¼þ - Delphi / ÍøÂçͨÐÅ/·Ö²¼Ê½¿ª·¢

´óÏÀÃÇ°ï濴һϣ¬ÓÃspcomm¿Ø¼þ½øÐд®¿ÚͨÐÅ¡£
·¢ËÍÊý¾Ý£º
procedure TForm1.Button2Click(Sender: TObject);
var
 strPressure:string;
begin
 
 strPressure:='SEND'+#13;
 comm ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØͼ | ¸ÓICP±¸09004571ºÅ