Delphi Отправить Файл На Сервер

Для отправки файла на сервер в Delphi вам нужно использовать соответствующую компоненту, такую как TIdHTTP или TIdTCPClient. Сначала вы должны установить соединение с сервером, а затем отправить файл.

Пример использования TIdHTTP:

  IdHTTP1 := TIdHTTP.Create(nil);
  try
    IdHTTP1.Post('http://example.com/upload', 'C:\path\to\file.txt');
  finally
    IdHTTP1.Free;
  end;

Этот код отправляет файл file.txt на сервер example.com по адресу http://example.com/upload. Вы можете указать другой адрес и путь к файлу, если это необходимо.

Если вам нужно отправить несколько файлов, вы можете использовать TIdMultipartFormDataStream:

  IdHTTP1 := TIdHTTP.Create(nil);
  try
    FormData := TIdMultipartFormDataStream.Create;
    try
      FormData.AddFile('file1', 'C:\path\to\file1.txt');
      FormData.AddFile('file2', 'C:\path\to\file2.txt');
      IdHTTP1.Post('http://example.com/upload', FormData);
    finally
      FormData.Free;
    end;
  finally
    IdHTTP1.Free;
  end;

Этот код отправляет два файла, file1.txt и file2.txt, на сервер example.com по адресу http://example.com/upload. Вы можете добавить больше файлов, если это необходимо.