Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Работа с сетью в Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 08.12.2009, 16:42   #1
NieL
Форумчанин
 
Регистрация: 17.11.2008
Сообщений: 116
По умолчанию Передавать файл через сокет частями

Есть текстовый файл. В определенный момент вызывается функция, которая передает его на сервер. Как организовать передачи его по частям (16кб)?

Код:
function Tform_Main.request_AUExcept: Boolean; { TODO : Temp }
var
  aResult: Tanvil_MessageRecord;
  P: Pointer;
  S: TStream;
  FilePath, FileName: string;
begin
  if cmp_ClientSession.Active and cmp_DataBase.Connected then
  begin
    FileName := IncludeTrailingBackSlash(CompileFileName(
      ExtractFilePath(cmp_LOGFile.FileName), False)) + 'Datatxt';
    if FileExists(FileName) then
    begin
      S := TFileStream.Create(FileName, fmOpenRead or fmShareDenyNone);
      try
        if S.Size <> 0 then
        begin
          GetMem(P, S.Size);
          try
            S.Read(P^, S.Size);

            aResult := nil;
            Result := cmp_ClientSocket.SendRequest(req_AppendData, 0, nil, nil,
              nil, P, S.Size, aResult);
            if Result then
            begin
              try
                DeleteFile(FileName);
              finally
                aResult.Free;
              end;
            end
            else
              cmp_LOGFile.MessageSafe(logmsg_ErrorAppendExceptRequest);
          finally
            FreeMem(P);
          end;
        end;
      finally
        S.Free;
      end;
    end;
  end;
end;
NieL вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Виснет машина при передаче файла через сокет SlashMan Работа с сетью в Delphi 2 19.07.2009 23:50
Данные через сокет по tcp/ip протоколу a.haener JavaScript, Ajax 1 04.07.2009 08:14
Не работает отправка файла через сокет SARGE Работа с сетью в Delphi 0 29.01.2009 13:29
Передача файла через сокет Delphi Unconnected Работа с сетью в Delphi 4 23.12.2008 16:16
Возможно ли через ПХП передавать данные между разными сайтами? tunyash PHP 1 31.07.2008 16:26