Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.07.31;
Скачать: CL | DM;

Вниз

Указатели и DirectDraw   Найти похожие ветки 

 
webpauk   (2005-06-03 15:04) [0]

есть:

TSomeObj = class;
private
  fP: Pointer;
  fSurf: IDirectDrawSurface7;
public
  procedure Show;
end;

var
  fTemp: IDirectDrawSurface7;
  fSomeObj: TSomeObj;
begin
  // создается поверхность fTemp
  fSomeObj.fP:=@fTemp;
end;

// вопрос:
procedure TsomeObj.Show;
begin
// как отрисовывать поверхность, используя указатель
  fSurf.bltfast(0, 0, ???, @fRect, DDBLTFAST_DONOTWAIT);
end;


 
webpauk   (2005-06-03 15:06) [1]

Дополнение:
fSomeObj:=TsomeObj.create;


 
webpauk   (2005-06-03 15:15) [2]

правильно вопрос звучит так:
как привести типы?
fSurf.bltfast(0, 0, IDirectDrawSurface7(fP), @fRect, DDBLTFAST_DONOTWAIT); - выдает ошибку


 
Digitman ©   (2005-06-03 15:20) [3]

IDirectDrawSurface7(IUnknown(fP))

или

IUnknown(fP) as IDirectDrawSurface7


 
webpauk   (2005-06-03 15:22) [4]


> Digitman ©

Спасибо


 
Digitman ©   (2005-06-03 15:29) [5]


> правильно вопрос звучит так


правильно он д.б. прозвучать так : как привести произвольный указательный тип к произвольному интерфейсному типу)


 
Digitman ©   (2005-06-03 15:30) [6]

а Остапа понесло - DirectDraw, да TSomeObj, да еще черт-те что и сбоку бантик)


 
webpauk   (2005-06-03 15:34) [7]


> Digitman ©  

ну понесло! дык проект сложный, без объектов  - запутаешься в процедурах


 
webpauk   (2005-06-03 17:05) [8]


> Digitman ©  

поспешил я с бля-годарностью! Прога вываливается.


 
webpauk   (2005-06-03 17:14) [9]

IDirectDrawSurface7(IUnknown(fP^)) - !!!!



Страницы: 1 вся ветка

Текущий архив: 2005.07.31;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.029 c
14-1120993461
kaif
2005-07-10 15:04
2005.07.31
Кто-нибудь знает, зачем спамеры


6-1113884655
boalse
2005-04-19 08:24
2005.07.31
Имитация сети на одной машине


1-1121026051
Arc
2005-07-11 00:07
2005.07.31
Как отловить момент после создания новой формы?


14-1121152214
pavel_guzhanov
2005-07-12 11:10
2005.07.31
про конфу "потрепаться"


1-1121265337
Delphi_is_cool
2005-07-13 18:35
2005.07.31
TWebBrowser.Перехватить открытие страницы в новом окне