- sziku69: Fűzzük össze a szavakat :)
- Luck Dragon: Asszociációs játék. :)
- Tomasz72: Ventilátor upgrade
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- sziku69: Szólánc.
- Brogyi: CTEK akkumulátor töltő és másolatai
- MasterDeeJay: H110-es lapban 10.gen Comet Lake működhet?
- eBay-es kütyük kis pénzért
- Parci: Milyen mosógépet vegyek?
- Mr. Y: Motoros sztorik #06
Új hozzászólás Aktív témák
-
#900
Attila1981
csendes tag
Attila1981
csendes tag
Van egy kis problémám! Elkészült a delphis programom! Vann benne adatbázis és videólejátszás. A videóbejátszás a Delphi Media Playerjával van megoldva. Elkészítettem a programom telepítőjét. A probléma csak akkor keződött mikor olyan gépre telepítettem ahol nincsen Delphi. Olyan gépen ahol van Delphi ott simán fut. Az adatbázist már megoldottam, de a Delphi Media Playerjával nemjutok semmire ugyanis, nem megy. Mit kell még csatolnom a telepítés készítésekor, és hová? Próbáltam betenni a telepítésbe a MPlayer.dcu és a MPlayer.res fájlt is, de így sem ment. Van még valahol valami tartézékai a Playernak.
Ha nem lehet így megoldani, a Windows Media Playerral hogyan kell meghívni gombnyomásra a videóbejátszást. Kérlek segítsetek!!!! -
#899
b14
senior tag
Drótszamár
#897
b14
senior tag
válasz
Drótszamár
#897
üzenetére
A read tudtommal egy karit olvas be bill.-ről, mert filenél azt csinálja.
-
#897
Drótszamár
őstag
kiskekes
#893
Drótszamár
őstag
válasz
kiskekes
#893
üzenetére
write - kiirja a szöveget
WriteLn - kiirja a szöveget, és sort emel
pl:
write(''a); write(''b'');
eredmény: ab
writeln(''a''); writeln(''b'');
eredmény:
a
b
A read meg a readln közötti különbségben nem vagyok teljesen biztos. Ha rossz, akkor majd kijavítanak:
read - beolvasás, <enter>-ig. Az enter nem kerül feldolgozásra. A köv beolvasásnál ez hibát okozhat
readln - beolvas 1 sor <enter>-ig. Az enter is feldolgozásra kerül, nem okoz később problémát
remélem érthető voltam.
[Szerkesztve] -
#895
corm
senior tag
Drótszamár
#890
corm
senior tag
válasz
Drótszamár
#890
üzenetére
Köszönöm, kiindulópontnak tökéletes!
-
kiskekes
csendes tag
Még a zárolt delphi topicban feltett kérdésemmel kapcs:
ha így kérem beolvasásra az adatokat:
write('muvelet:'); read(muv);
write('a='); read(a);
write('b='); read(b);
akkor rendesen műkszik és kér mindent, ha viszont így:
write('a='); read(a);
write('muvelet:'); read(muv);
write('b='); read(b);
akkor azt írja ki hogy muvelet:b=, és a muv értéket nem kéri be!!
Miért???? (a,b:real és muv:char) -
#890
Drótszamár
őstag
corm
#888
Drótszamár
őstag
Sorry, hogy csak most írok, de este közbejött valami.
Szal, ha a netről le akarod szedni a players.php oldalt, és csak bejelentkezés után tudod megtenni, akkor elősször be kell jelentkezni.![;]](//cdn.rios.hu/dl/s/v1.gif)
Menny el böngészővel a bejelentkező oldalra, és mentsd le a forrást, és kukkants bele. Ha minden igaz látni fogod, hogy mit post-ol a szervernek. Első lépésként neked is ezt kell majd tenni. A post elküldése után valszeg dob a szerver egy html oldalt, és az oldalhoz tartozik majd egy cookie. Ha a következő oldallekéréskor ezt a cookie-t is elküldöd, akkor a szerver tudni fogja, hogy már bejelentkeztél, és elküldi az oldalt amit kérsz. (különben azt küldené, hogy jelentkezz be, bla, bla, bla).
Ha így leszedted a players.php oldalt, akkor már csak le kell menteni a vinyóra (ez nem kötelező), és indulhat a szanaszéjjel elemzés. Mivel a php kódot a szerver sima HTML oldallá fordítja, így írnod kell majd egy rutint ami feldolgozza azt.
Mentsd le az oldalt a böngésződel, és nézd meg a szerkezetét. Milyen sorok, részek nem változnak, hogyan lehetne kinyerni a HTML kódból az infókat. Én sorrol sorra szoktam végigmenni, de ha sok a szemét, akkor keresek néhány nem változó pontot, ahonnan könnyen megtalálható az infó. (pl. a 124.<br> utáni sorban a 40. karaktertől kezdődik ami engem érdekel, és ''<''-ig tartt.)
Én a 6.0-ás Delphi HTTP komponensét szoktam használni. (pl http.get(''http://www.prohardver.hu/index.html''); ez letölti itt a ph-n az index.html-t)
Na ennyit nagy vonalakban. Ha konkrét kérdés van, akkor jöhet az is. -
#888
corm
senior tag
Drótszamár
#886
corm
senior tag
válasz
Drótszamár
#886
üzenetére
Adott egy netes focimenedzser játék.
Ennek van egy players.php oldala, ahol a játékosok adatai vannak. No én ezt akarom kinyerni. Azonban bekéne tudni jelentkezni, és nekem itt áll meg a tudományom Ha megvannak az adatok, onnan már boldogulok, a többi kérdés(milyen tárolási módszer...) csak a program optimalizálása miatt érdekes. dbf-ekkel viszonylag jóban vagyok, szépen betöltöm őket table-be, meg sql query és zsupsz már listázni meg szűrni is lehet, csakhát nem épp a legmodernebb megoldás. Aztán hasonló okok miatt az xml fileok feldolgozásával is találkoztam már, nagyon egyszerű könnyű kis ojjektumot találtam ezek kezelésére(neve most nemugrik be), feltételezem valami hasonló eetleg php-ra is van, bár az ugye nem annyira rendszerezett mint az xml... Ha mégsincs, akkor írok neki feldolgozó rutint
A lényeg azonban ez a cooke kezeléses dolog, amiről most kb halványlila gőzöm sincs, aztse tudom, milyen objektumhoz kéne nyúlni... -
corm
senior tag
És ha már kérdezek, legyen egyből kettő
php fileból szeretnék info-t kinyerni, erre is van valami olyasmi cucc, mint az xml fileok kezelésére?
Noés mégegy kérdés ráadásnak: ( )a kinyert infokat leis szeretném tárolni. Mi mostanában a legegyszerűbb adatbázis tárolási mód? Anno amikor még tanultuk a delphit akkor erre dbf fileokat használtuk, table-el meg mastersource-al stb. Ez még 4.0ban volt. Azóta ez gondolom már nem a legfolyékonyabb módja ennek.... -
corm
senior tag
Hali!
Olyasmit szeretnék csinálni, mint amit Drótszamár kolléga kérdezett a Bővebben: link-ben. Csakhogy én még nem tartok ott, hogy részletkérdést kérdezzek, igazából kiindulópont kéne, hogy merrefele érdemes elindulni, mert még csak hasonlót sem csináltam soha.
Előre is köszi a válaszokat!
[Szerkesztve] -
#880
_AnTi_
tag
Drótszamár
#879
_AnTi_
tag
válasz
Drótszamár
#879
üzenetére
Valóban! Ha FileMode:=0-val nyitom meg (csak olvasás
), akkor királyságos lesz! Ezer hála, hogy felhívtad rá a figyelmet! 
-
#877
Drótszamár
őstag
kacsa7
#876
Drótszamár
őstag
Lehet hogy a blockread csak a vinyókon, flopikon működik.
Esetleg próbáld meg a copy parancsot használni.
nem 100% hogy így kell csinálni:
exec (''copy x:\könyvtár\amit_masolni_akarsz.kit x:\konyvtar\ahova_masolni_akarod.fil'');
de lehet hogy kell még neki paraméter.
Ez tulajdonképpen az, mintha a parancssorban adnád ki a copy parancsot.
Ennek elvileg működnie kell. -
#875
btotyi
tag
Törzsfőnök
#862
btotyi
tag
válasz
Törzsfőnök
#862
üzenetére
Nézz körül a mutex-ek tájékán.
vagy nézd meg ezt : Bővebben: link
[Szerkesztve] -
kacsa7
őstag
Hali!
Valaki aki nagyon vágja a delphit az segíthetne. Egy olyan progit szeretnék írni ami fájlokat mozgat. Egyenlőre csak egy egyszerű progit, amit ha elindítok akkor abból a mappából ahonnan indítottam átmásolja az előre beállított fájlt, egy előre beállított helyre. Viszont fogalmam sincs, h. ezt hogyan lehetne kivitelezni, szóval h. milyen eljárásokkal meg egyebekkel. -
DBasseros
csendes tag
szasztok! lehet már volt ilyen kérdés de nem olvastam végig a topicot mert bealudtam volna rajta! ugyanis nagyon hosszú! szóval kérdésem a következő: valaki nem tud nekem magyar delphi 6 vagy 2005 használati útmutatót vagy e-book-ot adni? vagy egy linekt hogy honnan lehet ilyet szerezni? meg akarnám tanulni rendesen használni de nem akarnám rokonokat zargatni hogy tanítsák má meg! szóval ha valaki tud adni azt megköszönném!
-
Notes
senior tag
Sziasztok!
Report-ot gyártok éppen. Két Paradox táblából szedem ki az adatokat, két Query-vel (pl. Q1,Q2) Az a gondom, hogy (tudtommal) a QuickRep-nek csak egy DataSet jellemzője lehet, így az egyik Query nem érvényesül, csak amelyik ide be van állítva. A másikhoz tartozó QRDBText egyszerűen nem jelenik meg, illetve a QRExpr nullát ad vissza. Hogy lehet ezt megoldani? -
#865
Szalma
őstag
Törzsfőnök
#862
Szalma
őstag
válasz
Törzsfőnök
#862
üzenetére
(Gyors és egyszerű megoldás: indításkor exkluzív write-ra megnyit egy filet akárhol. Ha meg tudja nyitni, akkor futhat... Minden oprendszeren, minden helyzetben bolondbiztos megoldás.)
Szeretettel:
Szalma -
#864
Hani
aktív tag
Törzsfőnök
#863
Hani
aktív tag
válasz
Törzsfőnök
#863
üzenetére
Huhh, valami runonce, vagy oneinstance volt... nem emlékszem, de megpróbálom előkeresni.
Addig egy alternatív megoldás: nézd meg programindításkor, hogy van-e már ilyen néven futó alkalmazás.
Ehhez a #550 körül találsz segítséget. -
#863
Törzsfőnök
tag
Törzsfőnök
tag
Látom pang ma ez a téma.
-
#862
Törzsfőnök
tag
Törzsfőnök
tag
Delphivel fejlesztek egy alkalmazást. Azt szeretném megoldani benne, hogy ne lehessen elindítani ua. az alkalmazást mégegyszer. Tudom, hogy meg lehet valahogy csinálni, csak nem tudom hol keressem, milyen néven keressem a helpben.
Hogyan lehet azt leellenőrizni, hogy már fut-e annak az alkalmazásnak egy példánya?
Na kiváncsi vagyok ki mit tud erre mondani .
Ha már kérdezték, akkor linket adjatok oda thx.
[Szerkesztve] -
Hani
aktív tag
Hello mindenkinek.
Buggyant kérdésem lenne, mert nem feltétlenül a delphi a megfelelő nyelv erre... de nem lehetne valahogy implementálni egy tárcsázóprogramot delphiben?
Egy rakás időmet elveszi, hogy naponta fel kell hívnom xx telefonszámot a régi partnercégek számai közül, hogy létezik-e még - és ha kicsörög, akkor tenni mellé egy pipát (lol). Ezt szeretném gépesíteni kissé.
Ha valakinek van valami ötlete, ne kíméjen : )
Köszönöm, előre is. -
#859
lao ce
aktív tag
Drótszamár
#858
lao ce
aktív tag
válasz
Drótszamár
#858
üzenetére
hmmm. elegans.
-
#854
lao ce
aktív tag
Drótszamár
#853
lao ce
aktív tag
válasz
Drótszamár
#853
üzenetére
ki lehet 'hamozni'? a vegen meg elriasztod a lelkeseket
ExtractFileDrive (filaneme)
vagy ha tobb minden kell, akkor:
ProcessPath(selectedFile, drive, path, fileName) -
#852
Drótszamár
őstag
raven10011
#851
Drótszamár
őstag
válasz
raven10011
#851
üzenetére
Form1
...
public
{ Public declarations }
end;
var
form_1_valtozoi
implementation
uses form2_neve; (amilyen névvel a vinyóra mentetted pl: u_form2)
--------------------------------------------------------------------------------------
Form2
.....
public
{ Public declarations }
end;
var
valtozo1 : integer;
implementation
------------------------------------------------------------------------------------
Utána a változót simán valtozo1 névvel éred el, mindkét formról.
[Szerkesztve] -
#851
raven10011
senior tag
raven10011
senior tag
Sziasztok!
Lenne egy kérdésem:
Hogyan kell deklarálni egy változót, ha azt másik form-ról is el tudjam érni? -
sarti
csendes tag
A delphiben van egy olyan parancs, ami megadja az éppen futó alkalmazásod elérési útvonalát. Ha a CD-ről indítod a programodat, akkor az kell neked. Talán getcurrentdir (aplication.exename) . Ez kell értékül adni egy változónak. Abba kerül az útvonal, aztán már kedved szerint lecsupaszíthatod a kívánt szintig, egészen a gyökérig. (Ha a cd-n lévő progi a cd gyökeréből indult, akkor valami ilyesmit ad vissza:d:\progi.exe Nincs előttem a delphi, de talán segítettem.
[Szerkesztve]
[Szerkesztve] -
wolffy
aktív tag
Köszi a hozzászólásokat, most már sikerült a fájlindítás, azonba egy újabb problémába ütköztem. Annyira felbuzdúltam a dolgon, hogy CD-re akartam készíteni egy apró programot amin gombok vannak, s annak megfeleően, hogy melyikre kattint a user, más-más dolgot indít el a CD-ről.
A bökkenő csak az, hogy adom meg a CD meghajtó elérési útvonalát, mert az ahány gép annyi féle meghajtóbetűjel lehet. Nem olyan fix dolog mint a C:\
HTML-nél még orvosolható a probléma, de az módszer (meghajtóbetűjel helyére két pontot írok) nekem nem működött Delphiben. -
_AnTi_
tag
Valószínűleg egy kis tökéletesítésre szorul, de ezen el tudsz indulni. Egy edit mezőben van a futtatandó program elérési útja és neve.
implementation
uses shellAPI;
{$R *.DFM}
procedure TForm1.Button1Click(Sender: TObject);
var
startupinfo : Tstartupinfo;
processinfo : Tprocessinformation;
command : array [0..512] of Char;
success : boolean;
begin
strpcopy(command, edit1.text);
fillchar(startupinfo, sizeof(startupinfo), #0);
startupInfo.wShowWindow:=SW_SHOWNORMAL;
startupinfo.cb:=sizeof(startupinfo);
startupinfo.dwFlags:=STARTF_USESHOWWINDOW;
Success:=CreateProcess(nil, command, nil, nil, false, CREATE_NEW_CONSOLE or NORMAL_PRIORITY_CLASS,
nil, nil, Startupinfo, Processinfo);
{ if success then
label2.Caption:='Minden ok!'
else
label2.Caption:='Valami nem jó!';}
end;
Sok Sikert! -
net84
őstag
hűha! egyből a közepébe!
vagy keresel egy előre megírt Joy port (vagy párh.port) vezérlő progirészletet, vagy fogod és megírsz egy lekérdező ''algoritmust''
oszt onnantól meg meg már sima kiválasztásos rendszerbe (if) megírod, hogy mire mit csináljon. A nehézség a Joy-nál az, hogy potival működik, és elég nehéz meghatározni, hogy mekkora mozgatásra fog működésbe lépni, mivel az lpt port 0 és 1 logikai értékekre képes a beviteli lábakon is...
OPPÁ! nincs senkinek pdf-je Delphi6-hoz??? -
wolffy
aktív tag
Sziasztok!
Nemtom valaki tudna-e nekem segíteni. Delphiről van szó, de bizony elég kezdő vagyok. Az érdekelne, hogy egy gomb OnClick eseményére milyen paranccsal (vagy egyéb más módon) tudom beállítani azt a funkciót, hogy elindítson egy adott elérési útvonalon található *.exe fájlt.
Köszi a segítséget. -
gammar
csendes tag
Valaki segitsen, rakotottem egy regi joystickot a parhuzamos portomra,
delphiben vagy barmiben, hogyan lehetne ezzel komunikalni, tehat ha en a joystickrol kuldok egy jelet akkor azt kezeljem, hogy mittomen jelentse azt mitha egy space nyomtam volna. vagy vmi doksija ha van valakinek ezzel kapcsolatosan. -
Szalma
őstag
válasz
Incognito
#828
üzenetére
(Karakteres felület kell? Akkor inkább a legutolsó BP7-et javaslom. Delfivel küzdeni kell a jó karakteres felülethez.
BorlandPascal7 tök jól megy win alatt és egy kis TurboPascal-os múlttal el lehet vele boldogulni...
Számlázó program: a Számadó-nak van egy win alatt futó teljesen ingyenes (apeh nyilatkozatos), rendszeresen frissített programja...)
Szeretettel:
Szalma -
gone
csendes tag
Sziasztok!
A 812-es levelemhez hozzáfűzném:
Természetesen nem ezt a primitív dll-t írtam meg és szeretném excelből meghívni, ezt csak azért írtam, hogy a meghívás módját lássam belőle, vagy valamit, amiért nem tudok egy dll-file-t excelből használni.Két cella összeadására senki se használ excelből dll-t .ÉN SE! Ha valaki csinált már ilyet és tudna segíteni, akkor azt megköszönném.
Üdvözlettel Gone -
lao ce
aktív tag
kedves szalma
szerintem egy haromszog miatt azzal nem kell megkuzdeni, csodalkoznek ha latni lehetne kulonbseget. inkabb ugy irom: elegge biztos vagyok benne hogy az adott feladatban a double buffering megoldja a problemat, mig az erase nem jatszik szerepet. de tevedhetek.
amugy a kuzdelem kb ennyi lenne ha jol sejtem:
private
procedure Kuzdes (var Msg: TWMEraseBkgnd); message WM_ERASEBKGND;
...
procedure TForm1.Kuzdes (var Msg: TWMEraseBkgnd);
begin
Msg.Result := 1;
end;
amit azert nem neveznek kuzdelemnek. -
Szalma
őstag
(Továbra is WM_ERASEBKGND kezelést látom a kulcsnak. A hátérben rajzolás sem rossz poén, de akkor is meg kellene küzdeni a frissítéskor adódó felesleges újrafestéssel... WM_ERASEBKGND és Google -> Bővebben: link )
Szeretettel:
Szalma -
#822
Szalma
őstag
Drótszamár
#821
Szalma
őstag
válasz
Drótszamár
#821
üzenetére
(Ha a webcam directshow-n keresztül támadható, akkor inkább csinálj rá egy saját capture rutint. Ha nem, akkor findwindow-val megkeresni a webcam ablakát, majd valahogy fókuszba hozni. Akár egy egérclikk elküldésével, ha a normál szetfókuszok nem mennek...)
Szeretettel:
Szalma -
#821
Drótszamár
őstag
Drótszamár
#818
Drótszamár
őstag
válasz
Drótszamár
#818
üzenetére
Valaki?
-
#818
Drótszamár
őstag
Drótszamár
őstag
Lenne egy kérdésem.
Egy webcam kezelő programban egy külső komponenst használok a webcam képének megjelenítésére. Innen lopom le a képet, feliratozom, és megy fel a tárhelyemre percenként. A probléma a következő: a külső komponens csak akkor frissíti a képet, ha a programon van a fókusz. Ha másik programra kattintok, akkor amíg újra rá nem kattintok mindíg ugyan azt a képet mutatja.
Erre tudtok esetleg valami megoldást? -
lao ce
aktív tag
en azt hiszem ezt ugy szoktak megoldani, hogy eloszor megrajzoljak a memoriaban amire szukseg van es aztan egy lepesben kirakjak a lathato teruletre.
szoval en ugy csinalnam hogy lenne egy image ami a haromszogemet tartja:
var
...triangle: tbitmap;
aztan ezt elokeszitenem a form create-ben:
...triangle := TBitmap.Create;
...triangle.PixelFormat := pf32bit;
...triangle.Width := Form1.Width;
...triangle.Height := Form1.Height;
es persze fel is szabaditanam a destroy-ban vagy close-ban:
triangle.Free;
a mousemove-ban meg eloszor visszaallitanam a 'szurket' a triangle image-ben(azaz torles)
...triangle.Canvas.Brush.Color := clSilver;
...triangle.Canvas.Rectangle (0,0, Form1.Width, Form1.Height);
aztan megrajzolnam a haromszoget a mar 'ures' kepben:
...triangle.Canvas.Brush.Color := clWhite;
...triangle.Canvas.Polygon([
......point(100, 500),
......point(300, 500),
......point(X, Y)
...]);
(az utolso sor X es Y koordinataja az egerpozicio, ami a mousemove procedure parametere)
vegul ugyanitt a mousemove-ban, a triangle nevezetu image tartalmat kikopiznam a form canvasara ezzel a konnyeden ertheto, minden igazi programozoba dns szinten oroklott utasitassal:
...BitBlt(
......Form1.Canvas.Handle,
......0, 0,
......Form1.Width, Form1.Height,
......triangle.Canvas.Handle,
......0, 0,
......srccopy
...);
jo szorakozast.
[Szerkesztve] -
-
Fifty
csendes tag
Hello!
A következő a kérdésem, (immár a megfelelő helyen) :
Delphiben írtam egy progit, ami a következőt csinálja: rajzol egy háromszöget, aminek két csúcsa rögzített helyen van. A 3. csúcsot az egérmutatóhoz rakja. Ezt a háromszöget valamilyen színnel ki is tölti, majd ha az egér megmozdul, akkor ugyanilyen háromszöget rajzol a régire, csak háttérszínnel, azaz letörli azt, és kezdődik az egész elölről. Nem is ez a gond, az egész tökéletesen működne, csak valahogy becsíkozódik a háromszög háttérszínű csíkokkal, egy pillanatig.
Próbáltam úgy is, hogy egy timerre raktam rá az egészet, és pl. 0,001 másodpercenként frissített, akkor is frankón mükszik, de egy kb. 1cm-es csík fut alulról felfelé szépen lassan a képernyőn. Kb. így néz ki az algoritmus, kisebb változtatással (a változók értékének megadásával kapcsolatban) :
procedure TForm1.Timer1Timer(Sender: TObject);
begin
f[1].X:=600;
f[1].y:=768;
f[2].X:=850;
f[2].y:=768;
canvas.Brush.Color:=clbtnface;
canvas.Pen.Color:=clbtnface;
canvas.polygon(f);
canvas.Brush.Color:=clgray;
canvas.Pen.Color:=clgray;
getcursorpos(f[3]);
canvas.polygon(f);
end;
Na ezt hogyan lehetne kiküszöbölni ???
Előre is hálás köszönetem minden válaszért ! -
gone
csendes tag
Sziasztok!
Írtam Delphiben egy dll-t amit delphiből meg is tudok hívni, de excel-ből szeretném elérni a dll-file-t!
pl:
matek.dll egy függvényt tartalmaz:
function osszead(a,b:real):real;stdcall;
begin
result:=a+b;
end;
Azt szeretném pl, hogy az A1-es és az A2 es cellában lévő számokat adja össze és az eredményt írja ki az A3-ba!
Ehez kérnék segítséget.
Excelben találtam a Hívás parancsot de nincs is ilyen fv-em!
Hívás(''matek.dll'',''osszead'',''EEE'',A1,A2) és ezt a A3-ba kéne beírni???
Mikor fog ez lefutni?? Minden újraszámolásnál?
A segítsége(ke)t előre is köszönöm!
Üdvözlettel Gone -
Szalma
őstag
(Kettő dolog: 3szöget akkor kellene rajzolni, ha változott az egérkurzor koordinátája... A másik pedig a WM_ERASEBKGND korrek kezelése lenne: akkor kell frissíteni a háromszög mögötti objektum felületét, ha arra tényleg szükség van. Amíg nem veszed kezelésbe a WM_ERASEBKGND üzenetet, addig a delfi minden egérmoccantásnál újrafesti a komponens felületét. (Ami itt nem lenne baj, de mégis javaslom a korrekt kezelését, később jól fog jönni.) A változás figyelése pedig elsődleges fontosságú.
Hajrá!)
Szeretettel:
Szalma -
#807
The TYPhoon
csendes tag
The TYPhoon
csendes tag
Sziasztok!
Hogy lehetne megoldani azt, hogy egy dinamikusan (futásidőben) feltöltött popup-menu elemére, ha rákattintok, akkor egy beviteli mezőbe kiíírja a popup-menu feliratát,
tehát az adott menüelem Caption-jét. Ezt sehogy sem tudom elérni.
Előre is köszi!
[Szerkesztve]
[Szerkesztve] -
Notes
senior tag
Köszi! Végre életet leheltél a fórumba!
Végül így oldottam meg (Thx to prog.hu community!):
Begin
Close;
Clear;
Add('SELECT *');
Add('FROM TranzTabla');
Add('WHERE (Datum>= :KezdDatum) AND (Datum<= :VegDatum)');
If LekerdFelhComboBox.ItemIndex>0 Then
Add ('AND (Felhasznalo= '+ Quotedstr(LekerdFelhCombobox.text)+')');
If LekerdPartnerComboBox.ItemIndex>0 Then
Add ('AND (Partner= ' + Quotedstr(LekerdPartnerCombobox.text)+')');
If LekerdCimletCombobox.Itemindex>0 Then
Add ('AND '+ VPDataModule.TranzTabla.Fields[(LekerdCimletComboBox.ItemIndex)+5].FieldName +' is not null');
Prepare;
ParamByName('KezdDatum').AsDate:=LekerdDatePicker1.Date;
ParamByName('VegDatum').AsDate:=LekerdDatePicker2.Date;
Open;
end;
end;
Ez egy DBGrid-re irányítva hibátlanul működik. De ha a Query-t egy Reportra teszem és annak az OnPreview eseményekor hívom meg a fenti kódot, akkor mindig csak a feltételeknek elsőként megfelelő rekord jelenik meg, de az annyiszor, ahány rekord megfelel az SQL statement-nek. Nem tudom ez így érthető-e?
Az egyik könyvben azt olvastam, hogy a Query-hez kapcsoljak DataSource-t is. Minek? Lehet közvetlenül is hivatkozni rá nem? -
_thomas_
tag
én még kiegészíteném azzal hogy adjuk meg rendesen a kép elérési útvonalát.
pl.: image1.picture.loadfromfile('d:\kep.bmp');
persze ha nem tudjuk előre ki hova másolja a proginkat akkor kérdezzük le a programunk elérési útvonalát és használjuk azt kiégészítve a kép útvonalával mert gondolom azt a progink könyvtárában tároljuk valahol.
ha meg nem akkor pl.: az opendialog segítségével egyszerűen be tudjuk tölteni a képet.
![;]](http://cdn.rios.hu/dl/s/v1.gif)
Ennek van egy players.php oldala, ahol a játékosok adatai vannak. No én ezt akarom kinyerni. Azonban bekéne tudni jelentkezni, és nekem itt áll meg a tudományom 
((BMF-NIK))
, vagy én vagyok nagyon béna.
! Ezt én sem tudtam... Ezúton kérdezném én is az okosokat, hogy a fentebb említett copy-n kívül mit lehet még tenni?
de mindegy.
Új hozzászólás Aktív témák
Hirdetés
- Kormányok / autós szimulátorok topikja
- Bemutatkozott a Poco X7 és X7 Pro
- Formula-1
- E-book olvasók
- Windows 11
- Élő adás Utazómajommal és Kerek Istvánnal az AI kapcsán
- Minden erejével a 2 nm-re fókuszál a Samsung
- Vicces képek
- Valós időben generálhatja a jövőben a GPU a fákat
- Autós topik
- További aktív témák...
- Asztali PC , i7 11700KF , RTX 3070 Ti , 32GB DDR4 , 512GB NVME , 2TB HDD
- Asztali PC , R5 5500 , RX 5700 XT , 16GB RAM , 256GB NVME , 1TB HDD
- ASUS TUF Gaming F15 gamer laptop
- X1 Yoga 8th 2-in-1 14" FHD+ IPS érintő i5-1335U 16GB 256GB NVMe ujjolv IR kam aktív toll gar
- Lenovo / SK Hynix 512GB M.2 NVME SSD 0 perces
Állásajánlatok
Cég: Promenade Publishing House Kft.
Város: Budapest
Cég: PC Trade Systems Kft.
Város: Szeged