Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.021 c