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
Ïà¹ØÎÊ´ð£º
Çë½Ì¸÷·¸ßÊÖ¡£ÎäÁÖÇ°±²¡£ÎÒ½«B.EXE×ö³É×ÊÔ´Îļþ£¬È»ºó¼Óµ½123.dllÖС£ÓÃA.EXEÀ´µ÷ÓÃ123.dllÖеÄB.EXE
Çë¸÷λǰ±²°ïæָ½ÌÏ¡£A.exeÈçºÎÀ´µ÷ÓÃdllÖеÄexe£¿´úÂëÓÖ¸ÃÈçºÎд£¿
ÎÞÈ˻شð£¿
×ö³É×ÊÔ´Î ......
procedure WMNCHitTest(var Msg:TWMNCHitTest); message WM_NCHITTEST;
procedure WMNCPaint(var Msg: TWMNCPaint); message WM_NCPAINT;
ÇëÎÊһϣ¬ÕâÁ½¸öº¯ÊýÊÇÉÏÃæÒâ˼£¬ÔÚÉÏÃæʱºòµ÷Óã¬message WM_NCHITTEST; ......
ÎÒÊÇDELPHIµÄ³õѧÕߣ¬µ«ÀÏʦҪÇóÎÒÃÇ×ö¿Î³ÌÉè¼Æ£¬´ÓÊé±¾ÀïÃ濽ÁË´úÂë×Ô¼ºÑо¿£¬µ«ÀÏÊdzöÎÊÌ⣬ÓÐËÊÇÕâ·½ÃæµÄ¸ßÊÖ°¡£¬ÄÜ·ñÁôϸöÁªÏµµÄ·½Ê½°ï°ïæ°¡
³öʲôÎÊÌ⣬Çë¾ßÌå˵Ã÷
·¢ÏÖ¡¢½â¾öÎÊÌâµÄ¹ý³Ì¾ÍÊÇѧϰµÄ¹ý³Ì
......
ÒÔÇ°ÖмäÕ¾ÊǵçÄÔͨ¹ý´®¿Ú¿ØÖƵģ¬ÏÖÔڸijÉÁËUSB½Ó¿Ú£¬ÇëÎÊÒªÔõô×ö°¡£¿Çó¸ßÊÖÖ¸µãÒ»ÏÂ
ÊÇusbת´®¿ÚÂð£¿ÄÇÓ¦¸Ã»¹ÊÇ¿ÉÒÔ°´´®¿Ú²Ù×÷µÄ£¬Ö»ÊÇËٶȲ»ÄÜÌ«¸ß
Èç¹û²»ÊÇusbת´®¿Ú£¬Çë²éÔÄusbÇý¶¯µÄsdk˵Ã÷¡£
Õâ¸öÊDz ......
´óÏÀÃÇ°ï濴һϣ¬ÓÃspcomm¿Ø¼þ½øÐд®¿ÚͨÐÅ¡£
·¢ËÍÊý¾Ý£º
procedure TForm1.Button2Click(Sender: TObject);
var
strPressure:string;
begin
strPressure:='SEND'+#13;
comm ......