- RAM topik
- Hobby elektronika
- Újabb variáns érkezett a Cooler Master legfelkapottabb Mini-ITX-es házából
- HP notebook topic
- Milyen monitort vegyek?
- A Micron újszerű módszerrel javítja QLC-s SSD-jének sebességét
- HiFi műszaki szemmel - sztereó hangrendszerek
- SSD kibeszélő
- Hogy is néznek ki a gépeink?
- Nagyon erős ajánlattá kezd válni a SteamOS
Új hozzászólás Aktív témák
-
g4dg3t
senior tag
A gond ott van hogy elobb hivatkozol a parameterekre es csak kesobb hozod oket letre. Mikor meghivod a ParamByName metodust az SQL stringnek mar tartalmaznia kell a lekerdezest a parameterhivatkozasokkal egyutt!
Tehat helyesen:
...
with Query1, SQL do begin
Close;
Clear;
Add('SELECT *');
Add('FROM TranzTabla');
Add('WHERE (Datum>= :KezdDatum) AND (Datum<= :VegDatum)');
if LekerdFelhComboBox.ItemIndex > 0 then
Add('AND (Felhasznalo= :Felhaszn)');
if LekerdPartnerComboBox.ItemIndex > 0 then
Add('AND (Partner= :Partn)');
ParamByName('Felhaszn').AsString:=LekerdFelhComboBox.Text;
ParamByName('Partn').AsString:=LekerdPartnerComboBox.Text;
ParamByName('KezdDatum').AsDate:=LekerdDatePicker1.Date;
ParamByName('VegDatum').AsDate:=LekerdDatePicker2.Date;
Prepare;
Open;
end;
...
Lathatod azt is hogy mikor kell hivni a Prepare metodust (Open elott). Ez annyit csinal, hogy elore lefoglalja a Query futtatasahoz szukseges eroforrasokat igy a lekerdezes vmivel gyorsabban lefut!
[Szerkesztve] -
g4dg3t
senior tag
XP alatt nekem a kovetkezo keppen sikerult megoldani a meghajto talcajanak kinyitasat/becsukasat:
...
const
FILE_DEVICE_MASS_STORAGE = $2D;
METHOD_BUFFERED = 0;
FILE_READ_ACCESS = 1;
IOCTL_STORAGE_EJECT_MEDIA = (FILE_DEVICE_MASS_STORAGE shl 16) OR
(FILE_READ_ACCESS shl 14) OR
($202 shl 2) OR
(METHOD_BUFFERED);
IOCTL_STORAGE_LOAD_MEDIA = (FILE_DEVICE_MASS_STORAGE shl 16) OR
(FILE_READ_ACCESS shl 14) OR
($203 shl 2) OR
(METHOD_BUFFERED);
...
procedure TForm1.Button1Click(Sender: TObject);
var
CD_DVD_Handle: THandle;
ret: DWORD;
begin
//Ertelem szeruen F: helyere a sajat meghajtod betujele...szebb ha irsz egy fuggvenyt ami lekerdezi
CD_DVD_Handle:=CreateFile(PChar('\\.\F:'),GENERIC_READ,0,nil,OPEN_EXISTING,0,0);
if CD_DVD_Handle <> INVALID_HANDLE_VALUE then begin
//Talca kinyit
DeviceIoControl(CD_DVD_Handle,IOCTL_STORAGE_EJECT_MEDIA,nil,0,nil,0,ret,nil);
//Talca becsuk
DeviceIoControl(CD_DVD_Handle,IOCTL_STORAGE_LOAD_MEDIA,nil,0,nil,0,ret,nil);
CloseHandle(CD_DVD_Handle);
end;
end;
... -
g4dg3t
senior tag
Csak Win98-as kernel32.dll-ben talalhato meg a RegisterServiceProcess fuggveny!
Van egy tippem mire kellene ez neked
El akarod tuntetni a futo alkalmazasok kozul a progid? Eleg egyszeru a modja a project .dpr fajljaban allitsd az alkalmazas 'cimet' ures stringre...fura de a WIN feladatkezeloje ez alapjan sorolja be, hogy alkalmazasrol avagy folyamatrol van szo.
...
Application.Initialize;
Application.Title:='';
... -
yksz
aktív tag
Egy rovid és gyors kérdés: Mi a hiba ezzel:
function RegisterServiceProcess (ProcessID,RType
Word)Word; stdcall;external 'KERNEL32.DLL';
procedure TForm1.FormCreate(Sender: TObject);
begin
RegisterServiceProcess(GetCurrentProcessID,1);
end;
procedure TForm1.FormDestroy(Sender: TObject);
begin
RegisterServiceProcess(GetCurrentProcessID,0);
end;
? Help pls! -
gammar
csendes tag
az isten sem erti hogy van a delphiben ez a ''send message'' a windowsnak,
egyszeruen annyit szeretnek tudni hogy a cdrom ejectelesenek hogy vannak a
wparam,lparam-ei + message number,mert nem tom vki ismerie az irrassistantnek van egy ilyen send message es taviranyitorol akarom ejectelni ehhez kene nekem a parameterek vagy mi.Ha vki tud segiteni elore is kosz!
-
Notes
senior tag
No elkezdtem SQL-ezni. A SELECT utasítás egyszerűségéből fakadó sikerélmények után ( :) ) Kicsit elakadtam. Az alábbi kód a form-on lévő ComboBox-ok adatai alapján szűri a táblát. Pontosabban nem szűri... 'Parameter 'Felhaszn' not found-al leáll futás közben. Mit rontottam el?
With Query1, SQL Do
Begin
Close;
Clear;
ParamByName('Felhaszn').AsString:=LekerdFelhComboBox.Text;
ParamByName('Partn').AsString:=LekerdPartnerComboBox.Text;
ParamByName('KezdDatum').AsDate:=LekerdDatePicker1.Date;
ParamByName('VegDatum').AsDate:=LekerdDatePicker2.Date;
Add('SELECT *');
Add('FROM TranzTabla');
Add('WHERE (Datum>= :KezdDatum) AND (Datum<= :VegDatum)');
If LekerdFelhComboBox.ItemIndex>0 Then
Add ('AND (Felhasznalo= :Felhaszn)');
If LekerdPartnerComboBox.ItemIndex>0 Then
Add ('AND (Partner= :Partn)');
Open;
end;
end;
Illetve átolvastam 3 könyvet, de a Prepare helyes használatát nem sikerült megértenem (leginkább akkor működik minden jól, ha nem használom...) Erről is jó lenne egy kis útbaigazítás.
Köszi!
[Szerkesztve] -
#789
killerjohn
addikt
The TYPhoon
#779
killerjohn
addikt
válasz
The TYPhoon
#779
üzenetére
Var lvData : TListView;
Begin
lvData.Items.Clear;
For i := 1 To N Do
Begin
With lvData.Items.Add Do
Begin
Caption := '1. oszlop';
SubItems.Add('2. oszlop');
SubItems.Add('3. osztlop');
End;
End;
End;
ennyi. -
Diskcopy
tag
válasz
Calogero
#785
üzenetére
procedure TForm1.Button1Click(Sender: TObject);
var open :TOpenPictureDialog;
begin
try
open := TOpenPictureDialog.Create(self);
open.InitialDir := ExtractFilePath(Application.ExeName);
IF open.Execute THEN
image1.picture.loadfromfile(open.filename);
finally
open.Free;
end;
end;
Usesnál ugye hozzáadod az ExtDlgs -t és jó lesz. Üdv. -
Calogero
addikt
Procedure TFelviteForm.BitBtnBoritoClick(Sender: TObject);
Begin
ImageBorito.Picture.Bitmap.FreeImage;
OpenPictureDialog.InitialDir:=ExtractFilePath(Application.ExeName)+'Boritok';
If OpenPictureDialog.Execute Then
Begin
ImageBorito.Picture.LoadFromFile(OpenPictureDialog.FileName);
VanKep:=True;
End;
End;
OpenPictureDialog-al szeretnek betolteni egy kepet, ami sikerul is azzal nincs gond.
A gond InitialDir-el van. Az elso klikknel meg tokeletesen mukodik, de ha a kepet egy masik konytvtarbol toltom be. akkor a kovetkezo klikknel mar nem veszi figyelembe az InitialDir-ben megadott erteket, hanem megjegyzi hogy honnan lett kijelove az elozo kep. Ha a programbol kilepek es ujra inditom akkor ismet jol mukodik az elso klikkig. -
hjk
csendes tag
Sziasztok!
Van egy elég hosszú C program, amit szeretnék átkonvertálni Pascalba.
Van valami, ami ezt megcsinálja, vagy csak kézzel lehet?
És 1 plusz kérdés: itt nincs olyan lehetőség, hogy a felhasználónév E-mail címére újra elküldi a jelszót? Mert nem emlékszem mi volt az...
Köszi előre is!
umbroman@freemail.hu -
Divi
aktív tag
Az átméretezre jó lehet, hogy
a Form.Width helyett Form.ClientWidt használsz.
a Form.Heigth helytt meg Form.ClientHeigth-ot
A Clientxxx a program által felhasználható terültet jelöli, míg a sima Width/Heigth a Windows által ráadott kerettel eggyüt mért szélesség/magasságot adja meg.
[Szerkesztve] -
opr
nagyúr
Hi.
Van két problémám:
1 Delhi 7-ben megírok egy progit, ez eddig ok, de ha átviszem egy másik gépre (pl.haverhoz tesztre, stb.), akkor ha xp van, átméretezi megát kb. 10-20 pixellel kisebbre
, és ezzel nem igazán tudok zöldágra vergődni.
2 Ugyancsak a 7-esben ha csinálok egy progit, és abban van pl. szűrés (vagy keresés itt-ott,ebben-abban), akkor ugyancsak másik gépen 1*üen nem műxik, el se indul, nem ír ki semmit, stb.
(ha hülye kérdés, akkor sry, de még naon kezdő vok, meg már épp ezek miatt nem is nagyon programoztam már vagy fél éve)
plz help
thx -
#779
The TYPhoon
csendes tag
The TYPhoon
csendes tag
Szisztok!
Az lenne a kérdésem, hogy hogy lehet e ListView komponenst futásidőben feltölteni.
Hogy lehet albejegyzést egyszerűen hozzáadni?
Lenne 3 oszlop.
Az első a keresett szó, a második a találat helye, és a harmadik a megjegyzés.
Úgy gondoltam, hogy a második és a harmadik oszlop elemei az első oszlop SubItemüjei legyenek.
Valahogy így:
Találat1 | pozíció1 | Megjegyzés1
Találat2 | pozíció2 | Megjegyzés2
Találat3 | pozíció3 | Megjegyzés3
Találat4 | pozíció4 | Megjegyzés4
Találat5 | pozíció5 | Megjegyzés5
Előre is köszi. TYPhoon -
#776
Divi
aktív tag
Zsolteeeee
#775
Divi
aktív tag
válasz
Zsolteeeee
#775
üzenetére
''jó'' aláírásod van
-
#775
Zsolteeeee
csendes tag
Zsolteeeee
csendes tag
Ez az utóbbi b**t jó. Kössz.
-
#774
Zsolteeeee
csendes tag
Zsolteeeee
csendes tag
Megnéztem a súgót ígéretesnek mutatkozik.
-
#773
steveetm
őstag
Zsolteeeee
#771
steveetm
őstag
válasz
Zsolteeeee
#771
üzenetére
Bővebben: link
Üdv.: steveetm -
#772
b14
senior tag
Zsolteeeee
#771
b14
senior tag
válasz
Zsolteeeee
#771
üzenetére
Talán létezik vmi rename() eljárás.
-
#771
Zsolteeeee
csendes tag
Zsolteeeee
csendes tag
Delphiben van olyan metodus amivel lehet mappát másolni, vagy ha másolni akarok, akkor le kell kezelnem azt, hogy a mappában lévő összes file-on végigfusson és úgy másoljon. Please, help me!
-
gLes
őstag
Szóval azt mondod, hogy nem fut le az OnClick esemény?
Raksz bele egy ShowMessage-et vagy egy Break-et az nem reagál, ugye?
Őszintén szólva ilyennel még nem találkoztam, pedig elhiheted, hogy sok hasonló bosszúsággal meggyűlt már a bajom
Próbáltad már, hogy letörlöd a gombot és újat raksz fel?
Hopsz most vihar van gép kikapcs
-
Divi
aktív tag
Üdvözlöm a nagyérdeműt!
Szeretném kérni a segítségeteket, mert kezd hullani a hajam!
Van egy SpeedButton elhelyezve. (Azért SpeedButtom, mert az tud lapos és átlátszó lenni)
Az OnClick eseményéhez hozzá van rendelve egy eljárás. Frankón be van állítva és meg is jelenik a SpeeddButton esemenyei közt a GombClick esemény.
És mintha ott se lenne. A lefordított programban a gombon való egérkattintásra rá se hederít!![[kép]](http://eloszto.hu/cms/content/images/1_131_ArbwmZPlQ7-15x15.gif "[kép]")
Néztem lépésenkénti futtatással, és NEM megy bele az eljárásba.
És a legszebb az egészben, hogy az OnMouseDown-t érzékeli a kis t**ű .
Ez ismert Delphi fordítóhiba, vagy komponeshiba, vagy én vagyok a hiba, vagy hogy lehet ezt orvosolni?
Szerk: Az egészben a csodálatos, hogy az egész remekül működött.
Azaz érzékelte az egérkattintást, azátn gondolom valami újrafordítás után b*sz*tt működni.
[Szerkesztve] -
Gabesz24
csendes tag
Sziasztok!
Nekem Delphiben lenne egy kisebb gondom, mégpedig az, hogy avn egy számlázó program, és abban ha felveszek új tételt, de mégse töltöm ki benne a mezőket, akkor ne adjon az azonosítóhoz semmit, hanem maradjon úgy, meg lehet ezt oldani?
Meg olyanokat, hogy ha felveszem az új tagokat, akkor a többi felvitelt zárja le, ne lehessen máshova írni semmmit, meg hogy ablakokat kivinni a képernyőből, és az ablakon letiltani a bazárógombokat, menüböl lehessen bezárni.
Szóval röviden ennyi kéne, légyszike!
Ha valaki meg tudná hétfőig írni, roppant hálás lennék!
Köszönet előre is!
Emailem: v.reggel@freemail.hu, ha tud valaki küldjön már nekem oda programot! Köszi! -
Tele von Zsinór
őstag
válasz
Tele von Zsinór
#753
üzenetére
Senki?
-
KovacsUr
addikt
Pro: Bővebben: link
Enterprise: Bővebben: link
[Szerk.]
Az Enterprise linkje nem működött, cseréltem a lengyel szerverre. -
BaliTHC
tag
Sziasztok!
A munkám miatt nagyon (és gyorsan) szükségem lenne a Borland Delphi 6 Update Pack 2-re. A cégünknél megvettünk még pár éve 6 licenszet, de az ember aki ezt intézte most nem elérhető. Így nem tudom a regisztrációs account-unkat, viszont egy Delphi bug miatt (ADO/Oracle alól a negatív number mezőket pozitívnak olvassa) ennek a javítása sürgősen kellene. (Remélem benne van a up2-ben ennek a megoldása.)
Tud valaki adni/küldeni/linkelni egy Update Pack 2-t így hirtelen?
E-mailben is jöhet, ''csak'' 36 mega, kb ugyanennyi darabban szívesen látom, egy vitruális vállveregetést kap a bátor jelentkező. A mail címemet megadom, ha valaki vállalja...
Köszi!
Bali -
#753
Tele von Zsinór
őstag
Tele von Zsinór
őstag
Lenne nekem egy nagy kérdésem: egy progimban StringGrid-et használok, és egy ciklussal állítom be egy oszlop szélességét. Valahogy így néz ki:
for i := 1 to StringGrid1.RowCount do
begin
if StringGrid1.ColWidths[1] < StringGrid1.Canvas.TextWidth(StringGrid1.Cells[1,i])+10 then
StringGrid1.ColWidths[1] := StringGrid1.Canvas.TextWidth(StrinGrid1.Cells[1,i])+10;
end;
Ez eddig működött is, de most valamilyen oknál fogva nem megy, ha hozzáadok egy watch-t akkor a textwidth-re azt mondja, hogy Inaccessible value.
Nem csináltam semmit, ami ide bekavarhat, szóval most nem értem, hogy mi van. Találkozott már valaki hasonló problémával? Esetleg tud vki segíteni?
[Szerkesztve]
El akarod tuntetni a futo alkalmazasok kozul a progid? Eleg egyszeru a modja a project .dpr fajljaban allitsd az alkalmazas 'cimet' ures stringre...fura de a WIN feladatkezeloje ez alapjan sorolja be, hogy alkalmazasrol avagy folyamatrol van szo.
elhaszn)'); helyett
Word)
, és ezzel nem igazán tudok zöldágra vergődni.
Új hozzászólás Aktív témák
- Eladó MSI B650 GAMING PLUS WIFI Alaplap
- Eladó PNY GeForce RTX 4070 Ti SUPER 16GB videokártya
- Bomba ár! Asus Slate EP121 Tablet - Intel Core i5 I 4GB I 64GB SSD I 12" Touch I Cam I W10 I Gari!
- Bomba ár! HP EliteBook 2570P - i5-3GEN I 4GB I 320GB I DVD I 12,5" HD I W10 I Garancia!
- Bomba ár! HP EliteBook 2560P - i5-2GEN I 4GB I 320GB I 12,5" HD I W10 I Garancia!
- Apple iPhone 13 128GB / Kártyafüggetlen 1ÉV GARANCIÁVAL
- Bomba ár! HP Elitebook 8570W - i7-QM I 16GB I 750GB I 15,6" HD+/FHD I Nvidia I W10 I Garancia
- Tablet felvásárlás! Samsung Galaxy Tab S10+, Samsung Galaxy Tab S10 Ultra, Samsung Galaxy Tab S10 FE
- Samsung Flip 2.0 PRO 65" WM65R + Connectivity tray + Gurulós állvány
- Telefon felvásárlás!! iPhone X/iPhone Xs/iPhone XR/iPhone Xs Max
Állásajánlatok
Cég: Promenade Publishing House Kft.
Város: Budapest
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest