?? srvproc.~pas
字號:
unit srvproc;
interface
uses Windows, Messages, SysUtils, Classes, IdBaseComponent, IdComponent,
IdTCPServer, unit1;
procedure ProcSession(AThread: TIdPeerThread);
implementation
procedure ProcSession(AThread: TIdPeerThread);
var l_Bytes: Integer;
l_preStr: string;
l_Str: TMemorystream;
begin
with AThread.Connection do begin
try
l_Str := tmemorystream.Create;
try
l_PreStr := ReadLn;
addmsg('Receipting :' + l_PreStr + '...');
l_bytes := ReadInteger;
addmsg('Total :' + inttostr(L_bytes) + 'Bytes.');
ReadStream(l_str, l_bytes);
if pos('\', l_prestr) = 0 then
l_Str.SaveToFile('d:\temp\' + l_prestr)
else
l_Str.SaveToFile(l_prestr);
addmsg('Successed Receipte.');
finally
l_Str.free;
end;
except
AThread.Stop;
end;
end;
end;
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -