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