JuanOrtega
19-07-2013, 16:29:46
Hola estoy tratando de subir un archivo con el api de imageshack.
El codigo que tengo es este :
procedure TForm1.Button1Click(Sender: TObject);
var
par: TIdMultiPartFormDataStream;
rta: string;
Response: TStream;
begin
//Response := TMemoryStream.Create;
//rta:=IdHTTP1.Post('https://post.imageshack.us/upload_api.php', 'test.jpg', Response);
par := TIdMultiPartFormDataStream.Create;
par.AddFormField('key', 'mikey');
par.AddFormField('fileupload','test.jpg');
par.AddFormField('format', 'json');
rta := IdHTTP1.Post('https://post.imageshack.us/upload_api.php', par);
Memo1.Lines.Add(rta);
end;
Y no me sube nada aparte de mostrar este error :
Exception class EIdIOHandlerPropInvalid with message 'IOHandler value is not valid
Tambien intente agregando esto :
par.AddFile('fileupload', 'test.jpg','application/octet-stream');
Pero es lo mismo.
¿ Alguien me podria ayudar ?
El codigo que tengo es este :
procedure TForm1.Button1Click(Sender: TObject);
var
par: TIdMultiPartFormDataStream;
rta: string;
Response: TStream;
begin
//Response := TMemoryStream.Create;
//rta:=IdHTTP1.Post('https://post.imageshack.us/upload_api.php', 'test.jpg', Response);
par := TIdMultiPartFormDataStream.Create;
par.AddFormField('key', 'mikey');
par.AddFormField('fileupload','test.jpg');
par.AddFormField('format', 'json');
rta := IdHTTP1.Post('https://post.imageshack.us/upload_api.php', par);
Memo1.Lines.Add(rta);
end;
Y no me sube nada aparte de mostrar este error :
Exception class EIdIOHandlerPropInvalid with message 'IOHandler value is not valid
Tambien intente agregando esto :
par.AddFile('fileupload', 'test.jpg','application/octet-stream');
Pero es lo mismo.
¿ Alguien me podria ayudar ?