- OLED TV topic
- Videós, mozgóképes topik
- Amlogic S905, S912 processzoros készülékek
- Kettő együtt: Radeon RX 9070 és 9070 XT tesztje
- eGPU tapasztalatok
- Soundbar, soundplate, hangprojektor
- Sugárkövetés nélküli sugárkövetés felé menetel az új PlayStation
- ThinkPad (NEM IdeaPad)
- Billentyűzet gondom van
- Milyen egeret válasszak?
Új hozzászólás Aktív témák
-
D@ni88
addikt
Sziasztok.
ShellExecute(0, PChar('print'), PChar(APath), PChar('/t /s'), nil, 0);
Újabb fejlemény: Öröm és boldogság, mert ugye működik, de a tesztelés során olyan hibát találtam hogy kb a 50-100x shellexecute hívás után mintha nem történne semmi, nem nyomtat. (reader megnyílik)
-
#1985
Fire/SOUL/CD
félisten
D@ni88
#1984
-
#1983
Fire/SOUL/CD
félisten
D@ni88
#1982
-
#1981
Fire/SOUL/CD
félisten
D@ni88
#1980
-
zka67
őstag
Szia, ezt próbáld ki, nekem működik:
function Execute(FileName, Params : string; Show : integer = SW_HIDE) : boolean;
var
SEInfo: TShellExecuteInfo;
ExitCode: DWORD;
begin
FillChar(SEInfo, SizeOf(SEInfo), 0) ;
SEInfo.cbSize := SizeOf(TShellExecuteInfo) ;
with SEInfo do begin
fMask := SEE_MASK_NOCLOSEPROCESS;
Wnd := Application.Handle;
lpFile := PChar(FileName) ;
lpParameters := PChar(Params);
nShow := Show;
end;
if ShellExecuteEx(@SEInfo) then begin
repeat
Application.ProcessMessages;
GetExitCodeProcess(SEInfo.hProcess, ExitCode) ;
until (ExitCode <> STILL_ACTIVE) or Application.Terminated;
Result := true;
end
else begin
ShowMessage('Program file not found!') ;
Result := false;
end;
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
Execute('acrord32', 'filename.pdf', SW_NORMAL);
end; -
oleslie
aktív tag
mutasd a kódot ahol
- a változókat deklarálod
- cellának értéket adsz (ha változóból töltöd fel akkor azt is ahol a cella értékadására használt változó beállítódik)
- a selcol/selrow értéke beállítódik
- próbálod kiolvasni a cella tartalmátaz én példámnál maradva. Ha értéket adsz abszolút módon (grid.Cells[1,1]="asd"; ), majd azt egy showmessage -val kiolvasod (showmessage(grid.Cells[1,1]); ), mit mutat?
-
oleslie
aktív tag
próbáltam, nekem működik. Ha mutatnál vmi kódrészletet, hogyan próbálod ...
StringGrid1.Cells[1,1]:='c1r1';
StringGrid1.Cells[1,2]:='c1r2';
StringGrid1.Cells[3,3]:='c3r3';
showmessage(stringgrid1.Cells[1,2]);
esetleg próbáld meg, hogy feldobsz a formra egy tmemo -t, és abba beírod a selcol/selrow értékeket, hogy mit próbál kiolvasni a programod, vagy a kiolvasás sorára beállítasz egy töréspontot, és megnézed mi a változók értéke (azt akarja kiolvasni, amit szerinted kell neki? biztos van érték a kiolvasni akart cellában? próbáltad "kézzel" /ctrl+f7/?) -
oleslie
aktív tag
query1:=TADOQuery.Create(nil);
query1.Connection:=ADO_fromprovimax;
query1.Active:=false;
query1.ParamCheck:=false;
query1.SQL.Clear;
query1.SQL.Add('SELECT vevox.azonosito as vid, vevox.nev as vnev, vevojel.datum as vdatum FROM vevojel');
query1.SQL.Add('JOIN vevox ON vevox.azonosito=vevojel.azonosito');
query1.SQL.Add('WHERE vevox.thelyseg=":vhely" AND vevox.adoszam="" AND vevox.fizmod="Készpénz"');
query1.SQL.Add('ORDER BY vdatum desc');
with query1.Parameters.AddParameter do begin
DataType:=ftString;
Name:='vhely';
value:='Budapest';
end;a te módszereddel (1922) hibát ad, így működik. ne kérdezd miért
-
oleslie
aktív tag
bevallom, lustaságom 6ártalan. Én rádobtam a formra, és az object inspector-ban beálllítottam ami kellett.
D7 & ADO > VFP7 .dbf fájlokban túrok ígyarufindquery.Parameters.ParamByName('brmin').Value:=brmin;
arufindquery.Parameters.ParamByName('brmax').Value:=brmax;
arufindquery.Prepared:=true;
arufindquery.Open;arufindquery.SQL :
SELECT ar1.azonosito as aruid FROM ar1
JOIN arunet ON arunet.azonosito=ar1.azonosito
WHERE BETWEEN(ar1.eladb, :brmin, :brmax) -
zka67
őstag
A DateUtils unitban vannak a dátum/idő rutinok. Ebben megtalálod a többek között a következőket is:
function IncYear(const AValue: TDateTime; const ANumberOfYears: Integer = 1): TDateTime;
// function IncMonth is in SysUtils
function IncWeek(const AValue: TDateTime; const ANumberOfWeeks: Integer = 1): TDateTime;
function IncDay(const AValue: TDateTime; const ANumberOfDays: Integer = 1): TDateTime;
function IncHour(const AValue: TDateTime; const ANumberOfHours: Int64 = 1): TDateTime;
function IncMinute(const AValue: TDateTime; const ANumberOfMinutes: Int64 = 1): TDateTime;
function IncSecond(const AValue: TDateTime; const ANumberOfSeconds: Int64 = 1): TDateTime;
function IncMilliSecond(const AValue: TDateTime; const ANumberOfMilliSeconds: Int64 = 1): TDateTime;pl. ha egy perccel többet szeretnél a jelenlegi időnél, akkor
Label1.Caption := DateTimeToStr( IncMinute(Now, 1) );
-
#1894
Peter Kiss
őstag
D@ni88
#1893
Peter Kiss
őstag
Delphi-hez nem értek, de annyit tudok javasolni, hogy nézzétek meg, a Windows mely részeit érinti a program akármilyen szempontból (fájlrendszer [hová ír], regisztrációs adatbázis, ilyesmi). Általában, ha valami XP-ről nem megy rendesen Windows 7-en, akkor valami alap működési elver sért.
![;]](http://cdn.rios.hu/dl/s/v1.gif)
Új hozzászólás Aktív témák
Hirdetés
- Tesla topik
- Elektromos autók - motorok
- Video konvertálás
- Kecskemét és környéke adok-veszek-beszélgetek
- OLED TV topic
- Elder Scrolls IV - Oblivion - Olvasd el az összefoglalót, mielőtt írsz!
- Videós, mozgóképes topik
- Bemutatkozott a Poco X7 és X7 Pro
- Amlogic S905, S912 processzoros készülékek
- Motoros topic
- További aktív témák...
- Eladó iPad 9th Generation + tok + digitális toll (nem Apple Pencil) kitűnő állapotban
- Gamer PC-Számítógép! Csere-Beszámítás! I9 9900K / RTX 3070Ti / 64GB DDR4
- ASUS TUF Gamer Laptop: Ryzen 5 4600H / GTX 1650 Ti / 16GB RAM / 144Hz
- XFX Speedster SWFT210 Radeon RX 6600 8GB Garanciával!
- Playstation 5 játékok
- ÁRGARANCIA!Épített KomPhone Ryzen 7 9800X3D 32/64GB RAM RX 9070 XT 16GB GAMER PC termékbeszámítással
- HP ZBook Firefly 14 i7-1165G7 16GB 512GB 14" FHD magyarbill 1 év garancia
- Xiaomi Redmi 12C 64GB, Kártyafüggetlen, 1 Év Garanciával
- StarTech Thunderbolt 3 TB3DKDPMAW - Dual-4K Dock
- KIÁRUSÍTÁS - HP Elite / ZBook Thunderbolt 3 docking station (akár 2x4K felbontás)
Állásajánlatok
Cég: CAMERA-PRO Hungary Kft.
Város: Budapest
Cég: FOTC
Város: Budapest