- Gaming notebook topik
- AMD K6-III, és minden ami RETRO - Oldschool tuning
- A Windows 11 lett az úr az asztali PC-k piacán
- AMD Ryzen 9 / 7 / 5 7***(X) "Zen 4" (AM5)
- Milyen asztali (teljes vagy fél-) gépet vegyek?
- AMD Ryzen 9 / 7 / 5 / 3 5***(X) "Zen 3" (AM4)
- Vezetékes FEJhallgatók
- OLED TV topic
- Hobby elektronika
- Apple MacBook
Új hozzászólás Aktív témák
-
Butcher77
csendes tag
Sziasztok!
Kéne egy kis delphi segítség de ha lehet úgy hogy előtte tesztelitek otthon
mert már a sok találgatásból eddig nem lett megoldás:adatbázisból kell quickreporton keresztül nyomtatási fileokat csinálni.
ami egyszerű lenne ha csak egy fajta papírra kéne nyomtatni minden eggyes rekordot.A feladat az lenne, hogy minden jelölt rekordot mindig egy megadott nem alapértelmezett papírra nyomtasson.
Gyakorlati példa:
Adatbázis táblája gí néz ki
nev életkor cipőméret
béna 21 34
atis 22 36
joli 44 39ebből a három rekordból mondjuk a joli nevezetű rekord sárga papírra menjen a többi fehérre
a gyakorlat miatt HP nyomtatókat használjatok ahol a sárga papír COLOR tálcába a fehér pedig DEFAULT tálcába kerül.Kíváncsi vagyok kinek lesz meg a megoldás
ja igen nem mehet közvetlenül a nyomtatóra a nyomtatás hanem file-ba kell hogy nyomtasson.Előre is köszönök minden segítséget...
-
#1597
kicsitomi88
őstag
Kkocos
#1596
kicsitomi88
őstag
-
Szisztok
Delphiben szeretnék írni egy kis chatelős progit. De sehogy sem tudok üzenetet küldeni.
TCPSERVER
TCPCLIENT
-el próbálkoztam. Tudna valaki egy példaprogramot adni? -
Meme
aktív tag
Sziasztok!
Keresek olyan fősiskolást/egyetemistát vagy unatkozó informatikust, aki tud nekem segíteni, illetve elkészíteni Delphi-ben egy nyilvántartó/számlázó programot.
Magam is meg tudnám csinálni, de kicsit sietős lett a dolog.
Némi pénzmag is van a dologra.
Egy iskolásnak még jól jöhet egy kis plusz bevétel....Privátot küldjön akit érdekel eseteleg.
( Kicsit konkrétabban: 4-5 adatbázis kell kezelni, tökéletes bolondbiztonsággal, strukturát és a kinézetet megcsinálom, egyedül a programozás részéről kell a help)
Üdv!
-
tkazmer
addikt
elnézést az off-ért, de szükségünk lett egy programra, találtam is egy programozót (úgy néz ki), de nem ismerem az árakat.
a feladat kb abból állna, hogy képeket kellene feltölteni egy szerverre, azok tulajdonságait pedig adatbázisba(mysql) beírni, valamint a képekhez gyűjteményt létrehozni (szintén egy új sor bevitele az adatbázisba néhány felhasználótól megkapott adat alapján.). ezen kívül egy kis, msn-hez hasonló reklámfelület elhelyezése fontos lenne. fontos a viszonylag jó grafika, de az elemeket és az elrendezést a grafikusunk megtervezné.
néhány apróbb extra (folyamatsáv, idővisszaszámlálás, kapcsolat megszakadása esetén a feltöltés folytatása, stb.) is kellene
milyen értéket képviselhet egy ilyesmi tulajdonságokkal rendelkező szoftver? -
Seszo
csendes tag
Sziasztok. Szuksegem lenne 1 kis segitsegre.
Adott egy parallel port + egy mikrokapcsolo. A kerdesem az lenne, hogy szerintetek hogy tudnek a mikrokapcsoloval barmit is vezerelni a gepen. A parallel port irasat/olvasasat mar megoldottam, mar csak az erteket kene valahogy befolyasolnom a kapcsoloval.Elore is koszi a segitseget ha valakinek van valami otlete.
-
balint87
csendes tag
Sziasztok!
Regisztraltam a Deplhi 7esemet (codegear.com) de megsem tudom leszedni a 7.1es frissitest mert azt irjak hogy van accountom de nincs regisztralt termekem alatta...pedig amikor ramegyek a regisztralt termekeimre akkor ottvan...szoval nemertem...a baj pedig az hogy felraktam a dephihez a MySQLes komponenst de hianyzik valami dbrtl70.bpl fajl ami ha jol bongeszgettem akkor a 7.1es update-el telepul...nem tudnatok nekem segiteni? tud vki vmi helyet ahonnan ezt a filet vagy az update-et le lehet szedni? nagyon kellene, jovo heti orara kene gyakorolnom
...koszi... -
#1583
LordGyurex
csendes tag
LordGyurex
csendes tag
hi!
remélem valami delphi guru rám mosolyog és segít egy picit
hely hiányában nem írom le, hanem belinkelem a problémámat:előre is köszi ha valakinek van valami épkézláb ötlete, nekem sajna már lövésem sincs
-
Gyuri16
senior tag
válasz
Gyuri16
#1581
üzenetére
latom sajnos nem sokan foglalkoznak ezzel, de azert leirom mire jutottam.
az indy projekt hivatalos oldalarol letoltottem a demo programokat, azok kozul is a IdTCPDemo volt az erdekes, ahol erthetoen meg van irva a program.sajnos a masodik problema meg mindig megoldatlan ( a peldaprogram is hasonlo hibat eredmenyez). Probalta mas is ezt a demot? (neki is ilyen hibat okoz?)
-
Gyuri16
senior tag
válasz
Gyuri16
#1580
üzenetére
vegulis feladtam a tcpclient hasznalatat, most az indy komponenseket hasznalom (idTCPServer, idTCPClient) es a kommunikaciot egesz jol sikerult megvalositanom, vagyis majdnem:
1, az egesz dolog egy otodolo jatekhoz van, hogy lehessen jatszani halozatban (nem nagy dolog, de suliba projektnek lesz..), szoval itt ugye kezd a szerver, majd a kliens jon stb, igy mindig varnak egymasra. ha kliensel kuldok valamit szervernek azt szepen megkapja, majd ott vissza tudok neki kuldeni, kerdesem az, hogy hogy hogyan tudok a commandHandlereken kivul kuldeni valamit a kliensnek.
2, szituacio: szerver elindit, kliens csatlakozik, szerver kikapcsol kliens disconnectel. minden szep, te a szerver nem tud rendesen megszunni, dob egy "terminate thread timeout" hibat.. hiaba csinaltam egy kulond reszt a formdestroyba: idTCPServer1.ThreadMgr.TerminateThreads; aztan meg idTCPServer1.active:=false, igy is kidobja az errort..remelem ezzel a modernebb komponensel tudtok majd segiteni
-
Gyuri16
senior tag
egy kis segitseget szeretnek kerni
halozaton szeretnek adatokat kuldozgetni, tcpclient es tcpserver komponenseket hasznalom. sikerult megoldanom a client->server kuldest, de forditva nem akar menni.. szoval kerdes az, hogy hogyan kell serverrol kuldeni valamit (mondjuk siman sendln vel) es aztan azt a kliens oldalrol fogadni (ha valakinek van veletlenul osszedobva egy egyszeru programja amiben ez mukodik nagyon megkoszonnem, ha megosztana velem).. legnagyobb gondom az, hogy nincs ezekrol a komponensekrol semmi a helpben (turbo delphit hasznalok), es neten is eleg keves a leiras -
bubinho
csendes tag
Vki tudna segíteni egy egyszerű kis programban? Kellene, hogy el tudjak menni ZH-t írni, de én nagyon nem vágom ezeket
Grazie 
:Deklaráljunk min néven függvényt, mely paraméterben átvesz egy vektort (tömb, egyforma
elemekkel) annak méretével együtt, majd nevében (min) visszaadja a vektor legkisebb elemét,
annak pozícióját paraméterben adja át.Program, mely "beolvas" eljárás segítségével bekér egy n.n méretű tömböt, majd a min fv
felhasználásával listázza a soronkénti minimumot. -
cidalain
veterán
üdv mindenki.
a problémám a következő:
van egy progi ami egy navigate ablakbam megnyit weboldalakat amiket akarok.
gombnyomásra az oldalon található képeket lementi a program mappájába.
eddig nincs is probléma.
(.... for k := 0 to WebBrowser1.OleObject.Document.Images.Length - 1 do ....)namost találkoztam olyannal, hogy a weboldalba az IMG tag után az src-nél nem konkrétan a képfájl hivatkozása van, hanem később javascripttel dobják be oda a képet. erre sajna nem megy a programom, és nem tudok továbblépni...
ismerem az kép IMG tagjének az ID-jét, és a forrásból kibogozható a javascript is. ami gyakorlatilag egy php oldal egy paraméterrel (gondolom valami olyan kódrészlet ami random dobja be a képeket, és kimenetként a php a képet adja)
tehát a végén elvileg <IMG id='pic' src='kep.php?kepid=123456789'> lesz, ha lefutnak a javascriptek.
de a forrásban ez ugye nem így van. mert valami 1×1 px-es gif van ott amit később íratnak felül a javascriptes betöltéssel. (a gifet lehúzza a jelenlegi progim) a kérdésem az hogy a teljes betöltődés után tudok e delphiből valahogyan javascripten keresztül hivatkozni, és átadni a delphinek mentésre.
mondjuk valami olyasmit hogy: document.getelementbyid('pic').src értékét átdobni (mert ez már a jó eredményt adná ki nekem) valahogy egy delphi változóba?
esetleg valami más megoldás? az oleobjectes is jó lenne ha tudnám hogyan kéne pontosan lehivatkozni az img taget az id-je alapján, mert próbálkozásaim során mindíg valami futási hiba jött létre...
köszi előre is, ha valaki tudna segíteni
-
WMI adatokhoz hogy tudok hozzáférni Delphi 7.0-alatt?
-
#1574
btotyi
tag
Steelheart
#1573
btotyi
tag
válasz
Steelheart
#1573
üzenetére
Nem az a final, van annál újjabb is de a lényegen nem változtat. Jogosultság, én is jártam már így de ott azért a hibaüzenetekből rá lehetett jönni. Attól még, hogy a mappa full joggal rendelkezik nem biztos, hogy a benne található fileok is. Én legalábbis így jártam. Mindenesetre hajrá
-
#1573
Steelheart
senior tag
btotyi
#1572
Steelheart
senior tag
Hát az a final, az enyém is. Hanem valahogy megcsináltam.
Fogalmam sincs, hogyan - már vagy tizadszer próbáltam meg ugyanazt megcsinálni ugyanúgy, és valahogy müxött. :\ Most meg hozzá nem nyúlok, a közeli winreinstallkor asszem másolom a registry-s beállítsokat
Köszi a segítséget, mert legalább tudom, hogy annyira nem bénázhattam el (Sztem vmi fájlrendszer-jogosultsági probléma lehetett, furcsa, mert minden érintett mappánál ''Mindenki'' teljes hozzáféréssel rendelkezik. -
#1572
btotyi
tag
Steelheart
#1571
btotyi
tag
válasz
Steelheart
#1571
üzenetére
Lehet
Az enyém 4.453-as build) -
#1571
Steelheart
senior tag
Steelheart
#1570
Steelheart
senior tag
válasz
Steelheart
#1570
üzenetére
Megpróbáltam szűz Winen szűz Delphi7-el, az eredmény, hogy most már feltelepíteni sem engedi, már a Compile-nál behozza ugyanezeket a hibákat. :S Létezik, hogy a Delphimmel van baj???
-
#1570
Steelheart
senior tag
btotyi
#1569
Steelheart
senior tag
Új projektnél sem működik, szóval... A forrás, ami van, elvileg teljesen jó, ahol sipákol, azok ugye azok a hívások, amiket nem ismer föl. De nálad ugyanaz a komponens van ugyanazokkal a fájlokkal, és működik...
A kiemelést amúgy megcsinálja még szerkesztőnézetben is, ami nekem elég is lenne, de nem tudom lefuttatni. (Meg azért idegesít is, hogy miazhogynem.) Még arra gondoltam, h esetleg azért vacakol, mert nem rendszergazdaként próbáltam; de nem, főrendszergazdaként ugyanez a helyzet. Ehh... Már nem tudok mire gondolni. Felteszem egy szűz Windowsra, jobbat nemtok. -
#1569
btotyi
tag
Steelheart
#1567
btotyi
tag
válasz
Steelheart
#1567
üzenetére
Vagy nézd meg, hogy a Project options/Directories Conditionalsban nincs benn véletlenül egy feltételes direktíva.
-
#1568
btotyi
tag
Steelheart
#1567
btotyi
tag
válasz
Steelheart
#1567
üzenetére
Nézd meg a forrást amit említ, hogy nincs e benne valami szemét.
Ui. Én tudom, hogy merre laksz Tőlem vagy 10 percnyire. -
#1567
Steelheart
senior tag
btotyi
#1566
Steelheart
senior tag
Ehh, köszi, de detto ezt csináltam, csak a lib hozzáadását elfelejtettem leírni :S Ezért nem értek semmit. Ráadásul friss Delphi... Egyszerűen nem tudom elképzelni, mi a rossz, de valahogy nem érzek rá késztetést, hogy saját soknyelvű scripteditort írjak... :\ Na, még próbálkozom. Akkor legalább tudom, hogy nem komponenstelepítésileg vagyok fogyatékos
-
#1566
btotyi
tag
Steelheart
#1565
btotyi
tag
válasz
Steelheart
#1565
üzenetére
Helló !
Most már kiváncsiságból töltöttem le és isntalláltam a SynEdit-et. kb. 20 mp alatt kelt életre.
1. letöltés
2. Külön könyvtárba kibont
3. packages\synedit_D7.dpk megnyit (D7 reklamál, hogy a .res filet nem találja, de létrehozza)
4. Compile/install
5. Tools/Environment options/Library alatt a Synedit\Source könytár hozzáad
6 Új project, a formra TSynEdit és TSynPasSyn lerak
Futtatás -
#1565
Steelheart
senior tag
Steelheart
senior tag
Hali, van itt vki, aki már telepített SynEdit komponenst Delphi7 Enterprise alá?
Vagy legalább el tudná nekem magyarázni, hogy kell...
Ehh, lehet hogy én vagyok gyík, de egyszerűen nem sikerül rendesen feltelepítenem. (SourceForge-ról szedtem ugye, szal újabb verzió.) A weben nem találtam hasonló, megoldott hibára, vagy kész installeírásra. A komponensek bejönnek 2 új fülre, a formba betett TSynEditen már tudom színezni is a szöveget, de futtatáskor a SynEditWordWrap.pas fájlban egy kiló hibát meg ismeretlen cuccot talál.
--------------------------------
[Error] SynEditWordWrap.pas(55): Package unit 'SynEdit' cannot appear in contains or uses clauses
[Error] SynEditWordWrap.pas(86): Undeclared identifier: 'ISynEditBufferPlugin'
[Error] SynEditWordWrap.pas(94): Undeclared identifier: 'TCustomSynEdit'
[Error] SynEditWordWrap.pas(184): Operator not applicable to this operand type
[Error] SynEditWordWrap.pas(199): 'THEN' expected but identifier 'CharsInWindow' found
[Error] SynEditWordWrap.pas(209): Undeclared identifier: 'aPos'
[Warning] SynEditWordWrap.pas(209): Comparing signed and unsigned types - widened both operands
[Error] SynEditWordWrap.pas(211): Missing operator or semicolon
[Error] SynEditWordWrap.pas(214): Undeclared identifier: 'Result'
[Error] SynEditWordWrap.pas(214): '(' expected but ':=' found
[Error] SynEditWordWrap.pas(215): Missing operator or semicolon
[Error] SynEditWordWrap.pas(215): Missing operator or semicolon
[Error] SynEditWordWrap.pas(215): Statement expected, but expression of type 'Integer' found
[Error] SynEditWordWrap.pas(219): Undeclared identifier: 'cLine'
[Error] SynEditWordWrap.pas(220): 'THEN' expected but identifier 'Row' found
[Error] SynEditWordWrap.pas(222): Missing operator or semicolon
[Error] SynEditWordWrap.pas(223): 'THEN' expected but identifier 'Row' found
[Error] SynEditWordWrap.pas(227): Undeclared identifier: 'cRow'
[Error] SynEditWordWrap.pas(227): 'DO' expected but identifier 'Row' found
[Error] SynEditWordWrap.pas(232): Missing operator or semicolon
[Error] SynEditWordWrap.pas(233): 'THEN' expected but identifier 'Row' found
[Error] SynEditWordWrap.pas(237): 'DO' expected but identifier 'Row' found
[Error] SynEditWordWrap.pas(390): Incompatible types
[Warning] SynEditWordWrap.pas(390): Comparing signed and unsigned types - widened both operands
[Error] SynEditWordWrap.pas(396): ';' expected but 'IF' found
[Error] SynEditWordWrap.pas(400): '.' expected but ';' found
[Error] SynEditWordWrap.pas(420): ')' expected but identifier 'Lines' found
[Error] SynEditWordWrap.pas(424): ';' expected but 'TRY' found
[Error] SynEditWordWrap.pas(432): Undeclared identifier: 'vRowEnd'
[Error] SynEditWordWrap.pas(436): Pointer type required
[Error] SynEditWordWrap.pas(439): Undeclared identifier: 'vRowMinEnd'
[Error] SynEditWordWrap.pas(439): Undeclared identifier: 'vRowBegin'
[Error] SynEditWordWrap.pas(439): Undeclared identifier: 'fMinRowLength'
[Error] SynEditWordWrap.pas(440): Undeclared identifier: 'vRunner'
[Warning] SynEditWordWrap.pas(441): Comparing signed and unsigned types - widened both operands
[Error] SynEditWordWrap.pas(443): Pointer type required
[Error] SynEditWordWrap.pas(443): Operator not applicable to this operand type
[Error] SynEditWordWrap.pas(455): Undeclared identifier: 'Editor'
[Error] SynEditWordWrap.pas(455): 'END' expected but ')' found
[Error] SynEditWordWrap.pas(456): Missing operator or semicolon
[Error] SynEditWordWrap.pas(456): Pointer type required
[Warning] SynEditWordWrap.pas(456): Comparing signed and unsigned types - widened both operands
[Warning] SynEditWordWrap.pas(458): Text after final 'END.' - ignored by compiler
[Hint] SynEditWordWrap.pas(95): Private symbol 'fMinRowLength' declared but never used
[Hint] SynEditWordWrap.pas(97): Private symbol 'fBreakChars' declared but never used
[Hint] SynEditWordWrap.pas(100): Private symbol 'GrowRows' declared but never used
[Hint] SynEditWordWrap.pas(102): Private symbol 'SetEmpty' declared but never used
[Error] SynEditWordWrap.pas(104): Unsatisfied forward or external declaration: 'TSynWordWrapPlugin.WrapLines'
[Error] SynEditWordWrap.pas(106): Unsatisfied forward or external declaration: 'TSynWordWrapPlugin.TrimArrays'
[Error] SynEditWordWrap.pas(116): Unsatisfied forward or external declaration: 'TSynWordWrapPlugin.DisplayToBufferPos'
[Error] SynEditWordWrap.pas(117): Unsatisfied forward or external declaration: 'TSynWordWrapPlugin.RowCount'
[Fatal Error] SynEdit.pas(997): Could not compile used unit 'SynEditWordWrap.pas'
-----------------------------------------------------------------------------
Nyilván rosszul csinálok valamit, de valahogy bonyolultabb a dolog, mint az egyfájlos kis komponensek, eddig meg max egy-két olyat tettem föl... Talán rossz csomagot szedtem be, nem tudom. (Bírom, mikor összeraknak egy ilyen bazi nagy és hasznos cuccot, és egy szem install-dokumentációt nem gyártanak hozzá...)
Úgy csináltam, h leszedtem a forrást a SourceForge-ról, kicsomagoltam egy külön mappába, aztán úgy telepítettem, hogy a SynEditPackagesSynEdit_D7.dpk fájlra duplán kattintottam, compile-install, s benyomta a komponenseket. De próbáltam a Delphiből közvetlenül is telepíteni, eredmény ugyanez. (Hehe láma vagyok az ilyesmihez, suliban csak alapszinten mutatják meg a Delphi kezelését... X.X)
Előre is kösz, meg bocs a hosszú cuccért... -
Antilop
csendes tag
Sziasztok,
Régebben készítettem egy programot Delphi alatt, amit a melóhelyen használnak. Egy sima egyfelhasználós adatbáziskezelő progi, ADO táblákkal, hogy ne kelljen BDE-t telepíteni. Hirtelen igény támadt a többfelhasználós megoldásra. Első ötlettől vezérelve feltettem az adatbázist a file-serverre, és több gépre is felraktam a programot, és ODBC-n keresztül ''megcímeztem'' a fileserveren lévő adatbázist. Végülis remekül működik, de sejtem, hogy nem ez a jó megoldás.
A következő kérdések fogalmazódtak meg bennem:
-Mennyire életképes ez a megoldás?
-Hogyan kell átalakítani a programot, ha azt akarom, hogy adatbázis szervert tudjon használni. -
qwartez
csendes tag
letöltöttem a trial delphi 7 -et. Nekem nincs semmiféle könyvem és nem akarok órákig keresgélni az interneten egy ilyen egyszerű program után. Teljesen hülye vagyok ehez! fogalmam sincs mi az a formcreate. nem tom mit kell csinálnom, mindig baja van hogy nincs main formja. pls leírnád hogy pontosan mit csináljak, hogy még én is megértsem. Egyépként abban a programban ahonnan futtatni akarom ezt az alkalmazást nem lehetséges, hogy mindenféle formokat hívjon be ilyesmi... csak annyit tud csinálni, hogy futtat egy .exe programot és át tud adni neki valami szöveget és azt várja, hogy egy .txt file megjelenjen teli sok url -el(akár könyvtár akár file). Bocsi, hogy ilyen nehézkes vagyok..
-
#1561
Tele von Zsinór
őstag
qwartez
#1560
Tele von Zsinór
őstag
válasz
qwartez
#1560
üzenetére
Innen tudsz leszedni próbaváltozatokat: [link]. Amúgy nem is kellett megvenni: régen a d6 personal ingyen letölthető volt, máig azt használom. Amúgy az általad kért proginak mondjuk lehet ez a FormCreate-je:
procedure TForm1.FormCreate(Sender: TObject);
var i: integer;
begin
if not OpenDialog1.Execute then
Halt;
for i := 0 to OpenDialog1.Files.Count-1 do
ListBox1.Items.Add(OpenDialog1.Files[ i ]);
if not SaveDialog1.Execute then
Halt;
ListBox1.Items.SaveToFile(SaveDialog1.FileName);
Halt;
end;
[Szerkesztve] -
qwartez
csendes tag
ööö.. nem úgy értettem.. nem a delphi 2007 -et akartam, nem is egy warezt, csak egy sima browse ablakot. Azt szerettem volna ha valaki leírja vagy elküldi nekem e-mailben egy ilyen programnak a forráskódját, vagy az ebből generált exe-t. De szerintem az előző üzenetem is érthető volt.
Amúgy nem hinném, hogy közületek mindenki megvette 20k-ért.... -
nszabolcs
tag
válasz
Tele von Zsinór
#1557
üzenetére
Tényleg. Erre nem is gondoltam. Kösz. Kicsit régen volt már hogy delphiben írtam programot...
-
qwartez
csendes tag
HELLO!
Én nem értek Delphi-hez. Illetve nagyon régen pascalostam, de azzal nem sokra megyek. Nekem egy olyan alprogram kéne ami képes tallózásra, szóval tulajdonképpen egy browse gomb. Kilehessen vele jelölni fájlokat mappákat(mint pl a neroban ki lehet jelölni dolgokat az íráshoz) ezeket az url-eket mondjuk egy txt-ben mentsen, bármien formában, tök mind1. Úgy hallottam ez delphi-ben nem annyira bonyolult. pls segítsen valaki. nagyon megköszönném. Ja és nincs Delphi fejlesztőm nem tom honnan lehet beszerezni ingynesen, így pls ha lehet az alprogramot .exe formában elküldené nekem valaki qwartez@freemail.hu-ra. Ha kell van egy tök jó execute parancsom amivel adatokat is tudok küldeni consolon. Előre is köszi aki segít nagyon kéne.. 
[Szerkesztve] -
nszabolcs
tag
Kösz!
Sikerült megoldanom.
Most azt nem tudom, hogy úgy vannak megadva nekem a számok, hogy pl. 33,81 és ezt ha átkonvertálom számmá, akkor 33-at ad vissza és nem 33,81, mert a pont helyett vessző van.
Valahogy meg lehet azt adni, hogy a számformátum xx,xx és ne xx.xx legyen? -
nszabolcs
tag
válasz
Tele von Zsinór
#1552
üzenetére
A dátum bekérés meg van, csak azt nem tudom hogy hogyan lehet a dátum alapján a jó könyvtárba belépni és ott file-t megnyitni.
-
cidalain
veterán
köcce
megy.
közben mondjuk megoldottam máshogy (csináltam egy batot a delphiből, és azt futtattam shellexecute-tal)
esetleg egy olyat szerinted lehetne, hogy ezt az exet a delphi fájlon belül egy másik frame-be futtassam, hogy a command line abba a frame-be nyilna meg, vagy emulálni valahogy egy command linet delphiben? -
cidalain
veterán
sziasztok kéne egy kis help.
van egy parancssoros program 100-féle kapcsolóval. ehhez akartam csinálni grafikus felületet, hogy egyszerűbb legyen indítani, ne kelljen kézzel dos-ablakba a kapcsolókat irogatni, és azokat mindet fejbetartani.
ezt a részét megoldottam delfiben, csak kattintgatni kell, hogy melyik kapcsolót akarom, stb.
ezt össze is teszi így a programom:
program.exe -akarmi -masodikopcio -kutyagumi
namármost ezt már csak futtatnom kellene. itt jöttek a problémák. ha csak imán a program.exe fájlt kéne kapcsolók nélkül akkor minden oké. így paraméterekkel együtt viszont rá sem bagózik. ShellExecute-tal próbáltam.
valami ötlet? -
#1546
_MaSTeRFoXX_
csendes tag
_MaSTeRFoXX_
#1545
_MaSTeRFoXX_
csendes tag
válasz
_MaSTeRFoXX_
#1545
üzenetére
Megoldódott...
Létrehoztam egy bitmapet a memóriában, majd ezzel dolgoztam, a legvégén raktam ki arra a képre amit látni is fogok
-
#1545
_MaSTeRFoXX_
csendes tag
_MaSTeRFoXX_
csendes tag
Sziasztok!
Olyan problémám lenne hogy adott egy tömb tele 8bites számmal (y érték. mondjuk 512db) (Soros porton keresztül érkezik). Azt kellene megoldani hogy egy bmp-ben ábrázoljam a pontokat. Az adatfogadással semmi gond nincs ott működik minden. Az ábrázolással van gond. Eddig úgy csináltam hogy értékenként kiolvastam a tömbből majd ábrázolgattam egy Timage-ben bitmap ként kezelgetve(az egymás után lévő pontokat vonallal húztam össze, moveto és lineto paranccsal ). Az a gond vele, hogy iszonyatosan lassú, és nagyon terheli a gépet. Belassul a többi program is a gépen. Ráadásul ezt a kirajzolást kb minden másodpercben legalább egyszer végig kéne vinni, persze minden rajzolás után (előtt) kitörölni(amikor az egész tömböt kiolvasta). Ezt eddig úgy csináltam hogy soronként rajzoltattam vele egy vonalat a háttér színével, tudom hogy ez nagyon ronda megoldás, de nem találtam jobbat.
Valaki tud erre a tömbből ábrázolásra valami kulturáltabb megoldást?
[Szerkesztve] -
meone
tag
Sziasztok
Egy kis segitség kéne vízsgához kell beurót bemutatni. Semmi ötletem nincsen, hogy hogy kéne megcsinálni őket.
A kérdések:
1.Írj egy rövid metódust az MDI alkalmazásodhoz, ami megnyit 5 ablakot, majd sorban aktívvá teszi őket 5-5 másodpercre!
2.Írj egy olyan ciklust, ami a főablak minden megnyitott gyerekablakát bezárja! A ciklusban használd az MDIChildCount függvényt!
3. Örököltess az MDIGyerek formból egy példányt, ez után írd úgy át a kódot, hogy a származtatott példány az MDIKeret származtatott példánya legyen!
4.Az előbbi feladatban kézzel származtatott osztálynak írj egy konstruktort, ami bizonyos tulajdonságokat adott értékekre állít be, ezután szúrj be egy új menüpontot a Fájl menübe, amire rákötöd újonnan létrehozott konstruktorunkat.
5.Írj egy osztályt, ami bemeneti értékként egy személy magasságát kéri centiméterben, majd visszaadja azt méterben!
Köszi. -
#1537
Rolly
veterán
Tele von Zsinór
#1536
válasz
Tele von Zsinór
#1536
üzenetére
tudom ezt be is állítottam, de mégsem rakja középre a szöveget
-
Tottone++
csendes tag
Sziasztok a kérdésem Delpihvel kapcsolatos, remélem tudtok segíteni, sürgős:
egy byte-orientált adatátviteli protokollhoz kellene Delphiben mindenféle adatokat byte-okra bontani:
- word
- double
- string
(Arról van szó, hogy AdvStringGrid-et használok, a stringekben lévő adatokat átalakítom, StrToInt meg StrToFloat-al, ahol kell, aztán tovább kéne bontani byte-okra)
A word azt hiszem működik alsó-felső byte maszkolással.
De hogyan lehet egy string adott karakterét kinyerni (karakterként és nem stringként!)?
PAnsiChar pointer?
És hogyan lehet 8 byte-os Double számokat byte-okra bontani?
Nagyon köszönöm a segítséget előre is! -
g4dg3t
senior tag
Sender parameter megadja a hivo objektumot, tehat (Sender as TEdit).xxx formaban el tudod erni a peldany osszes property-jet es metodusat.
(Sender as TEdit).Name-el kapod meg a peldany nevet...ezt hasznalhatod ha el akarod agaztatni.
pl.:
...
if (Sender as TEdit).Name = 'Size' then
... -
-
g4dg3t
senior tag
celszeru beszerezni egy normalis NumericEdit komponenst, de ha nem akarsz kulso stuffot es tenyleg nincs szukseged mas ficsorre akkor a TEdit.OnKeyPress esemenyet kezeld le az alabbi koddal:
const EDITMAXVALUE = 10000;
var tmpNum: integer;
begin
if Key in ['0'..'9'] then begin
tmpNum:=StrToIntDef((Sender as TEdit).Text + Key,0);
if tmpNum > EDITMAXVALUE then Key:=#0;
end
else
if Key <> Char(VK_BACK) then Key:=#0;
end;
[Szerkesztve] -
#1523
Rolly
veterán
Drótszamár
#1522
válasz
Drótszamár
#1522
üzenetére
de nekem olyan kéne, hogy 0-10000ig adhat be számokat a user, ahoz meg nem jó ez ahogy látom
-
#1518
Rolly
veterán
Tele von Zsinór
#1517
válasz
Tele von Zsinór
#1517
üzenetére
csak egy save, open dialog kell, meg egy asszem memo kell
-
yash
senior tag
Sziasztok!
Minimális segítségre lenne szükségem. Van egy kész forrás, a [link] címen. Ez egy delphi forráskod, kb 100 sor kód. Nos, ez egy plugin a Poptray nevü programocskához, ami annyit csinál, hogy a háttérben figyeli a leveleket, és ha jön egy levél, elkezdi villogtatni a Scroll-lock lámpát. Nos, mivel nincs delphi fejlesztőm, és nem is szoktam iylet, légyszi, vki irja át, hogy ne a scroll lock villogjon, hanem a NumLock! Minimális programozási ismerettel rendelkezem, mindössze pár szót kell kicserélni a forrásban, és leforditani, de nekem nincs hozzá környezetem, sem tudásom. Téynleg pofonegyszerü dolog, ha vki ráér 5 percre, légyszi csinálja meg nekem! A compile-t pedig küldje el nekem! yash (kukac) vipmail (pont) hu
Ha programocska pedig a http://www.poptray.org/ cimen érhetö el, ennek a plugin-je. Ingyenes, kicsike. Csak éppen a pluginja nem megfelelő számomra, és sajnos nem is konfigolható Ha vki konfigolhatóra megcsinálja, az nekem hab a tortán, de nem kérek iylet direktben! Nekem elég, ha a NumLock villog szépen.
Nagyon szépen köszönöm!
ui: azért fontos a lámpacsere, mert a notebookomon a scroll-lock nak nincs lámpácskája
[Szerkesztve] -
Speedo
tag
Hello !
Egy adatforgalom mérőt, figyelőt szeretnék írni, de még nincs ismeretem az ilyen irányú függvényekről, komponensekről ! Ha tudtok oldalt, doksit ahonnét képezhetem magam írjátok meg kössz ! (lényegében az aktuális feltöltési és letöltési sebbesség figyelése amit még nem tudok megvalósítani, torry-t nézegettem de lehet én vok a béna nem sokmindent találtam erről ott) -
prekox
csendes tag
A FindWindow csak akkor jó, ha van az ablaknak felirata, de amiket én keresek azoknak nincs felírata, vagy ha van, akkor az sűrűn változik. Ha az ablakokat tudnám azonosítani, akkor a GetWindowText függvénnyel le tudnám kérdezni a tartalmukat (feliratukat), ezek textboxok.
-
prekox
csendes tag
Sz'asztok!
Egy Windows-os program főablakának gyermekablakait szeretném lekérdezni (a handle-jük kellene)! A progit nem én írtam, csak értékeket szeretnék kimásolni belőle programból!
Valahogy biztos meg lehet csinálni, mert a Delphihez tartozó WinSight32 az megmutatja a gyermekablakok handlejeit, viszont ha a viszgált program valamiért újraindul, akkor a handlek megváltoznak és így a programom használhatatlan! (nincs szándékomban kártékony programot írni)
Császtok! -
-
olyan problémám van hogy bizonyos fájlokat szeretnék bezippelni, delphi alól. A kérdésem az lenne hogy ezt hogyan tudom megtenni. A zip tartalma egy wml fájl lenne meg egy könyvtár (Texture) amiben pedig képek vannak, s ebből kellene nekem egy zipet csinálnom aminek a kiterjesztése .wrz lenne.
A másik kérdés hogy hogyan tudok fájlokat kopizni egyik helyről a másikba, pl nekem imageben vannak a képeim s azokból bizonyos képeket a wrz-be kellene másolnom. -
lacko81
tag
válasz
Tele von Zsinór
#1501
üzenetére
Már sikerült megoldani. Egyébként van IntToBin függvény... bár nehéz előcsalogatni, de lehet, hogy nem mindegyik verzióban van. A bitműveleteket meg sikerült kikerülnöm stringműveletekkel. Azért köszönöm a válaszod... az assemblyre nem is gondoltam, pedig most, hogy mondod lehet, hogy könnyebb lett volna.
...koszi...
Grazie 
:
Fogalmam sincs, hogyan - már vagy tizadszer próbáltam meg ugyanazt megcsinálni ugyanúgy, és valahogy müxött. :\ Most meg hozzá nem nyúlok, a közeli winreinstallkor asszem másolom a registry-s beállítsokat 
Új hozzászólás Aktív témák
Hirdetés
- Tőzsde és gazdaság
- Gaming notebook topik
- Windows 11
- gban: Ingyen kellene, de tegnapra
- exHWSW - Értünk mindenhez IS
- AMD K6-III, és minden ami RETRO - Oldschool tuning
- A Windows 11 lett az úr az asztali PC-k piacán
- Milyen légkondit a lakásba?
- PROHARDVER! feedback: bugok, problémák, ötletek
- AMD Ryzen 9 / 7 / 5 7***(X) "Zen 4" (AM5)
- További aktív témák...
- HP EliteBook 840G6 ! AKCIÓ!!! a készlet erejéig!
- Kobo Aura Edition 2 (N236) 6" háttérvilágításos kijelzővel, 4 GB-os tárhellyel - jó állapotban
- HP ProBook 430 G8, 13,3" FHD IPS, I5-1135GU CPU, 16GB DDR4, 256GB SSD, WIN 11, 27% áfás számla, 1 év
- Playstation Portal - 3 hónap Bolti Garanciával
- BESZÁMÍTÁS! ÚJ AMD Ryzen 5600X 5700X 5800X 5900X processzor 3 év garancia 27% áfa termékbeszámítás
- BESZÁMÍTÁS! ASUS Z390 i5 9500 16GB DDR4 512GB SSD RTX 2060 Super 8GB Rampage SHIVA Thermaltake 500W
- AKCIÓ! Apple Macbook Pro 15" 2018 i9 9850HK 32GB 500GB 560X 4GB garanciával hibátlan működéssel
- Nvidia Quadro M2000/ M4000/ P2000/ P2200/ P4000/ P5000/ RTX 4000/ RTX A2000 / RTX A4000
- Több Lenovo Thinkpad x1 carbon gen 4 / 5 / 6 / 7 X1 Yoga gen3 6-9. gen i7, i5 procik
- BESZÁMÍTÁS! Gigabyte B650M R7 7700 32GB DDR5 1TB SSD RTX 5070 12GB BE QUIET! Pure Base 500DX 650W
Állásajánlatok
Cég: Promenade Publishing House Kft.
Város: Budapest
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest