передача больших файлов по сети

[niockasd]

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

Найдите у себя в Delphi в настройках Undo Limit.



извиняюсь поторопился я там не заметил

Проверку сделать можно так

либо до 1-гига так
fileSize(FFile) = FileTrasfer_Size

либо для всех объемов вот эта функция

function SizeFilesEx(const FileName : String): Int64;
var
  Handle   : THandle;
  FindData : TWin32FindData;
begin
FillChar(FindData, SizeOf(TWin32FindData), 0);
  Handle := FindFirstFile(PChar(FileName), FindData);
  if Handle <> INVALID_HANDLE_VALUE then
  begin
    Windows.FindClose(Handle);
    if (FindData.dwFileAttributes and FILE_ATTRIBUTE_DIRECTORY) = 0 then
    begin
      Int64Rec(Result).Lo := FindData.nFileSizeLow;
      Int64Rec(Result).Hi := FindData.nFileSizeHigh;
      Exit;
    end;
  end;
  Result := -1;
end;

проверку делаете так
SizeFilesEx(FFile) = FileTrasfer_Size

Извиняюсь еще раз)
Получился код

var
  Rtext: ansistring; // Принятый текст
begin
  Rtext := Socket.ReceiveText;
  if FileTrasfer_Receive then // Если клиент в режиме приёма файла, то...
    Writing(RText) // Записываем данные в буфер
  else // Если клиент не в режиме приёма файла, то...
  begin

    if Copy(Rtext, 0, Pos('#', Rtext) -1) = 'file' then // Если это файл, то...
    begin
      Delete(Rtext, 1, Pos('#', Rtext)); // Определяем имя файла

      FileTrasfer_Name := Copy(Rtext, 0, Pos('#', Rtext) -1); // Определяем имя файла
      ForceDirectories(ExtractFileDir(FileTrasfer_Name));

      Delete(Rtext, 1, Pos('#', Rtext)); // Определяем размер файла
      FileTrasfer_Size := StrToInt(Copy(Rtext, 0, Pos('#', Rtext) -1)); // Определяем размер файла
      Delete(Rtext, 1, Pos('#', Rtext)); // Удаляем последний разделитель

      FileTrasfer_Receive := OpenFile(FFile, FileTrasfer_Name); // Переводим сервер в режим приёма файла
      Writing(RText);
    end;
  end;
end;

Writing(RText); не выполняется, судя по всему из за того что происходит ошибка в функции OpenFile

FileTrasfer_Receive := OpenFile(FFile, FileTrasfer_Name); // Переводим сервер в режим приёма файла

(я ее оборачивал в TRY except end и сработало исключение)Там точно все нормально? Я с трудом код этой функции понимаю )

[Aliens_wolfs]

FileTrasfer_Name напишите что туда помещается, так как желательно туда путь указать и файл видимо OpenFile не может найти путь для сохранения поэтому возвращает false

Извиняюсь еще раз)
Получился код

Примерно так не меняя принцип в вашей функции я бы сделал по другому но для этого нужен проект

procedure Writing(Text: AnsiString);
begin
  if SizeFilesEx(FFile) < FileTrasfer_Size then // Если принято байт меньше размера файла, то...
     BlockWrite(FFile, Pointer(Text)^, Length(Text)); // Записываем буфер в файл

  if SizeFilesEx(FFile) = FileTrasfer_Size then  // Если файл принят, то...
  begin
    FileTrasfer_Receive := false; // Переводим клиента в нормальный режим

    Service.FileTransferSocketCleint.Socket.SendText('end');  // Посылаем команду "end", то есть файл принят
    CloseFile(FFile); // закрываем файл
  end;

  //что то пошло не так принял больше чем ждал
  if SizeFilesEx(FFile) >= FileTrasfer_Size then // Если файл принят, то...
  begin
    Service.FileTransferSocketCleint.Socket.SendText('end'); // Посылаем команду "end", то есть файл принят
    CloseFile(FFile); // закрываем файл
  end;
end;

Подробней об OpenFile функции и кое какие исправления в ней

function OpenFile(out AFile: File; const AFileName : UTF8String): longbool;
Var
 i: integer;
begin
Result:= false;
if (AFileName <> '') then //если пустое имя файла то false;
begin
 	{$I-}
	AssignFile ( AFile, AFileName );
	FileMode := fmOpenReadWrite;
	Reset ( AFile, 1 ); //Если файл уже есть то открываем его на чтение а потом на запись для перезаписи или дописывания через позицию в seek 
	{$I+}
	i := IOResult;
//здесь лучше так исправьте 
If  i <> 0  Then // Если будет ошибка Reset() то создаем файл для записи в него данных используем rewrite()
	Begin
	{$I-}
	AssignFile ( AFile, AFileName );
	FileMode := fmOpenWrite;
	rewrite ( AFile, 1 );
	{$I+}
	i := IOResult;
   End;
if i = 0 then // Если не будет ошибки то true
 Result:= true;
 end;
 end;

[niockasd]

Спасибо) заработало.

Но размер пока получаю через FileSize (до 1 гб он я так понял ?)

SizeFilesEx string ждет, File не примет... Как его заставить file Полюбить ? ))))

[Aliens_wolfs]

Но размер пока получаю через FileSize (до 1 гб он я так понял ?)

Примерно да может немного больше, но я для больших применял SizeFilesEx
FileSize с большими объемами мне в одном из моих проектов не помогло

procedure Writing(Text: AnsiString);
begin
  if SizeFilesEx(FileTrasfer_Name) < FileTrasfer_Size then // Если принято байт меньше размера файла, то...
     BlockWrite(FFile, Pointer(Text)^, Length(Text)); // Записываем буфер в файл

  if SizeFilesEx(FileTrasfer_Name) = FileTrasfer_Size then  // Если файл принят, то...
  begin
    FileTrasfer_Receive := false; // Переводим клиента в нормальный режим

    Service.FileTransferSocketCleint.Socket.SendText('end');  // Посылаем команду "end", то есть файл принят
    CloseFile(FFile); // закрываем файл
  end;
  //что то пошло не так принял больше чем ждал
  if SizeFilesEx(FileTrasfer_Name) >= FileTrasfer_Size then // Если файл принят, то...
  begin
    Service.FileTransferSocketCleint.Socket.SendText('end'); // Посылаем команду "end", то есть файл принят
    CloseFile(FFile); // закрываем файл
  end;
end;

Я там поторопившись ошибся нужно так SizeFilesEx(FileTrasfer_Name)

[niockasd]

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

procedure Writing(Text: AnsiString);
begin
  if SizeFilesEx(FileTrasfer_Name) < FileTrasfer_Size then // Если принято байт меньше размера файла, то...
     BlockWrite(FFile, Pointer(Text)^, Length(Text)); // Записываем буфер в файл

  if SizeFilesEx(FileTrasfer_Name) = FileTrasfer_Size then  // Если файл принят, то...
  begin
    FileTrasfer_Receive := false; // Переводим клиента в нормальный режим

    Service.FileTransferSocketCleint.Socket.SendText('end');  // Посылаем команду "end", то есть файл принят
    CloseFile(FFile); // закрываем файл
  end;

//что то пошло не так принял больше чем ждал
if SizeFilesEx(FileTrasfer_Name) >= FileTrasfer_Size then // Если файл принят, то...
begin
Service.FileTransferSocketCleint.So cket.SendText('end'); // Посылаем команду "end", то есть файл принят
CloseFile(FFile); // закрываем файл
end;
end;

Я там ошибся нужно так SizeFilesEx(FileTrasfer_Name)

я пробовал FileTrasfer_Name скормить что то у меня не так пошло, файл не записывает с ней..

у меня еще тут ошибка была, я что то сначала выкинул строку эту

   function SizeFilesEx(const FileName : String): Int64;
var
  Handle   : THandle;
  FindData : TWin32FindData;
begin
FillChar(FindData, SizeOf(TWin32FindData), 0);
  Handle := FindFirstFile(PChar(FileName), FindData);
  if Handle <> INVALID_HANDLE_VALUE then
  begin
    Windows.FindClose(Handle);
    if (FindData.dwFileAttributes and FILE_ATTRIBUTE_DIRECTORY) = 0 then
    begin
      Int64Rec(Result).Lo := FindData.nFileSizeLow;
      Int64Rec(Result).Hi := FindData.nFileSizeHigh;
      Exit;
    end;
  end;
  Result := -1;
end;

я так понял она все же нужна, выкидывать не стоит ее..
Где эта процедура описана ? FindClose(Handle) тоже не берет..
[dcc32 Error] MainUnit.pas(161): E2033 Types of actual and formal var parameters must be identical

[Aliens_wolfs]

SizeFilesEx этой процедуры в модулях нет, она своя, из нее ничего нельзя выкидывать, поставьте ее перед процедурой OpenFile

в проекте должны быть подключены
uses
Windows, SysUtils, ..........

[niockasd]

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

SizeFilesEx этой процедуры в модулях нет, она своя, из нее ничего нельзя выкидывать, поставьте ее перед процедурой OpenFile

не не это я понял, я про ее код

  Windows.FindClose(Handle);

тут ошибка у меня
[dcc32 Error] MainUnit.pas(161): E2033 Types of actual and formal var parameters must be identical

SysUtils подключено.

[Aliens_wolfs]

Попробуйте так
FindClose(Handle);

[niockasd]

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

Попробуйте так
FindClose(Handle);

пробовал) не в какую..
[dcc32 Error] MainUnit.pas(161): E2033 Types of actual and formal var parameters must be identical

если кликнуть по FindClose перебрасывает на sysutils все подключено, судя по всему хендл ей не нравится в качестве параметра...

[Aliens_wolfs]

Для вашего Delphi попробуйте так
Winapi.Windows.FindClose(Handle);

Если и так не выйдет то просто сделайте так в принципи тоже самое
CloseHandle(Handle);

Созданный Хендел всегда нужно закрывать