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