- Bemutatkozott a Polestar Phone
- Motorola Edge 40 - jó bőr
- Mobilinternet EU-n kívül, eSIM adatcsomagok használata
- Franciaországban nyit a Honor 200 Lite
- Android szakmai topik
- Mobil flották
- Samsung Galaxy Watch6 Classic - tekerd!
- Samsung Galaxy S24 Ultra - ha működik, ne változtass!
- iPhone topik
- Xiaomi 11 Lite 5G NE (lisa)
Hirdetés
-
Toyota Corolla Touring Sport 2.0 teszt és az autóipar
lo Némi autóipari kitekintés után egy középkategóriás autót mutatok be, ami az észszerűség műhelyében készül.
-
Idén elmarad a BlizzCon
gp A hírek szerint más eseményeken lehet számítani a Blizzard idei bejelentéseire.
-
Van, amit nehéz lett megtalálni a Google keresőjével
it A titkosított levelezést kínáló Tuta Mail arra panaszkodik, hogy a DMA bevezetése óta szinte eltűntek a Google keresőjéből.
Új hozzászólás 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; -
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 ? -
<Adamsky>
nagyúr
Sziasztok!
Hogy tudnám levizsgálni egy tábla létezését -- lehetőleg -- SQL-ből? -
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...
-
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 -
-
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] -
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] -
JulWCZar
senior tag
Van valami mód arra hogy könnyedén megoldható legyen korlátozott felhasználó esetén pl.: egy dat fájl létrehozása?
-
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?
Új hozzászólás Aktív témák
- HP Probook 340S G7 i5-1035G1/8GB/256SSD/Windows 11 -10% Csak ameddig a készlet tart!89.780 Ft
- iPhone 14 Pro 128 GB Space Black, 11 hónapos, kártyafüggetlen, 2024. május végéig garis , akku 91%
- Asus VivoBook X509JA-BQ904T
- HP EliteBook 640 G9 Ezüst (14" / Intel i5-1235U / 16GB / 512GB SSD / Win 11 Pro) -10% Most 203.990 F
- Lenovo M810z AIO Core I5 6400 4x2700/8GB/120G SSD/wifi/cam 21,5 -10% 66.950 ft