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
Ïà¹ØÎÊ´ð£º
Ò»°ã¶¼ÊÇÔõô½Ó»îµÄ£¿
ÊÕÈëÔõôÑù
sohu£¿soho£¿
sohu ¿ÉÄÜÊÇsmall office house unit
С°ì¹«ÊÒ£¬°Ñ¼Ò±ä³Éµ¥Î»¡£
È¥Íþ¿ÍÍø°¡,ºÜ¶à¸öÄØ,»¹ÓÐÍâ°üµÄÍøÕ¾
ѧϰѧϰ¡£
ÏÖÔÚDelphi×ö¶«Î÷²»ÐÐÁË,´¦ÓÚÌÔÌ×´ ......
Àý×Ó³ÌÐò¼û¸½¼þ£¬ÓÃDelphi 7½øÐбàÒë
ÎÊÌâ´úÂëΪ
Delphi(Pascal) code:
if Node.ChildNodes <> nil then
begin
for i := 0 to Node.ChildNodes.Count - 1 do
begin
cNode := N ......
¶¨Òå±äÁ¿s,sqlΪstringÀàÐÍ£¬sΪº¯Êý²ÎÊý£¬sql£º='select field1 from table1 where'+s;ÔËÐÐʱs¸³ÖµÎªid>7»òÕßid<7¡¢id=7,µ«ÊÇÔËÐÐʱ×ÜÊdzö´í£¬Çë¸÷λ°ïÎÒ¸Ä´í£¬¶àл£¡
showMessage(sql)Ï¿´¿´
sql£º='sel ......
ÒÔÇ°ÖмäÕ¾ÊǵçÄÔͨ¹ý´®¿Ú¿ØÖƵģ¬ÏÖÔڸijÉÁËUSB½Ó¿Ú£¬ÇëÎÊÒªÔõô×ö°¡£¿Çó¸ßÊÖÖ¸µãÒ»ÏÂ
ÊÇusbת´®¿ÚÂð£¿ÄÇÓ¦¸Ã»¹ÊÇ¿ÉÒÔ°´´®¿Ú²Ù×÷µÄ£¬Ö»ÊÇËٶȲ»ÄÜÌ«¸ß
Èç¹û²»ÊÇusbת´®¿Ú£¬Çë²éÔÄusbÇý¶¯µÄsdk˵Ã÷¡£
Õâ¸öÊDz ......
³ÌÐò¹Ø±ÕµÄʱºò³öÏÖÒì³££º
exception EAccessviolation in moudule JGJC.exe at C08BB35B Access wiolation at address C08BC35B.Read of address C08BC35B.
ÇëÎÊÒ»ÏÂÕâÊÇʲôÒâ˼°¡£¿
·ÃÎÊÔ½½ç
ÊÇ·ñ·ÃÎÊÁËÒѱ»Ê ......