- Telekom otthoni szolgáltatások (TV, internet, telefon)
- Kodi és kiegészítői magyar nyelvű online tartalmakhoz (Linux, Windows)
- HBO Max & OD topic
- Ember helyett robot kellene az űrbe
- Kínában túl sok az EV, fokozódik az árháború
- Vodafone otthoni szolgáltatások (TV, internet, telefon)
- Microsoft Office és Office 365 topic
- Proxmox VE
- Súlyos adatvédelmi botrányba kerülhet a ChatGPT az EU-ban
- Az Apple iPadOS-t is megrendszabályozza az EU
Új hozzászólás Aktív témák
-
Ameda
tag
válasz Metalwarrior #720 üzenetére
Image1.SaveToFile(Savedialog1.Filename+'.bmp');
Please use LINUX!
-
MODERÁTOR
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.
***
-
killerjohn
addikt
válasz Metalwarrior #723 üzenetére
Uses JPEG;
Image1.Picture.RegisterFileFormat() metódus. nézd meg a paraméterlistáját. -
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; -
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 #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 #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 #1073 üzenetére
[link] DbGrid színezés sok példával.
-
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. -
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 #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 #1085 üzenetére
Letöltöttem, este ha hazaérek megnézem.
-
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...
Új hozzászólás Aktív témák
- PlayStation 5
- Publikálta a Microsoft az MS-DOS 4.0 forráskódját
- Ford topik
- AMD Ryzen 9 / 7 / 5 / 3 5***(X) "Zen 3" (AM4)
- Napelem
- Huawei P30 Pro - teletalálat
- Redmi Watch 4 - olcsó hús, sűrű a leve
- Telekom otthoni szolgáltatások (TV, internet, telefon)
- A fociról könnyedén, egy baráti társaságban
- Itt az első kép a 2024-es Nokia 3210-ről
- További aktív témák...