Главная страница
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.032 c
3-1119618887
vok
2005-06-24 17:14
2005.07.31
Название поля


14-1120721960
Ega23
2005-07-07 11:39
2005.07.31
Напомните, как с ошибкой бороться?


3-1119391897
DimonS
2005-06-22 02:11
2005.07.31
Подскажите, как правильно создать БД Foxpro в дельфях?


5-1091392355
int
2004-08-02 00:32
2005.07.31
OnPaint в наследнике


14-1120677507
Piter
2005-07-06 23:18
2005.07.31
Сколько стоит билет до Алушты?