Jak zkompilovat program – Delphi – Fórum – Programujte.com

Chtěl jsem si stáhnout tento program ve kterém jsou uložené zdroje a ty zdroje modifikovat a přeložit. Je to ale psáno v jazyku který neovládám. Nejdříve jsem hledal IDE ve kterém bych to otevřel, našel jsem Windows Free Pascal (IDE v 1.0). Otevřel jsem soubor HEBRAK.DPR a zkusil jsem zkompilovat kod uvnitr:

(*Windows Free Pascal is developed by dr J.Szymanda under the GPL License*)
(*************************************************************************)
program Hebrak;

{

Uc_heb - Hebrak 2.31

(c) 2002 Bubenicci  -  hebrak@yahoo.com
                       http://www.geocities.com/hebrak/

    License: GNU GENERAL PUBLIC LICENSE

    This program is free software; you can redistribute it and/or modify
    it under the terms of the GNU General Public License as published by
    the Free Software Foundation; either version 2 of the License, or
    (at your option) any later version.

    This program is distributed in the hope that it will be useful,
    but WITHOUT ANY WARRANTY; without even the implied warranty of
    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
    GNU General Public License for more details.

}

uses
  Forms,
  Hebrew1 in 'HEBREW1.PAS' {Form1},
  Hebrew2 in 'HEBREW2.PAS' {Form2},
  Hebrew3 in 'HEBREW3.PAS' {AboutBox},
  Testfnt in 'TESTFNT.PAS' {Ftestfont},
  antiwin in 'ANTIWIN.PAS',
  Otviram in 'OTVIRAM.PAS' {FOtviram},
  Gem1 in 'GEM1.PAS' {Fgem};

{$R *.RES}

begin
  Application.CreateForm(TForm1, Form1);
  Application.CreateForm(TForm2, Form2);
  Application.CreateForm(TAboutBox, AboutBox);
  Application.CreateForm(TFtestfont, Ftestfont);
  Application.CreateForm(TFOtviram, FOtviram);
  Application.CreateForm(TFgem, Fgem);
  Application.Run;
end.

A dostal jsem chybu:

Nemohu najít Forms které používá Hebrak.

Co musím udělat? Schází mi nějaká knihovna? Mimo adresář kde leží Hebrak.dpr je soubor uc_heb1.iss a nevím co to je jestli to je knihovna a musím to propojit?

Po jedné drobné úpravě (změna typu pro výsledek funckce WinExecAndWait na dword) to jde přeložit v Delphi 7 Personal - vzhledem k tomu, jak kód vypadá, bych to v ničem novějším nepřekládal (kvůli unicode stringům). Možná by to po konverzi zvládl i Lazarus, ale nezkoušel jsem. Každopádně holé FPC to nepřeloží protože se tam používá VLC.

Lazarus jsem si zkoušel nainstalovat i nakonfigurovat. Ten píše stejnou chybu že neví co je Forms

Myslel jsem že forms by se mělo odněkud includovat.

.iss jsem zjistil že je inno setup script

Delphi 7 personal jsem stáhnul ze Slunečnice, ale po instalaci to po mě chce klíč. Nezjistil jsem co je to za licenci. Nevíte jestli je to komerční nebo zdarma? Kde vzít klíč?

Delphi 7 personal mám nainstalované a zaregistrované. Jak bych měl teď postupovat abych to rozjel? Nebo nemohl by si mi poslat ten tvůj projekt jak si to udělal, ať to mohu prozkoumat?

Zkoušel jsem zkompilovat ten hebrak a dostávám tuto hlášku (obrýzek):

http://oi68.tinypic.com/98emo6.jpg

Tak jo, už jsem to opravil, byl tam špatný typ (integer) místo DWORD. Result jsem nastavil na DWORD(00000000) i když nevím jaká hodnota by tam správně měla být - v případě že integer Result byl -1 - jak měl bych nastavit DWORD aby se to rovnalo integer Result = -1?

Tak jsi to zvládnul sám, gj!

Moc jsem ten kód nezkoumal, ale jde dát typecasting dword(-1). Jinak -1 je v 32bitech $FFFFFFFF.

dík