[Casimiro Notevi]

Un "forero" ha preguntado algo en este hilo, y no me apetecía buscar entre mis proyectos un código que le sirviera de ejemplo, y me he dicho: "Voy a probar esto del chatgpt, a ver si sirve para algo". Me he dado de alta, no sé para qué me piden el teléfono , y he puesto lo siguiente:

Necesito un código Delphi para enviar una imagen a un hosting web que utiliza php

Y me ha respondido:

Aquí te muestro un ejemplo de cómo puedes enviar una imagen a un hosting web que utiliza PHP con Delphi:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  LHTTP: TIdHTTP;
  LIdMultipartFormData: TIdMultipartFormDataStream;
  LResponse: TMemoryStream;
  LEncoding: TEncoding;
begin
  LHTTP := TIdHTTP.Create;
  try
    LIdMultipartFormData := TIdMultipartFormDataStream.Create;
    try
      LIdMultipartFormData.AddFile('file', 'C:\ruta\a\tu\imagen.jpg', 'image/jpeg');
      LResponse := TMemoryStream.Create;
      try
        LHTTP.Post('http://tu-hosting.com/upload.php', LIdMultipartFormData, LResponse, LEncoding);
      finally
        LResponse.Free;
      end;
    finally
      LIdMultipartFormData.Free;
    end;
  finally
    LHTTP.Free;
  end;
end;

Este código utiliza la clase TIdHTTP para enviar una petición POST a la dirección http://tu-hosting.com/upload.php con el archivo de imagen especificado en la ruta C:\ruta\a\tu\imagen.jpg. La respuesta se almacena en el TMemoryStream llamado LResponse.
Espero que esto te sea de ayuda. Si tienes alguna pregunta o necesitas más información, no dudes en preguntar.

Asombrado me he quedado