Ú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)
-
#1986
D@ni88
addikt
Fire/SOUL/CD
#1985
D@ni88
addikt
válasz
Fire/SOUL/CD
#1985
üzenetére
Csak elég nehéz több száz/ezer gépre telepíteni
-
#1984
D@ni88
addikt
Fire/SOUL/CD
#1981
D@ni88
addikt
válasz
Fire/SOUL/CD
#1981
üzenetére
Ok, kipróbáltam, de minden nyomtatás után be kell zárnom a readert és csak azt követően nyitja meg az új pdf-et és küldi a nyomtatóra...
-
#1982
D@ni88
addikt
Fire/SOUL/CD
#1981
D@ni88
addikt
válasz
Fire/SOUL/CD
#1981
üzenetére
Végül rájöttünk, hogy működik a story.
A probléma akkor áll fent, ha XPS writer, vagy Microsoft Office Document Image Writer van beálíltva alapértelmezett nyomtatónak. Ha fizikai nyomtató, akkor köpi rendesen a nyomtatványokat...Eléggé érdekes...
-
D@ni88
addikt
Sziasztok.
Szeretnék pdf-et nyomtatni delphiből
ShellExecute(0, 'open', 'acrord32', PChar('/p /h ' + 'c:\proba.PDF'), nil, SW_HIDE);
DeleteFile('c:\proba.PDF');parancs működik debugnál, ha elég időt várok, futásnál mire végigmenne a nyomtatási process, az előtt már törli is a fájlt, így a nyomtatás nem lehetséges.
A másik irány amin elindultam, hogy megvárjam a win process lefutását, de valamiért nem jön össze (még a fájl megnyitása sem:
procedure TTest_frm.bCloseClick(Sender: TObject);
var
Info: TShellExecuteInfo;
pInfo: PShellExecuteInfo;
exitCode: DWord;
begin
{Pointer to Info}
pInfo := @Info;
{Fill info}
with Info do
begin
cbSize := SizeOf(Info);
fMask := SEE_MASK_NOCLOSEPROCESS;
wnd := Application.Handle;
lpVerb := 'open';
lpFile := PChar('acrord32.exe');
{Parametros al executable}
{Executable parameters}
lpParameters := 'c:\proba.PDF';
lpDirectory := NIL;
nShow := 0;
hInstApp := 0;
end;
{Execute}
ShellExecuteEx(pInfo);
{Wait to finish}
repeat
GetExitCodeProcess(pInfo.hProcess,exitCode);
Application.ProcessMessages;
until (exitCode <> WAIT_TIMEOUT);
end;Esetleg valaki tudna segíteni?
-
D@ni88
addikt
Sziasztok.
Van egy delphi 6-s alkalmazás, kb 10 éves ami állandó szépítés és fejlesztés alatt áll.
Azt vettük észre, hogy egyes gépeken aránylag gyorsan, más gépeken viszont nagyon lassan működik az alkalmazás.
(Nem csak XP és Win7-en futás közt van különbség, hanem azonos oprendszerrel rendelkező gépeknél is).Logoltuk a lekérdezéseket, de úgy tűnik, hogy nem azok futtatásával van probléma. A select-ek futtatási ideje ~ megegyezik. Így arra gondolunk, hogy az adatok betöltésénél lehetnek problémák.
BDE-t használunk.
Tudnátok segíteni, hogy mi lehet a probléma?
Üdv Dani -
-
D@ni88
addikt
Sziasztok.
Ismét lenne egy kérdésem
Van egy jó régi programunk, ami belépés megkezdésekor csatlakozik az adatbázishoz.
A BDE-t használó Tquery objektumok a belépéskor létrejött adatbázis kapcsolatot használják.Most gondolkozunk az ADO-ra való átálláson, de ha TADOQuery-hez tartozó connectionstring megadásával csatlakozok akkor az létrehoz egy teljesen új oracle sessiont.
Meg lehet oldani, hogy a connection string megadása nélkül használjam a TADOQuery objektumot?
Köszi
Dani -
D@ni88
addikt
Kérlek segítsetek, hogy az alábbi kódban hol a hiba:
selQuery:=TADOQuery.Create(nil);
selQuery.ConnectionString:=connection;
try
{---assemble SQL statement}
selQuery.SQL.add('SELECT ID, CUSTOMER_SESSION_ID, IMAGE_NAME, IMAGE_DATA, IMAGE_COMMENT, ENABLED,'
+ ' CREATE_DATE, CREATE_USER_ID, MODIFICATION_DATE, MODIFICATION_USER_ID'
+ ' FROM IMAGES)
+ ' WHERE ID = :id');
selQuery.ParamCheck:=False;
selQuery.Parameters.ParamByName('id').Value:= 1;
selQuery.ExecSQL;Parameters sornál száll el....
Parameter 'id' not found; -
D@ni88
addikt
Sziasztok.
Képet szeretnék menteni oracle-be blob típusba
insertQuery.ParamByName('image_data').LoadFromStream(FImageStream, ftBlob);Ez lefut, de magánál a végrehajtásnál:
ORA-01460 unimplemented or unreasonable conversion requestedBDE 4.0 verzióját használjuk.
Ha az SQLORA32.dll-ről SQLORA8.dll-re váltunk megoldódik a probléma, de jelentősen lassul az alkalmazás.
Köszi
Új hozzászólás Aktív témák
Hirdetés
- sziku69: Szólánc.
- Autós topik
- Projektor topic
- Xiaomi Smart Band 10 - a hetedik napon megpihen
- PROHARDVER! - abszolút kezdőknek
- Windows 11
- A fociról könnyedén, egy baráti társaságban
- Apple MacBook
- Samsung Galaxy S22 és S22+ - a kis vagány meg a bátyja
- QNAP hálózati adattárolók (NAS)
- További aktív témák...
- Lenovo ThinkPad X270 (16) - i5-7300U, 16GB, 512GB SSD, 12" FULL HD (ELKELT)
- Lebegj el a Sebességgel! Ryzen 7 5800x Most Elérhető Kamatmentes rèszletre is!
- LG 39GS95UE - 39" Ívelt OLED / QHD 2K / 240Hz & 0.03ms / 1300 Nits / NVIDIA G-Sync / AMD FreeSync
- Bomba ár! Dell Latitude E6430 - i7-3720QM I 16GB I 250GB I Nvidia I 14" HD+ I Cam I W10 I Garancia!
- HIBÁTLAN iPhone SE 2020 128GB Red -1 ÉV GARANCIA - Kártyafüggetlen, MS2192, 100% Akkumulátor
Állásajánlatok
Cég: FOTC
Város: Budapest