Hozzászólok Aktív témák
-
kalló
aktív tag
Hy!
Delphi 8.0 free edísönnel bohóckodom (kezdő vok), valaki meg tudja mondani, hogyan kérhetem le egy számítógép helyi kapcsolat alapértelmezett átjáróját delphiben attól tartok, hogy valamilyen komponensre lessz szükségem.
előre is köszönömhttp://phmegbizhatosag.atw.hu/
-
eniak
csendes tag
Sziasztok!
Szeretnék írni Delphi 7-ben egy kliens programot, amelynek hálózaton keresztűl kellene egy 4 elemből álló integer tömböt küldenie.
Küldés: a probléma az, hogy egyszere több kliens is futhat és mindegyik kliens folyamatosan küldi az adatokat.A szervernek ezt táblázatba, egymás alá kellene írnia.
Fogadás: a klienseknek másodpercenként egyszer (egyszerre) fogadniuk kellene egy integer adatot és egy táblázatot.
Az integer adatnak tartalmaznia kell hogy a kliens a szerveren lévő táblázat első hány sorát olvassa be.A program egy számítógép vezérlésű házhoz kellene, hogy hálózaton (és interneten) keresztül is lehessen vezérelni. Sajnos nem tudok angolul, kérlek ezt vegyétek figyelembe!
Előre is köszönök minden segitséget: eniak.
AMD PHENOM X4 9850 QUAD-CORE 2500MHZ + GIGABYTE GA-MA790X-DS4 + NVIDIA GEFORCE 8400 GS 256MB + 2*1024MB KINGMAX DDR2 1066MHZ ++ LAPTOP ASUS eeePC 1000H
-
eniak
csendes tag
válasz
#34784256
#1606
üzenetére
ez itt két kérdés:
1.: hogyan lehet egy 4 elemből áló integer tömböt hálózaton átadni egy programnak hogy az a program az egymás után beérkezet 4 elemü tömböket "egymás alá" egy kétdimenziós tömbe rögzitse?
2. hogyan lehet lekérdezni egy programból hálozaton keresztűl elöb egy integer, utána pedig egy 2 dimenzós tömb elsö x elemét (és tárolni egy tömben)
(tudom hogy szarul fogalmazok
bocsi )eniak..
AMD PHENOM X4 9850 QUAD-CORE 2500MHZ + GIGABYTE GA-MA790X-DS4 + NVIDIA GEFORCE 8400 GS 256MB + 2*1024MB KINGMAX DDR2 1066MHZ ++ LAPTOP ASUS eeePC 1000H
-
#1608
Fire/SOUL/CD
nagyúr
eniak
#1607
Hali!
Eköször inkább értelmezném a feladatot.
Szóval adott egy inteligens ház, benne inteligens eszközökkel. Kellene egy klinesprogi (házanként) ami az adott házban található inteligens ezközök adatait gyűjti össze és továbbítja a szerverig?Fire.
Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)
-
#1609
eniak
csendes tag
Fire/SOUL/CD
#1608
eniak
csendes tag
válasz
Fire/SOUL/CD
#1608
üzenetére
Hello!
Majdnem, nem egészen
Van ugyebár a gép, amibe be van kötve a locsoló, lámpa stb., na ezen a gépen még monitor sincs, és van az anyámnak, testvéremnek és, nekem gépe.
Minden gép egy hálózatra van kötve és , ha pl. anyám rákattint a "locsolás" gombra akkor az anyám gépe (mint kliens) küld egy üzenetet a szervernek, ami lpt porton elindítja a locsolót, igen viszont a szervernek ki kell küldenie egy jelet nemcsak az anyám gépére hanem az összes kliensre (mint az én gépem és az öcsém gépe) hogy a ház "alaprajzán" elzöldüljön a locsoló ezzel jelezve hogy be van kapcsolva.
Mivel több kliens (jelenleg 3) fut egyszerre ezért a szervernek másodpercekét több beérkező adattal kel számolnia, az adatokat egy egydimenziós tőmben szeretném tárolni, amelynek 4db integer eleme lenne, ez a tömböt kéne a szervernek rögzítenie egymás "alá" beérkezésük sorrendjében egy 2 dimenzós tömbben. (Mondjuk ez is trükkös, mert 2db kétdimenziós tömböt kel létrehozni, amíg az egyikbe fogadja a szerver az adatokat addig a másik tömbben lévő adatokat, feldolgozza, a két tömböt másodpercekét fel kéne cserélni így hol az "a" tömbbe rögzít és a "b" tömböt dolgozza fel, hol pedig fordítva)
Miután a szerver feldolgozta az adatokat egy 3. tömbben ("c" tömb") kellene írnia, hogy mely eszközök vannak bekapcsolva, és mely eszközök vannak kikapcsolva, ezt kéne fogadniuk a klienseknek, és ez alapján kellene ábrázolniuk az eszközöket (pl. pirossal vagy zölddel).
A probléma hogy nem tudom, hogyan lehetne egy 1 dimenziós 4 elemű integer tömböt hálózaton keresztül átvinni, és egymás alá rögzíteni egy 2 dimenziós tömbben?
Egy ilyen buta kis aprósággal szívok már kb.3 hónapja
, aki tud, segítsen 
eniak
AMD PHENOM X4 9850 QUAD-CORE 2500MHZ + GIGABYTE GA-MA790X-DS4 + NVIDIA GEFORCE 8400 GS 256MB + 2*1024MB KINGMAX DDR2 1066MHZ ++ LAPTOP ASUS eeePC 1000H
-
#1612
Fire/SOUL/CD
nagyúr
eniak
#1609
Hali!
Rendben, tiszta hogy mit akarsz írni, de én a helyedbe elfelejteném a "tömbözősdit".
Erre van egy sokkal jobb megoldás: megosztott Adatbázis(interneten is). Úgy is Delphi 7-ben készíted a progit, minek szívatnád magad feleslegesen?
Ha jól kialakítod az adatbázis strukturá(ka)t, akkor nagyon egyszerűen, hibátlanul működő professzionális vezérlő-rendszert készíthetsz.Fire.
UI: Ha a "hálózaton keresztül átvinni," alatt azt érted, hogy a hálózati kommunikációt is te akarod megírni, hát ahhoz sok sikert!
(az eredei szakmám rendszerprogramozó...)[ Szerkesztve ]
Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)
-
#1613
eniak
csendes tag
Fire/SOUL/CD
#1612
eniak
csendes tag
válasz
Fire/SOUL/CD
#1612
üzenetére
Ha tudsz jobb megoldást nem akarom én megírni a hálózati kommunikációt, teszem azt van már rá valami kész unit.
De ha nincs akkor kénytelen leszek, mert van már rá néhány kis progim készen, amivel lehet irányítani, (elsősorban vasúti terepasztalt) csak az a baj hogy hiányzik belőle a hálózati kommunikáció, ere kéne valami SOS megoldás.
Gondolkoztam még azon hogy van az a közkedvet ts (team speaker) progi, az telneten dolgozik, és ara ráépülni, de ez a rész nekem magas.
Az adatbázis nem rossz ötlet, én is gondoltam rá csak nem értek az adatbázisokhoz.
A hálózati kommunikációnak elég lenne annyi, hogy elküld egy integer változót egy bizonyos ip címre, és fogad egy integer változót egy bizonyos ip címről, tehát csak ip, portot, és adatok keljen megadni neki.
eniak
AMD PHENOM X4 9850 QUAD-CORE 2500MHZ + GIGABYTE GA-MA790X-DS4 + NVIDIA GEFORCE 8400 GS 256MB + 2*1024MB KINGMAX DDR2 1066MHZ ++ LAPTOP ASUS eeePC 1000H
-
shev7
veterán
akkor a socket programozasra keress ra. Delphiben nem csinaltam meg, de pl c-hez nagyon konneny kezelheto fv konytarak vannak hozza. Gondolom Delphihez is.
''Gee, Brain, what do you want to do tonight?'' ''The same thing we do every night, Pinky: Try to take over the world!''
-
#1615
Fire/SOUL/CD
nagyúr
eniak
#1613
Hali!
A legegyszerűbb az az, amit javasoltam korábban. Interneten megosztani adatbázist.
Így nem kell hálozati kommunikációval foglalkozni, meg a sok sok vele járó "nyüggel".
Alapvetően nem elég megírni hogy egy byte átmenjen a neten(ez a legegyszerűbb talán), az a sok meló hogy gondoskodni kell a hibakezelésről, titkosításről, CRC hibákról stb.
(ahogy írtad, ha anyukád bekapcsolja a locsolót, akkor(CRC hibából adódóan nem azt a parancsot kapja a szerver) ne az legyen, hogy a hűtő szétfagyaszt mindent, 100 fok van a lakásban stb, csak pont a locsoló nem megy!valóban vannak előregyártott kommunikációs protokoll unit-ok, meg kell őket nézned, aztán mérlegelj hogy melyik megoldást választod. Ha ez utóbbit választod, akkor győződj meg, hogy valóban tudnak-e titkosítani, CRC hibát kezelni stb, hogy csak a legalapvetőbb dolgokat említsem. Ebben biztosan tud segíteni neked shev7.
Fire.
UI: most lelépek, csak este vagy holnap leszek.
[ Szerkesztve ]
Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)
-
#1616
shev7
veterán
Fire/SOUL/CD
#1615
shev7
veterán
válasz
Fire/SOUL/CD
#1615
üzenetére
csunya lenne, ha a halozati atvitel hibaellenorzeserol az alkalmazasi retegben kellene gondoskodni. Pont erre valo a TCP, hogy hibamentes adatatvitelt biztositson ket host kozott. Ha hibasan jon meg a csomag, az ujrakuldes automatikus, az alkalmazas semmilyen modon nem ertesul a hibarol. (Persze a kesleltetest leszamitva)
''Gee, Brain, what do you want to do tonight?'' ''The same thing we do every night, Pinky: Try to take over the world!''
-
eniak
csendes tag
shev7!
találtam pár componest, ahogy én nézem 2 ami szóba jöhet, az indy tcp szerver - cliens párosa a másik a tcpclient(socet)+tcpserver(socet), ahogy néztem mindkettő jó lenne a feladatra, csak nem tudom hogy hogyan kell használni őket (a delphi help angol és én nem tudok angolul. a prog.hu-n találtam erről szóló témát de amit ott leírtak nem ehhez a verzióhoz való és nem is működik nálam)
Tudsz segíteni nekem hogy hogyan használjam őket delphi 7 ben?
eniak
U.i: Tudom, hogy nem ide tartozik, de közben írom a progi, és elakadtam hogy hogyan lehet erőforrás dll-ből filet kimásolni pl. a program főkönyvtárába? (jpg meg tudok nyitni dll-ből de a file másolásnál elakadtam)
AMD PHENOM X4 9850 QUAD-CORE 2500MHZ + GIGABYTE GA-MA790X-DS4 + NVIDIA GEFORCE 8400 GS 256MB + 2*1024MB KINGMAX DDR2 1066MHZ ++ LAPTOP ASUS eeePC 1000H
-
KisCobiii
aktív tag
Tiszteletem!
Ellnézést ha nem ide kéne beírnom csak sürgősen kéne segítség! Mivel tudok beolvasni és felülírni .sav és .dmp kiterjesztésü file-t?
Még 1x ellnézést, hogy ha rosz helyen kérdeztem meg.Üdv.: KisCobiii
"nincs olyan hogy lehetetlen, csak tehetetlen.."
-
shev7
veterán
sajnos nem. delphiben nem programozok. De c-ben sem volt tul bonyolult. Szerver oldalon letrehozol egy szervert, beallitasz neki egy portot, es elinditot (listen, vagy valami hasolno)
kliens oldalon beallitod a szervr ipcimet es portja, majd csatlakozol. Ekkor felepul a socket amibe a megfelelo fuggvenyekkel mindket iranybol lehet irni. Roviden ennyi, ha ez keves, akkor valaki csak segit aki nalam jobban ert delphihez, vagy keress egy jobb tutorialt.''Gee, Brain, what do you want to do tonight?'' ''The same thing we do every night, Pinky: Try to take over the world!''
-
-
#1623
Fire/SOUL/CD
nagyúr
Sárpac
#1622
Hali!
Sajnos a CPU Core hőmérséklet mérése az egyik "legkellemetlenebb" terület, ami abból adódik, hogy nincs egységes szabvány. Ahány "sensorgyártó", annyiféle, folyamatosan frissíteni kell a gyártók adatbázisát, mert egyébként hibás hőmérséklet értékek jönnek vissza.
Ez az egyik legjobb DLL, amit javasolni tudok, de sajnos nem ingyenes, sőt húzós az ára.
[link]Fire.
Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)
-
#1624
Sárpac
nagyúr
Fire/SOUL/CD
#1623
Sárpac
nagyúr
válasz
Fire/SOUL/CD
#1623
üzenetére
Igen sajna az túl drága, akkor marad a core temp ehhez elvileg lesz ehhez ingyenes plugin amit szabadon felhasználhatnak a fejlesztők. Addig marad Share memory.
Alapfesz alatt a maximumon túl!
-
Darkynt
csendes tag
Sziasztok
Ma elkezdtem egy új programot csinálni és kicsit elakadtam.
Van egy Edit1,Button1,ListBox1 és egy Combobox1 komponensem. Ha beírok vmit Edit1-be és kiválasztok vmit a combobox1-ben majd kattintok a Button1-re akkor a Beírt(és kiválasztott) adat bekerül a Listbox-ba. De itt kezdődik a probléma ugyanis sehogyse jövök rá hogy hogyan llehetne azt megoldani hogy a elsőnek beirja az Edit1-es adatot majd a comboboxosat és mindezt egymás mellé (tehát egy elemként nem külön külön)
Valaki eltudna mondani hogyan lehet ?
Itt akadtam elprocedure TForm1.Button1Click(Sender: TObject);
begin
a:=string(Edit1.Text);
b:=string(ComboBox1.Text) ;
ListBox1.Items.Add(string(a));
ListBox1.Items.Add(string(b));
Edit1.Clear;
end; -
Keem1
addikt
-
Darkynt
csendes tag
Újabb kérdések (lesz még egy pár
)
1.Ha van egy List Boxom melyik beállítással is lehet azt megcsinálni hogy pl "Kis Károly" elem maximum 1x szerepelhessen benne ,?
2. Ha van több List boxom (több mitn 10) ÉS mindegyikben vannak elemek, akkor ügye mindegyik boxba külön külön kilehet jelölni. Hogyan lehet ezeket csoportosítani.?
3. Ha már csoportosítva vannak akkor azt hogyan lehet megcsinálni hogy ha egy (fő) listáról letörlök egy elemet akkor az összes lsitábol eltűnjön ?
Egyenlőre ennyi Igyekszem minnel tobbet tanulni (vagy eppen googlen keresni ) és mar eleg jol haladon a Delphi tanulsában de vannak dolgok amiket nemtudok megcsinálni 
-
Gyuri16
senior tag
válasz
Darkynt
#1628
üzenetére
1. nem tudok rola, hogy ezt be lehet valahogy allitani. de szerintem nem gond: mindig mielott uj elemet raknal a listboxba, megnezed hogy mar szerepel e olyan a listaban.
2. nem ertem mit jelent hogy csoportositani. ha kijelolod oket, akkor mindegyik listboxban tudod kezelni az aktualisan kijelolteket. ha akarod akkor mindet belerakhatod egy masik listboxba, vagy egy tombbe, vagy amibe akarod
3. mikor torlod ki a folistadbol az elemet, vegigfutod a tobbi listat is, es ahol megtalalod azt az elemet ott kitorlod (jol johet a Items.IndexOf() )Nem vagyok egoista, csak uborkagyalu!
-
Prego
senior tag
Sziasztok, most kezdtem el szakdogámat írni egy cégnél(Delphi), remélem a legnehezebb résszel kezdtem:
Szal egy olyan progit írok ami autók bérbradásával foglalkozik.
Olyan komponenst szeretnék csinálni, melyben ki lehet jelölni azt az időszakot amiben a bérlőnél van az autó:
Az eladó kiválaszt egy hónapot, pl 2008 augusztus, és annyi oszlop jelenik meg ahány napos a hónap (ezt már le tudom kérdezni Delphiben), és annyi sor, ahány autó van (ezt majd persze adatbázisból kérdezi le)
A bérlő azt mondja hogy XY autó kell neki aug 11-25. között, akkor az eladó egérhúzással kijelöli a naptárban a kérdéses napokat az autó sorában, majd felugrik egy párbeszédablak ahova be kell írni a bérlő nevét/telszámát és hogy érdeklődő e, vagy ki is fizeti az előleget (ennek van színkódja, mondjuk érdeklődő:szürke, fizetett: zöld, úton van már: piros). A párbeszédablak bezárása után a megfelelő cellák egyesülnek, kiszineződnek és beleírják a bérlő/érdeklődő nevét. Persze utólag egy kattintással vissza lehet hívni a párbeszédpanelt és megváltoztatni a színt, vagy törölni egy visszamondott bérlést/érdeklődést.
Eddig ezt a cégnél egy Excel táblával oldották meg, és bevált a módszer, az egész hónap átlátható (persze ha egy bérlés átnyúlik köv hónapra, akkor valahogy meg kéne jeleníteni a kérdéses napokat.
Valahogy így kéne kinéznie.
Már nézegettem a StrinGridet meg a DrawGridet, de valahogy egyik sem felel meg: nem lehet cellákat egyesíteni, hogy a név középre kerüljön, és nem tudom összehúzni akkorára a cellákat hogy beleférjen egy hónap a képernyőbe.
Ha valaki tud segíteni azt megköszönném a jövőben várhatóan lesznek még kérdéseim[ Szerkesztve ]
Aki másnak vermet ás az a Stack Pointer
-
-
Prego
senior tag
Letöltöttem egy ingyenes komponenst ICGrid ami nagyon teszik a demója alapján, azt hiszem telepíteni is sikerült Delphi 7 alá, és a komponens palettában is látom őket.
Viszont amikor a Example mintafájlt meg akarom nyitni, akkor a követekző hibaüzeneteket kapom:
Error reading ICGridCalendar1.ExplicitLeft: Property ExplicitLeft does not exist. Ignore the error and continue?
Ugyanez az ExplicitWidth, ExplicitHeight propertykre is igaz.
Ezekre viszont sehol sem leltem a kimöritett állományok tartalmában.Aki másnak vermet ás az a Stack Pointer
-
_AnTi_
tag
Ez általában olyankor fordul elő, ha a demo által használt komponens nem egyezik az általad használt komponenssel, vagy akkor, ha nem ahhoz a delphihez készült demo-t töltötted le, amivel rendelkezel.
Mod: én úgy látom, hogy ez újabb delphikhez készült, mint a 7...
[ Szerkesztve ]
Szép vagyok és okos, ügyes és aranyos...
-
Csajó
csendes tag
kellene írnom egy programot,de kifogott rajtam,pedig nem vészes,esetleg ha valaki tudna segíteni
Készítsen játékot, melyben a játékosnak maximum 5 lépésből ki kell találnia egy, a számítógép által "gondolt", 1 és 60 közötti egész számot. A számítógép minden lépés után írja ki, hogy a gondolt szám kisebb, nagyobb, vagy a játékos eltalálta a számot. Nyerés (találat) esetén egy mosolygós arcot tartalmazó modális ablak, vesztés esetén (5 lépés után sem találta el) egy szomorú arcot tartalmazó modális ablak jelenjen meg a képernyőn.
előre is köszönöm
-
Gyuri16
senior tag
szivesen segitunk, de ird le, hogy hol tartasz, mi nem megy..
az altalad irt verzio a jatek konnyebbik resze (amikor a jatekosnak kell talalgatni).nagyvonalakban a program:
random generalsz egy szamot 1 tol 60 ig.
egy szamlalot beallitasz 0ra
a jatekos elkezd talalgatni
- beolvasol egy szamot, osszehasonlitod a random szammal es kiirod hogy kisebb nagyobb vagy egyenlo > mosolygos arc
- egyel noveled a szamlalodat
- ha a szamlalalo tul nagy lesz, akkor kiteszed a szomoru arcot, mert nem talalta el
vege.
ha valami nem megy irj, hogy hol akadtal elNem vagyok egoista, csak uborkagyalu!
-
Csajó
csendes tag
szia!
valahogy így néz ki a programom,csak a vége már nem kóser,azzal már nem igazán tudok mit kezdeni,ez már nagyon kifogott rajtam
egyébként nagyon szépen köszönömunit gondoltam;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs,StdCtrls;type
TForm1 = class(TForm)
Label1: TLabel;
Edit1: TEdit;
Button1: TButton;
Label2: TLabel;
Label3: TLabel;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;
szam:integer;implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
szam := random(60)+1;
end;procedure TForm1.Button1Click(Sender: TObject);
var tipp :integer;
begin
tipp:= StrToInt (Edit1.Text);
if tipp <szam then
Label3.Caption := 'Nagyobb szamra gondoltam'
else if tipp >szam then
Label2.Caption := 'Kissebb szamra gondoltam'
else
begin
Label3.Caption := 'Eltaláltad';
if MessageDlg (' : ) ',end;
end;end.
-
Gyuri16
senior tag
jo lesz ez.
most kellene egy valtozo, amiben a talalgatasok szamat fogod szamolni. nullazod a FormCreateban. Button1Clickben teszel az egesz kore egy nagy ifet, ami megnezi hogy a valtozod kisebb e mint 5, ha igen akkor vegrehajtod amit leirtal, ha nem akkor jon a szomoru arc.
aztan letre kell hozni masik formot, amiben az arc lesz. mondjuk legyen form2. ilyen kellhet: form2.showModal. ugy csinalnam, hogy amikor az arcos formot kell mutatni akkor elotte megmondom neki, hogy most vidam legyen e vagy szomoru, az beallitja a kepet amit mutat, aztan meghivom a showModalt.
latom te MessageDlg-t irtal, nem hiszem hogy ez kell most ide.Nem vagyok egoista, csak uborkagyalu!
-
Prego
senior tag
Egy rémálom, kódot kell analizálnom:
Van egy invalidate metódus az egyik Unitban:private
ForiginChanged: TNotifyEvent;
...
public
constructor create;
procedure invalidate;
...
published
property originChanged: TNotifyEvent read ForiginChanged write set_originChanged;procedure TOrigin.invalidate;
begin
if assigned(originChanged) then begin
originChanged(self);
end;
end;procedure TOrigin.set_originChanged(const Value: TNotifyEvent);
begin
ForiginChanged := Value;
end;Persze mondanom sem kell hogy néhány másik metódusban úgyanúgy szerepel az invalidate parancs, egyértelműen azért hogy a komponenst újrarajzolja. Akkor a fent definiált procedure mire való? Amúgy ezt az összevissza kavalkádot valahogy nem látom át, emiatt nem tudom mit csinál, hiába vetem össze az általam tanult és tanulmányozott forráskódokkal
Aki másnak vermet ás az a Stack Pointer
-
Zso113
csendes tag
Sziasztok!
Segitsetek kezdő delphis vagyok.Tipusoso file-ban szeretnék recordot használni a könyvek szerint lehet.A pascalban ez így jó volt, de a delphi 7-ben nem müködik
az utolsó sornál megáll hibával a forditó:
[B]type f=packed record
nev:string;
lakcim:string;
eletkor:integer;
end;
var
adatfile: file of f;
[/B] -
P.H.
senior tag
type f=packed record
nev: string[255];
lakcim: string[255];
eletkor: integer;
end;
var
adatfile: file of f;Delphi-ben a string[255] az, ami Pascal-ban a string volt.
Arguing on the Internet is like running in the Special Olympics. Even if you win, you are still ... ˙˙˙ Real Eyes Realize Real Lies ˙˙˙
-
Prego
senior tag
Olyat kéne megoldanom, hogy amikor elindul a program, lekéri hogy az adatbázisban hány jármű szerepel, és annyi TImage és mondjuk Memo-t tesz ki a formra. Gondolom a Form1.Create-ot kell megírnom.
Egyszerűsítve:
Van egy I: Integer változóm, és azt szeretném hogy annyi Button jelenjen meg a Form-on, amekkora a szám.Aki másnak vermet ás az a Stack Pointer
-
Gyuri16
senior tag
const max = 10;
procedure TForm1.FormCreate(Sender: TObject);
var
i:integer;
begin
for i:=1 to max do
with TButton.Create(self) do
begin
Caption:='Button '+IntToStr(i);
Parent:=self;
Name:='Button'+IntToStr(i);
Left:=20;
Top:=i*30;
end;
end;Nem vagyok egoista, csak uborkagyalu!
-
Prego
senior tag
válasz
Gyuri16
#1644
üzenetére
Köszi, már ez is működik.
Úgy csináltam a programot, hogy van egy .../source/login/login.exe progi, amin van néhány gomb, melyek a különböző modulokat indítják. Az egyik modul a .../source/cars/cars.exe, az autókat tárolja, BDE Paradox7 adatbázisban. A Cars.DB is ebben a mappában van, a progi látja is, viszont ha a login-ből indítom, akkor kiírja hogy nem találja az adatbázist a .../source/logins/cars.DB elérésen, de a progit aztán elindítja csak hát se felvenni se semmit nem lehet vele csinálni.
Az indításhoz használt parancs:
ShellExecute(Handle, 'open', '..\cars\cars.exe', nil, nil, SW_SHOWNORMAL).
Amúgy is bajosabb lesz az adatbázis a késöbbiekben, mert egy másik számítógépen lesz, mint a futó program, nem tudom hogy a BDE tudja e alapból a kliens-szerver dolgot, vagy kénytelen leszek külön szerverprogit összedobnom.Aki másnak vermet ás az a Stack Pointer
-
Prego
senior tag
Haladok:
Most úgy néz ki a progi hogy van egy Unit1+Form1 és egy Unit2+Form2 egy projekten belül.
A procedure TForm1.FormCreate(Sender: TObject);-be bepötyögtem azt hogy kérdezze le adatbázisból hány autó van, tegyen ki annyi Image-t képekkel, némi infóval mellette. Új autó Felvitele menüponthoz a Form2.Visible:=true; van, bejön az ablak, kitöltöd adatokkal, és nyomok egy felvitelt, bezárodik a Form2, de a Form1-en nem jelenik meg az új autó, csak ha újrainditom az egész programot (vagyis újra meghívódik a Form1.Create).
Hogy lehetne ezt megoldani?
Gondolom a Form1.FormCreate-et kell újra meghívnom, csak nem tudom milyen paraméterekkel.Aki másnak vermet ás az a Stack Pointer
-
#1649
Fire/SOUL/CD
nagyúr
Prego
#1648
Hali!
A FormCreate csak egyszer hajtódik végre, amikor a program indul, többször nem, és nem is lehet rá hivatkozni. Ez a kis példa arra jó, hogy bármilyen műveletet hajtasz végre az adatbázison, akkor automatikusan az Edit1-be bekerül az adott tábla rekordjainak száma.
(Ha ezt megérted, akkor pedig már egyszerűen a saját igényid szerint alkalmazhatod)procedure TForm1.FormShow(Sender: TObject);
begin
Edit1.Text:=IntToStr(Table1.RecordCount);
end;
procedure TForm1.DataSource1DataChange(Sender: TObject; Field: TField);
begin
Form1.OnShow(Self);
end;Fire.
Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)
-
#1650
Prego
senior tag
Fire/SOUL/CD
#1649
Prego
senior tag
válasz
Fire/SOUL/CD
#1649
üzenetére
Köszi szépen, megint előbbre jutottam.
Nah kezd már pofásodni a dolog, most már gyönyörűen egymás mellett jelennek meg az autók, ha a képre kattintok akkor új ablakban megjelennek az adatok.
Viszont felmerült a törlés kérdése, és persze akkor az egész cuccokat újra kéne rajzolni a formon. Szal az lenne a legjobb, ha felvétel/módosítás/törlésnél az összes dinamikus komponenst megszüntetni, és újra lekérdezi az adatbázisból, meg kirajzoltatni. A Destroy parancs gyönyörűen működik, gond csak avval van, hogy hibát dob ki, ha nem létező komponensre hívom meg (pl: program indításnál).
Kellene még egy olyan adatbázis formátum ami tud több mint 255 karakternyi string mezőt tárolni (képek elérési útját tárolni), meg később megoldani hogy egy autóról több képet is be tudjak drag&droppolni (a cél a használtauto.hu szerű, kisképek lent, ha rákatt akkor nagyban megjelenik).
Nameg rájöttem hogy drága jó iskolámban (nem mondok nevet) tök jó hogy megtanítottak egy csomó ilyen olyan algoritmust (mátrixok láncszorzása, 8királynő, életembe nem fogom használni algoritmus), és még jól meg is szivattak vele, de ettől még könnyen kezelhető GUI-t nem tudunk készíteni, már amikor szálkezelés meg komponenskészítés került szóba, csak hümmögtek meg kopiztak a tanárok ...
Így hát kénytelen vagyok titeket zaklatni
[ Szerkesztve ]
Aki másnak vermet ás az a Stack Pointer
bocsi )
, aki tud, segítsen 
(az eredei szakmám rendszerprogramozó...)
)
Hozzászólok Aktív témák
Állásajánlatok
Cég: Mine Tech Services (UK) Ltd.
Város: Budapest
Cég: Trax Retail
Város: Budapest