Буфер обмена & IE
От: bndr  
Дата: 05.03.06 13:27
Оценка:
Уже мучаюсь кучу времени и никак не могу разобраться?
Как получить страницу с изображениями из буфера, скопированную туда из ИЕ?


вот пример в котором я определяю что есть 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 анализирует буфер и правильно вставляет имеено как Веб страницу?
 
Подождите ...
Wait...
Пока на собственное сообщение не было ответов, его можно удалить.