Уже мучаюсь кучу времени и никак не могу разобраться?
Как получить страницу с изображениями из буфера, скопированную туда из ИЕ?
вот пример в котором я определяю что есть ole данные и гипертекст и вывожу гипертекст в мемо:
procedure TForm1.Button1Click(Sender: TObject);
var
I,Len:integer;
Buf:^char;
hData: HGlobal;
Clip: TClipboard;
buffer:array[0..1000] of char;
begin
Clip := TClipboard.Create();
for i:=0 to Clip.FormatCount-1 do
begin
Len := GetClipboardFormatName(Clip.Formats[i], PChar(@Buffer[0]), 999);
Buffer[Len]:= #0;
Memo1.Lines.Add(IntToStr(Clip.Formats[i]) + ' :: '+AnsiString(Buffer));
end;
if Clip.HasFormat(49327) then
Memo1.Lines.Add('HTML present')
else Memo1.Lines.Add('not present');
if Clip.HasFormat(49171) then
Memo1.Lines.Add('Ole present')
else Memo1.Lines.Add('Ole not present');
Clip.Free;
OpenClipboard(Handle);
hData:= GetClipboardData(49327); // 49373 для html, 49171 для Ole data
Buf := GlobalLock(hData);
Memo2.Lines.Add(AnsiString(Buf));
GlobalUnlock(hData);
CloseClipboard();
end;
а как теперь для этой страницы получить изображения из буфера? т.к. вариант самостоятельного скачивания по ссылкам не годится. Например, как Word анализирует буфер и правильно вставляет имеено как Веб страницу?