[Tech N9ne]

Сообщение от Alegun

Там не только тип браузера передавать нужно, там и качество сжатия и размер превью требуется, много чего, можно сниффером перехватить пакет и подсмотреть, но подозреваю что для каждой загрузки его состав отличается не только именем и содержимым, но и структурой, во всяком случае даже их "фирменный" iPicShell апплоудит через браузер, видимо такой движок у сайта "дружелюбный", плата за удобство что без капчи принимает картинки

Удалось сделать на другой хостинг)

Код:

        
var  Ssilka , HostingURL , Save_Path :string;

{.....}

 data := TIdMultiPartFormDataStream.Create;
           HostingURL:='http://uploads.ru/';
            try
              data.AddFile('Filename', Save_Path, '5');
              data.AddFormField('doShort', 'false');
              data.AddFormField('sID', 'fjgt40vrohem9n9npoqkfkiae2');
              data.AddFormField('ImageUp'  ,'Content-Type: application/octet-stream');
              data.AddFormField('Upload', 'Submit Query');
              Ssilka := IdHTTP1.Post('http://uploads.ru/upload.php', data);
              sMemo1.Lines.Clear;
              sMemo1.Lines.Add(Ssilka);  // получаю конец ссылки, типа Zf4RL.jpg
              Delete(Ssilka,1,13) ;
              Delete(Ssilka,10,2) ;
                sMemo1.Lines.Add(HostingURL+ssilka) ; // склеиваю uploads.ru/ + Zf4RL.jpg
                wb1.Navigate(HostingURL+ssilka);
              finally
              data.Free;
              end;

Но на этом хостинге не дают прямую ссылку)) конечная ссылка s8.uploads.ru/Zf4RL.jpg
то что красным, меняется при каждой загрузке.. s8,s0,s4 и тд
пришлось через twebbrowser заходить по ссылке, и парсить прямую ссылку к изображению в html.
может кому пригодится из новичков)
Спасибо за помощь!