выставляется при принятии ответа о принятии пакета. я просто создаю строковый поток из которого копирую в файловый поток. освобождаю строковый поток. если файл готов освобождаю файловый поток.
| Код |
procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
Socket: TCustomWinSocket);
label tutu;
var
text: string; // Принятый текст
adata:Tstringstream;
str_buf : array[1..20] of Char;
wa:string;
razmer_file:integer;
begin
// text:='';
text := Socket.ReceiveText;
//memo3.Lines.add(text);
//if server then // Если клиент в режиме приёма файла, то...
//Writing(Text) // Записываем данные в буфер
//else // Если клиент не в режиме приёма файла, то...
//if Copy(text, 0, Pos('#', text) -1) = 'file' then // Если это файл, то...
//begin MS := TMemoryStream.Create; // Создаём буфер для файла
//Delete(text, 1, Pos('#', text)); // Определяем имя файла
//Name := Copy(text, 0, Pos('#', text) -1); // Определяем имя файла
//Delete(text, 1, Pos('#', text)); // Определяем размер файла
//Size := StrToInt(Copy(text, 0, Pos('#', text) -1)); // Определяем размер файла
//Delete(text, 1, Pos('#', text)); // Удаляем последний разделитель
//
//Label7.Caption := 'Размер принимаемого файла: '+IntToStr(Size div 1024)+' кбайт'; // Выводим размер файла
//Label6.Caption := 'Имя принимаемого файла: '+ExtractFileName(name); // Выводим имя файла
//server := true; // Переводим сервер в режим приёма файл
//qserver:=true; //состояние
//Writing(Text); // Записываем данные в буфер
//end;
if first_=false then
begin
if copy(text,1,5)='count' then
begin
delete(text,1,5);
first_:=true;
wa:=copy(text,0,pos('#',text)-1);
delete(text,1,pos('#',text));
razmer_file:=strtoint(copy(text,0,pos('#',text)-1));
Label19.caption:=inttostr(razmer_file);
rrr := TfileStream.Create('C:\'+wa,fmCreate);
//get_buf_num:=0;
text:='';
ProgressBar1.Max:=razmer_file;
end;
end
else
begin
if pos('free',text)>0 then
begin
delete(text,1,4);
first_:=false;
end;
adata:=TStringStream.Create(text);
rrr.Position:=rrr.Size;
rrr.CopyFrom(AData,AData.Size);
Label20.caption:=inttostr(rrr.size);
adata.free;
get_buf_num:=get_buf_num+1;
//label21.caption:=inttostr(Longint(Trunc( (rrr.size * 100.0) / razmer_file )))+'%';
ProgressBar1.Position:=rrr.Size;
Label7.Caption:=inttostr(get_buf_num);
sleep(1);
Serversocket1.socket.connections[0].Sendtext('*gotovo*');
if first_=false then
rrr.free;
end;
if pos('*gotovo*',text)>0 then
get_accept:=true;
end;
отправка
if not FileExists(Edit2.Text) then Exit;
if ClientSocket1.Active then
begin
FStream:=TFileStream.Create(Edit2.Text,fmOpenRead);
Send777(FStream, clientsocket1, Label18, ProgressBar1); //запускаем поиск;
FStream.Free;
end;
if serverSocket1.Active then
begin
FStream:=TFileStream.Create(Edit2.Text,fmOpenRead);
Send888(FStream, serversocket1, Label18, ProgressBar1); //запускаем поиск;
FStream.Free;
end;
procedure tform1.Send888(FStream: TFileStream; serversocket: Tserversocket;
StatusLabel :Tlabel; ProgressBar :TProgressBar);
var
i,j,count,ty: integer;
buf : array[1..9000] of Char;
begin
i:=round(FStream.Size/9000);
if (i*9000<FStream.Size) then i:=i+1;
ProgressBar.Max:=i;
serversocket.socket.Connections[0].Sendtext('count'+ExtractFileName(edit2.text)+'#'+inttostr(fstream.size)+'#');
Application.ProcessMessages;
for j:=1 to i do
begin
if i=j then
count:=FStream.Read(buf,FStream.Size-((i-1)*9000))
else count:=FStream.Read(buf,length(buf));
serversocket.socket.Connections[0].SendBuf(buf,count);
StatusLabel.Caption:='передача '+IntToStr(j)+' из '+IntToStr(i) ;
ty:=round(j/i*100);
label21.Caption:=inttostr(ty)+'%';
ProgressBar.Position:=j;
while get_accept=false do
begin
sleep(1);
Application.ProcessMessages;
end;
get_accept:=false;
end;
serversocket.socket.Connections[0].SendText('free');
end;
|
|
)