Киллобитраж

[prizrak1390]

Доброе время суток товарищи программисты!
Меня интересует такой вопрос...
Как узнать сколько байт или киллобайт было переданно через clientsocket или принято через serversocket?
Это нужно для статистики..

[Air]

Каким методом передаёте/принимаете данные.
Методов полно как и путей решения вашего вопроса.

Код в студию.

[eoln]

procedure TForm1.ClientSocket1Read(Sender: TObject;
  Socket: TCustomWinSocket);
var
  s : string;
begin
  s:= Socket.ReceiveText;
  if not Reciving then // приём окончен
  begin
    DataSize:= StrToInt(length(s));
    Reciving:= true;
  end;
end;

DataSize заранее глобально надо будет объявить и инициализировать (приравнять к нулю)

[Air]

Сообщение от eoln

procedure TForm1.ClientSocket1Read(Sender: TObject;
  Socket: TCustomWinSocket);
var
  s : string;
begin
  s:= Socket.ReceiveText;
  if not Reciving then // приём окончен
  begin
    DataSize:= StrToInt(length(s));
    Reciving:= true;
  end;
end;

DataSize заранее глобально надо будет объявить и инициализировать (приравнять к нулю)

Согласен, только если передаёте текстовые строчки, а если файл (ехе например), то не прокатит, т.к. но порциями(пакетами) приходит.

[prizrak1390]

TO EOLN
Тоесть Datasize будет сожержать в себе количество символов из receivetext?? Спасибо конечно, но зачем мне это?

[eoln]

Вот, например, передача файла. AllSize будет показывать количество байт за все передачи, а не только для одного файла. Вот и вся статистика - по окончании программы заносите AllSize в какой-нибудь файл и наслаждайтесь.

var Data: TMemoryStream; 
Reciving: boolean;  
DataSize: integer;
AllSize: int64;
procedure TForm1.ClientSocket1Read(Sender: TObject;  
  Socket: TCustomWinSocket);  
var  
  s, sl: string;  
begin  
  s:= Socket.ReceiveText;  
  // Если мы не в режиме приёма:  
  if not Reciving then  
  begin  
    // Теперь нам необходимо получить длину потока данных.  
    SetLength(sl, StrLen(PChar(s))+1); // +1 for the null terminator  
    StrLCopy(@sl[1], PChar(s), Length(sl)-1);  
    DataSize:= StrToInt(sl);  
    AllSize:=AllSize + DataSize;
    Data:= TMemoryStream.Create;  
    // Удаляем информацию о размере из данных.  
    Delete(s, 1, Length(sl));  
    Reciving:= true;  
  end;  
  // Сохраняем данные до тех пор, пока не получим все данные.  
  try  
    Data.Write(s[1], length(s));  
    if Data.Size = DataSize then  
    begin  
      Data.Position:= 0;  
      Объект.LoadFromStream(Data);  
      Data.Free;  
      Reciving:= false;  
      Socket.Close;  
    end;  
  except  
    Data.Free;  
  end;  
end;

[Air]

Сообщение от prizrak1390

TO EOLN
Тоесть Datasize будет сожержать в себе количество символов из receivetext?? Спасибо конечно, но зачем мне это?

Всмысле?...

Сообщение от prizrak1390

Как узнать сколько байт или киллобайт было переданно через clientsocket или принято через serversocket?

Разве это ни одно и то же?

[prizrak1390]

procedure TForm1.ClientSocket1Read(Sender: TObject;
Socket: TCustomWinSocket);
var
s : string;
begin
s:= Socket.ReceiveText;
if not Reciving then // приём окончен
begin
DataSize:= StrToInt(length(s));
Reciving:= true;
end;
end;

Ну мы переменной S присваеваем присланный текст(receivetext)
потом в переменную DATASIZE мы присваиваем количество символов из строки S....или я не прав??

Сообщение от prizrak1390
Как узнать сколько байт или киллобайт было переданно через clientsocket или принято через serversocket?

Разве это ни одно и то же?

Одно и тоже.

[Air]

Ну мы переменной S присваеваем присланный текст(receivetext)
потом в переменную DATASIZE мы присваиваем количество символов из строки S....или я не прав??

Верно! это и есть размер переданной иформации.

Пример.
"Как дела?" - 9 символов, 9 байт.
"Дела прекрасно, а как твои?" - 27 символов, 27 байт.

итого в сумме 27+9=36 символов, 36 байт.
суммировать или нет Вы решите сами.

P.S. или я что-то не догоняю, вроде вопрос-то решённый... или нет?

[prizrak1390]

А если файл двоичный?