type
TForm1 = class(TForm)
CheckBox1: TCheckBox;
ServerSocket1: TServerSocket;
procedure CheckBox1Click(Sender: TObject);
procedure ServerSocket1Accept(Sender: TObject;
Socket: TCustomWinSocket);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.CheckBox1Click(Sender: TObject);
begin
ServerSocket1.Active:=checkbox1.Checked;
end;
procedure TForm1.ServerSocket1Accept(Sender: TObject;
Socket: TCustomWinSocket);
var
nid:integer;
nsize:integer;
n:integer;
p:pbyte;
data:Tmemorystream;
begin
data:=Tmemorystream.Create;
getmem(p,8192);
try
if(socket.ReceiveBuf(nid,sizeof(nid))<>sizeof(nid)) then
raise exception.Create('');
if((socket.ReceiveBuf(nsize,sizeof(nsize))<>sizeof(nsize))or(nsize<=0)) then
raise Exception.Create('');
while(nsize>0) do
begin
n:=nsize;
if(n>8192) then
n:=8192;
n:=socket.ReceiveBuf(p^,n);
if(n<=0) then
raise exception.Create('');
data.Write(p^,n);
dec(nsize,n);
end;
type
TForm1 = class(TForm)
Edit1: TLabeledEdit;
Edit2: TLabeledEdit;
SpeedButton1: TSpeedButton;
ClientSocket1: TClientSocket;
procedure SpeedButton1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.SpeedButton1Click(Sender: TObject);
var
nid:integer;
data:Tmemorystream;
nsize:integer;
n:integer;
p:pbyte;
begin
data:=Tmemorystream.Create;
try
nid:=strtoint(edit1.Text);
data.LoadFromFile(edit2.Text);
with clientsocket1 do
begin
open;
if(socket.SendBuf(nid,sizeof(nid))<>sizeof(nid)) then
raise exception.Create('sending id error');
nsize:=data.Size;
if(socket.SendBuf(nsize,sizeof(nsize))<>sizeof(nsize)) then
raise exception.Create('sending data size error');
p:=data.Memory;
while(nsize>0) do
begin
n:=nsize;
if(n>8192) then n:=8192;
n:=socket.SendBuf(p^,n);
if(n<=0) then raise exception.Create('sending data error');
inc(p,n);
dec(nsize,n);
end;
close;
end;
except
on e:exception do
showmessage(e.Message);
end;
data.Free;
end;
btnStartServer.OnClick(Sender:TObject);
begin
ss.Port:=2000;
ss.Open;
end;
ss.OnClientRead(Sender: TObject;Socket: TCustomWinSocket);
var
sTemp:string;
bufRecv:Pointer;
iRecvLength:integer;
begin
if bReadText then
begin
sTemp:=Socket.ReceiveText;
case sTemp[1] of
MP_QUERY:begin
//在这里拒绝
SaveDialog1.FileName:=Copy(sTemp,2,Length(STemp));
if SaveDialog1.Execute then
begin
Socket.SendText(MP_ACCEPT);
fsRecv:=TFileStream.Create(SaveDialog1.FileName,fmCreate);
end
else Socket.SendText(MP_REFUSE+’去死’);
end;
MP_FILEPROPERTY:begin
//要发送StrToInt(Copy(sTemp,2,Length(sTemp))) 次
//时间进度显示。。。
Socket.SendText(MP_NEXTWILLBEDATA);
end;
MP_NEXTWILLBEDATA:begin
Socket.SendText(MP_DATA);
bReadText:=false;
end;
MP_END:begin
fsRecv.Free
bReadText:=true;
end;
MP_ABORT:begin
fsRecv.Free;
bReadText:=true;
end;
MP_CHAT:begin
//Chat Msg
end;
end;{of case}
end
else begin
try
GetMem(bufRecv,2000);//2000 must >iBYTESEND
Socket.ReceiveBuf(bufRecv^,iRecvLength);
fsRecv.WriteBuffer(bufRecv^,iRecvLength);
finally
FreeMem(bufRecv,2000);
end;{of try}
bReadText:=true;
Socket.SendText(MP_NEXTWILLBEDATA);
end;
end;