Eli vaikka tämä kysymys on Delphi-puolella niin en käytä Delphiä vaan FreePascalia ja kysyisin miten tämän koodin saisi toimimaan DOS-kääntäjällä? ppcross8086-ristiinkääntäjä ilmoittaa virheestä että jotain yksiköitä ei löydetä. Linuxilla ja Windows 32-bittisellä toimii tuo koodi mutta tuo pitäisi saada käännettyä myös MSDOSille:
-----------------------------------
program md5laskin;
{$mode objfpc}{$H+}
uses
{$IFDEF UseCThreads}
cthreads,
{$ENDIF}{$ENDIF}
Classes, md5;
//{ you can add units after this };
var
PathToFile, S, FileHash: string;
begin
Readln(PathToFile);
FileHash := MD5Print(MD5File(PathToFile));
Writeln(FileHash, ' ' + PathToFile);
end.
-----------------------------------
program md5laskin;
{$mode objfpc}{$H+}
uses
{$IFDEF UseCThreads}
cthreads,
{$ENDIF}{$ENDIF}
Classes, md5;
//{ you can add units after this };
var
PathToFile, S, FileHash: string;
begin
Readln(PathToFile);
FileHash := MD5Print(MD5File(PathToFile));
Writeln(FileHash, ' ' + PathToFile);
end.
Vastaukset 23
Vanhimmat
Tässä tarkemmat virheilmoitukset:
-----------------------
Fatal: Can't find unit system used by md5laskin
Fatal: Compilation aborted
Delphi on viimeistelty tuote. Tarkoittaa sitä, että kun asennat Delphin, kaikki tarvittavat osat asentuvat automaattisesti, ja ne myös automaattisesti konfiguroidaan oikein.
Freepascalista ei voi sanoa samaa.
Tuo "Can't find unit system" on malliesimerkki tästä!
system unit - sitä käyttää automaattisesti jokainen ohjelma (program), kirjasto (library) ja käännösyksikkö (unit).
Se, ettei system unitia löydy, on viite siitä, että jokin konfiguraatiotiedosto on virheellinen - eli viite siihen hakemistoon, jossa on system unit, viite tuohon hakemistoon joko puuttuu kokonaan tai viittaa väärään hakemistoon.
etsi ensin, missä sijaitsee:
system.pas
system.pp
system.ppu
system.o
system.obj
(kaikkia näistä ei löydy, mutta ainakin osan pitäisi löytyä).
sen jälkeen, kun olet löytänyt, missä system unit sijaitsee, etsi fpc.cfg tai fpc.conf, ja tarkista ko. tekstitiedoston sisältö - sen tulee viitata hakemistoon, jossa 1 tai useampi system.* sijaitsee.
Lisäksi:
MS-DOS ei tue säikeitä.
Niinpä unitia cthreads EI tule käyttää lainkaan !
Samoin:
Koska säikeitä ei tueta, niin jos koodisi yrittää käyttää luokkaa TThread tai proseduureja BeginThread ja/tai EndThread - aiheuttaa virheilmoituksen !
En ole varma, onko FreePascal tässä asiassa yhtä tiukka kuin Delphi olisi, mutta JOS on, niin lisää ohjelmasi alkuun (kun kerran komentoriviohjelmasta on kyse):
{$APPTYPE CONSOLE}
FreePascal tukee useita eri käyttöjärjestelmiä ja prosessoreita.
Valitettavasti tämä on toteutettu tavalla, joka tekee koko käännösprosessista monimutkaisemman.
Joudut siis jokaisen käytetyn UNITin osalta selvittämään, missä hakemistossa tuo unit on, ja tavalla tai toisella kertomaan sen kääntäjälle.
Koska SYSTEM unitia EI KOSKAAN saa mainita uses -lausessa, niin tuon system unitin osalta ainoa keino on käyttää joko viitettä fpc.cfg -tiedostossa tai sitten kertoa sen sijainti kääntäjälle komentoriviparametrilla.
Muiden unitien osalta:
Voit kokeilla, tukeeko FreePascal Delphi -tyylistä määritettä (sallittu VAIN program ja library - EI OLE sallittu unitissa):
uses
MyUnit in '\PATH\to\MyUnit.pas',
SysUtils, Classes;
siis KUN tuota uses -lausetta käytetään program tai library -tiedostossa, niin ainakin Delphi hyväksyy tuon "in 'jotakin' " itse unit -nimen jälkeen, ja tuolla syntaksilla kääntäjä tietää, mistä ko. unitia pitäisi etsiä.
Tiedostopäätteistä:
.pp = tämä on Freepascalille hieman sama kuin Delphille ".pas"
.ppu = vastaa Delphin ".dcu". HUOM: FreePascal käsittääkseni tarvitsee myös .obj tai .o (riippuu käyttöjärjestelmästä / prosessorista, kumpi on oikein).
Delphi taas ei tarvitse .o tai .obj koska Delphin .dcu sisältää myös käännetyn binäärisen koodin.
Eikö kukaan osaa neuvoa? Eli haluaisin tehdä tuosta md5laskin-ohjelmasta myös MSDOSissa toimivan version kun sellaista ei ole missään valmiina.
koita josko chatgpt osaisi
cthreads voi olla hankala dossilla?
Kokeilin poistaa tuo cthreads-kohdan ja muutin koodia muutenkin:
program md5dos;
{$mode objfpc}{$H+}
uses
{$IFDEF UNIX}
cpui8086
{$ENDIF}
Classes, dos, md5;
//{ you can add units after this };
var
PathToFile, FileHash: string;
begin
Readln(PathToFile);
FileHash := MD5Print(MD5File(PathToFile));
Writeln(FileHash, ' '+PathToFile);
//Writeln(MD5File);
//Writeln(MD5Print);
end.
Ei vaan silti onnistu käännös ppcross8086-ristikääntäjällä vaan herjaa edelleen:
Fatal: Can't find unit system used by md5dos
Fatal: Compilation aborted
Ooops, muutin myös tuon kohdan jossa UNIX, kohdaksi DOS.
Kuulostaa lähinnä, että system unitti on jossain muussa hakemistossa eikä löydy. Lazarukseen pystyy lisäämään nuo automaattisesti. Peruskääntäjä löytää samassa hakemistossa olevat tiedostot eli jos unitin löytää sen voi pudottaa samaan hakemistoon lähdekoodin kanssa ja pitäisi kääntyä.
Kokeilin sitäkin mutta ei vaan käänny tuo md5laskin. Niin ja kokeilin tällaista helppoa ohjelmaa joka sekään ei käänny vaan tulee sama virheilmoitus:
program hello;
begin
writeln('Hello');
end.
Eli tuokin herjaa
Fatal: Can't find unit system used by hello
Fatal: Compilation aborted
Lisäys: en voi käyttää tuossa käännöstyössä Lazarusta koska se kääntää vain sille ympäristölle jolle se on tarkoitettu, eli ristikäännös ei siis onnistu. Siksi koitin kääntää ppcross8086-ristikääntäjällä, koska halusin saada tuon md5laskin-ohjelman toimimaan myös MSDOSissa.
Jaa - olen kyllä kääntänyt Androidille omalla Lazaruksellani Linux-ympäristössä, mutta olen kai sitten erehtynyt..
Ahaa, enpä tiennyt että moinen on mahdollista. Tai siis linuxympäristössä voi toki käyttää fp ide:tä jolloin kohdeympäristön voi määritellä, paitsi ei MSDOSia tietääkseni mutta Androidin voi laittaa. Sitä en kuitenkaan tiennyt että sama onnistuu myös Lazaruksen avulla.
Joo nyt vasta huomasin että sellainen ominaisuus on piilotettu Projektinhallinnan asetuksiin, siis tuo että voi kääntää toiselle ympäristölle kuin mitä Lazarus itse on tehty.
Kokeilin tuota Lazaruksen projektinhallinnan asetuksista laittaa kohteeksi MSDOS ja prossuksi i8086 mutta herjaa ettei ppu-tiedostoja löydy, mitä hittoa?
Eli tuli tällainen herja:
Projektin kohdekäyttöjärjestelmä=msdos ja CPU=i8086.
Kohteelle ei löydy system.ppu tiedostoa FPC:n binaari-hakemistoista.
Varmista että fpc on asennettu oikein tälle kohteelle ja että fpc.cfg:ssa on oikeat hakemistot.
Miten tuolle fpc.cfg:lle määritellään oikeat hakemistot, voisko joku neuvoa ihan rautalangasta vääntäen?
fpc.cfg, se on vähän kuin komentoriviltä käyttäisi. Unitit laitetaan "-Fu":n avulla.
Tällainen kohta löytyy ainakin minulta:
# searchpath for units and other system dependent things
-Fu/usr/lib/x86_64-linux-gnu/fpc/$fpcversion/units/$fpctarget
-Fu/usr/lib/x86_64-linux-gnu/fpc/$fpcversion/units/$fpctarget/*
-Fu/usr/lib/x86_64-linux-gnu/fpc/$fpcversion/units/$fpctarget/rtl
#ifdef cpui8086
-Fu/usr/lib/x86_64-linux-gnu/fpc/$fpcversion/units/$fpctarget/$fpcsubarch-$fpcmemorymodel
-Fu/usr/lib/x86_64-linux-gnu/fpc/$fpcversion/units/$fpctarget/$fpcsubarch-$fpcmemorymodel/*
-Fu/usr/lib/x86_64-linux-gnu/fpc/$fpcversion/units/$fpctarget/$fpcsubarch-$fpcmemorymodel/rtl
#endif
Noita voi joutua muuttamaan, esim. jos asentaa kaksi versiota kääntäjästä ja toinen on kotihakemiston alla, pitää tehdä kaksi versiota em. tiedostosta ja vaihdella tarpeen mukaan. Targetteja ei välttämättä ole automaattisesti käännetty ts. "cpui8086" valinta edellyttää kääntäjän uudelleen kääntämistä, jolloin unitit kääntyy myös.
Nuo unit-hakemistojen määrittelyt tuntuu yleensä riittävän - katsoo vaan, että ne menee olemassa olevaan hakemistoon ja tulee kolmen ryhmissä.
Minulla on nuo kaikki mainitut rivit fpc.cfg tiedostossa mutta en silti onnistu kääntämään sitä Lazarus-ympäristössä, siksi käytän MSDOSille ppcross8086-ristikääntäjää.
Nyt kokeilin sitä että kopioin kaikki .a ja .ppu tiedostot samaan hakemistoon tuon lähdekoodin kanssa, siis 8086-huge-hakemistosta.
Kyllä nyt kääntyy ohjelma mutta on ongelma, se laskee DOSBOXissa md5-tarkistussumman väärin eli jotain on edelleen pielessä. Pitäisikö yrittää ihan aidossa DOS-ympäristössä vai mikä on pielessä?
Niin osaako joku kertoa miksi tuo laskee tarkistussumman väärin kun on käännetty MSDOS-ympäristöön? Mitään samaa ei tapahdu linux-ympäristössä eikä Windowsilla eli niissä tuo md5laskin osaa laskea tarkistussumman ihan oikein.
En mene vannomaan, mutta kyse voi olla String-tyypin käsittelystä väärin eli se pitäisi olla AnsiString:iksi tulkittu. DOS-puolella, jos tiedoston lukee väärässä moodissa se voi laukaista esim. ääkkösten konversion toiselle merkistölle. Eli pitäisi lukea raw-moodissa ilman konversioita streami.
Ok, millaista muutosta ehdottaisit koodiin? Kokeilin tuota Ansistringiä mutta silti laski väärin.
Vanhoissa Delpheissä on OK käyttää AnsiString -tyyppiä binääriseen dataan.
Mutta uudemmissa Delpheissä ja FreePascalissa tuo voi aiheuttaa ongelmia.
voit kokeilla:
type
TBytes = Array Of Byte;
sitten:
var
Data : TBytes;
begin
SetLength(Data, 8192); // esimerkki !!!
toinen asia: lukeminen binääritiedostosta:
JOKO käytä TFileStream, ja sen propertyä Size sekä metodia ReadBuffer.
TAI jos et halua käyttää TFileStream niin sitten:
var
BinaryFile : File;
AssignFile(BinaryFile, 'filename.bin');
Reset(BinaryFile, 1); // Tärkeä - oletuspuskurikoko on 128 !
BlockRead(BinaryFile, Data[0], ByteCount);
CloseFile(BinaryFile);
Okei, kokeilen noita.
Tästä asian sivusta olisiko mahdollista käyttää visual basic for dos 1.0 ohjelmaa jos dossille on pakko tehdä ohjelmia? Se taitaa olla ilmaisena saatavissa nykyään.