Keresés: - Delphi programozás - Mobilarena Hozzászólások

Legfrissebb anyagok

Mobilarena témák

PROHARDVER! témák

IT café témák

GAMEPOD témák

LOGOUT témák

Keresés

Új hozzászólás Aktív témák

#524 BatemanX tag Flashback #523

Új Válasz 2005-01-19 06:06:41 #524
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

BatemanX

tag

válasz Flashback #523 üzenetére

A Socket komponensek sokkal fapadosabbak, de gondoltam valami spéci okból keresed őket, mivel a Tcp komponenseket megtalálod, ha egyszer végigkattintgatod az összes fület a palettán.
#522 BatemanX tag Flashback #521

Új Válasz 2005-01-18 20:55:29 #522
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

BatemanX

tag

válasz Flashback #521 üzenetére

Azt előbb is írhattad volna, hogy a Tcp komponensek is jók. Én azt hittem, hogy a ServerSocket-re és ClientSocketre van szükséged.
#516 BatemanX tag Erick #514

Új Válasz 2005-01-17 17:56:11 #516
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

BatemanX

tag

válasz Erick #514 üzenetére

Megynyitod helpet.
Beírod: ''File management routines''
Megnyitod a találatot és örülsz a huszonegynéhány eljárásnak, amivel az összes file/könyvtárműveletet el tudod végezni. (Pl könyvtár törlését a RemoveDir függvénnyel)
#515 BatemanX tag Flashback #509

Új Válasz 2005-01-17 17:53:00 #515
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

BatemanX

tag

válasz Flashback #509 üzenetére

2 nap múlva lesz időm...
#506 BatemanX tag Flashback #505

Új Válasz 2005-01-17 13:15:53 #506
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

BatemanX

tag

válasz Flashback #505 üzenetére

Akkor lehet, hogy csak a Socket unitot kell hozzáadni. Már régen csináltam, így nem emlékszem, csak arra, hogy én is szoptam egy fél napot, mire sikerült összehozni.
#503 BatemanX tag Flashback #501

Új Válasz 2005-01-17 12:52:07 #503
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

BatemanX

tag

válasz Flashback #501 üzenetére

Megvannak azok a komponensek, csak nincsennek kirakva a komponenspalettára (nem tudom miért). A lehetőségeid a következők:
A usesben elhelyezed a ScktComp, Sockets, Winsock unitokat és utána már használhatod a TServerSocket és TClientSocket objektumokat, persze ekkor kódból kell létrehozni őket. A másik lehetőség, hogy vmelyik package-ben el kell helyezni az ScktComp unitot (sajna nem emlékszem melyikben), ezután az internet palettán megjelennek a komponensek.
#496 BatemanX tag Terrorista #493

Új Válasz 2005-01-17 09:57:17 #496
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

BatemanX

tag

válasz Terrorista #493 üzenetére

FileName : string;
...
FileName := FileListbox1.Items[FileListbox1.ItemIndex];
#481 BatemanX tag Szalma #480

Új Válasz 2005-01-11 16:52:25 #481
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

BatemanX

tag

válasz Szalma #480 üzenetére

Én magamra veszem, mert gyakran így programozok.
#479 BatemanX tag Szalma #478

Új Válasz 2005-01-11 13:18:51 #479
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

BatemanX

tag

válasz Szalma #478 üzenetére

Na ja. A WndProc-cal való szembenállásom onnan eredeztethető, hogy ha nem vigyáz nagyon az ember, itt keletkezhetnek a legszebb Access Violation hibák (amik néha a fejlesztőkörnyezetet is hazavágják...ó hány órányi munkám veszett oda 1-2 alkalommal emiatt ) és az ide írt kódrészek szinte teljesen ''debugolhatatlanok''. (Próbáljon az ember egy olyan eljárásba flag-et helyezni, ami már akkor meghívódik, ha megmozdítja az egeret.)
Nekem a hook sokkal jobban bevált.
#477 BatemanX tag Erick #474

Új Válasz 2005-01-11 13:04:17 #477
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

BatemanX

tag

válasz Erick #474 üzenetére

Hűha, akkor ehhez kicsit jobban a dolgok mélyére kell ásni. Most lehet, hogy sok hülyeséget fogok írni, a szakértőbbek majd kijavítanak, mivel amit leírok csak tapasztalati tényeken alapszik és nem ismerem hozzá a Delphi mélylélektanát.
Szóval a probléma ekkor az, hogy mindig az a komponens kapja meg a billentyűleütést, amelyiken a fókusz van, így 3 lehetőséged van:

Legrosszabb:
Minden formon lévő komponensed onkeydownjához odaírod a már említett kódot.

Valamivel egyszerűbb, de nem javasolt undorító heggesztés:
Override-olod a WndProc eljárást és figyeled a Message paraméterét. Ha az általad kívánt billentyűkombináció jön, meghívod a megfelelő eljárást.

Elegáns, jó megoldás:
Csinálsz egy ''hook''-ot a billentyűzet eseményekre. Erre most konkrét kódot nem írnék, mert elég komplikált, inkább google-ban keress rá a CallNextHookEx eljárárásra és a találatok között biztos lesz olyan ami rávilágít a megoldásra (annó én is ezt csináltam).
#472 BatemanX tag gone #471

Új Válasz 2005-01-10 10:10:00 #472
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

BatemanX

tag

válasz gone #471 üzenetére

Felhasználónév:

procedure TForm1.BitBtn1Click(Sender: TObject);
Var
UserName : string;
UserNameLen : Dword;
Begin
UserNameLen := 255;
SetLength(userName, UserNameLen) ;
If GetUserName(PChar(UserName), UserNameLen) Then
Label1.Caption := UserName;

end;

A jogokat passzolom.
#470 BatemanX tag Erick #467

Új Válasz 2005-01-10 08:24:45 #470
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

BatemanX

tag

válasz Erick #467 üzenetére

1. Helpben file management routines-ra keress rá és kidobja az összes függvényt/eljárást, amire szükséged lehet.
2. Itt attól függ, mikor és milyen billentyűzetkombinációt akarsz hozzárendelni. Ha pl. csak annyirra van szükséged, hogy ha a Comboboxon állsz, mondjuk F5-re nyiljon le, az viszonylag egyszerű. Az OnKeyDown eseménykezelőhöz kell vmi ilyesmit rendelni:

procedure TForm1.DriveComboBox1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if Key = VK_F5 then
DriveComboBox1.DroppedDown := true;
end;

Ha viszont azt szeretnéd, hogy a formon bárhol álllva (tehát nem a DriveComboBox-on van a fókusz) és úgy reagáljon vmi billentyűkombinációra...nos az egy komplikáltabb dolog.