Hirdetés
- Felháborodott az Apple, a Meta az iPhone-felhasználók üzeneteit akarja olvasni
- A luxusmárkáknak kell a bitcoin, az USA jegybankjának nem
- Letiltja az USA a politikusokat a telefonhívásokról és szöveges üzenetekről
- Nagy áttörés jön a napelemek piacán, nem kell annyi hely a paneleknek
- Belenyúlt az USA az Epic Games igazgatótanácsába, nyomoz az NVIDIA
- Telekom otthoni szolgáltatások (TV, internet, telefon)
- Kodi és kiegészítői magyar nyelvű online tartalmakhoz (Linux, Windows)
- Linux kezdőknek
- Vodafone otthoni szolgáltatások (TV, internet, telefon)
- Mikrotik routerek
- Facebook és Messenger
- Mozilla Firefox
- Freemail
- Kaspersky Antivirus és Internet Security Fórum
- Gmail
Új hozzászólás Aktív témák
-
Flashback
addikt
Í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?!profi gőzállomás eladó - Bocs nincs hosszú ö, ü és néha az á is ä :)
-
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.Please use LINUX!
-
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!Szép vagyok és okos, ügyes és aranyos...
-
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
Semmit nem csinálsz rosszul.
Esetleg csináld úgy, hogy kijelölöd a komponenseket, amiket a groupboxba akarsz pakolni, majd ''Edit/Cut'', aztán ráklattyantasz a groupboxra és ''Edit/Paste''.
B verzió: használd az ''Object treeview'' panelt, azon működik a drag&drop.< ..kevés az ember, sok az emberszerű lény... >
-
#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 bezavarFly away my precious knowledge fly far away
-
#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?Y N W A
-
#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
Fly away my precious knowledge fly far away
-
#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( 2b || !2b ) az itt a kérdés...
-
#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! -
b14
senior tag
Hogyan kérdezhetem le külön változókba a percet, másodpercet, órát delphiben?
Vagy ha a timetostrt használom és :-tal elválasztva kapom meg, akkor hogyan tudom kicserélni a
kat _okra?
[Szerkesztve]''...de a konfigjából kiindulva, nem hiszem, hogy 40 éves családos ember lenne...'' -- by Slax
![;]](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?Új hozzászólás Aktív témák
Állásajánlatok
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest