DGL • Thema anzeigen - easySDL Problem gleich am Anfang -.-

easySDL Problem gleich am Anfang -.-

Moderator: DGL-Team

Seite 1 von 1

[ 5 Beiträge ]

Vorheriges Thema | Nächstes Thema

Autor

Nachricht

Virenerus

Betreff des Beitrags: easySDL Problem gleich am Anfang -.-

Verfasst: Mi Mai 14, 2008 23:57

DGL Member

Registriert: Mi Mai 14, 2008 23:21
Beiträge: 2

hiho
Ich habe heute angefangen mich mit Opengl zu befassen, da ich eine einfache (wirklich einfach denke ich) Animation für ein Projekt benötige.
Deshalb wollte ich mit easySDL beginnen

Allerdings bekomme ich einen I/O Fehler 105
hier der Code

Form:

Code:

 
unit Form;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, test;
 
type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;
 
var
  Form1: TForm1;
  sphere: TMyProgram;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  sphere := TMyProgram.Create;
  sphere.Loop;
end;
 
end.
 
 

test

Code:

 
unit test;
 
interface
  uses
    dglOpenGL, SDL, easySDL;
  type
  TMyProgram = class(TEasySDL)
    public
       procedure DrawScene; override;
  end;
 
implementation
  procedure TMyProgram.DrawScene;
    begin
      glClear( GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT );
 
      glLoadIdentity;
      glTranslatef(0, 0,-6);
 
      glBegin(GL_TRIANGLES);
          glColor3f(1,0,0); glVertex3f(-1.0,-1.0, 0.0);
          glColor3f(0,0,1); glVertex3f(1.0,-1.0, 0.0);
          glColor3f(0,1,0); glVertex3f(0.0, 1.0, 0.0);
      glEnd();
    end;
 
end.

Hoffe das jmand den Fehler findet, da ich keine AHnung hab...
thx für jede Hilfe

Nach oben

i0n0s

Betreff des Beitrags:

Verfasst: Do Mai 15, 2008 00:17

Ernährungsberater

Registriert: Sa Jan 01, 2005 17:11
Beiträge: 2068
Programmiersprache: C++

easySDL benutzt Writeln zur Ausgabe. Diese geht per default in die Konsole, die du bei einer VCL-Anwendung aber nicht hast.
Du müsstest daher:

Code:

{$APPTYPE CONSOLE}

in deine DPR einfügen um eine Konsole zu erhalten.

_________________
Steppity,✲steppity,✴step,❆step,✳step! :twisted:

❆ ❄ ❄ ❄ ❅ ❄ ❆ ❄ ❅ ❄ ❅ ❄ ❅ ❄ ❄
❅ ☃ ❄ ❄ ❄ ❅ ❄ ❄ ❄ ❅ ❄ ☃ ❄ ❆ ❄ ❄

Nach oben

Virenerus

Betreff des Beitrags:

Verfasst: Do Mai 15, 2008 01:14

DGL Member

Registriert: Mi Mai 14, 2008 23:21
Beiträge: 2

und ich schätze das kann man nicht umgehen?

dann muss ich wohl ohne easysdl zurechtkommen...
eine Konsole ist auf jeden Fall nicht drin

Nach oben

Shaddow

Betreff des Beitrags:

Verfasst: Do Mai 15, 2008 10:12

DGL Member

Registriert: So Aug 20, 2006 23:19
Beiträge: 564

mh würde es nich reichen, eine eigene funktion writeln zu deklarieren? oder kommts dann zu problemen?
einfach nur etwas ala:

Code:

procedure Writeln(text: String)
begin
end;

Nach oben

WhiteHunter

Betreff des Beitrags:

Verfasst: Do Mai 15, 2008 12:01

DGL Member

Registriert: Mo Sep 02, 2002 15:41
Beiträge: 867
Wohnort: nahe Stuttgart

Ich meine mittels

Code:

SetStdHandle(STD_OUTPUT_HANDLE, handle);

kann man das Konsolenoutput an handle weiterleiten.
Gibt bei mir mit einem Handle auf ein handle := FileCreate() zwar keine Fehler, schreibt aber auch nichts in die Datei. :roll:

MfG

Nach oben

Seite 1 von 1

[ 5 Beiträge ]

Foren-Übersicht » Programmierung » Einsteiger-Fragen

Wer ist online?

Mitglieder in diesem Forum: 0 Mitglieder und 14 Gäste

Du darfst keine neuen Themen in diesem Forum erstellen.
Du darfst keine Antworten zu Themen in diesem Forum erstellen.
Du darfst deine Beiträge in diesem Forum nicht ändern.
Du darfst deine Beiträge in diesem Forum nicht löschen.
Du darfst keine Dateianhänge in diesem Forum erstellen.