Ссылка в поле
____________________.PNG (, : 506)
только нужно ее преобразовать до такого вида:
____________________2.PNG (, : 522)
Она уникально каждый раз при открытии страницы
Добавлено
долбанный форум
Добавлено
на коленке. У меня работает:
<{CODE_COLLAPSE_OFF}><{CODE_WRAP_OFF}>
procedure TForm1.Button1Click(Sender: TObject);
var
Stream:TMemoryStream;
S,S2,SIn,SOut:String;
LIn:Integer;
begin
memo1.Text:=IdHTTP1.Get('http://onlinelibrary.wiley.com/doi/10.1002/j.1939-4640.1991.tb00206.x/pdf');
SIn:='<iframe id="pdfDocument" src="';
SOut:='" width="';
LIn:=pos(SIn,memo1.Text)+length(SIn);
S:=copy(memo1.Text,LIn,pos(SOut,memo1.Text)-LIn);
S2:=StringReplace(S,';','&',[rfReplaceAll]);
try
Stream:=TMemoryStream.Create;
IdHTTP1.Get(S2,Stream);
Stream.SaveToFile('c:\1.pdf');
Stream.Free;
except
on e:Exception do
Stream.Free;
end;
//ShowMessage(S+' '+S2);
end;