Основы COM. Рудалев В.Г - 25 стр.

UptoLike

ВУЗ: 

ВГУ | Воронеж

Составители: 

Рубрика: 

25
unit IntUnit;
{$WARN SYMBOL_PLATFORM OFF}
interface
uses
Windows, ActiveX, Classes, ComObj, InProcServer_TLB,
StdVcl, graphics, AxCtrls;
// выделены модули, которые нужно добавить вручную
type
TChangeImage = class(TTypedComObject, ISetImage)
protected
function Paint(const FileName: WideString;
out Destination: IPictureDisp): HResult; stdcall;
end;
implementation
uses ComServ;
function TChangeImage.Paint(const FileName: WideString;
out Destination: IPictureDisp): HResult;
var Pic: TPicture;
begin
// Создаем изображение
Pic:=TPicture.Create;
try 
                              25




unit IntUnit;
{$WARN SYMBOL_PLATFORM OFF}
interface

uses
  Windows, ActiveX, Classes, ComObj, InProcServer_TLB,
  StdVcl, graphics, AxCtrls;
// выделены модули, которые нужно добавить вручную

type
  TChangeImage = class(TTypedComObject, ISetImage)
  protected
     function Paint(const FileName: WideString;
       out Destination: IPictureDisp): HResult; stdcall;
  end;

implementation
uses ComServ;

function TChangeImage.Paint(const FileName: WideString;
  out Destination: IPictureDisp): HResult;
var Pic: TPicture;
begin
  // Создаем изображение
  Pic:=TPicture.Create;
  try

Страницы