Problem mit TurboPascal 5.5

[fkerber]

Hi!
Normalerweise programmier ich nur mit Delphi und dachte mir, ich will mal grad was ausprobieren und hänge jetzt :?

Ich will einfach nur ein Fenster erstellen. und hab dafür einfach die Api-Aufrufe genutzt, die auch in Delphi gehen, aber es geht nicht.

Bereits bei uses sagt er mir, dass er Windows.tpu nicht finden kann. Ist auch klar, die gibts nicht.
Aber wie kann ich denn mit TurboPascal 5.5 ein Fenster erstellen?

Ciao und danke schonmal

fkerber

[Luckie]

In dem du alle Funktionen zur Laufzeit aus den DLL's importierst. versuch mal das:

Delphi-Quellcode:

program MiniApp;

const
  CAPTION = 'Useless MiniApp';
  TEXT = 'Hello World.';

const
  MB_ICONINFORMATION = $00000040;

type
  HWND = THandle;
  UINT = LongWord;

function MessageBox(hWnd: HWND; lpText, lpCaption: PChar; uType: UINT): Integer;
  stdcall; external 'user32.dll' name 'MessageBoxA';

begin
  MessageBox(0, TEXT, CAPTION, MB_ICONINFORMATION);
end.

mit TP zu kompilieren.

[fkerber]

Hi!

Danke für deine schnelle Hilfe, allerdings bekomme ich folgende Fehlermeldung

Zitat:

Zitat von TurboPascal

Error 3: Unknown identifier

Sie bezieht sich auf die Zeile

Zitat:

Zitat von Luckie

HWND = THandle;

Ciao fkerber

[Christian Seehase]

Moin fkerber,

tausch mal THandle durch LongWord aus.

[fkerber]

Hi!

Hat leider auch nicht geholfen, gleicher Fehler!

ciao fkerber

[Luckie]

TP kjennt auch den Datentyp LongWord nicht? Probier es mal mit Cardinal.

[Christian Seehase]

Moin fkerber,

oder allgemein gesagt:
Tausche THandle gegen einen 32 Bit Typ aus.

[fkerber]

Hi!

Imnmer noch das selbe!

ciao fkerber

[fkerber]

Hi!

Was wäre dann ein 32 Bit-Typ?

ciao fkerber

[Luckie]

Dann nimm Integer. Oder ist ein Integer nur 16 Bit bei TP?

[CalganX]

Hi,
in 5.5 ist es nur ein 16er... :roll:
Erst in 7 ist das glaube ich 32-Byte.

Chris

[Luckie]

Und unsigned Integer?

[fkerber]

Hi!

Also mit Integer gings jetzt mal allerdings meckert er jetzt Pchar an mit dem selben Fehler!

ciao fkerber

[Luckie]

Puh jetzt wird es kompliziert.

[Christian Seehase]

Moin fkerber,

wenn ich nicht sehr irre, ist TP 5.5 doch rein DOS basiert.
Es dürften sich damit noch nicht einmal Programme für Windows 3.1(1) erstellen lassen.

Für Windows wird's wohl mindestens Borland Pascal sein müssen.

[fkerber]

Hi!

@Chris:

Ist Borland Pascal Freeware bzw. wo bekäm ich es denn her?

Ciao fkerber

[Christian Seehase]

Moin fkerber,

Zitat:

Zitat von fkerber

Ist Borland Pascal Freeware

ich denke nicht.
Schau doch mal bei Borland bzw Google mal danach.

Bei Borland im Museum war's jedenfalls nicht.

[Luckie]

So geht es auch ohne PChar:

Delphi-Quellcode:

function MessageBox(hWnd: HWND; lpText, lpCaption: Pointer; uType: UINT): Integer;
  stdcall; external 'user32.dll' name 'MessageBoxA';

begin
  MessageBox(0, @TEXT[1], @CAPTION[1], MB_ICONINFORMATION);
end.

[CalganX]

Hi,
es geht nicht um Borland Pascal, sondern um Turbo Pascal 7.0. ;) Das ist noch Freeware.

Chris

[fkerber]

Hi!

Ich befürchte, ich falle euch langsam gewaltig auf die Nerve, aber es geht immer noch nicht :oops:

Der nächste Fehler ist jetzt, dass er mir sagt

Zitat:

Zitat von TurboPascal

Error 36: Begin Expected

Und zwar bei dem stdcall (also der 2. Zweile der Funktions-Deklaration).
Versuche ich einzeilig zu schreiben, sagt er mir Line too long!

@Chakotay1308
Wo bekomm ich denn TP 7.0 her? Bei Borland hab ich nur diese Version gefunden!

Ciao fkerber

[CalganX]

Hi,
ganz einfach aus dem Grund, dass TP5.5 keine Exports kann. Das geht einfach nicht. DOS kann das einfach nicht... ;)

Ich suche dir gleich mal TP7 raus... Nach dem Essen... ;)

Chris

[fkerber]

Hi!

Das erklärt dann wieder einiges :|

Ok, danke fürs raussuchen und guten Appetit!

Ciao fkerber

[CalganX]

Hi,

Zitat:

Eine häufige Frage im Forum betrifft die freie Verfügbarkeit des Turbo Pascal Compilers. Dazu folgendes: Trotz dass diese Software nicht weiterentwickelt wird, ist sie in der neuesten Version noch keine Freeware. Eine Ausnahme bildet hier die französische Version 7.01, die von Borland Frankreich zum Download freigegeben wurde. Die Oberfläche der IDE ist hierbei englisch, nur die Online-Hilfe ist französisch.

=> http://www.webplain.de/turbopascal/downloads.php
Dort erhälst du auch die französische Version.

Chris

PS: Ich habe Glück: habe mir mal ein Buch über TP gekauft, da war TP 7.0 inkl. erweiterter Units bei. :)

[Hansa]

Hier herrscht offensichtlich etwas Verwirrung. 8)

1. Borland Pascal 7.0 ist (noch) keine Freeware. Neueste Version als Freeware ist TP 5.5

2. Windows-Programme gehen überhaupt erst vernünftig mit TP for Windows 1.0, was dann Delphi wurde. Nicht mit BP 7.0. Und ich rede hier von Win 3.11, nicht ab Win95 :!: Ab Borland Pascal 6.0 war eine eigene Oberfläche namens "Turbo Vision" dabei. Die war absoluter Schrott und schlecht dokumentiert. Wurde eingestampft.

3. integer ist 16 Bit also maximal von 0..65??? auch bei BP 7.0 Jetziger integer bei Delphi ist in BP 7.0 "longint", 32 Bit.

4. französisches Turbo-Pascal ? Ob das was nützt ? Kann Dir ja meine Original BP 7.0 Lizenz (deutsch) verkaufen, sogar mit (deutschen) Handbüchern. :lol:

Also mit Windows würde ich in der Richtung Windows-Programme mit TP 5.5 absolut nichts machen. Höchstens kleinere Programme. Dann kommt nämlich noch NTFS und und und. 8)

[CalganX]

Hi,
dir ist aber klar, das ein Unterschied zwischen TP und BP herrscht, oder? :roll:
Turbo Vision ist nämlich schon in TP 7 drin und TP 7 kam vor BP. ;)

Chris

[Hansa]

Mir ist kein Unterschied klar, den es nicht gibt. 8)Schaut euchs selber an. Besonders die Jahreszahlen des Copyrights. Das war ein Paket und da ist kaum ein Unterschied. Der Unterschied besteht allerdings in der protected Mode Unterstützung durch BP 7.0, die bei TP 7.0 halt gefehlt hat. Gleichzeitig, wie gesagt, bastelten die an Turbo Pascal für Windows 1.0, das kurze Zeit später erschien. Da das auch buggy war kam dann irgendwann endlich Delphi. Merke gerade, daß ich selber bald ein Museum aufmachen kann. Delphi 1 habe ich auch noch im Original. 8)

[fkerber]

Hi!

Also allgemein erstmal danke für eure Hilfe und zahlreichen Tipps!

Da auch bei TP 7 der selbe Fehler auftritt und das ganze ja mehr ein Versuch sein sollte, lass ich das ganze jetzt und kehre zu Delphi zurück! :coder:

Aber nochmals ausdrücklich danke!

Ciao fkerber

[MatthiasW]

Hallo,

ich weis nicht ob dir FreePascal was nützt :) . Damit kannst du auch Windows - Anwendungen (32Bit) erstellen.

Fals es dich Interessiert FreePascal

Mfg Matthias

[fkerber]

Hi!

Danke für den Tipp mit FreePascal!

Ciao fkerber