[Tech N9ne]

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

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

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

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

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.
может кому пригодится из новичков)
Спасибо за помощь!