Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "WinAPI";
Текущий архив: 2005.07.31;
Скачать: [xml.tar.bz2];

Вниз

Указатели и 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 вся ветка

Форум: "WinAPI";
Текущий архив: 2005.07.31;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.45 MB
Время: 0.043 c
14-1120021304
Fin
2005-06-29 09:01
2005.07.31
Русская Операционная Система


6-1113822641
Gek1
2005-04-18 15:10
2005.07.31
Socket Error 10038


3-1119423284
_Anton
2005-06-22 10:54
2005.07.31
динамические ADO в потоках


14-1120666310
root
2005-07-06 20:11
2005.07.31
Delphi 8


3-1119572382
akhmadey
2005-06-24 04:19
2005.07.31
Как сохранить изменеия в таблице, используя UpdateSQL?





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский