Tema: ChatGPT IA
Ver Mensaje Individual
  #12  
Antiguo 05-01-2023
Avatar de Casimiro Notevi
Casimiro Notevi Casimiro Notevi is offline
Moderador
 
Registrado: sep 2004
Ubicación: En algún lugar.
Posts: 32.257
Reputación: 10
Casimiro Notevi Tiene un aura espectacularCasimiro Notevi Tiene un aura espectacular
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:
Cita:
Necesito un código Delphi para enviar una imagen a un hosting web que utiliza php
Y me ha respondido:
Cita:
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;
Cita:
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
Responder Con Cita