Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Multimedia (https://www.delphipraxis.net/16-multimedia/)
-   -   Delphi Genesis 3D: PgeVFile_Hints Fehler? (https://www.delphipraxis.net/143031-genesis-3d-pgevfile_hints-fehler.html)

Chefx 8. Nov 2009 15:54


Genesis 3D: PgeVFile_Hints Fehler?
 
Hey DBs, :hi:

ich wollte mal Genesis 3D ausprobieren und hab das nach dem Tutorial gemacht.
Aber es kommt immer dieser Fehler:
Code:
[Pascal Fehler] g4d_VFile.pas(31): E2086 Typ 'PgeVFile_Hints' ist nicht vollständig definiert
Ich hab den G4DKorrekter schon durch gejagt aber funktionieren tut das immer noch nicht(wegen den Zeilenumbrüchen).
Hier noch mal der original Code (g4d_vfile.pas):
Delphi-Quellcode:
...
type
  geVFile_Finder = packed record
  end;
  PgeVFile_Finder = ^geVFile_Finder;
  geVFile = packed record
  end;
  PgeVFile = ^geVFile;
  geVFile_TypeIdentifier = Integer;
  geVFile_Attributes = Cardinal;

  PgeVFile_Hints = ^PgeVFile_Hints;  ///////// Fehler /////////
  geVFile_Hints = packed record
    HintData: Pointer;
    HintDataLength: Integer;
  end;
...
:gruebel:

Wo liegt der Fehler? :lol:

ich danke im vorraus

turboPASCAL 8. Nov 2009 16:45

Re: Genesis 3D: PgeVFile_Hints Fehler?
 
Code:
PgeVFile_Hints = ^[color=red][b]P[/b][/color]geVFile_Hints;  [color=green]///////// Fehler /////////[/color]
  [color=red][b]geVFile_Hints[/b][/color] = packed record
    HintData: Pointer;
    HintDataLength: Integer;
  end;
Fällt was auf ? ;)
Delphi-Quellcode:
PgeVFile_Hints = ^geVFile_Hints;  
  geVFile_Hints = packed record
    HintData: Pointer;
    HintDataLength: Integer;
  end;

Chefx 8. Nov 2009 17:21

Re: Genesis 3D: PgeVFile_Hints Fehler?
 
Danke erstmal (haben die Genesis-Programmierer noch ein kleinen Fehler für uns eingebaut :-D)

nach dem beispiel kann der den Grafiktreiber nicht auswählen?
warum denn?
Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
...
  SetDriver (GInstance, GHandle, Engine, Driver, DMode); // Treiber auswählen
...
und dann
Delphi-Quellcode:
procedure TForm1.FormActivate(Sender: TObject);
begin
  // Grafiktreiber/modus überprüfen
  if (Driver = nil) or (DMode = nil) then
    ExitError ('Kein Grafiktreiber/modus ausgewählt!');
so und das sagt der mir auch? :gruebel:
muss ich den noch irgendwo manuel auswählen und wenn wo?


Alle Zeitangaben in WEZ +1. Es ist jetzt 11:42 Uhr.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz