Turbo Pascal - Free Pascal által létrehozott konzolos alkalmazás teljes képernyőn futtatása. Meg lehet vhogy oldani h jól működjön?

Mit értesz azon, hogy teljesen rossz a kép? Ha karakterkódolási problémád van, akkor vagy használod a Free Pascalhoz adott IDE-t, vagy olyan IDE-t használsz, amelyben a karakterkódolást be tudod állítani a 852-es kódlapra, emlékeim szerint a Windows parancssora ezt használja. További lehetőség, hogy nem használsz ékezetet.

Ettől konkrétabb választ akkor fogsz tudni kapni, ha képes leszel rendesen leírni a problémát, esetleg mellékelt képernyőképpel.

"Ha azonban FreePascal-által készített alkalmazás teszem ki teljes képernyőre akkor teljesen rossz a kép, a karakterek mások stb. "

Rég használtam már Free pascal ide-t Turbo-et meg régebben.

Talán a window menüböből tudod beállítani a 80x25-ös méretű karakteres képernyőmódot, alapból nagyobb ennél úgy emlékszem. Ez csak az IDE-re vonatkozik vagy a program-ra is már nem tudom, mindenesetre rendszerhívásokkal be lehet folyásolni, a programod elején meghívva a szükséges rendszer függvényeket.(régen csináltam ilyet)

Vagy pedig a képernyő puffert állítod 80x25-re, (alapból xp-től kezdve 80x300)

"Meg nem csak a Turbo Pascal alkalmazások hanem amelyek "régiek" ... gépet eléggé leterhelik"

Mivel azokba az időkbe mikor ezeknek a programoknak a fénykora volt, egyszerre csak 1 program futott (általában persze, több csak trükkel) nem volt védett mód sem, minden valós módban futott ... stb Folyamatosan dolgoztatják a CPU-t, akkor is ha csak egy edit "szövegszerkesztő" fut, folyamatosan ellenőrzi a CPU a billentyűzetet hogy nyomtál e gombot, mindegy hogy milyen programot futtatsz a gép 100 CPU használaton volt, vagyis csak aktív várakozás volt, nem is támogatott a hardver más fajta várakozást ezért olyan gépigényesek a régi programok.

Első vagyok, kicsit nosztalgiázok az első prog nyelv amit megtanultam az a pascal volt.

"Összeheggesztettem" egy olyan pascal programot ami a 80x25-ös DOS-ba megszokott konzol képernyő videómódba állítja a képernyőt. Nagyrészt windows rendszerhívások ismerete kellett. Kíváncsi vagyok hogy neked hogy fut, nekem jól.

uses

windows;

var

hConsoleOut,hNewScreenBuffer : HANDLE;

c:coord;

begin

//80x25 mode------------------------------------

c.X:=80;

c.Y:=25;

repeat

keybd_event(VK_MENU,$38,0,0);

keybd_event(VK_RETURN,$1c,0,0);

keybd_event(VK_RETURN,$1c,KEYEVENTF_KEYUP,0);

keybd_event(VK_MENU,$38,KEYEVENTF_KEYUP,0);

hConsoleOut := GetStdHandle( STD_OUTPUT_HANDLE );

SetConsoleScreenBufferSize(hConsoleOut,c);

keybd_event(VK_MENU,$38,0,0);

keybd_event(VK_RETURN,$1c,0,0);

keybd_event(VK_RETURN,$1c,KEYEVENTF_KEYUP,0);

keybd_event(VK_MENU,$38,KEYEVENTF_KEYUP,0);

until SetConsoleScreenBufferSize(hConsoleOut,c);

//-------------------------------------------

writeln('asdfghjkl01234567');

readln;

end.

"Első vagyok, kicsit nosztalgiázok"...

Sorry nem elsőt akartam írni hanem előzőt.

"A programnak ezen része sem tartalmaz képernyő-újrafestést (teljesen biztos vagyok benne mivel én írtam a programot)."

Megnéztem, teljesen biztos hogy a crt unit a bug-os, az definiálja felül a write működését, többek között úgy hogy sokszor újrarajzolja az egész képernyőt.

Viszont kis ablakba futtatva meg jól működik nálam. Valószínű hogy ők is úgy tesztelték.

..."bejön az ablak, amely lekicsinyül a tálcára, elsötétül a kép és ott a teljes képernyős grafikus Turbo Pascal program) csakhogy az elsötétülés után kis méretűben marad."

Ez az alapértelmezett beállítástól függ, ezt be lehet állítani a "Megjelenési beállítások"-nál hogy teljes képernyőn fusson minden indításkor. Amúgy meg nem minden windows rendszer támogatja a teljes képernyős módot konzol alkalmazásoknál, talán az újabb Windows-ok egyáltalán nem. Ha nagyon precíz akarnék lenni akkor tesztelnem kéne olyan windows-on is.

"A HANDLE típusú hNewScreenBuffer változót miért deklaráltad ha nem használtad fel?"

Felhasználtam még több változót is addig amíg próbálkoztam, csak azt ottfelejtettem, miután bemásoltam ide észrevettem, de nem akartam emiatt szólni, látom legalább hogy figyelsz.

"Megkérdezhetem hogy a Pascal programozás (gondolom windows modul) ezzel a képernyős részével foglalkozó dolgot honnan sajátíthatom el? FreePascal demo/példaprogramok? Angol nyelvű dokumentációkban? "

Ennek lényegében nincs köze a Pascal programozáshoz. GetStdHandle, SetConsoleScreenBufferSize stb. windows-os rendszerfüggvények. A windows unit lényegében csak ezeknek a nevét paraméterlistáját, visszatérési érték típusát és hogy melyik standard DLL-ből kell meghívni, ezen dolgokat tartalmazza.

Hogy mi mire való azt publikálta a microsoft. Kizárólag conzol ablakkal foglalkozó rendszerhívások : [link]

C-s szintaxis-al írja. Amúgy meg inkább c++ - ba vannak rá példák a neten pl.: [link]

Amúgy az aligha találnék rá példát ha csak a pascal-t ismerném. Nem akarok ezzel felvágni, de én egyetemen tanultam szoftverfejlesztést.

"Mégegyszer köszönöm a kódot, már ez is jelentős eredmény :D "

Szívesen te kis programozó palánta. :)

Első megközelítésbe a sebességen javíthatunk úgy hogy a "szegély" karaktereket nem 1-esével íratjuk ki:

program teszt;

uses

windows, crt;

var

hConsoleOut : HANDLE;

c:coord;

ciklus : byte;

pufferstr:string;

begin

//80x25 mode------

c.X:=80;

c.Y:=25;

repeat

keybd_event(VK_MENU,$38,0,0);

keybd_event(VK_RETURN,$1c,0,0);

keybd_event(VK_RETURN,$1c,KEYEVENTF_KEYUP,0);

keybd_event(VK_MENU,$38,KEYEVENTF_KEYUP,0);

hConsoleOut := GetStdHandle( STD_OUTPUT_HANDLE );

SetConsoleScreenBufferSize(hConsoleOut,c);

keybd_event(VK_MENU,$38,0,0);

keybd_event(VK_RETURN,$1c,0,0);

keybd_event(VK_RETURN,$1c,KEYEVENTF_KEYUP,0);

keybd_event(VK_MENU,$38,KEYEVENTF_KEYUP,0);

until SetConsoleScreenBufferSize(hConsoleOut,c);

//------

gotoxy(1, 2);

textcolor(lightgreen);

pufferstr:='';

for ciklus := 1 to 78 do pufferstr:=pufferstr+#196;

write(pufferstr);

gotoxy(1, 24);

write(pufferstr);

textcolor(lightgray);

gotoxy(2, 10);

write('Itt ékezetes karaktereket jelenítünk meg. éáőúűÜÖÓÜÁÚ' );

for ciklus := 1 to 7 do

begin

gotoxy(2, 10+ciklus);

write('Továbbá karaktereket olvasunk be 7-szer: ' );

readkey;

end;

readkey;

end.

----------------------------

Végülis ez a lépés nem itt annyira fontos, ha normálisan működik a képernyőkezelés, viszont példa az optimalizálásra.

Igazi precíz megoldás lenne a crt unit-ot kijavítani (nagy munka) és beküldeni a hivatalos oldal-nak. Ezen felül Lehetne saját crt2 unit-ot csinálni amibe sokkal több lehetősége lenne a programozónak mint a "gyári" crt-be.

Viszont az én időm is véges ... végül is megint támaszkodhatunk a windows-os rendszerfüggvényekre, viszont nem lesz platformfüggetlen, így már jól fut nálam:

program teszt;

uses

windows, crt;

var

hConsoleOut : HANDLE;

c:coord;

ciklus : byte;

pufferstr:string;

begin

//80x25 mode------

c.X:=80;

c.Y:=25;

repeat

keybd_event(VK_MENU,$38,0,0);

keybd_event(VK_RETURN,$1c,0,0);

keybd_event(VK_RETURN,$1c,KEYEVENTF_KEYUP,0);

keybd_event(VK_MENU,$38,KEYEVENTF_KEYUP,0);

hConsoleOut := GetStdHandle( STD_OUTPUT_HANDLE );

SetConsoleScreenBufferSize(hConsoleOut,c);

keybd_event(VK_MENU,$38,0,0);

keybd_event(VK_RETURN,$1c,0,0);

keybd_event(VK_RETURN,$1c,KEYEVENTF_KEYUP,0);

keybd_event(VK_MENU,$38,KEYEVENTF_KEYUP,0);

until SetConsoleScreenBufferSize(hConsoleOut,c);

//------

SetConsoleTextAttribute(hConsoleOut,lightgreen);

clrscr;

gotoxy(1, 2);

//textcolor(lightgreen);

pufferstr:='';

//for ciklus := 1 to 78 do write(#196);

for ciklus := 1 to 78 do pufferstr:=pufferstr+#196;

write(stdout,pufferstr);

gotoxy(1, 24);

//for ciklus := 1 to 78 do write(#196);

writeln(stdout,pufferstr);

//textcolor(lightgray);

SetConsoleTextAttribute(hConsoleOut,lightgray);

gotoxy(2, 10);

write(stdout,'Itt ékezetes karaktereket jelenítünk meg. éáőúűÜÖÓÜÁÚ' );

for ciklus := 1 to 7 do

begin

gotoxy(2, 10+ciklus);

write(stdout,'Továbbá karaktereket olvasunk be 7-szer: ' );

readkey;

end;

readkey;

end.

Az stdout azért kellett hogy a crt unit-ot megkerülve írassunk ki, hogy ne rontsa el.

És ügyelj az ékezetekre hogy a Pascal IDE-be is jó legyen!