Delphi - база знаний

Если вас интересуют проститутки москвы а они вас интересуют. |

Как сохранить веб страничку в jpg?


Как сохранить веб страничку в jpg?



Взято из FAQ:
Перевод материала с сайта members.home.com/hfournier/webbrowser.htm

procedure generateJPEGfromBrowser(browser: iWebBrowser2; jpegFQFilename: String;
srcHeight: Integer; srcWidth: Integer; tarHeight: Integer; tarWidth: Integer);
var
sourceDrawRect : TRect;  
targetDrawRect: TRect;  
sourceBitmap: TBitmap;  
targetBitmap: TBitmap;  
jpeg: TJPEGImage;  
viewObject: IViewObject;  
begin
sourceBitmap := TBitmap.Create ;  
targetBitmap := TBitmap.Create ;  
jpeg := TJPEGImage.Create ;  
try  
try  
sourceDrawRect := Rect(0,0, srcWidth , srcHeight );  
sourceBitmap.Width := srcWidth ;  
sourceBitmap.Height := srcHeight ; viewObject := browser as IViewObject; if viewObject = nil then  
Exit; OleCheck(viewObject.Draw(DVASPECT_CONTENT, 1, nilnil, self.Handle,  
sourceBitmap.Canvas.Handle, @sourceDrawRect, nilnil, 0)); // Изменяем размер исходного битмапа для коне?ного битмапа  
targetDrawRect := Rect(0,0, tarWidth, tarHeight);  
targetBitmap.Height := tarHeight;  
targetBitmap.Width := tarWidth;  
targetBitmap.Canvas.StretchDraw(targetDrawRect, sourceBitmap); // Созда?м JPEG из Bitmap и сохраняем его  
jpeg.Assign(targetBitmap) ;  
makeFileWriteable(jpegFQFilename);  
jpeg.SaveToFile (jpegFQFilename);  
finally  
jpeg.free;  
sourceBitmap.free ;  
targetBitmap.free;  
end;  
except  
// Обработка ошибок  
end;  
end;


Автор: Donall Burns




Начало  Назад  Вперед