- OLED TV topic
- SSD kibeszélő
- Amlogic S905, S912 processzoros készülékek
- AMD GPU-k jövője - amit tudni vélünk
- Bambu Lab X1/X1C, P1P-P1S és A1 mini tulajok
- Rekordmagasba lökte az EPYC és a Ryzen az AMD-t
- A Princeton újraértelmezte az ultrakompakt hordozható SSD fogalmát
- Mikrokontrollerek Arduino környezetben (programozás, építés, tippek)
- AMD Ryzen 9 / 7 / 5 7***(X) "Zen 4" (AM5)
- Vezetékes FEJhallgatók
Hirdetés
-
Szimpatikusnak tűnik a T Phone új generációja
ma A Telekom saját márkás modelljeinek új generációja jelentős előrelépés az első T Phone-okhoz képest.
-
Hamarosan bárki hazavihet egy Apple Vision Pro headsetet
it A Bloomberg szerint az Apple arra készül, hogy az USA-n kívül is piacra dobja a drága Vision Pro headsetet.
-
A kard és az űr az új Arc meghajtó két fő motívuma
ph A 31.0.101.5518-as csomag három hibával is leszámolt.
Új hozzászólás Aktív témák
-
Tele von Zsinór
őstag
Nekem a következő a kérdésem: hogy lehet a tálcáról eltünteni egy progit? A SetWindowLong-os megoldás nem jött be
-
Tele von Zsinór
őstag
Igaz . Naszóval: azt akarom, ha a progit liekicsinyíti a user, akkor a Shell_NotifyIcon-nal odarakom system tray-be, és ugyanakkor eltüntetem a taskbarból. Az én progim lenne a célpont.
Mégvalami. Olyat már találtam, hogy futásidőben ToolWindow-ra állítja az ablakot, de ez nem vált be . -
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] -
Tele von Zsinór
őstag
válasz Tele von Zsinór #753 üzenetére
Senki?
-
Tele von Zsinór
őstag
Nagy gondom van, és nem jövök rá az okára... Régóta írok egy programot, és az egyik reggel amikor elővettem access violationnal meghalt még indulás közben. Este még jó volt és azóta nem nyúltam bele...Kis debuggolással erre a sorra sikerül szűkíteni a keresést:
StringGrid1.Cells[1,i+1] := ListBox1.Items[0];
Egy while ciklus megy végig a ListBox1 elemein, a végén növeli i-t és törli a 0-ás indexű elemet. És ez egyszercsak access violation, méghozzá íráskor, szóval sztem a stringgridnél van a gond. Az egészben az a szép, hogy ehhez a részhez hozzá se nyúltam hónapok óta. -
Tele von Zsinór
őstag
válasz Diskcopy #935 üzenetére
i := 0;
while ListBox1.Items.Count > 0 do
begin
StringGrid1.Cells[1,i+1] := ListBox1.Items[0];
ListBox1.Items.Delete(0);
StringGrid1.RowCount := i+2;
StringGrid1.Cells[0,i+1] := IntToStr(i+1);
inc(i);
end;
A ListBox1-be egy adatbázisból kiszedett adatok kerülnek, nincs köztük olyan, aminek a trim-je üres lenne. De ha lenne is, akkor legfeljebb üres maradna egy cella, nem
Tényleg annyi lenne, hogy egy ListBox elemeit egy ciklus berakja egy StringGrid 1-es indexű oszlopába. És egyszercsak write-os access violation
Bővebben:� link -
Tele von Zsinór
őstag
válasz Diskcopy #937 üzenetére
StringGrid1.Enabled = True.
Tudomásom szerint a for is ciklus, nem?Először én is for-al csináltam egy gyakorlatikag ugyanilyen kóddal, aztán amíg még nem tudtam a pontos sort, ami a hibát okozza, akkor írtam át while-ra, hogy hátha. Aztán így maradt, tökéletes ez is. Optimalizációval meg még nem foglalkoztam -
Tele von Zsinór
őstag
válasz Diskcopy #939 üzenetére
Igen, próbáltam a step-by-step debugot. A kompononseken annyi változás történt, hogy a ListBox1 méretét megnöveltem és láthatóvá tettem. Arra jöttem rá, hogy a ciklus kb. a 44-45. iterációjában okozza a kivételt, a ListBox1 44. és 45. eleme: ''Rmc Kft'' és ''Szatmári Kft''. A ciklus pontosan annál a sornál akad ki, amelyiket először beírtam ide, azaz amikor a StingGrid egyik cellájához rendelek értéket.
Asszem felrakom újra a delhit, hátha -
Tele von Zsinór
őstag
válasz God Vazzeg #941 üzenetére
Szerintem nem lehet. Jobban jársz, ha csinálsz egy primitív hálózat-jellegű dolgot UTP kábelekkel, mint Vágóéknál
-
Tele von Zsinór
őstag
válasz God Vazzeg #944 üzenetére
A pontos működési elvéről nem tudok felvilágosítást adni, mert ahhoz nem volt pofám, hogy hazahozzak egyet de annyit mindenesetre láttam, hogy UTP kábel megy bele mindegyikbe, lehet h egy primitív pl PIC mikrochipes áramkör van mindegyikbe, és be vannak dugva switchekbe és egy központi gép meg kapja az adatokat és MAC alapján nézi hogy egy ember csak egyszer szavazhasson. A bill.-es sztem azért nem működik, mert a windows-nak is mindegy h melyiken nyomtad be, egyenértékű mind, így programból elég nehéz megtudni, hogy melyiken is nyomták le.
-
Tele von Zsinór
őstag
válasz God Vazzeg #946 üzenetére
Igen, sztem a driver rendezi le a dolgot. Amíg van elég billentyű, addig ez az ötlet se rossz. Csak ne legyen kontakthibás egyik se, mert annak alaplapi következményei lehetnek. Ajánlott éles használat előtt kipróbálni mint egy régi gépen, esetleg egy alap asm progival nézni, hogy jó betűt küld-e, szal h jól lettek-e összerakva.
-
Tele von Zsinór
őstag
válasz Tele von Zsinór #940 üzenetére
Delphi újratelepítése nem segített
-
Tele von Zsinór
őstag
válasz God Vazzeg #949 üzenetére
A fordításnál mondjuk nincs gond, hanem utána a futtatásnál. Itt meg helyi hálóban rögtön tud az én MySQL szerveremhez csatlakozni, ugyanazokkal az adatokkal dolgozni, és ha gond van, akkor megy a step-by-step debugging.
-
Tele von Zsinór
őstag
Valahogy így:
procedure DecodeDate(Date: TDateTime; var Year, Month, Day: Word);
procedure DecodeTime(Time: TDateTime; var Hour, Min, Sec, MSec: Word);
procedure TForm1.Button1Click(Sender: TObject);
var
Present: TDateTime;
Year, Month, Day, Hour, Min, Sec, MSec: Word;
begin
Present:= Now;
DecodeDate(Present, Year, Month, Day);
Label1.Caption := 'Today is Day ' + IntToStr(Day) + ' of Month '
+ IntToStr(Month) + ' of Year ' + IntToStr(Year);
DecodeTime(Present, Hour, Min, Sec, MSec);
Label2.Caption := 'The time is Minute ' + IntToStr(Min) + ' of Hour '
+ IntToStr(Hour);
end; -
Tele von Zsinór
őstag
válasz Drótszamár #982 üzenetére
Ez van.
Amúgy mivel a word is egész, ha egy proc. integert vár paraméternek, oda elfogad wordot is, szóval ezzel sztem nem lesz gondja. -
Tele von Zsinór
őstag
Erre nem itt fogod megtalálni a választ, hanem a neten valahol, ahol leírják, hogy mindez hol van letárolva az mp3-ban. De ha jól emlékszem van erre komponens is, elég azt megkeresni.
-
Tele von Zsinór
őstag
elkezdtem írni egy progit, még alig van benne valami, kód pedig csak a
FormCreate-ben van. Eddig annyit csinál, h kapcsolódik egy mysql
adatbázishoz, onnan lekér néhány rekordot, és az első alapján egy
ListView-ben létrehoz egy oszlopot. Eddig rendben is van, gond nélkül
lefut, de utána jön az Application.Run parancs, ahol is access
violation-nal meghal. Use debug DCUs-t bejelölve a getmem.inc-ben jelöli
a hibát. Ilyet se láttam még. Delphi7 enterprise, WinXP prof hun sp2.
Korábban nem volt ilyen gondom. Más találkozott már ilyennel? -
Tele von Zsinór
őstag
Erősítsetek meg abban a hitemben, hogy a FormCreate csak a form és a rajta levő objektumok létrehozása után hívódik meg. Egy delphis haverom nem akarja elhinni hogy így van, és a korábbi problémámra ebben látja a megoldást.
-
Tele von Zsinór
őstag
Definiáld, h praktikus...
Ha most állnék neki adatbázisos progit írni, és az egyszerűség lenne a szempont, akkor valszeg ADO-val állnék neki. MS termék ez is, valamilyen verzió benne van minden windowsban, tehát telepítgetni se kell. Tudja a közvetlen SQL lekérdezést.
De én mondjuk a mysql-t is tudom ajánlani, pl a libmysql.dll-el a szervert közvetlen elérve. -
Tele von Zsinór
őstag
Hogy tudok delphi7-ben sha1 hash-t számolni? Konkrétan egy .torrent file info_hash-éről van szó...
-
Tele von Zsinór
őstag
válasz Jégkokó #1103 üzenetére
Nem értem minek változókat bevezetni egy ilyen egyszerű feladatra (főleg h utána nem használod őket ), de ha már kellenek, akkor pontosabb a double vagy a currency.
Amikor kaptad azt a hibaüzenetet, akkor számok voltak a mezőkben? Mert ha nem akkor nem 0-t ad vissza hanem hibát, amit mondjuk egy try-except -el elkaphatsz és szólhatsz a kedves usernek h nem úgy van az. -
Tele von Zsinór
őstag
Hogy lehet egy másik process memóriájából olvasni x byteot?
-
Tele von Zsinór
őstag
válasz Jester01 #1131 üzenetére
Nem kooperatív, konkrétan egy RPG memóriájából akarom kiolvasni mennyi xp-m van, és a címsorába beírni, h mennyi van még következő szintig.
Volt pár gugli találat olyanról, hogy ReadProcessMemory, aminek kell egy cím, egy hossz, és egy buffer. Ha ez az amire gondolok, akkor már csak a process alapcímét kell kideríteni
Miért ne lehetne más proc memóriáját olvasni? Az írás az más téma, azt tényleg nem engedi a win. -
Tele von Zsinór
őstag
válasz Tele von Zsinór #1132 üzenetére
Bocs az offért, de kicsit belegondoltam (volt rá időm ). Kis trükközéssel biztos hogy lehet írni is a memóriát, nem véletlen, hogy működnek a különféle trainer-progik.
-
Tele von Zsinór
őstag
Azért ez így nem igaz. Lassabb lesz, de a mai gépeken ez nem érezhető. Több memóriát fog enni, mert oda tömöríti ki és onnan fut. Meg ha durván használsz .res fileokat akkor nézd meg a help-et, van olyan opció, amivel az erőforrásokat nem nyomja be, nekem azzal gondjaim voltak.
Amúgy többféle tömörítő: ha egy exe upx-el van benyomva, akkor van benne egy upx0 és egy upx1 szekció. Ha ilyet konkrétan nem találsz, de van benne 2db 4 karakteres, akkor egy hexeditorral próbáld meg átírni őket, nekem nemegyszer bejött.
Visszafele ugyanez: ha nem akarod, hogy egyszerűen ki lehessen tömöríteni a progijaidat, egy hexeditorral írd át ezeket
[Szerkesztve] -
Tele von Zsinór
őstag
Ahogy a kollega is mondta, ha telnettel e-mailezel jól jöhet
A mime-nek nem az a célja, hogy kisebb legyen (filekódolás, nem filetömörítés), hanem az, hogy az e-mailekben szabvány 7 biten is ábrázolni lehessen.
Amikor TClientSockettel akartam levelezőprogramot írni elkezdtem én is írni egy kódoló/dekódoló algoritmust. Jó móka volt .) -
Tele von Zsinór
őstag
-
Tele von Zsinór
őstag
A canvas az általában a grafikus objektumoknak a vászna, sőt, egy kis trükkel a windows asztalra is tudsz rajzolni velük
A TForm-nak is van, de ez ''felejtős'', azaz nem jegyzi meg, mi hol volt, neked kell mindig újrarajzolni, amikor wm_Paint jön.
Akkor már sokkal inkább ajánlom a TImage komponenst, azt csak akkor kell rajzolnod, ha frissül rajta valami. És ez a parancs kell neked:
TImage.Canvas.RoundRect -
Tele von Zsinór
őstag
Hogy lehet megállapítani a monitor(ok) felbontását/frissítésést/színmélységét, a TDevMode-os módszeren kívül máshogy, ami véletlenszerűn konstans 0-t ad vissza?
Új hozzászólás Aktív témák
- AKCIÓ! Szépségápolás, Haj - és Szakállápolási márkás gépek - BOLTI ÁR FELÉÉRT!
- Bomba! HP EliteBook 1040 G7 x360 Érintős Hajtogatós Ultrabook Tab 14" -70% i7-10710U 16/256 FHD LTE
- BONTATLAN Új Iphone 15 és 15 Plus 128-512GB 1év APPLE garancia gyári független Deák AZONNAL Átvehető
- BONTATLAN Új Iphone 13 128-512GB 1év hivatalos Apple garancia gyári független Deák Azonnal Átvehető.
- ÚJ BONTATLAN Apple Watch Series 8 S8 41-45mm Azonnal Átvehető DEÁK TÉRNÉL 1 Év Apple Garanciával.
Állásajánlatok
Cég: Promenade Publishing House Kft.
Város: Budapest
Cég: Ozeki Kft.
Város: Debrecen