Port von Turbo Pascal zu Delphi

[Progman]

warum nicht gleich Apptype Console?

[kehrenberger]

Apptype Console scheidet aus, da es einen Grafikteil gibt. Tatsächlich ist der Grafikteil das eigentliche GUI, der Console Teil ist nur zum Einlesen von Konfigurationsdateien, Logging, etc.

Klaus

[turboPASCAL]

Zitat von Progman:

warum nicht gleich Apptype Console?

Wegen der Graphicausgabe ?


In seinem Fall in umgekehrter Problematik als meine Variante
kann man sich ggf. das mal anschauen.

http://www.delphipraxis.net/internal...=463265#463265

[kehrenberger]

Ich hab diese Anwendung so verstanden, daß ein Grafikbild in Text umgewandelt werden soll. Das hilft mir nicht weiter, ich brauche etwas höhere Auflösung als 80x50

[jbg]

Es gäbe da noch die Möglichkeit einen eigenen Textdatei-"Gerätetreiber" zu schreiben, der mit einer eigenen AssignFile()-Funktion initialisiert wird und bei jedem Write/WriteLn/Read/ReadLn Aufruf automatisch aufgerufen wird.

Das ginge dann so:

Delphi-Quellcode:

AssignTextImage(Output, MyImage);
Reset(Output);

WriteLn('Hallo Welt. ', 10, ' ', 0.3);

CloseFile(Output);

Delphi-Quellcode:

type
  PImage = ^TImage;

function ImageOpen(var t: TTextRec): Integer; forward;

procedure AssignTextImage(var f: TextFile; AImage: TImage);
var
  t: TTextRec absolute f;
begin
  FillChar(t, SizeOf(TTextRec), 0);
  t.BufPtr := @t.Buffer;
  t.Mode := fmClosed;
  t.BufSize := SizeOf(t.Buffer);
  t.OpenFunc := @ImageOpen;
  PImage(@t.UserData[1])^ := AImage;
end;

Den Rest muss du dir selbst erarbeiten. Man müsste nun halt ein TurboPascal Handbuch zur Hand haben oder man schaut sich den System.pas Quellcode für den Consolen-Gerätetreiber an.


Übrigens: EasyWin (wer das noch kennt) hat genau das selbe unter TurboPascal für Win 3.1 gemacht.

[Hador]

Zitat von kehrenberger:

Apptype Console scheidet aus, da es einen Grafikteil gibt. Tatsächlich ist der Grafikteil das eigentliche GUI, der Console Teil ist nur zum Einlesen von Konfigurationsdateien, Logging, etc.

Klaus

Wiso scheidet Apptype Console aus, wenn es einen Grafikteil gibt?

Delphi-Quellcode:

program Project1;

{$APPTYPE CONSOLE}

uses
  Forms, Unit1 in 'Unit1.pas' {Form1};

{$R *.res}

begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;

type
  TForm1 = class(TForm)
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

end.

Hier habe ich auch nur {$APPTYPE CONSOLE} in das Projekt geschrieben und schon habe ich eine Konsole zusätzlich zum Formular zur verfügung. Alternativ kannst du natürlich auch ein Konsolenprgm. erstellen und dort Formulare hinzufügen.

[kehrenberger]

Du hast natürlich vollkommen Recht und das ist wohl auch die einfachste Lösung meines Problems. Ich meinte, ich werde nicht ausschließlich mit dem Consolen Fenster auskommen, sondern auch ein Form benötigen, da hochauflösende Grafik gebraucht wird.

Danke!

Klaus

[kehrenberger]

Ich wollte nur den Thread abschließen und berichten, daß mir {$APPTYPE CONSOLE} geholfen hat. Diese Anweisung beschränkt keineswegs auf console I/O, wie ich Anfangs vermutet habe, alle definierten Forms werden weiter geöffnet und verarbeitet. Write, writeln Anweisungen werden automatisch auf der Console ausgegeben, auch Eingabe Befehle können ebenfalls über die Console verarbeitet werden. Mit dieser Hilfskonstruktion kann man nun alle Consolen I/Os leicht nach Delphi portieren und in das UI einarbeiten, ohne bei jeder I/O Exception gleich in den Debugger wechseln zu müssen.

Vielen Dank für die schnellen und reichlichen Posts!

Klaus