- Intel Raptor Lake-U Refresh architektúrás mini PC érkezett az MSI színeiben
- A Chrome egyeduralmára tör a ChatGPT böngészője
- Kompakt AIO-val használható rackmount ház jött a Chieftec fémjelzésével
- Már nagyon közel van az AI szerverekbe szánt SOCAMM2 szabvány véglegesítése
- Kombinálná a Gaudi 3-at az NVIDIA B200-zal az Intel
Új hozzászólás Aktív témák
-
wolffy
aktív tag
válasz
Metalwarrior #1087 üzenetére
Úgy van! Semmi gáz. Épp most néztem meg a letöltött anyagot és akartam visszaírni, mikor látom a válaszod.
Örülök, hogy magadtól rájöttél. Legközelebb figyelj jobban. Majd szólsz ha elakadsz...
-
wolffy
aktív tag
válasz
Metalwarrior #1085 üzenetére
Letöltöttem, este ha hazaérek megnézem.
-
wolffy
aktív tag
válasz
Metalwarrior #1082 üzenetére
Hát nem igazán tiszta előttem miért nem műxik neked a dolog. Az elvileg nem kéne, hogy befolyásoló tényező legyen, hogy PageControl-on vagy Form-on van a DBGrid. Nekem is PageControl-on van és működik.
Talán próbáld ki, hogy mikor a Table1-re hivatkozol, a Table1 név elé beírod az adatmodul, vagy egyéb Form nevét és utána egy pontot, ahol a Table1 található. Ha nincs a Table1 külön adatmodulban, készíts egyet. Én mindig adatmodulba szoktam rakni. Most jobbat nem tudok. -
wolffy
aktív tag
válasz
Metalwarrior #1077 üzenetére
A DataControls komponenspalettán található DBGrid komponens Event-jei között találod az OnDrawColumnCell eljárást.
-
wolffy
aktív tag
válasz
Metalwarrior #1075 üzenetére
Ha jól értem, valami ilyesmire van szükséged:
procedure Tform1.DBGrid1DrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumn;
State: TGridDrawState);
begin
if DataModule1.Table1.Fields[0].Value='x@y.com' then
DBGrid1.Canvas.Font.Color:=clRed;
end;
Ez egy eljárás ami egy formon elhelyezett TDBGrid, DrawColumnCell eseményére van ''ráhegesztve''. Ha az adott mező rekordja eleget tesz a feltételnek, akkor piros színt kap. -
Diskcopy
tag
válasz
Metalwarrior #1073 üzenetére
[link] DbGrid színezés sok példával.
-
Diskcopy
tag
válasz
Metalwarrior #1070 üzenetére
Hi! Ez csak egy sima sql-es lekérdezés. Lekérdezed az adatbázisból az olyan mail címeket, ahol a dátum későbbi mint február az akt évnek és fizetett. Ha az sql-t nem ismered, akkor sem túl nehéz.. select ez, meg az, meg amaz from táblánév where dátum dátumfeltétel, és fizetve. pontosan nem tudom megmondani, mivel nem ismerem a tábládat, tábláidat, lehet joinolni is kell, ha többen van. Utánna a mail küldés sem nehéz, smtp komponenssel,vagy akár beépített levelezővel. Keress rá neten: Delphi mail send. sok példa lesz előtted.
-
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.
-
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] -
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; -
killerjohn
addikt
válasz
Metalwarrior #723 üzenetére
Uses JPEG;
Image1.Picture.RegisterFileFormat() metódus. nézd meg a paraméterlistáját. -
válasz
Metalwarrior #723 üzenetére
Nincs a Delphiben jpg meg gif converter, szóval azt külön kell beszerezned, és implementálnod a programodba. Furcsa is lenne, 1000 számra jelennének meg a képkonvertáló programok.
-
Ameda
tag
válasz
Metalwarrior #720 üzenetére
Image1.SaveToFile(Savedialog1.Filename+'.bmp');
Új hozzászólás Aktív témák
- BESZÁMÍTÁS! ASUS ROG Phone 9 Pro 16GB/512GB telefon garanciával hibátlan működéssel
- BESZÁMÍTÁS! Acer KG241QSbiip 24 165Hz TN FHD 1ms monitor garanciával hibátlan működéssel
- BESZÁMÍTÁS! LG UltraGear 32GR93U-B 32 144Hz IPS UHD 1ms monitor garanciával hibátlan működéssel
- BESZÁMÍTÁS! Xiaomi Mi 2K 27 165Hz IPS QHD 1ms monitor garanciával hibátlan működéssel
- Eladó gamer / workstation PC i7-9700KF, RTX 3070 Ti, 32 GB RAM, SSD!
- AKCIÓ! Dell Latitude 5550 notebook - Intel Ultra 7 165U 16GB DDR5 RAM 1TB SSD Intel Graphics WIN11
- Bomba ár! Dell Latitude 5410 - i5-10GEN I 8GB I 256SSD I HDMI I 14" FHD I Cam I W11 I Garancia!
- DELL Precision 7540 - Intel Core i9-9980HK, RTX 3000, 32GB, 1TB SSD (ELKELT)
- ÁRGARANCIA!Épített KomPhone i5 13400F 16/32/64GB RAM RTX 5070 12GB GAMER PC termékbeszámítással
- BESZÁMÍTÁS! ASROCK B650M R5 7600X 32GB DDR5 1TB SSD RX 6900XT 16GB ZALMAN Z1 Plus EVGA 750W
Állásajánlatok
Cég: Promenade Publishing House Kft.
Város: Budapest
Cég: NetGo.hu Kft.
Város: Gödöllő