- Magga: PLEX: multimédia az egész lakásban
- Brogyi: CTEK akkumulátor töltő és másolatai
- Pajac: tpm.msc
- M0ng00se: Hardvert áruhitelre?
- Steven: Sokat utazó kávéfüggők ide!
- f(x)=exp(x): A laposföld elmebaj: Vissza a jövőbe!
- sziku69: Fűzzük össze a szavakat :)
- Sub-ZeRo: Euro Truck Simulator 2 & American Truck Simulator 1 (esetleg 2 majd, ha lesz) :)
- Lalikiraly: SÜNI energiaital.
- Luck Dragon: Asszociációs játék. :)
Új hozzászólás Aktív témák
-
upp
-
Írtam egy Indyserveres server-cliens progit.
1.) Mikor adatot küldök a server felé kidob egy hibaüzenetet (csak ha Deplhi alatt futtatom) hogy 'No execute handler found'. Miután leokézom az adat átmegy a progi működik. Elég idegesítő tesztelésnél! Hogy lehetne megszüntetni?!
2.) Hogy lehet ellenőrizni hogy a server aktív-e?! -
Ameda
tag
Midkettot szinte ugyanarra használják. Windowsos programok írására. Delphinek van egy másik változata: Kylix (ugyan az, csak Linux-ra).
Delphi, igaz hogy jobban hangzik, jobb is (privát vélemény) mint a többi. Nem M$, hanem Borland a fejlesztő cég.
Különbség alapvetően ott van, hogy a programozási rész Visual Basicban BASIC-alapú, Delphiben pedig Pascal+picike C+egy rakás új utasítás.
VB nem ismerem. Nem bírtam sokat ülni előtte. -
SEMTEX
senior tag
Hali mki!
Hogy tudnám azt megoldani,illetve milyen paramétert kellene ahhoz állítanom, hogy egy form(amit névjegynek akarok használni), full dialógusablak legyen, tehát amíg nem kattintuk a rajta lévő gombra, a mögötte lévő ablak inaktív legyen....
Köszi a segítséget előre is.. -
_AnTi_
tag
Hali!
Quickreporttal próbálkozom (most használom először), és a következő a problémám:
nyomtatnom kellene egy listát, ahol minden egyes tételnek további paraméterei vannak (úgy, mint ahogy egy számla is kinéz, tehát pl.: terméknév - gyáriszám - ár, stb.). A gondom az, hogy nem tudom hogyan kérhetnék új oldalt, illetve a fejlécet és a láblécet szeretném ''átvinni'' a következő oldalra is.
A válaszokat előre is köszönöm! -
modder
aktív tag
Hi, nagyon nem vagyok benne a temaban, a kerdesem a kovetkezo.
Mire hasznaljak a delphi-t es a visual basic-et? vagyis a VB-t tudom, hogy mire hasznaljak, de a delphit is ugyan azokra a celokra?
A masik meg, hogy melyik a jobb, azon kivul hogy a delphi jobban hangzik? -
#992
Tele von Zsinór
őstag
Notes
#989
-
BlackWoOd
aktív tag
-
#988
Tele von Zsinór
őstag
Tele von Zsinór
őstag
Erre nem itt fogod megtalálni a választ, hanem a neten valahol, ahol leírják, hogy mindez hol van letárolva az mp3-ban. De ha jól emlékszem van erre komponens is, elég azt megkeresni.
-
#986
yksz
aktív tag
Tele von Zsinór
#985
yksz
aktív tag
válasz
Tele von Zsinór
#985
üzenetére
Példa nem kellet volna
Az néha csak bezavar -
#983
Tele von Zsinór
őstag
Drótszamár
#982
Tele von Zsinór
őstag
válasz
Drótszamár
#982
üzenetére
Ez van.
Amúgy mivel a word is egész, ha egy proc. integert vár paraméternek, oda elfogad wordot is, szóval ezzel sztem nem lesz gondja. -
#981
Tele von Zsinór
őstag
yksz
#980
Tele von Zsinór
őstag
Valahogy így:
procedure DecodeDate(Date: TDateTime; var Year, Month, Day: Word);
procedure DecodeTime(Time: TDateTime; var Hour, Min, Sec, MSec: Word);
procedure TForm1.Button1Click(Sender: TObject);
var
Present: TDateTime;
Year, Month, Day, Hour, Min, Sec, MSec: Word;
begin
Present:= Now;
DecodeDate(Present, Year, Month, Day);
Label1.Caption := 'Today is Day ' + IntToStr(Day) + ' of Month '
+ IntToStr(Month) + ' of Year ' + IntToStr(Year);
DecodeTime(Present, Hour, Min, Sec, MSec);
Label2.Caption := 'The time is Minute ' + IntToStr(Min) + ' of Hour '
+ IntToStr(Hour);
end; -
#978
Diskcopy
tag
Drótszamár
#977
Diskcopy
tag
válasz
Drótszamár
#977
üzenetére
Ez igaz persze, csak minek bajlódjon vele, amikor egy kis reg túrás és már nyomhatja simán is. Ez ilyen Delphi/Kylix betegség sajnos... de ez az egyik ellenszer. Ascii tábla.
-
Diskcopy
tag
Szia!
A megoldás igen egyszerű.
Start menü- futtatás- Regedit
Megkeresed a HKEY_CURRENT_USER\Software\Borland\
Delphi\4.0\Editor\Options\ részt. Felveszel egy új DWORD értéket ami a következő legyen. NoCtrlAltKeys és az értéke 1 legyen. Előtte persze Delphi becsuk. Regedit bezár, és már mennek is az ALTGr-es gombok. -
corm
senior tag
lenen énnekem egy technikai kérdésem. Nagyon lámának tűnik a dolog, de elég zavaró hatása van. Nevezetesen, hogy a [ (szögletes zárójel) karaktert az istenért sem sikerül kiírni, ha átváltok angolra akkor sem, nézegettem, nem találta semmi olyan parancsot, ami erre lenne beállítva, és nem is cisnál semmit. Viszont elég kellemetlen amikor tömbindexelést kéne írnom
Találkozott már vki ezzel vagy egyedül vagyok a bajommal? -
#972
Diskcopy
tag
Metalwarrior
#971
Diskcopy
tag
válasz
Metalwarrior
#971
üzenetére
Sima szövegszerkesztőbe vésd bele amit a legelején irtam mentsd el valamilyen .RC néven aztán a BIN könyvtárban lévő BRCC32-vel csinálsz belőle RES-t. BRCC32 akarmi.rc bemásolod a project könyvtáradba, aztán a dll-t meg megcsinálod File- new- other- Dll wizarddal. annyit kell belerakni, hogy {$R akarmi.res}, de már leírtam. úgy működik, ha végigcsinálod lépésről lépésre.
-
#970
Diskcopy
tag
Metalwarrior
#969
Diskcopy
tag
válasz
Metalwarrior
#969
üzenetére
figy. így nézzen ki az RC fájlod:
STRINGTABLE
{
1000, ''Elso''
1001, ''Masodik''
1002, ''Harmadik''
}
Ezt ugye BRCC32 -vel lefordítod.. BRCC32 akarmi.RC lesz belőle egy RES fájlod. Delphinél megcsinálod a DLL-t, file new, semmi egyéb nem kell bele, mint a {$R Akarmi.RES} ha ez megvan, lefordítod.. És most jön a lényeg.. fontos, hogy lássa a dll-t a programod, ha nem jó helyen van, akkor nem fogja...
beolvastatod:
procedure TForm1.Button1Click(Sender: TObject);
var H : THandle;
buffer: array[0..255] of Char;
begin
H := LoadLibrary('adatlib.dll');
if h <> 0 then
begin
LoadString(H, 1001, Buffer, 255); // Elsot
label1.Caption := StrPas(Buffer);
end
else
begin
ShowMessage('DLL betöltés sikertelen!');
end;
end;
Ha a dll betöltés sikertelent irja ki, akkor nem látja a DLL-t. Hivatkozz rá próbából útvonallal. pl másold be a C:\ alá és akkor a LoadLibrarynál c:\adatlib.dll
Ennyi. Most csináltam végig, kipróbáltam működik. Sok sikert.
[Szerkesztve] -
#969
Metalwarrior
tag
Metalwarrior
tag
A beolvasás jó. Úgy néz ki, hogy rosszul csináltam rc-ből dll-t. Leírna valaki, hogy kell megcsinálni
-
#968
Metalwarrior
tag
Metalwarrior
tag
Mert így van feladva.
-
Diskcopy
tag
válasz
Diskcopy
#966
üzenetére
amúgy meg találtam googleon. nézd át.
Function LoadResStr(ident : word) : string;
var H : THandle;
PS : PChar;
begin
H := LoadLibrary('YYYY.DLL');
New(PS, 255);
LoadString(H, ident, PS, 255); // az ident hatarozza meg a stringet
LoadResStr := StrPas(PS);
FreeMem(PS);
end;
[Szerkesztve] -
#966
Diskcopy
tag
Metalwarrior
#965
Diskcopy
tag
válasz
Metalwarrior
#965
üzenetére
Hello!
Kérdés.. miért szenvedsz a dll-el?
{$R *.DFM}
{$R test.res} //A resource file
procedure TForm1.Button1Click(Sender: TObject);
var
buffer: array[0..255] of Char;
begin
Loadstring(hinstance, 1, @buffer, 255); //1 = elso string
label1.Caption := StrPas(buffer);
end; -
#965
Metalwarrior
tag
Metalwarrior
tag
Most ez komoly? Valaki már csak tud segíteni?
-
#964
Metalwarrior
tag
Metalwarrior
tag
Helló!
Lenne egy kis gond:
Van egy rc fájl :
STRINGTABLE DISCARDABLE
BEGIN
1 ''x''
2 ''y''
END
Ezt lefordíttatom res-re. Utána csinálok belőle dll-t.
Library xxx;
{$R xxx.res}
begin
end.
procedure LRS(lib:string);
var dllleiro : Thandle;
puffer : array [0..100] of char;
begin
dllleiro:=LoadLibrary(Pchar(lib));
if dllleiro<32 then
begin
beep(); exit;
end;
Loadstring(dllleiro, 1, puffer, Sizeof(puffer));
form1.Button1.Caption:=puffer;
LoadString(dllleiro, 2, puffer, Sizeof(puffer));
form1.Label1.Caption:=puffer;
end;
procedure TForm1.HUN1Click(Sender: TObject);
begin
LRS('xxx.dll'); De nem tárol semmit a pufferben
end;
Hol lehet a gond? -
#963
yksz
aktív tag
Drótszamár
#962
yksz
aktív tag
válasz
Drótszamár
#962
üzenetére
Ehh télleg... Erre mért nem gondoltam
-
#960
Drótszamár
őstag
Attila1978
#959
Drótszamár
őstag
válasz
Attila1978
#959
üzenetére
Nem biztos, hogy jóra fogok válaszol, mert nem teljesen értettem mit akarsz.
Tehát ha a kattintgatós rész nem megy, akkor:
fogsz pl egy txt fájlt és az első sorba beleteszed a címkét, amit látni fog a felhasználó, a másodikba pedig a fájl nevét. Ebbe a fájlba beleteszed az összes adatot.
Beolvasod a fájlt. A címkét beleteszed mondjuk egy dropdownlist-be vagy egy tree-be, vagy valamilyen indexelhető vizuális akármibe.
A második sorokat beleteszed egy vektorba.
Ha rákattint egy videóra, akkor kiolvasod az elem indexét, elballagsz a vektorba és kiolvasod az adott indexhez tartozó fájl nevét... majd megnyitod amivel akarod.
Remélem érthető voltam, és jó részre válaszoltam.
Sorry a hibákért, de indulok haza, és siettem -
#958
Diskcopy
tag
Attila1978
#957
Diskcopy
tag
válasz
Attila1978
#957
üzenetére
MediaPlayerre: Nem igazán értem, mi az, hogy nem tudod a fájlnevet megadni..
with MediaPlayer1 do
filename:='akarmi.avi';
open;
wait:=true;
play;
close;
end;
Ha külön formon van, akkor meg fókuszba teszed azt a formot és kész.
Ja és természetesen, akkor Form2.MediaPlayer1 vagy akármi a neve a másik formnak, unitként beusesolod az elsőba, előtte Form2.Show vagy ShowModal;
[Szerkesztve] -
#957
Attila1978
csendes tag
VladimirR
#30
Attila1978
csendes tag
válasz
VladimirR
#30
üzenetére
Hello!
Van két gondom a Delphiben! Tudtok segíteni?
1. A Help Workshoppal készített HelpContext a HelpWorkshopba működik de a programomban egy Help ablakban hozza elő a szöveget, és nem egy kis úszó táblában ahogyan kell.
2. Van egy kis gondom. Vannak videófájlaim. Egy külön formon van a MediaPlayer lejátszóm. Szóval az lenne a feladat, hogy ha egy videófájlra kattintva bejöjjön a MediaPlayer ablakban. Ha leállítom, és ha kattintok más fájlra akkor ugyanabba az ablakba (MediaPlayer ablakba) szeretném hogy megjelenjen. Az a probléma hogy hogyan adom át a fájl nevét a MediaPlayer ablakba. -
#956
God Vazzeg
veterán
Tele von Zsinór
#950
God Vazzeg
veterán
válasz
Tele von Zsinór
#950
üzenetére
Akkó nemszótam
-
#953
Alan
aktív tag
atm*RefeeZ
#952
Alan
aktív tag
válasz
atm*RefeeZ
#952
üzenetére
v_ki.Lines[0] := v_be.Text;
-
#952
atm*RefeeZ
tag
atm*RefeeZ
tag
heheheheloka
kérdésem volna,egyszerű... tehát:
v_ki.Lines.strings[1]:=v_be.Text; ahol v_ki egy memo neve és v_be egy editbox-é.ezt egy buttonpush-ra kéne hogy megcsinálja,de valamiért nem írja ki amit kéne...tudom hogy hülye vagyok,de plz homályosítson fel vki hogy pontosan mi nem stimmel benne...vagy mik.. thx előre is! -
#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é.
![;]](http://cdn.rios.hu/dl/s/v1.gif)
Az néha csak bezavar
Próbáld már ki legalább.. Így mennie kell.
kat _okra?
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? 
Új hozzászólás Aktív témák
Hirdetés
- One otthoni szolgáltatások (TV, internet, telefon)
- Trollok komolyan
- A Bosch szerint Európának nem kellene az AI-t a halálba szabályozni
- Nehéz helyzetben az SMIC, régebbi chipet használ az új Huawei laptop
- Milyen légkondit a lakásba?
- Yettel topik
- Sorozatok
- Xiaomi 14T Pro - teljes a család?
- Megjelent a Poco F7, eurós ára is van már
- Okos Otthon / Smart Home
- További aktív témák...
- Lenovo ThinkPad T14 3 Gen 16/256GB SSD, Újszerű, 1 Év Garanciával
- Xiaomi 15 Ultra 512GB, Kártyafüggetlen, 1 Év Garanciával
- Samsung Odyssey OLED G8! 32"/4k/240hz/0,03ms/10BIT/Freesync-G-sync/HDMI 2.1/Smart Monitor
- Új 512GB WD SN5000S Gen4 x4/ Steam Deck ready/ garancia/ ingyen fox
- i7 8700/ RX6500/ 32GB DDR4/ 512GB m.2/ garancia/ ingyen foxpost
- HYNIX 2GB DDR3 RAM eladó
- ÁRGARANCIA!Épített KomPhone Ryzen 5 7600X 16/32/64GB RAM RTX 4060Ti 8GB GAMER PC termékbeszámítással
- MacBook Air 15 M3 8 / 256GB dobozos 12 hónap garancia
- Apple iPhone X, 256GB, Kártyafüggetlen
- Csere-Beszámítás!AMD Asztali számítógép PC Játékra! R5 5600/ RX 6700XT 12GB / 16GB DDR4 / 500GB SSD
Állásajánlatok
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest
Cég: Promenade Publishing House Kft.
Város: Budapest