画像をdelphiでimageshackにアップロード

Question

私は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; 

thx。 ケビン

Answer 1

まったく同じ事を最後にしました。 Thx tho。

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;