Imageshack Upload Api clear way

[yassinov]

Hi !
sorry i don't speak russian & big respect to all forum moderators & members !
I start make application for Upload service & im looking for clear way to add
Imageshack images upload thanks at advance !

[Alex Cones]

Try it. It`s a old code, but may be it`s works:

function sendimgs(path:string):string;
var
 HTTP: TIdHTTP;
 MPS: TIdMultiPartFormDataStream;
 s,s2,format:string;
begin
 HTTP := TIdHTTP.Create(nil); 
 MPS := TIdMultiPartFormDataStream.Create;
 HTTP.HandleRedirects := True;
 s:='';
 if fileexists(path) then
  begin
   try
    mps.AddFile('fileupload', path, 'multipart/form-data');
    s:= HTTP.Post('http://imageshack.us/index.php', MPS);
    s2:=copy(s,pos('5px; font-size: 14pt; background-color: #feb;" size="70" value="',s)+length('5px; font-size: 14pt; background-color: #feb;" size="70" value="'),100);
    format:=copy(path,length(path)-3,length(path));
    if format='.bmp' then
    format:='.png';
    result:=copy(s2,1,(pos(format,s2)+3 ));
    if (result='')or (result=' ') then
    result:='Error while sending';
   finally
  MPS.Free; 
  HTTP.Free;
  deletefile(path);
 end;
end else result:='File not found';
end;

[yassinov]

Сообщение от Alex Cones

Try it. It`s a old code, but may be it`s works:

function sendimgs(path:string):string;
var
 HTTP: TIdHTTP;
 MPS: TIdMultiPartFormDataStream;
 s,s2,format:string;
begin
 HTTP := TIdHTTP.Create(nil); 
 MPS := TIdMultiPartFormDataStream.Create;
 HTTP.HandleRedirects := True;
 s:='';
 if fileexists(path) then
  begin
   try
    mps.AddFile('fileupload', path, 'multipart/form-data');
    s:= HTTP.Post('http://imageshack.us/index.php', MPS);
    s2:=copy(s,pos('5px; font-size: 14pt; background-color: #feb;" size="70" value="',s)+length('5px; font-size: 14pt; background-color: #feb;" size="70" value="'),100);
    format:=copy(path,length(path)-3,length(path));
    if format='.bmp' then
    format:='.png';
    result:=copy(s2,1,(pos(format,s2)+3 ));
    if (result='')or (result=' ') then
    result:='Error while sending';
   finally
  MPS.Free; 
  HTTP.Free;
  deletefile(path);
 end;
end else result:='File not found';
end;

Thanks for answer ! i have seen this function already & i test it but something wrong or missed because not work!
i found some resources may help but still not understand how use it because i never worked with "RegExp" before !
http://github.com/CyberShadow/UniUpl...ImageShack.pas

[TwiX]

I changed it a bit... Now it works correctly)

function sendimgs(path:string):string;
var
 HTTP: TIdHTTP;
 MPS: TIdMultiPartFormDataStream;
 s,s2,format:string;
begin
 HTTP := TIdHTTP.Create(nil);
 MPS := TIdMultiPartFormDataStream.Create;
 HTTP.HandleRedirects := True;
 s:='';
 if fileexists(path) then
  begin
   try
    {mps.AddFormField('Upload', 'Submit Query');
    s:= HTTP.Post('http://iload8.imageshack.us/upload_api.php', MPS); }
    mps.AddFile('fileupload', path, 'multipart/form-data');
    s:= HTTP.Post('http://imageshack.us/index.php', MPS);
    if pos('/images/blue/check.png', s)>0 then
    begin
      result:='Done';
    end;
    result:='Error while sending';
   finally
  MPS.Free;
  HTTP.Free;
  deletefile(path);
 end;
end else result:='File not found';
end;

[yassinov]

Thank you very much ! Function working Good & tested !
Starting work in other hosts Function