progi! Ajánlom figyelmedbe a SZIF-es vagy SZE-s Kiss Jenő féle Adatbáziskezelős jegyzeteket. Majdnem mindegyikben kórházi betegnyilvántartás a példa. Igaz hogy nem Delphi alól kezeli az adatbázist, hanem MS Server, vagy Visual Basic alól, de az adatbázis létrehozásához ez is segíthet. Keress vki SZIFes ismerőst!
Nem szeretek RTFM lenni, de ebben a tekintetben (is) valóban remek a Delphi help.
Ezek a kulcsszavak az érdekesebbek: TFileStream, AssignFile, Reset, Rewrite, BlockRead, BlockWrite, CloseFile. Találsz példákat, a BlockRead, BlockWrite környékén egész biztosan van filemásolás is. További kulcsszavak a teljesség igénye nélkül, csak belekukkantva: Truncate, FileExists, MoveFile, Read, Write.
Van egy csomó. Delphi help: "file management routines" gyűjtőkifejezés alatt találod őket.
Lehetőség van a Windows shell rutinjait is használni, pl. ShFileOperation, de ez talán most még kicsit sok lenne, javaslom tehát a jól bejáratott Delphi utat.
Sziasztok!
Egy apró,teljesképernyős tankos progikát szerkesztek.
És lenne egy-két kérdésem,remélem tudtok segíteni.
(Bár amilyen kérdések itt vannak,ebben szinte biztos vagyok. :) )
Tehát adott egy teljesképernyős kódból generált "táj".
Szeretném megoldani először is azt,hogy ha megjelenik egy ablak, és
utánna újra visszatérsz a játékhoz,akkor visszarajzolja a
játékteret,tehát ne tünjön el egy másik ablak által elfedett rész.
Ezt még csak csak megoldottam egy TBitmap segítségével, de
sehogyan sem jó,ha mozgatni akarok valamit a játéktéren (pl.lövedék)
egyszerűen eltűnnek a kis beszúrt bitmap-ek(pl.tank ok rajzai).
Ez miért lehet?
Hogy lehet egy TBitmap en mozgatni valamit? (És úgy,hogy a háttért is
elmentse,s ne vibráljon?)
Esetleg másik -egyszerűbb- megoldás lenne a form elmentésére és az animációra?
Előre is köszönöm, a hozzászólásokat!
Sziasztok!
SGábor
Ha a táblák megnyitását a program indulása után kézzel teszed meg, (Table.Open) akkor elötte beállíthatod a DataBaseName helyét! Írhatsz egy függvényt, ami beállítja az összes tábla alkönyvtárát és meg is nyitja őket!:
procedure TForm1.TableOpen(Path: string);
var i: integer;
begin
for i:=0 to ComponenCount-1 do
begin
if Componens is TTable then
begin
TTable(Componens).Close; // A váltás miatt zárjuk le az esetleg nyitott táblákat!!!
TTable(Componens).DataBaseName:=Path; // Itt állítjuk be az alkönyvtárat!
TTable(COmponens).Open;
end;
end;
end;
Mi is a Hook? Ahogy a neve is sugallja, kampó vagy horog. Ráakaszkodik valamire, itt például programokra. :)
Mire jó ez nekünk? Főleg eseményeket figyelni az oprendszeren belül. A Hookokat használni pofon egyszerű, ha tudod, akkor inkább API szinten használd. Struktúra:
var
hHook: longint;
procedure HookProc( <hook specifikus paraméterek - írja az API helpje> ): longint;
begin
a paramétereket itt értelmezed, lekezeled, stb.
result := 0; // ez fontos, mert különben nem kapja meg a többi program az eseményt.
end;
BEGIN
hHook := SetWindowsHookEx( <a hook fajtája - bill., egér, stb...>, @HookProc, 0, 0 );
<aztán egy végtelenciklus, vagy tudomisén>
UnHookWindowsHookEx( hHook );
END.
Egy újabb (most idézőjeles) link kisérlet:
<a href="http://www.pervasive.com/support/where_btrieve.asp"> http://www.pervasive.com/support/where_btrieve.asp </a>
(ha nem sikerült, akkor Sting elárulhatná, hogy miért nem? :)
Amit régen (2-3 éve) találtunk, az sebességben sem győzött meg, rögzítésre maradt a DOS, kimutatásokra (diagrammok) meg DOS-ból készült listaállományok lettek Delphiben feldolgozva.
Közben keresgéltem, úgy tűnik, a helyzet változatlan: <a href=http://www.pervasive.com/support/where_btrieve.asp>http://www.pervasive.com/support/where_btrieve.asp </a>
A megígért CD- sajnos nemc érkeztek meg. Akinek van Delphi 5 Mesteri szinten könyve olcsón eladó, megvenném. Vagy aki tudja hol van esetleg felrakva a neten.
4 embernek elküldöm a 2 CD-nyi anyagomat. Mivel nagyrészt FreeWare és GPL-liszenszes dolgokról, minimális mennyiségben pedig ShareWare, PostCardWare cuccokról van szó nem fogadok el érte semmi térítést, ugyanis etikátlan lenne az eredeti fejlesztőkkel szemben... Elvárom a 4 kiválasztott személytől, hogy hasonló módszerrel fogjon az anyagok terjesztéséhez!
Én most nem kérek sem nyersanyag-díjat, sem CD-író amortizációs díját... A postaköltség meg nem fogja egyik urat sem földhöz vágni!
Én most írtam ki 2 CD-re hosszú hónapok által összevadászott anyagokat... Csak FreeWare, OpenSource cuccok... Asm, Delphi, C/C++, PHP, Perl, ISQL, PSQL, MySQL, MSSQL, VB... Komponensek, forráskódok, tutorialok, API-k, IDE-k,+++
Ha valakit érdekel, szóljon és szívesen kölcsönadom lemásolásra... A prog.hu-nak is, ha kell...