Ú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.

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