Új hozzászólás Aktív témák
-
ViragL
tag
Szerintem nagy fába vágta a fejszét, amit meg szeretnél valósítani (hozzászólásaid alapján) az nem csak egy kis ''heggesztés'' lesz, hanem komolyabb tudást igényő feladat. Tehát, nem tudom az elméleti háttérrel hogy állsz, ha hiányosnak érzed, akkor javaslok egy cikket, szerintem olvasd át, ártani nem árthat (anno az egyetemen ez volt a szakirodalmunk hálózat gyakorlathoz..nc)[link] Nem Delphis cikk, csak a hálózati kommunikáció működését mutatja be.
Sajna ennyit tudok segíteni. Jut eszembe, ha jól emlékszem a Delphi demó projektek között van valahol egy p2p messenger program. Asszem.
Sok sikert.
-
ViragL
tag
1, írtam, hogy nem ma kezdtem a Delphit, tehát a változók tipusát kitaláltam magamtol. Tehát az újbol beírt kód nem mond semmi újat.
2. abbol, hogy :
''A ciklusod végtelen lesz, bár nem tudom mit is akar csinálni, ha L-hez mindig csak hozzáadsz akkor az egyre nagyobb lesz, több helyiérték = nagyobb hossz, tehát H monoton nő.'' mit nem értessz?
A ciklusod azért lesz végtelen, mert L -hez mindig hozzáadsz valamit, így egyre nagyobb szám lesz, így egyre hosszabb string lesz belőle, tehát a hossz, amitöl a while ciklusod futása függ mindig nagyobb lesz mint egy, sőt szigorúan monoton nő az értéke.
3. az egész algoritmusnak semmi köze ahoz amit csinálni akarsz, az a baj, hogy gőzöd nincs róla, hogy mit csinál az amit írtál. HA mégis, akkor írd le nekem néhány mondatban, hogy elnézést tudjak kérni. -
ViragL
tag
Nem ma kezdtem a programozást, a Delphit is tolom kb 4 éve, de halvány lila gőzöm nincs róla, hogy a forráskód és a hozzá fűzött szöveg között mi a kapcsolat..
A ciklusod végtelen lesz, bár nem tudom mit is akar csinálni, ha L-hez mindig csak hozzáadsz akkor az egyre nagyobb lesz, több helyiérték = nagyobb hossz, tehát H monoton nő.
Újra kéne gondolnod az algoritmust.
[Szerkesztve] -
lao ce
aktív tag
gondolom a file bent van a helyen valamilyen objektumban, akkor van valamifele stream amit olvasol (mar lassan ket eve nem delphiztem egy karaktert sem, szoval nem tudom miert kezdtem neki itt okoskodni), aztan kikerestem neked egy ilyet:
function IntToBin ( value: LongInt; digits: integer ): string;
begin
result := StringOfChar ( '0', digits ) ;
while value > 0 do begin
if ( value and 1 ) = 1 then
result [ digits ] := '1';
dec ( digits ) ;
value := value shr 1;
end;
end;
meg egy ilyet:
function HexToInt(HexNum: string): LongInt;
begin
Result:=StrToInt('$' + HexNum) ;
end; -
-
#1149
Tele von Zsinór
őstag
yksz
#1148
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] -
#981
Tele von Zsinór
őstag
yksz
#980
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; -
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:='';
... -
#711
killerjohn
addikt
yksz
#708
killerjohn
addikt
feldobhatnád valahová a forrást. kíváncsi vagyok. régen próbálkoztam -egy prímszámkeresőhöz- azzal, hogy egy string-ben tetszőleges nagy számot tárolok, és azzal műveletet elvégezni (pl: két string összeadása, kivonása, szorzása, osztása, egy string négyzetgyökének a megállapítása, stb.), de csak hobbi volt, és nem volt rá időm. Viszont aa van valami kész megoldásod, akkor megnézném....... Mester........
-
_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! -
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; -
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. -
-
Alan
aktív tag
''es tarsat talalni a legnehezebb. kerdezd alan-t''
Akkor kérdezem Alan-t. Miért olyan nehéz társat találni?
Nehéz kérdés... bár tudnám, miért van ez. Fiatalon könnyebb. Minél hamarabb kezded, annál jobb az esélyed. Mi lao ce-vel már lassan súroljuk a felső határt, amikor még esélyes a dolog. Te viszont szerintem elég fiatal vagy, úgyhogy csak igyekezz, találj embereket, akiknek van energiájuk és idejük, hasonló témák érdeklik és rendesek, becsületesek, szorgalmasak, segítőkészek, nem ufók, nem hülyék, nem hagynak ott, ha baj van... és dolgozzatok együtt, tapasztaljátok ki egymás stílusát, csináljatok sok közös projektet. És akkor lehetsz a magad ura, saját cégért dolgozhatsz, ami azért nem megvetendő. -
lao ce
aktív tag
''...miért nem csináltál egy saját céget, vagy mentél el egy céghez dolgozni''
miert ne tettem volna ezeket a dolgokat? ezeket csinaltam.
''Gondolom az iskoláid elvégzése után nem kis tapasztalatod lehetett''
ugy erted nagy gyakorlatom lett volna? nem, semmi nem volt hiszen addig iskolaba jartam. igaz, egyetem alatt mar egy... nem, ket munkahelyem is volt, dolgoztam. az elso munkahelyemen seged-al-al-al-al programozo voltam es szaladtam ha nem ment valakinek valami a konzolon. tudod... olyan zold szinu kijelzo mint a regi scifikben, bar azt hiszem volt mar egy-ket szines monitor is a csokosok asztalan.
''Vagy csak egyszeruen csináltál volna egy hasznos kis progit, vagy tobbet és eladod''
nem tudtam en hasznos kis progit csinalni. az kulcsfontossagu hogy ki kell talalni egy jo otletet amihez elobb a piacot meg kell ismertni. abban az idoben meg nem volt internet. ezen kivul tars vagy tarsak nelkul nem megy. es tarsat talalni a legnehezebb. kerdezd alan-t
addig is amig suliba jarsz, a programozas mellett tanulj angolul. ha szereted a nyelveket akkor nemetul is. a matekra is hasalj ra, mert jo gondolkodasmodot ad es meg az is lehet hogy kelleni fog. -
Hani
aktív tag
Vagyis ha jól értem, akkor van egy lekódolt szöveges file-od?
Kérdések hozzá:
- Az egész .zip kódolt, vagy csak az az egy file?
- Ha az egész, akkor hány file van a .zipben? Hülye kérdésnek látszik, de ha van 6-8 db., akkor meg lehet kerülni a titkosítást kódhossztól függetlenül.
- Ha nem, akkor próbálj meg visszaemlékezni a kódra.
Ha nem jut eszedbe a kód, akkor az Advanced ZIP Password Recovery, vagy az Ultimate ZIP Cracker segíthet az emlékezésben.
Gép, szerencse, kód, stb. kérdése.
Lao-ce-nek igaza van, legközelebb légyszi az ilyet az ''azonnali kérdések órája''-ba nyugodtan beteheted, oda simán illik.
Sok szerencsét. -
Alan
aktív tag
yksz, nem akarsz elolvasni előbb egy könyvet az objektumorientált fejlesztésről? Dicséretes, hogy próbálkozol, de hiányzik pár fogalom ismerete, ezek nélkül nagyon-nagyon sokáig kudarcra leszel ítélve. Először egy általános OOP könyvet javaslok, aztán hozzáfoghatsz pl. a ''Delphi 7 mesteri szinten'' című könyvhöz Marco Cantú-tól, és közben gyakorold a fejlesztést.
Természetesen mind így kezdtük, de azt meg te hidd el, hogy erőfeszítés, időbefektetés nélkül semmi sem fog menni. Olyan, hogy ma fogalmam sincs, holnap meg már értelmeset tudok alkotni, nem létezik.
[Szerkesztve] -
lao ce
aktív tag
felig vicces volt. hat, van mondjuk 4 allapotod (nem tudom mennyi) megrajzolva kepben. felteszel egy image komponenst a formra, beleteszed az elso kepet, es elnevezed az imagedet btnSajatGomb-nak mondjuk. aztan a kepeket cserelgeted mikor a mosue fele megy vagy megnyomjak vagy valami.
erdemes persze altalanos eljarasokat kesziteni amik nem csak erre az egy gombra mukodnek (hatha tobb gombod is van vagy lesz)
erdemes megfontolni hogy imagelist-et is hasznalj az image-ek melle, abban tobb kepet el lehet tarolni, ami nem rossz dolog. -
lao ce
aktív tag
ha minden fazisat megrajzoltad egy gombnak es negyszog alaku csak azt hitted viccbol kerdezem, akkor tedd ra egy image-re, es nevezd ki, hogy marpedig ez matol kezdve gomb. az onclick, mousemove stb eventeket lehet hasznalni izles szerint, hogy valtogasd a gomb kepet ahogy az egeret huzzak felette ill hogy megird a lenyomas esemeny programjat.
ha haromszog alaku akkor maskent kell csinalni. azt javaslom hasznalj negyszog alaku gombot, mert legalabbis szerintem nem egyszeru rendesen megirni egy tetszoleges alaku gomb kezeleset. persze nem is lehetetlen, de nem biztos hogy megeri vacakolni vele. esetleg keress egy ilyen komponenst a weben es hasznald azt. -
Hani
aktív tag
Hümm.
És mit szólnál ilyesmihez?
(Persze a pontok nélkül - azok csak ''távtartónak'' vannak ott.)
Procedure TForm1.SajatEvent(Sender :Tobject);
Begin
... Edit2.Text:='a';
End;
Procedure TForm1.Button1Click(Sender: TObject);
Begin
... Button2.OnClick:=SajatEvent;
End;
Egy próbát megér.
Esetleg a SajatEvent után berakhatod zárójelbe a Sender-t. -
lao ce
aktív tag
ertem en: a kezdet nem konnyu.
mindenkeppen azt gondolom, hogyha nehez hosszabb angol szoveget ertelmezned (senki sem szuletik ugy), akkor erdemes lenne venned magyar nyelvu programozasi alapokkal foglalkozo konyvet. ha az alapok megvannak (nem olyan veszes, szerintem az egesz 2-3 het olvasgatas talan), akkor lehet egy delphis konyvet venni.
nem bantasbol irom hanem segitsegkent, hogy senki nem fogja tudni tizezer problemadat megvalaszolni sem itt sem mashol, csak te magad. viszont ha a konyveken atragtad magad, gyorsabban fogsz tudni haladni mint mindig varni hogy valaki valaszol, azt nem erted, akkor visszkerdezel arra megint varsz stb.
ezt a sort tedd egy button onclick esemenyebe.
ShowMessage( ' ArcSin-je az EditBox ertekenek = ' +
...FloatToStr (
......RadToDeg (
.........ArcSin (
............StrToFloat( Edit1.Text )
.........)
......)
...)
+ ' fok.' );
nem probaltam ki, de gondolom megy persze a pontok nelkul... es persze csak remelni tudom egy ez kell. -
lao ce
aktív tag
kedves yksz
eloszor mit akarsz vegrehajtani? az arcsin-t igaz?
masodszor?
a degtorad-ot? nem, hanem a radtodeg-et.
tehat az arcsin-nek kell a belso fuggvenynek lennie es a radtodeg-et hasznald kivul.
szerintem olvasd el a help-et ami ezekhez van irva es probald megerteni mit is csinalnak a fuggvenyek. -
lao ce
aktív tag
hat, mint a legtobb ma hasznalatos nyelvben, vannak konverzios fuggvenyek.
ezeket erdemes attanulmanyozni a helpben (csak f1 a delphiben hogy feljojjon a help aztan copy paste a kivant sort a masodik vagy harmadik tab fulecske oldalan):
Floating point conversion routines
Numeric formatting routines
Type conversion routines -
KovacsUr
addikt
Az ArcTan() egy lebegőpontos számot vár (a szöget radiánban), nem egy egész számot (gondolom, szögfokot), amivel te eteted.
[Szerk.]
Hopp, illetve nem egészen,
arkusz tangensről van szó, nem figyeltem, de gyanítom, akkor is az a gond, hogy te lebegőpontos számot szeretnél átadni, viszont egészet adsz, továbbá egészre csonkítod az ArcTan visszatérési értékét is (ami viszont valóban egy szög lenne radiánban 
). -
lao ce
aktív tag
hat, hogy vannak letarolva a kepeid (image, imagelist, vagy van valami strukturad)?
vegyel fel egy valtozot a unitodba es leptesd a timer proceduran belul, aztan annak megfeleloen ahogy all a kulonbozo kepeket rakd ki -attol fuggoen hogy mi a valasz az elso kerdesemre. mikor a szamlalo tullepi a kepeid szamat akkor nullazd.
, a tömörítéses dologról tudsz még vmt mondani?
arkusz tangensről van szó, nem figyeltem, de gyanítom, akkor is az a gond, hogy te lebegőpontos számot szeretnél átadni, viszont egészet adsz, továbbá egészre csonkítod az ArcTan visszatérési értékét is (ami viszont valóban egy szög lenne radiánban 
).
Új hozzászólás Aktív témák
Hirdetés
- Magga: PLEX: multimédia az egész lakásban
- NVIDIA GeForce RTX 5080 / 5090 (GB203 / 202)
- Hosszabb bemutatót kapott a Borderlands 4
- Genshin Impact (PC, PS4, Android, iOS)
- Windows Insider Program
- Autós topik
- Nagyrobogósok baráti topikja
- Milyen okostelefont vegyek?
- AMD Radeon™ RX 470 / 480 és RX 570 / 580 / 590
- Mibe tegyem a megtakarításaimat?
- További aktív témák...
- BONTATLAN Új Iphone 16 PRO 128Gb - 1TB Független 1év Apple GARANCIA Deák Térnél Azonnal Átvehető.
- Új Bontatlan Mac Studio M4 Max 2025 14cCPU /32cGPU / 36GB RAM / 512GB SSD - Azonnal Átvehető Deák.
- BONTATLAN Új Iphone 16e 128-512GB 1év APPLE garancia gyári független Deák AZONNAL Átvehető Deák térn
- ÚJ bontatlan S9 45mm Silver Stainless steel Cellular milanese fémszíj 199.900 azonnal átvehető Deák
- ÚJ kipróbálásra felbontott MacBook Pro 16 M4 Pro 14CPU/20GPU 24GB/512GB SSD Magyar billentyűzet Azon
- Csere-Beszámítás! Sapphire Pulse RX 9070 XT 16GB Videokártya! Bemutató darab!
- Telefon felvásárlás!! Samsung Galaxy S23/Samsung Galaxy S23+/Samsung Galaxy S23 Ultra
- AZONNALI SZÁLLÍTÁS Eredeti Microsoft Office 2019 Professional Plus
- Telefon felváráslás!! Xiaomi Redmi Note 11, Xiaomi Redmi Note 11 Pro, Xiaomi 11 Lite
- ÁRCSÖKKENTÉS Panasonic Viera 37" TH-37PV8P plazma TV eladó (2 HDMI)
Állásajánlatok
Cég: CAMERA-PRO Hungary Kft
Város: Budapest
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest