使用delphi将图像上传到ima??geshack

发布时间：2020-12-15 09:11:48 所属栏目：大数据来源：网络整理

导读：我有API密钥,并在他们的网站上阅读稀疏文档,但仍然无法使其工作,所以如果有人有任何他们可以分享的例子,那将是伟大的.我不需要担心视频或任何花哨的东西,只需简单上传回复信息就可以满足我的需求. uses IdHttp;function PostData:string;var url: string; te

我有API密钥,并在他们的网站上阅读稀疏文档,但仍然无法使其工作,所以如果有人有任何他们可以分享的例子,那将是伟大的.我不需要担心视频或任何花哨的东西,只需简单上传回复信息就可以满足我的需求.

uses IdHttp;

function PostData:string;
var
    url: string;
    text: string;
    http: TIDHttp;
    valid: boolean;
    param: TStringList;
begin
    http := TIDHttp.Create(nil);
    http.HandleRedirects := true;
    http.ReadTimeout := 5000;
    param := TStringList.create;
    param.Clear;
    param.Add('fileupload=c:image.png');
    param.Add('key=MY_API_KEY');
    param.Add('tags=tag1,tag2');
    valid := true;
    url := 'http://www.imageshack.us/upload_api.php';

    try
        text := http.Post(url,param);
    except
        valid := false;
    end;

    if valid then
        PostData := text
    else
        PostData := '';
end;

谢谢.
凯文

解决方法

我几乎完成了同样的事情.谢谢.

procedure TForm1.Button1Click(Sender: TObject);
var
  MPData: TIdMultiPartFormDataStream;
  sResponse: string;
begin
  MPData := TIdMultiPartFormDataStream.Create;
  MPData.AddFile('fileupload','c:image.png','image/png');
  MPData.AddFormField('tags','testfile,flyasia');
  MPData.AddFormField('public','no');
  MPData.AddFormField('key','API_KEY_HERE');
  sResponse := IdHTTP1.Post('http://www.imageshack.us/upload_api.php',MPData);
  MPData.Free;

  Memo1.Text := sResponse;
end;

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!