Új hozzászólás Aktív témák
-
#950
Tele von Zsinór
őstag
God Vazzeg
#949
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.
-
#949
God Vazzeg
veterán
Tele von Zsinór
#948
God Vazzeg
veterán
válasz
Tele von Zsinór
#948
üzenetére
Ezt megtudhattuk volna ha átküldöd a forrást, és megpróbálom lefordítani
-
Tele von Zsinór
őstag
válasz
Tele von Zsinór
#940
üzenetére
Delphi újratelepítése nem segített
-
#947
Tele von Zsinór
őstag
God Vazzeg
#946
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.
-
#946
God Vazzeg
veterán
Tele von Zsinór
#945
God Vazzeg
veterán
válasz
Tele von Zsinór
#945
üzenetére
De különböző portokról jön a jel.. Vagy a driver intézi?
Ez az utp-s dolog akkor valszín a kábelezés csak.. Amúgy úgy néz ki az lesz hogy egy billentyűzet lesz szétszedve erre a célra és a billentyűk lesznek gombokra kivezetve.. Szerintem nem is rossz ötlet.. Szerinted?
Szerk: a különböző portot az usb bill-re értem.
[Szerkesztve] -
#945
Tele von Zsinór
őstag
God Vazzeg
#944
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. -
#944
God Vazzeg
veterán
Tele von Zsinór
#943
God Vazzeg
veterán
válasz
Tele von Zsinór
#943
üzenetére
Az hogy is műxik pontosan? Lehet hogy érdekelne az a megoldás is..
-
#943
Tele von Zsinór
őstag
God Vazzeg
#941
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
-
#942
God Vazzeg
veterán
God Vazzeg
#941
God Vazzeg
veterán
válasz
God Vazzeg
#941
üzenetére
Up, mer fontos!
-
#941
God Vazzeg
veterán
God Vazzeg
veterán
Hali Delphi tudorok!
Kellene egy kis segítség.. Lehetséges-e egy gépre 9-10 USB-s billentyűzetet rádugni, és progiból lekérdezni hogy melyik billentyűn melyik gomb lett lenyomva. Egy szavazó gépet kellene ily módon összerakni, pusziért megy a dolog, mielőtt felháborodás lenne.
Gyorsba kellene a válasz, esetleg támpont hozzá, hogy hogy kell lekérdezni hogy melyik billentyű dolgozik. Remélem nem túl bonyis
Thx mindenkinek
-
#940
Tele von Zsinór
őstag
Diskcopy
#939
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 -
Diskcopy
tag
válasz
Tele von Zsinór
#938
üzenetére
persze, nem úgy értettem, mert a kódrészlet teljesen jó. Ezért gondoltam, hogy valahol a komponensek körül kéne, hogy legyen valami változtatás. Véletlenül elállítottál valamit, ilyesmi.. vagy még az adatfeltöltési résznél. A baj az, hogy a kép amit linkeltél, nekem nem megjeleníthető, ezért nem is tudtam szemügyre venni az errort, így nem is tudok pontosat mondani... Hátha valakinek megjelenik..
Izé.. amúgy próbáltad Debug-Stepping-elni, egy watch kíséretében, amivel figyelhetnéd meddig jut el a ciklus? Az elején vagy a végén akad ki?
[Szerkesztve] -
#938
Tele von Zsinór
őstag
Diskcopy
#937
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 -
Diskcopy
tag
válasz
Tele von Zsinór
#936
üzenetére
Lehet hülye kérdés, de a StringGrid Enableden van? akkor szokott ilyen lenni
ja amúgy meg miért ciklusban törölgeted az első elemet?
StringGrid1.RowCount:=ListBox1.items.Count+1;
for i:=0 to ListBox1.Items.Count-1 do begin
StringGrid1.Cells[0,i+1]:=IntToStr(i+1);
StringGrid1.Cells[1,i+1]:=ListBox1.Items;
end;
ListBox1.Items.Clear;ha nem gépeltem el...
[Szerkesztve] -
#936
Tele von Zsinór
őstag
Diskcopy
#935
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 -
Diskcopy
tag
válasz
Tele von Zsinór
#934
üzenetére
Hello!
Gondolom normál ciklussal mész végig...
for r := 1 to StringGrid1.RowCount - 1 do StringGrid1.Cells[1, r] := IntToStr(r);
A listboxban vannak adatok? nem törlöd valahol? Gondolom egyel kevesebbet adsz ott meg mint a gridnél. Kicsit írd le bővebben, vagy nagyobb részét a kódnak. Valahol valamit beleírsz,amit nem talál a másikban. Listboxnak mennyi az items.countja? nincs benne a végén egy üres elem? akár egy szóköz. ilyesmire gondolok.. -
#934
Tele von Zsinór
őstag
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. -
#933
Steelheart
senior tag
Steelheart
#932
Steelheart
senior tag
válasz
Steelheart
#932
üzenetére
Úristen, lol, ekkora láma kérdést, mit amit írtam ide...
Ha még nem törölték:
Bővebben: link
Na most szégyenemben egy darabig ide sem írok... -
#932
Steelheart
senior tag
Steelheart
#931
Steelheart
senior tag
válasz
Steelheart
#931
üzenetére
Na jó, ezt kb megoldottam, de van még valami, amit nem tudok, még ez kéne hozzá. A prog.hu-t olvasgatva gyakran találkozom ilyesféle fájlútvonallal: 'C:\\\\Windows\\\\*.*'
Namármost én kipróbáltam a fájlkeresést szimpla \-el meg 4\-el is, ugyanazt az eredményt kaptam. Erre azt gondoltam, hátha a \\\\-al ki lehet hagyni néhány mappát az elérési útvonalból, de az újabb próba után rájöttem, hogy ökörséget gondoltam. Szal pontosan mire is való ez a \\\\ ? A választ előre is köszi
[Szerkesztve] -
#931
Steelheart
senior tag
Steelheart
senior tag
Nos egy másik programnál sajnos megint falba ütköztem... lehet hogy csak vályogfal, de én akkor sem tudom áttörni
Szal először is megkérdeném, hogy delphiben hogy lehet egy fájlra rákeresni, vagy vmi hasonló? Annyit tudok a fájlokról, hogy a nevükben van '#' karakter. Ugyanis egy olyan progit kéne írnom, amelyik egy adott mappán belül minden fájlt, aminek a nevében '#' van, legyen az akár almappákban, átmásol egy adott helyre, vagy legalábbis összegyűjti az elérési útjukat egy listába, listadobozba (ez utóbbi talán jobb is lenne).
[Szerkesztve] -
#930
Steelheart
senior tag
Drótszamár
#929
Steelheart
senior tag
válasz
Drótszamár
#929
üzenetére
Kösz, ez segített
Igazából a rutinokra voltam kíváncsi, a súgóból nem mindig tudom kivenni pontosan, mit is kell... még hozzá kell szoknom -
#929
Drótszamár
őstag
Steelheart
#928
Drótszamár
őstag
válasz
Steelheart
#928
üzenetére
Igen megoldható.
Pl a delphi 6.0-ban van ftp komponens. Pofon egyszerű a kezelése. egy fájlt feltöltése kb 8 sor.
ftp = az NMFTP komponens neve
ftp.Host:='szerver';
ftp.UserID:='user';
ftp.Password:='pass';
try
if not ftp.Connected
Then
Begin
ftp.Connect;
End;
ftp.Upload('c:\abc.jpg','fajlneve_a_szerveren.kit');
except
Begin
// HIBA
End;
end; -
#928
Steelheart
senior tag
Steelheart
senior tag
Egy egyszerű ftp kezelő - vagyis elég ha ftp-re feltölteni képes - progi készítésére lennék kíváncsi, megoldható-e ez egyáltalán delphiben? Remélem igen, sztem nem lehet nagy ördöngősség, csak egyelőre nem ismerem eléggé ahoz hogy meg tudjam csinálni. És ha igen, akkor milyen rutinokkal, komponensekkel? Előre is thx anak aki válaszol és segít
-
Diskcopy
tag
Én a helyedben fognék egy etherealt, vagy bármilyen http monitort, meg egy cookie editort és megnézném, hogy weben beloginolva pontosan mi történik.. minek küldi el, milyen cookiek jönnek, mi a célja...stb Meg az is segítene a 302-es hiba abszolut nem jó jel, nem jól adtad meg a webcímet, vagy a php nevét, vagy ilyesmi. megpróbálhatod azt is, hogy sima mem1.text:=idHTTP1.Get('www.akarmi.com/akarmi.php?param1=ertek (és jel) param2=ertek')-et csinalsz..
[Szerkesztve] -
-
Diskcopy
tag
Hello!
Alapból, ha az IdHttp-nek az allowcookies-e truera van téve, akkor egy cookiemanagerrel tárolni tudod a cookikat..(Indy miscben található a cookiemanager). És ha jól emlékszem, ez nem törlődik. tehát, ha az idhttpnél a cookiemanagernél beállitod, akkor az fogja kezelni a dolgot.. amúgy menet közben megnézheted pl a Memo1.Text:=IdCookieManager1.CookieCollection.Items[0].CookieText; dologgal a cookiet. Amúgy meg amit küld ha jól látom egy php session cookie. -
-
corm
senior tag
-
Diskcopy
tag
Hello! Ahogy a kódból kitűnik a start.phpnak kell elpostolni két dolgot. első: ilogin második: ipassword példa a postra:
var
data: TIdMultiPartFormDataStream;
begin
data := TIdMultiPartFormDataStream.Create;
try
{ Paraméterek megadása}
data.AddFormField('param1', 'érték1');
data.AddFormField('param2', 'érték2');
Memo1.Lines.Text := IdHTTP1.Post(
'http://webcím/script.php', data);
finally
data.Free;
A param1,param2 helyére te a ilogin-t meg az ipasswordot írod, az érték részére meg amit akarsz átadni értékként.
jah és persze uses IdMultipartFormData; is kell a unit uses részébe.
[Szerkesztve] -
#919
corm
senior tag
Drótszamár
#890
corm
senior tag
válasz
Drótszamár
#890
üzenetére
Hali!
Most jutottam el oda, hogy felinstalláljam a delphit, úgyhogy most folytatom a kérdezősködést
Szóval megnéztem a forrást meg az iny http komponensét(7es delphi van fent...) és az oldal mentés sikerült is, a post az mondjuk még nem Viszont az oldal forrásából nem teljesen világos nekem, hogy mit kéne postolni. meg az sem, hogy a post által visszakapott értékek hova kerülnek.
Így néz ki az ominózus html kód, leegyszerűsítve:
<form action=''start.php'' target=''_top'' method=''post'' name=''logform''>
Felhasználónév:
<input type=''text'' name=''ilogin''>
Jelszó:
<input type=''password'' name=''ipassword''>
<input type=''submit'' value=''Bejelentkezés''>
</form>
Most nekem mit kéne elpostolnom és hova kéne megkapnom az értékeket? Az indy httpjének 5 féle post-ja van. viszont sima http komponenst nem találtam így elsőre. -
#918
Diskcopy
tag
Attila1981
#917
Diskcopy
tag
válasz
Attila1981
#917
üzenetére
A dolog ott is ugyanaz...
begin
if RichEdit1.Modified then
if (Sender <> nil) and (Sender.HandleAllocated = True) and (SendMessage(Sender.Handle, EM_CANUNDO, 0, 0) = 1) then begin
SendMessage(ActiveControl.Handle, WM_UNDO, 0, 0);
statusbar1.text := 'undone';
end;
else statusbar1.text:='undo';
end; -
#916
Diskcopy
tag
Attila1981
#915
Diskcopy
tag
válasz
Attila1981
#915
üzenetére
Gondolom memoval csinálod magát a szerkesztést... Bővebben: link nézzd meg.
-
#914
Diskcopy
tag
Attila1981
#913
Diskcopy
tag
válasz
Attila1981
#913
üzenetére
Üdv!
Ha képeket kell betöltened, akkor miért nem használsz, mondjuk egy ImageListet, és akkor nem kéne kutatnod utánnuk, mert belefordulna az exe fájlba... Bővebben: link itt egy komplett példa rá, hogy kell gombbal használni, vagy csak simán. amúgy meg szerintem valahogy így kéne a shellexecute-t:
ShellExecute(Handle, 'open', PChar('notepad'), PChar('c:\test\readme.txt'), nil, SW_SHOW); Ha mondjuk notepaddel szeretnéd. Ha ez még mindíg nem az ami kell.
Amúgy meg openDialog-nál, savedialognál az Options részen ha lenyitod a + jellel, van egy ofNoChangeDir amit true-ra kell állítani.. Ha jól emlékszem ez akadályozza meg a könyvtár tényleges váltását.. Próbáld ki ezeket. -
#913
Attila1981
csendes tag
Attila1981
csendes tag
Megpróbálom összefoglalni:
Van egy szovegszerkeszto ablakom, és ha itt elmentem az irást txtként (csak txt-t adtam meg), egy másik könyvtárba (tehát nem abba a könyvtárba ahol az egész programom és reszei vannak) akkor , ha kilépek a szovegszerkeszto ablakból lefagy mert nem találja a gombokon levő képeket, háttérképeket stb.
De ha ugyanabba a mappába mentem el a txt-t ahol a programom található akkor megy minden jól! Tehát amint elmentem máshová abban a könyvtárban keresi az adatokat. Ezt már megoldotta a képekre.
public
workingDirectory : string;
end;
procedure Talap.FormCreate(Sender: TObject);
begin
workingDirectory:=extractfilepath(paramstr(0));
end;
....
okgomb.LoadFromFile(alap.workingdirectory+'kepek\okgomb.bmp');
Igy most már mukodnek a képek.
De van egykét fájlom amit igy nyitik meg gombnyomásra:
procedure TfrmdXXXXX.XXXXClick(Sender: TObject);
begin
ShellExecute(handle,nil, 'mappa\fajl.htm' ,nil,nil, SW_SHOWNORMAL);
end;
Ezt kellene megirnom valahogy ugy hogy a alap.workingdirectory benne legyen.
Mert más könyvtárba való mentés után ezek még nem mennek.
Kössz -
#912
Diskcopy
tag
Attila1981
#911
Diskcopy
tag
válasz
Attila1981
#911
üzenetére
Az a gond, hogy nem érteni pontosan mit akarsz, vagy csak túl reggel van.. de
‘xxx.workingdirectory+\mappa\fajl.kierjesztés’ itt a plusz jel nem jó helyen van.. amúgy meg aktuális könyvtárat lekérdezed így, var
dir : string;
begin
dir := GetCurrentDir;
end;
az már támpont. amúgy miért nem open/savedialoggal nyitod meg a filet.. kicsit részletesebben írd már le, mert én nem igazán értem mi a gond. -
#911
Attila1981
csendes tag
Attila1981
#910
Attila1981
csendes tag
válasz
Attila1981
#910
üzenetére
Már megoldottam, a hiba az volt hogy ha máshová mentettem a txt-t akkor nem talált vissza a projekt mappájába, azért keresett minden képet és adatot.
Már megadtam a képek, videok utvonalát ahol szükséges de a fájlokét nemtudom
Ezzel a paranccsal megnyitok egy fájlt.
ShellExecute(handle,nil, ‘mappa\fajl.kierjesztés’ ,nil,nil, SW_SHOWNORMAL);
Na most, nekem meg kell adni a könyvtár lekérdezést, hogy mi hol van
Pl.
....LoadFromFile := xxxx.workingdirectory+’kep.bmp’; - így megy a kép
Hogyan tudom megadni ugyanezt a fájl betöltésénél??
Így nem ment:
ShellExecute(handle,nil, ‘xxx.workingdirectory+\mappa\fajl.kierjesztés’ ,nil,nil, SW_SHOWNORMAL); -
#910
Attila1981
csendes tag
Attila1981
csendes tag
Van egy Főablak nevű formom, a Főablak egyik gomjára kattintva előjön a Ablak nevű formom. Az Ablak nevű formomonn van egy Szövegszerkesztőgomb és egy Visszagomb. A Szövegszerkesztőgombnak a megnyomására egy szövegszerkesztő jön elő új ablakban. Ebben a szövegszerkesztőben működik a másolás, új, mentés, nyomtatás, nyomtatás beállításai, betutipus, keresés, csere. Ugy van megadva hogy csak TXT-ként tudjak menteni, nyitni. Ha elmentek, vagy megnyitok valamit, és kilépek a Szövegszerkesztőből, visszakerülök az Ablak formra. NA EDDIG EZ JÓL Működik. Most jön a hiba. Ha megnyomom a Vissza gombot, hogy visszakerüljek a Föablakra, akkor leáll olyan futási hibával hogy nemtudja megnyitni a Főablakban lévő háttérképet. Ugyanaz a háttérképet használom a Főablakba és a Ablak formba. Csak mentésnél és nyitásnál jelenik meg ez a hiba!
Tud nekem valaki segíteni, nagyon sürgős!!! -
Diskcopy
tag
egy String : mailheader; meg egy integer (i) kell, aztán mondjuk..
for i:=0 to ListBox1.Items.Count-1 do
if Listbox1.Selected [ i ] then
mailheader:=mailheader+Listbox1.Items.Strings[ i ]+',';
ShellExecute(Handle,'open', PAnsiChar(
'mailto:'+mailheader),'','',SW_SHOWNORMAL);
ja meg a végére nem kell vessző (mivel mindegyik végére kap, tehát közben még figyeld a SelCount-ját a listboxnak, vagy csak vágd le a végéről a stringnek. Persze ez csak egy próba, rég delphiztem már. Prób ki, hátha jó
[Szerkesztve] -
Exodusz
csendes tag
Sziasztok!
E-mailt szeretnék küldeni a programomból az outlook segítségével. A ShellExecute(Handle,'open', 'mailto:apati.sandor@foltnet.hu','','',SW_SHOWNORMAL);
parancsot használom, ami működik is, de! Nekem arra lenne szükségem, hogy a júzer válassza ki, hogy kinek, vagy kiknek akar levelet írni. Egy combobox tartalmazza a neveket, és kiválasztásnál bekerülnek egy memo-ba, hogy lássa mit választott ki. De nem működik! Hogy tudnám ezt megoldani? -
Diskcopy
tag
válasz
_Gudella
#902
üzenetére
Hello!
a Form OnCreate részéhez ird be.
SetWindowLong( application.handle, GWL_EXSTYLE,
GetWindowLong( application.handle, GWL_EXSTYLE )
or WS_EX_TOOLWINDOW and not WS_EX_APPWINDOW );
ha azt is akarod, hogy a form se jelenjen meg, akkor még:
Application.ShowMainForm := FALSE;
ezt meg a project kódjába kell betenni az Application.Run sor elé.
Ez az utp-s dolog akkor valszín a kábelezés csak.. Amúgy úgy néz ki az lesz hogy egy billentyűzet lesz szétszedve erre a célra és a billentyűk lesznek gombokra kivezetve.. Szerintem nem is rossz ötlet.. Szerinted? 
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.
Új hozzászólás Aktív témák
Hirdetés
- Milyen egeret válasszak?
- Milyen okostelefont vegyek?
- Kormányok / autós szimulátorok topikja
- Gitáros topic
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- AMD Ryzen 9 / 7 / 5 9***(X) "Zen 5" (AM5)
- Lalikiraly: Astra kalandok @Harmadik rész
- Xbox Series X|S
- Fejhallgató erősítő és DAC topik
- Bambu Lab 3D nyomtatók
- További aktív témák...
- Telefon felvásárlás!! iPhone 13 Mini/iPhone 13/iPhone 13 Pro/iPhone 13 Pro Max
- Telefon felvásárlás!! iPhone X/iPhone Xs/iPhone XR/iPhone Xs Max
- 2db Dell PowerEdge R740 2U Rack Szerver és 3db Netapp FAS2040 NAS
- Apple iPhone 16 Pro Max - Desert Titanium - 256GB 1 ciklus 100% akku! 1 év garancia! Új készülék!
- ÁRGARANCIA! Épített KomPhone i5 14600KF 16/32/64GB RAM RTX 5070 12GB GAMER PC termékbeszámítással
Állásajánlatok
Cég: Promenade Publishing House Kft.
Város: Budapest
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest