Hirdetés
- Milyen processzort vegyek?
- [Re:] Batár Philips monitor közeleg az új Xboxot nyúzók számára
- Synology NAS
- Milyen nyomtatót vegyek?
- LED / LCD TV topik
- Videós, mozgóképes topik
- Apple notebookok
- Mikrokontrollerek Arduino környezetben (programozás, építés, tippek)
- 3D nyomtatás
- [Re:] Felújítja az xCloud hardverét a Microsoft
Hozzászólok Aktív témák
-
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. -
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; -
yksz
aktív tag
THX. Még annyi kéne, hogy ha fut, akkor elindul egy timer. Bezárni nem akarom, semmit nem akarok vele csinálni, csak megnézni, hogy fut-e, vagy nem, ha fut akkor pedig indítson el egy timert. És hogy tudom meg a handle-t, amit megad?
Fly away my precious knowledge fly far away
-
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; -
#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. -
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 ? -
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.
Y N W A
-
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. -
yksz
aktív tag
Már rájottem, hogyan használjam, csak ha keresem az r betut egy sorban 13 az eredmény, pedig csak 4 van benne
Beolvastam a sort T változóba.
Edit1.Text:=Inttostr(Pos(Keres, T));
Vagy ez így egy nagy hulyeség, amit csináltam?Fly away my precious knowledge fly far away
-
_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!Szép vagyok és okos, ügyes és aranyos...
-
#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.- no es importante -
-
#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] -
#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] -
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] -
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. -
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!Mit teszel, ha látod, hogy egy védett állat eszik egy védett növényt?
-
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
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]Mit teszel, ha látod, hogy egy védett állat eszik egy védett növényt?
-
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] -
-
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? -
-
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
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?
![[kép]](http://prohardver.hu/pics/s/cl.gif "[kép]")
Köszi 
Hozzászólok Aktív témák
- Milyen processzort vegyek?
- [Re:] Eladatlan termékek millióit küldi szeméttelepre az Amazon
- [Re:] Huawei P40 Pro - kilökték a célegyenesben
- [Re:] Batár Philips monitor közeleg az új Xboxot nyúzók számára
- Synology NAS
- Vírusirtó topic
- Milyen légkondit a lakásba?
- BestBuy topik
- Milyen nyomtatót vegyek?
- Bittorrent topik
- További aktív témák...
- Bomba ár! Lenovo ThinkPad Helix - i5-3.Gen / 4GB / 512GB SSD / 11,6" FHD Touch / Webkam / Garancia!
- Bomba ár! Dell Latitude E6410 - i5 - 520M / 4 GB / 160 GB / Intel VGA / 14,1" / Garancia!
- Bomba ár! Asus VivoBook S300CA - i5 - 3.Gen / 4GB / 500GB SSHD / 13,3" / HDMI / Webkam / Garancia!
- Intel // i7-6700 // i5-6500 // Xenon E5-1620V3 // i3-4150 // Pentium G3440
- LENOVO M92P LGA 1155,G-2020 CPU,4GB DDR3,1TB Sata3 HDD,GT 610 1GB VGA
Állásajánlatok
Cég: Rackforest Kft.
Város: Budapest
Cég: Webinform Consulting Kft
Város: Budapest