- Bemutatkozott a Transcend SSD-inek zászlóshajója
- Sugárhajtómű ihlette a Zalman CPU-hűtőjét, de nem az üzemzaj tekintetében
- Félreértések az FSR 4 és a PlayStation 5 Pro körül
- Nem tetszik a Procon-SP-nek, hogy a Nintendo távolról kivégezheti a Switch 2-t
- Megcélozta az NVIDIA-t a 2 nm-es node-jával a Samsung
Új hozzászólás Aktív témák
-
VladimirR
nagyúr
válasz
VladimirR
#596
üzenetére
amit kihagytam (bar egy resze a kodbol ugyis latszik):
az ertekadas ugy sem megy, ha a tomb elemeit egyenkent probalom atadni (eredetileg igy volt a kodban, kinomban irtam at erre, mert value[i]-re azt mondja, hogy inaccessible value -- akar public, akar private, akarmi)
erre csak egyvalamit tudok mondani: wtf? -
VladimirR
nagyúr
kesz, feladom, hulye vagyok
itt a kod (Bővebben: link), valaki legyen szives nezzen bele, mondja meg, hogy mi baja van
a kovetkezo sorra mindig acces violationt dob (azaz nem mindig, csak akkor, ha 128byte-nal nagyobb file-t valasztunk ki, mert kisebbekbe nem olvas bele)
value:=newvalue; (ez az u_charray.pas file-ban van, a t_charray.getfile fuggvenyben)
egyszeruen nem ertem, a value es newvalue tipusa megegyezi, nem megy se cim, se ertek szerinti atadassal, fogalmam nincs
elore is koszonom a segitseget
[Szerkesztve] -
-
VladimirR
nagyúr
na, most nagyon lama vagyok
unit akarmi;
interface
type t_class=class
private
size:byte;
public
function getsize:byte;
end;
implementation
function t_class.getsize;
begin
getsize:=size;
end;
end.
miert all ez le access violationnal annal a sornal, hogy getsize:=size?
meg a watch ablakban miert mondja azt a size-re, hogy unacceptable value? -
btotyi
tag
ha fix méretű akkor deklarálj array[0..xx] of chart. csak ne felejts el a végére tenni egy #0-át vagy deklarálj egy rekordot aminek egyik eleme a tömb és a másik egy fix #0
Ja és a legutolsó Delphik (talán a 6-os óta, de ezt meg kellene néznem) a sima string típust belül null terminated-nek kezelik
[Szerkesztve] -
LinX
tag
válasz
VladimirR
#588
üzenetére
Oxi. Köszi. Megprobálom, ha hazaértem... Amúgy kikapcsolni a keretet eddig is tudtam valahogy, csak akkor maximális ablakméretnél full képernyős lett, tehát a tálcát is eltakarta. Mig amikor keretes, akkro maximálisnál a tálca is látszik.
Megnézem, hogy így mit reagál...
[Szerkesztve] -
VladimirR
nagyúr
na megint ittvagyok: ki kellene irnom file-ba egy 128byte meretu rekordot, de nem tudom, hogy hogyan lenne a legjobb, ugyanis van benne nehany null-terminated string, amiknek viszont fix merete kellene, hoigy legyen a file-ban
tehat ha pchar-t hasznalok, akkor kisebb esetleg lesz, ha meg string-et, akkor nagyobb, a 0. byte miatt (meg az nem is kell bele)
ugy vegulis meg tudnam csinalni, hogy byte-onkent feltoltom a puffert, amit aztan kiirok, de ez nem valami elegans megoldas
tehat hogyan lehetne ezt megoldani?
koszonom -
LinX
tag
Sziasztok!
Még most ismerkedek a témával, de olyan kérdésem lenne, hogy:
- hol lehet kikapcsolni, hogy ne legyen a form-nak kerete
már egyszer sikerült, de akkro maximalizálásnál egész képernyősbe ment át
Nekem meg olyan kéne, hogy ne legyen windows keret, csak a form, viszont úgy, hogy maximális nagyság esetén a tálca még látható legyen...
Remélem nem komplikáltam túl a kérdést...
Köszi! -
btotyi
tag
válasz
VladimirR
#584
üzenetére
Megpróbálom sorjában:
Lehet, persze. Megnyitod irásra/olvasásra belepozicionálsz ahova akarsz, beleírsz, bezárod.
Beszúrni persze közvetlenül nem lehet de nyitsz egy újat az elejére beírod amit akarsz és a régi file tartalmat hozzámásolod és törlöd a régit.
Memória kérdése de szerintem 100~150MB-t még tudsz allokálni.
if FileListBox1.Selected[n] then
Blokkonként olvasol addig amíg a keresett részt meg nem találtad. Ha sebességet akarsz elérni akkor a szektorméret (512 byte) többszörösét olvasod be egyszerre.
A pufferben tudsz keresni de magadnak kell megírni. -
VladimirR
nagyúr
par kerdesem lenne igy hirtelen:
-lehet-e egy file-t modositani, es ha igen, akkor milyen modon, a file ujrairasa nelkul (tehat nem ugy, hogy kiolvasom, majd az egeszet atirom egy masik file-ba, a modositasokkal egyutt, hanem megnyitom, egy 128byte-os blokkot atirok, majd mentem)?
-lehet-e file elejere beszurni (van egy olyen sejtesem, hogy nem)?
-ha a fenti ket kerdesre a valasz nem, akkor hogyan? megnyitom a file-t, kiolvasom, torlom a filet, majd ujrairom?
-tovabba ha a fenti ket kerdesre a valasz nem, akkor mekkora file-t olvashatok be memoriaba? fileopen-nel ugye beolvasom a file-t mondjuk egy Buffer nevu valtozoba - mekkora meretig mukodik ez? 100-150MB-os file-t meg elbir? esetleg tobbet? vagy hasznaljak temp file-okat?
-ha van egy filelistbox-om es a multiselect engedelyezve van ra, akkor hogyan lehet megtudni az osszes kifelolt file nevet?
-ha nem tudom, hogy mekkora reszre van szuksegem a filebol, akkor mi a teendo, hogyan olvassam be? azt tudom, hogy a file legelejerol kell olvasom, csak azt nem, hogy meddig - azaz joesetben a blokknak van egy 10byte-os footer-e, de ez nem biztos (meg at kell ragnom a specifikaciokat)
-lehet keresni valahogy a file-ban, vagy ezt magam kell megoldjam?
koszonom
[Szerkesztve] -
#579
Hani
aktív tag
Sixkiller6
#578
Hani
aktív tag
válasz
Sixkiller6
#578
üzenetére
Jajajaj... a Fórummotor lecserélte a Word( s[ i ]) -t ... csodálkoztam is, hogy miért lett kurzív minden az s után...
Mellesleg lehet, hogy simán megy
SendMessage(ActiveControl.Handle, WM_KEYUP, Ord('C'), 0);
módon is a dolog - ha igen, akkor nem kell ablakot keresgélni, ami örvendetes.
Ekkor simán csinálhatnánk egy paraméterezett eljárást, char paraméterrel, ami a 'C' helyére kerülne... csak most nem tudom kipróbálni.
[Szerkesztve] -
#577
Hani
aktív tag
Sixkiller6
#576
Hani
aktív tag
válasz
Sixkiller6
#576
üzenetére
A PostMessage körül kell keresgélned.
Ha már úgyis benne vagyunk az ablakoknak küldött üzenetekben, küldjük el ezt a bill-leütést pl. a Notepad-nak.
Procedure TForm1.Button1Click(Sender: TObject);
Var
wnd : HWND;
i : Integer;
s : String;
Begin
//Megkeressük a notepadot
wnd := FindWindow('notepad',nil);
If wnd <> 0 then
Begin
wnd := FindWindowEx(wnd,0,'Edit',nil);
// Ha már úgyis megtaláltuk, beleírunk jól:
s := 'NoMijaFene,NemisNyútama Billyenjtyúkho';
For i := 1 to Length(s) do
SendMessage(wnd, WM_CHAR, Word(s), 0);
// nyomunk utána egy [ENTER]-t, hogy szép legyen
PostMessage(wnd, WM_KEYDOWN , VK_RETURN, 0);
// vagy [SPACE]-t, vagy... ezeket megtalálod a helpben.
PostMessage(wnd, WM_KEYDOWN , VK_SPACE, 0);
End;
End;
Szerk: Hinye, de szépen megformázta...
[Szerkesztve] -
#576
Sixkiller6
őstag
Sixkiller6
őstag
hogy tudok egy virtuális billentyűlenyomást megoldani?
szal azt szeretném h egy adott billentyű nyomódjon le vmikor. -
_AnTi_
tag
A Pos függvény az első találatig keres, és a keresendő karakter szövegben található pozícióját adja vissza. Kicsit zavaros lett ez a mondat...
Tehát:
Ha Te 'r' betűt keresel és 13-at kapsz vissza, akkor az azt jelenti, hogy az első 'r' a 13-ik helyen található az általad vizsgált szövegben. Mellesleg a Pos case sensitive, tehát az 'r' és az 'R' különböző karakterek!
Szerintem egyszerűbb lenne egy ciklussal megvizsgálnod a szöveget! -
btotyi
tag
válasz
<Adamsky>
#560
üzenetére
IBExpress csomag (Delphi InterBase fül)
IBDatabase, IBTransAction, ListBox, BitBtn felrak egy formra. IBDataBase default transaction beállít IBTransAction1-re. Dupla katt IBDataBase1-en. Adatbázis jellemzők beállít. BitBtn1.OnClick-be beír :
IBDatabase1.GetTableNames(ListBox1.Items,False); // A boolean érték azt jelzi hogy kellenek-e a system táblák.
Program futtat gombra kattint és a listboxban megjelennek az adott adatbázisban található táblák. -
corm
senior tag
Lehet hogy ezt sokan nagyon láma kérdésnek veszik, de nem izgat: sza az a kis idegesítő bajom van hogy egyes karaktereket magyar bill.kiosztással nem tudok leírni, pl. [ és sehol nem találom a gyorsbillentyűbeállításokat, mert gondolom ez állhat a háttérben. Szóval ha valaki tuggya holehet felszabadítani kedvenc szögletes zárójelem pls mondja meg.
-
Patyo
csendes tag
Hali!
másképp teszem fel kérdésem :
ha a getcurrentdirt használom és exe-be lefuttatom az exe aktuális utvonalát adja meg eddig ok.
ha ugyanezt activeformon azaz activexen egy hmtlbe teszem akkor a html megnyitásánál mindi a böngészö cimét adja vissza vagy a windows\asztalt nekem arra kéne ez a parancs hogy egy filet megnyissak fenn a tárhelyemen pl találatszámlálonak egy filet amibe beleir. hogy kell megadni fenn az utvonalat ? -
#556
granpa_matis
aktív tag
granpa_matis
aktív tag
Valuta atvalto(Currency)komponensre lenne szuksegem, lehetoleg olyanra, ami webrol frissiti az arfolyamokat...
Ha ismertek ilyet, ne kimeljetek. -
Hani
aktív tag
Bocs, nem voltam elég világos.
Legyen mondjuk a timered neve T1Timer. Ekkor
procedure TForm1.Button1Click(Sender: TObject);
Var handle_abc_Window: HWND;
Begin
//Lekérem a handle-t a keresett ablakhoz
handle_abc_Window:= FindWindow('abc', nil);
//Ha 0-t ad vissza, akkor elbuktam, ha nem, akkor van ilyen, és indul a timer
If handle_abc_window<>0 Then T1Timer.Enabled:=True;
...
...
...
end; -
-
Patyo
csendes tag
Hellóka!
Nekem abban kéne segitenie valakinek hogy delphi 5 ben ha egy projektet csinálok akkor a getcurrentdir vagy bármely más parancs ami az aktuális könyvtárat adja meg az müködik de ugyanez ha activexben próbálom nem müködik, hogy lehet activex ben lekérni hogy mi az aktuális könyvtáram és ezt egy változóba megadni mert ha egy filet akarok megnyitni és csak beirom a nevét és az aktuális könyvtárban van akkor sem tudja megnyitni mert nem találja bezzeg ha projektben irom akkor megnyitja. vagy azt modja meg v. hogy hogyan lehet activexben fenn egy tárhelyen file elérési utvonalat megadni pl: ha megakarom nyitni a haha.bmp-t akkor mit irjak be mert annyi hogy haha.bmp nem elég; -
Hani
aktív tag
Lehet, hogy nem megy, mert most nem tudom kipróbálni, de a FindWindow körül keresgélj.
procedure TForm1.Button1Click(Sender: TObject);
var
handle_abc_Window: HWND;
begin
handle_abc_Window:= FindWindow('abc', nil);
end;
Ha nullával tér vissza, nincs ilyen app. Ha meg van, akkor a hozzávaló handle-t adja meg, ami alapján be tudod zárni, és máris tudod, hogy nem fut
Sok szerencsét.
Köszi 
![[kép]](http://prohardver.hu/pics/s/cl.gif "[kép]")
Új hozzászólás Aktív témák
Hirdetés
- Dell Latitude 7410 Strapabíró Ütésálló Profi Ultrabook Laptop 14" -80% i7-10610U 16/512 FHD IPS MATT
- Eladó Lian Li O11D MINI-X gépház
- Lenovo ThinkPad P17 Tervező Vágó Laptop -50% 17,3" i7-10750H 32/512 QUADRO T1000 4GB
- FSP DAGGER PRO ATX3.0(PCIe5.0) 850W Sfx tápegység
- Eladó PNY GeForce RTX 4070 Ti SUPER 16GB OC XLR8
- Bomba ár! Dell Latitude E6420 - i5-2GEN I 4GB I 250GB I HDMI I 14" HD I W10 I Gari!
- Kingmax 1x2GB DDR3-1333 RAM
- Samsung Galaxy A12 64GB, Kártyafüggetlen, 1 Év Garanciával
- KIÁRUSÍTÁS - REFURBISHED és ÚJ - Lenovo ThinkPad Ultra Docking Station (40AJ)
- DELL PowerEdge R730xd 12LFF+2SFF rack szerver - 2xE5-2680v3,64GB RAM,4x1GbE,H730 RAID v ZFS
Állásajánlatok
Cég: CAMERA-PRO Hungary Kft
Város: Budapest
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest