Archív konference Delphi
Zpět na výběr roku archívu nebo přejít na fulltextové vyhledávání v konferenci.
chyby compilatora a debuggera v delphi 8
[*] Ivan Turcan <iturcan(zv)drake.sk> - 9.2.2004 12:01:22
caves,
prisiel som na zaujimave chyby:
problem #1:
procedure TForm2.Button1Click(Sender: TObject);
var fs:TFilestream;
b:TBytes;
begin
fs := TFilestream.create ('w:\pokus.txt',fmopenread);
try
setlength (b,fs.size);
fs.Read(b,fs.size);
finally
fs.Free;
end;
end;
prebehlo to ok a bez chyby, avsak mal som dlasiu metodu kde mi nastala chyba pri kompilovani, proste zadal som zly nazov metody. opravil som problem a v metode
vyssie mi nastala chyba na riadku
fs.read (b,fs.size);
chyba bola v zneni ze nie je overload funkcia s parametrami ako ju mam zadanu.... nuz kukol som sa ci mam parametre ok a samozrejme ze som mal... po restarte Delphi 8 sa problem nezopakoval a aplikacia sa skompilovala ok
problem #2:
hral som sa z debuggerom a Evaluate/modify, nic som nemodifikoval len pouzival F8 a krokoval jednu metodu a kukal sa na hodnotu cez Evaluate/modify okno... po 3 riadku mi vypisalo akusi internu chybu delphi 8 a bez akehokolvek varovania mi delphi zavrelo...
pre zaujimavost, mam instalovany service pack ktory bol na borlande....
ma niekdo podobne skusenosti ???
Ivan
Jak distribuovat BDE v Installshield express 4 ?
[*] Jan Kropacek <kropacek(zv)rbcheb(tec)com> - 9.2.2004 12:31:25
Prosim o pomoc.
S delphi 8 jsem Nainstaloval Installshield express 4 .
Nevim jak k instalaci dodat aktualni BDE, kdyz v polozce
Redistributables neni BDE uvedeno.
Prosim o pomoc.
S delphi 8 jsem Nainstaloval Installshield express 4 .
Nevim jak k instalaci dodat aktualni BDE, kdyz v polozce
Redistributables neni BDE uvedeno.
Prosim o pomoc.
S delphi 8 jsem Nainstaloval Installshield express 4 .
Nevim jak k instalaci dodat aktualni BDE, kdyz v polozce
Redistributables neni BDE uvedeno.
Dekuji
Komponenty na FB 1.5
[*] Martin Schayna <mschayna(zv)aktis(tec)cz> - 9.2.2004 12:13:23
Matejcek Petr <konference(zv)crhov.komfi(tec)cz> wrote:
> zdravim zkousel ty komponenty nekdo i s interbasi 6.0.1 ? bude to
> fungovat ?
>
> petr palicka napsal(a):
>> jestli free, tak zkus UIB (Unified Interbase).
>> URL: http://www.progdigy.com/UIB/
>> Protoze k tomu jsou i cesky hlasky, tak to
>> zrejme nekdo v cechach pouziva. Zajimaly by
>> me zkusenosti. Je nekdo takovy tady?
Pred casem jsme se na ne divali, a tenkrat se mi velmi nelibilo
ze podporu vice stroju (IB6 / IB7 / FB1 / FB1.5) maji udelanou
pomoci podminene kompilace. Mame program ktery je
kompatibilni se vsemi temito stroji a nechci mit nekolik ruznych
kompilaci kdyz jsou si stroje z hlediska klientske aplikace
velmi podobne. Nevim jak je to ted...
Martin Schayna
Problem Interbase
[*] Matejcek Petr <konference(zv)crhov.komfi(tec)cz> - 9.2.2004 11:09:17
petr palicka napsal(a):
>ja kdyz si klepnu na komponenentu IBX (napriklad
>IBTransaction) pravym tlacitkem, tak primo v popup
>menu mam polozku "InterbaseExpress 6,05".
>
aha tak me to pise InterbaseExpress 6
uz take nevim co s tim tak zkousim komponenty
http://www.progdigy.com/UIB/
jen se mi nedari navazat dve tabulky na sebe (proste mi tam chybi neco
jako bylo u IBQuery DataSource )
a tudiz mi nefunguje SELECT * from TABLE where id=:ind
netusite nekdo jak se to u techto komponent resi ?
dik PM
zabezpeceny pristup do mdb
[*] mato <mato.tino(zv)inmail.sk> - 9.2.2004 10:05:12
zdravim,
mam databazu mdb pristupujem k nej cez ADO komponenty D7. Potrebujem to tak
aby sa data dali menit iba programom, jednoducho aby sa nedali menit ak si
niekto spusti mdb v accese. Vymaslel som si to nejak tak ze mdb zabezpecim v
accese :
cez pruvodce zabezpecenim - definujem uzivatela s povolenim zapisu.
do programu v delphi napevno nastavim pristup na tohto uzivatela -dam tam aj
heslo.
moze to tak byt ? prip. vie niekto o lepsom rieseni ?
dakujem
----------
* www.inMail.sk - Vasa emailova adresa na cely zivot ZDARMA
* Mail neobsahuje virusy. Skontrolovane antivirusom NOD32 (www.eset.sk)
* www.SlovakNET.sk - profesionalny webhosting, domena .SK ZADARMO
* Zoner Media Explorer 6 - stiahnite si pomocnika pre digitalnu fotografiu (http://www.zoner.sk/zme6) Problem Interbase
[*] petr palicka <palicka.petr(zv)seznam(tec)cz> - 9.2.2004 09:33:08
> tak jsem zkousel nahradit vsechny soubory
> gds32.dll souborem dodavanym spolecne
> s interbasi 6.0.1 a efekt byl naprosto stejny.
> Dale jsem zkusil nahradit interbasi
> firebirdem 1.0.3 opet bez vysledku
tak uz teda fakt nevim :/
> kde lze sehnat posledni verzi gds32.dll ?
no, kazdy server ma v instalaci svoji, takze
posledni jednickova by mela byt z instalace
FB 1.0.3 (bacha na to, ze proti IB 7 uz to
nemusi uplne sedet, nevim co vsecko si Borland
doplnil a jak moc jsou gds32.dll FB vs IB
kompatibilni).
> tu verzi IBX nevim nedari se mi to nejak zjistit
ja kdyz si klepnu na komponenentu IBX (napriklad
IBTransaction) pravym tlacitkem, tak primo v popup
menu mam polozku "InterbaseExpress 6,05".
Peca
Delphi 6 free
[*] petr_cvach(zv)email(tec)cz - 9.2.2004 09:41:10
> Dvojky jsou zdarma nebo to byl preklep?
Pokud vim, tak zdarma neni. A preklep to taky nebyl :) jedna se o trial verzi
Petr Cvach
Delphi 6 free
[*] BS Info <info(zv)borkovec(tec)com> - 9.2.2004 09:23:07
Dvojky jsou zdarma nebo to byl preklep?
Roman
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
Behalf Of petr_cvach(zv)email(tec)cz
Sent: Monday, February 09, 2004 8:57 AM
To: delphi-l(zv)clexpert(tec)cz
Subject: Re: Delphi 6 free
> pred casem byla volne ke stazeni verze 6. Da se jeste nekde sehnat?
Ke stazeni nevim, ale je i na DVD na ktere jsem se tu pred casem ptal.
Krome toho jeste D2, D7, CB a Kylix. Mimochodem, vubec to neni zle udelany
archiv, az moc se to podoba www.torry.net, ale za tu cenu se mi to libi
http://www.mcu(tec)cz/cd_info.php
Petr Cvach
Delphi 6 free
[*] petr_cvach(zv)email(tec)cz - 9.2.2004 08:57:03
> pred casem byla volne ke stazeni verze 6. Da se jeste nekde sehnat?
Ke stazeni nevim, ale je i na DVD na ktere jsem se tu pred casem ptal.
Krome toho jeste D2, D7, CB a Kylix. Mimochodem, vubec to neni zle udelany
archiv, az moc se to podoba www.torry.net, ale za tu cenu se mi to libi
http://www.mcu(tec)cz/cd_info.php
Petr Cvach
Komponenta TreeView+ListView
[*] Ondrej Kelle <o.kelle(zv)digitalpublishing.de> - 9.2.2004 09:11:06
> A co Virtual TreeView, to je pod LGPL
Virtual TreeView ma dve volitelne licencie, MPL / LGPL.
Uzivatel si skratka moze vybrat, ktoru z nich pouzije.
HTH
TOndrej
WinXP a menu
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 9.2.2004 08:59:04
Ahoj,
vsiml jsem si jedne zajimavosti v XP, ktere nerozumim. Mam WinXP s nijak
neupravovanym vzhledem, stylem apod. Kliknutim pravym mysitkem na plose otevru
Zobrazeni - Vlastnosti. Na zalozce Vzhled je nastaveni Styl Windows XP, barevne
schema Vychozi (modra). Kliknu na tlacitko Upresnit a necham si ukazat vlastnosti
menu (na ceskych XP vybrat v combu "Nabidka"). A co nevidim? Ackoli je menu v realu
sede, Windows mi ukazuji, ze barva menu je BILA!!
Delphi pak do barvy clMenu daji tuto nesmyslnou hodnotu a rucne kreslene menu
(ownerdraw = True) je pak bile.
Pouziji-li klasicky Windows styl, tj. aby Windows XP mely vzhled stejny jako predchozi
verze, barva menu je spravne - seda.
Mam Win XP Pro a Delphi 5 Ent. Myslim si, ze jde o chybu na urovni Windows.
Nezkousel jste se nekdo s necim podobnym zabyvat? Uvitam jakekoli podnety. Nechci
misto clMenu pouzivat natvrdo sedou - aplikaci pouzivaji ruzni zakaznici a potrebuji, aby
jeji vzhled odpovidal baravnemu nastaveni i stylu Windows.
Pouzivate nekdo menu v rezimu OwnerDraw?
Diky
David Lebeda
Delphi 6 free
[*] Krayzel Libor <libor.krayzel(zv)czech-tv(tec)cz> - 9.2.2004 08:41:01
Hezky den,
pred casem byla volne ke stazeni verze 6. Da se jeste nekde sehnat?
Diky.
==[ Libor Krayzel ]============================
http://www.elka(tec)cz/
http://www.elka(tec)cz/easypad/ * mailto:elka(zv)elka(tec)cz
phone: +420 608 937 935
ICQ: 112690517
==========================================
e-Denik - nejnovejsi prispevek:
Jak na buchty podle obrazkoveho navodu
http://www.elka(tec)cz/edenik/index.php?item=10271
ADO - nacteni omezeneho mnozstvi zaznamu
[*] Barton Lukas <barton(zv)labsys(tec)cz> - 9.2.2004 05:58:49
ja prave nechci aby to nacitalo celou tabulku. Potrebuju aby to nacitalo urcity pocet zaznamu tabulky, a na vyzadani dalsi...
-----Original Message-----
From: Koteles Jan [mailto:koteles(zv)lumen.sk]
Sent: Thursday, February 05, 2004 3:01 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: Re: ADO - nacteni omezeneho mnozstvi zaznamu
A bezpodmienecne potrebujes nacitat celu tabulku? Jeden program ktory som
robil to riesil tak ze vystup bol obmedzeny na 1000 zaznamov a odskrtnutim
zaskrtavatka sa vypisali vsetky.
> Hezky den konfero...
>
> Pripojuji se k db (oracle 9) pres ADO komponenty.
> Predpokladal jsem, ze kdyz v ADOQuery zmenim property
> CursorLocation z clClient na clServer tak se mi podari nacist
> jen cast dat a zbytek osetrit tak abych nacital dalsi data v
> pripade, ze budu scrolovat v dbgridu. Ale nic se nedeje.
> Ruzne obmeny properties CacheSize, CursorLocation,
> CursorType, PageSize konci stejne - cekam az natahne data.
> prosim poradte...
>
Borland a jednotne IDE pro Delphi Win32, Delphi.NE
[*] Petr Vones <pvones(zv)vol(tec)cz> - 8.2.2004 23:30:23
Libilo by se vam takove jednotne IDE ?
http://groups.google.com/groups?selm=4022adec%241%40newsgroups.borland.com
Jak uz to u Borlandu byva, lze hlasovat pro QC #7191 (http://qc.borland.com)
Petr Vones
Problem Interbase
[*] Matejcek Petr <konference(zv)crhov.komfi(tec)cz> - 8.2.2004 20:50:11
tak jsem zkousel nahradit vsechny soubory gds32.dll souborem dodavanym
spolecne s interbasi 6.0.1
a efekt byl naprosto stejny. Dale jsem zkusil nahradit interbasi
firebirdem 1.0.3 opet bez vysledku
kde lze sehnat posledni verzi gds32.dll ?
>mam za to, ze posledni verze gds32.dll by mela byt
>kompatibilni i s programy, ktere pouzivaji starsi.
>_myslim si_ ze to rikal primo Pavel Cisar.
>
>
>
tu verzi IBX nevim nedari se mi to nejak zjistit
>nejak mi uniklo, jakou mas verzi IBX. zkus to
>zjistit, pripadne na http://codecentral.borland.com
>od autora Jeffa Overcache (doufam, ze to pisu dobre).
>stahni novou.
>
>
>
Komponenty na FB 1.5
[*] Matejcek Petr <konference(zv)crhov.komfi(tec)cz> - 8.2.2004 20:42:10
zdravim zkousel ty komponenty nekdo i s interbasi 6.0.1 ? bude to
fungovat ?
petr palicka napsal(a):
>Ahoj,
>
> jestli free, tak zkus UIB (Unified Interbase).
>URL: http://www.progdigy.com/UIB/
>Protoze k tomu jsou i cesky hlasky, tak to
>zrejme nekdo v cechach pouziva. Zajimaly by
>me zkusenosti. Je nekdo takovy tady?
>
>peca
>
>
>
>
>Vic souboru v netypovem souboru...
[*] Jan Harman <jharman(zv)volny(tec)cz> - 8.2.2004 19:28:05
> AssignFile(ToF, ExtractFilePath(Application.ExeName)+
> 'Test.DAT'); if i = 0 then Rewrite(ToF,1) // Prvni soubor
> (i:=0) vytvori new file else Reset(ToF,1);
Reset otevre soubor a nastavi ukazatel na zacatek souboru.
Musis pridat
Seek(ToF, FileSize(ToF));
Honza
Vic souboru v netypovem souboru...
[*] Petr Fejfar <development(zv)callnet(tec)cz> - 8.2.2004 16:37:52
vponecha(zv)volny(tec)cz wrote:
> Muze mi to nekdo polopaticky vysvetlit?
Tak se vybodni na archaicke I/O operace a nastuduj
TStream resp. TFileStream.
Soubor si pak slozis z bloku, ktere budou mit
a) hlavicku - v ni bude mandatorne ulozana velikost tela
+ mozna nejake dalsi uzitecne informace
b) telo
a na vsechno ti budou stacit metody Seek(), Read() a Write().
HTH, pf
Vic souboru v netypovem souboru...
[*] vponecha(zv)volny(tec)cz - 8.2.2004 16:27:50
Ahoj vsichni,
Chci vkladat do netypoveho souboru vic jinych souboru.Priznam se,
ze jsem mel pocit, ze tomu rozumim, ale vypada to, ze tomu neni
tak.
Mam primitivni kod, neco v tomto smyslu:
for i := 0 to 1 do
begin
// vyber vkladany obr
if i = 0 then SouborJmeno := 'Prairie Wind.bmp';
if i = 1 then SouborJmeno := 'Zapotec.bmp';
//otevrit obr, ktery chci vlozit
AssignFile(FromF,ExtractFilePath(Application.ExeName)+SouborJmeno);
Reset(FromF,1); // CO PRESNE ZNAMENA TA '1' - RECORD SIZE?
AssignFile(ToF, ExtractFilePath(Application.ExeName)+
'Test.DAT'); if i = 0 then Rewrite(ToF,1) // Prvni soubor
(i:=0) vytvori new file else Reset(ToF,1);
repeat
BlockRead(FromF, Buf, SizeOf(Buf), NumRead); //otevreny
soubor, buffer pro prehravani, nechapu ty zbyvajici hodnoty...
definice jako: Count is an expression of type Integer, and
AmtTransferred is an optional variable of type Integer me moc
nenakoply.:-(
BlockWrite(ToF, Buf, NumRead, NumWritten);
until (NumRead = 0) or (NumWritten <> NumRead);
CloseFile(FromF);
CloseFile(ToF);
end;
Nechce mi to tam vlozit oba obrazky, vzdy tam da jenom ten
posledni. Chci vytvorit netypovy soubor ktery bude kombinaci
vetsiho mnozstvi souboru a stringu.
Muze mi to nekdo polopaticky vysvetlit?
Diky,
Vl.
--
Chces kilo? Tak pripoj kamose pres VOLNY.
Vice na http://studentpartner.volny(tec)cz/CASE v SQL pod FireBird
[*] delphi(zv)mjsoft(tec)cz - 8.2.2004 13:43:15
Zdravim,
v RC8 je fatalni kix, alespon pro me. V trigrech a procedurach
nevraceji kalkulacni polozky zadnou hodnotu. RC7 pouzivam u nekolika
zakazniku a zatim nemam zadny problem, krome hrozne pomaleho Restore
databaze.
Jin
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz
> [mailto:delphi-l-owner(zv)clexpert(tec)cz] On Behalf Of Roland Turcan
> Sent: Saturday, February 07, 2004 8:20 PM
> To: delphi-l(zv)clexpert(tec)cz
> Subject: Re: CASE v SQL pod FireBird
>
>
> <<< 5. 2. 2004 0:10 - Pavol Kakacka "kakacka(zv)proca(tec)cz" >>>
> PK> Doporucujem prejst na FB15 RC7. (nie RC8!) Poriadne si precitat
> PK> aspon Releas Notes.
>
> Zaujimalo by ma preco nie FB15 RC8? Co konkretne Ti(vam) tam
> vadi. Chcel som uz totiz u zakaznikov instalovat RC8.
>
> --
> Best regards, TRoland
>
> http://exekutor.rotursoft.sk
>
>
> Out of memory
[*] Ivan Turcan <iturcan(zv)drake.sk> - 7.2.2004 20:46:24
caves, kbmMemTable najdes na www.components4developers.com
rgds,
Ivan
----- Original Message -----
From: "Roland Turcan" <konf(zv)rotursoft.sk>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Saturday, February 07, 2004 8:20 PM
Subject: Re: Out of memory
> <<< 5. 2. 2004 0:30 - OndraG "gebakonf(zv)centrum(tec)cz" >>>
> O> Ahoj!
> O> Doporucuji na rxMemoryData zapomenout a pouzit free komponentu
kbMemTable.
> O> Je fungujici a ve vetsich objemech dat mnohonasobne rychlejsi....
> O> OndraG
>
> 1. A ten port rxLib do VJCL nie je opraveny?
>
> 2. Kde rastie ta komponenta TkbmMemTable?
>
> Dakujem.
>
> --
> Best regards, TRoland
>
> http://exekutor.rotursoft.sk
>
>
>
>
Out of memory
[*] Roland Turcan <konf(zv)rotursoft.sk> - 7.2.2004 20:20:21
<<< 5. 2. 2004 0:30 - OndraG "gebakonf(zv)centrum(tec)cz" >>>
O> Ahoj!
O> Doporucuji na rxMemoryData zapomenout a pouzit free komponentu kbMemTable.
O> Je fungujici a ve vetsich objemech dat mnohonasobne rychlejsi....
O> OndraG
1. A ten port rxLib do VJCL nie je opraveny?
2. Kde rastie ta komponenta TkbmMemTable?
Dakujem.
--
Best regards, TRoland
http://exekutor.rotursoft.sk
CASE v SQL pod FireBird
[*] Roland Turcan <konf(zv)rotursoft.sk> - 7.2.2004 20:20:20
<<< 5. 2. 2004 0:10 - Pavol Kakacka "kakacka(zv)proca(tec)cz" >>>
PK> Doporucujem prejst na FB15 RC7. (nie RC8!) Poriadne si precitat aspon Releas
PK> Notes.
Zaujimalo by ma preco nie FB15 RC8? Co konkretne Ti(vam) tam vadi.
Chcel som uz totiz u zakaznikov instalovat RC8.
--
Best regards, TRoland
http://exekutor.rotursoft.sk
Zmena velikosti ikony
[*] Viktor Marek <viktor(zv)mbox.vol(tec)cz> - 7.2.2004 18:18:11
Zdravim
Lze nejak zmenit velikost ikony. Treba z 32x32 na 20x20
Diky za odpoved
Viktor Marek
viktor(zv)mbox.vol(tec)cz
OT: problem s knihovnou
[*] Cizek Milan <cizek.milan(zv)seznam(tec)cz> - 7.2.2004 16:54:05
Ahoj,
nainstaloval jsem si posledni verzi programu Eagle, v praci mi v pohode
chodi, ale doma se mi pri startu vypise nasledujici hlaseni:
eagle.exe - Nepovolene premisteni systemove knihovny DLL
Systemova knihovna DLL kernel32.dll byla premistena v pameti. Aplikace
nebude pracovat spravne. Duvodem k premisteni bylo, ze knihovna DLL
C:\WINNT\system32\MPR.dll zabrala rozsah adres vycleneny pro systemove
knihovny DLL systemu Windows. Dodavatel knihoven DLL by mel dodat novou
verzi.
Netusite nekdo oc jde? Jaktoze mi to v praci na stejnem OS jede bez
problemu, knihovna MPR je tusim take Microsofti... Predchozi verze eaglu
mi chodila v pohode. Diky.
S pozdravem Milan Cizek, amatersky programator, D7 Ent
Win2k (SP3) a WinXP, cizek.milan(zv)seznam(tec)cz, ICQ: 59826637
Font menu - VCL
[*] Jaroslav Uher <jarek(zv)iuher(tec)cz> - 7.2.2004 14:01:53
On 6 Feb 2004 at 14:52, Lebeda David wrote:
> snazim se zmenit font u TMenu, pripadne u TMenuItem. Nejak trivialne
> to nejde. Zdalo se mi, ze schudnou cestou by bylo nastavit
> MainMenu.OwnerDraw := True... ale nerozumim jedne veci. Ocekaval bych,
> ze kdyz uvedenou property nastavim na True a neobslouzim zadne
> OnDrawItem apod., ze se menu vykresli aspon trochu podobne jako v
> pripade OwnerDraw = False. Jenze to tak neni - menu je pri zapnutem
> OwnerDraw s bilym podkladem a je celkove vykresleno jednodusseji.
> Pokud budu ja sam vyrizovat kompletne jeho vykreslovani, urcite si
> nevzpomenu na vsechny extraburty, ktere mohou v praxi nastat (Checked,
> obrazky, prirazene HotKey atd.) zkratka vytvorim jen nejakou
> jednoduchou napodobeninu. Nezkousel jste nekdo tento nebo jiny zpusob,
> jak v menu zmenit Font a charset tak, aby se menu jinak chovalo uplne
> stejne, jako kdyby ho kreslily Windows samotne?
ja mam funkci, ktera vraci font systemoveho menu
function Get_MenuFont : TFont; // nastavi font systemu WIN / menu
var ncM : TNonClientMetrics;
begin
ncM.cbSize := SizeOf(TNonClientMetrics);
SystemParametersInfo (SPI_GETNONCLIENTMETRICS,
SizeOf(TNonClientMetrics),(zv)ncM,0);
Result := TFont.Create;
Result.Handle := CreateFontIndirect(ncM.lfMenuFont); //
.lfMessageFont . .lfCaptionFont
end;
Jarek Uher
jak vlozim radek do sesitu excelu
[*] Petr Marik <rtepema(zv)mbox.vol(tec)cz> - 7.2.2004 12:13:45
Doplnit prikaz
Sheet.cells[x,y].EntireRow.Insert
ten vlozi radek nad bunku [x,y]
Zdravi
Petr Marik
> Prosim o pomoc, jak vlozim radek do sesitu v dokumentu v excelu?
>
> ExcelApp:=CreateOleObject('Excel.Application');
> ExcelApp.WorkBooks.Add('mujdokument.xls');
> Sheet:=ExcelApp.WorkBooks[1].WorkSheets[1];
>
> Sheet."pridat radek na urcitou pozici"
>
>
> Marek Dostal
> D7Prof, W98, Excel2000
Centrino nebo P4 pro .NET?
[*] Benda Lukas <bendal(zv)volny(tec)cz> - 7.2.2004 11:31:42
>Dale rozlozeni klavesnice. Napriklad Acer ma Home/End na kurzorovych klavesach
>pres Fn, silenost. V tomhle ohledu vede IBM nebo nove HP-Compaq.
>
Este na IBM a nekterych HP je, ze krom touchpadu maji jeste i ten
joisticek mezi klapkama. Dokonce bych rekl, ze je efektivnejsi nez mys.
Proste programujete ani nesundate ruku z klavesnice a svistite s mysi,
hodne presne a hodne efektivni prace.
jak vlozim radek do sesitu excelu
[*] ing. Petr Borkovec <petrborkovec(zv)volny(tec)cz> - 7.2.2004 00:18:54
Marek Dostal napsal:
>Prosim o pomoc, jak vlozim radek do sesitu v dokumentu v excelu?
> ExcelApp:=CreateOleObject('Excel.Application');
> ExcelApp.WorkBooks.Add('mujdokument.xls');
> Sheet:=ExcelApp.WorkBooks[1].WorkSheets[1];
> Sheet."pridat radek na urcitou pozici"
Zkus tohle:
i:=7;
sheet.cells.Item[i,1].EntireRow.Insert;
zdravim Petr Borkovec
FireBird 1.5rc7 - gsec/secure.fdb
[*] Pavel Cisar <pcb(zv)atlas(tec)cz> - 6.2.2004 20:28:38
Haj hou!
On 6 Feb 2004 at 17:10, Viktor Doubek wrote:
> > > konfiguracnim souboru serveru, aby ji hledal v jinem adresari nez
> > > default.
> >
> > Z hlavy nevim, ale co takhle skusit v konfiguracnim souboru
> > specifikovat bezpecnostni databazi i s cestou ?
>
> No a k tomu jsem prave nenasel zadny parametr (heslo), ktery by to
> nastavoval. Ty o nejakem vis. Dik moz za minulou i pristi odpoved :o)
Sorry, spletl jsem si to s InterBase 7.1
S pozdravem
Pavel Cisar (ICQ: 89017288)
Mobil: 724 281429
http://www.ibphoenix(tec)cz
Vse co potrebujete pro Firebird a InterBase
Komponenta TreeView+ListView
[*] Pavel Poles <delphi(zv)noni(tec)cz> - 6.2.2004 20:04:36
> nevite nekdo o nejake komponente (free, licencovane i pro pouziti v
> komercnich produkterch, ne GPL), ktera by v sobe mela spojenej treeview a
A co Virtual TreeView, to je pod LGPL (coz jestli to chapu dobre umozni jeji
pouziti s tim ze se zpristupni kod jen te komponenty a ne cele aplikace, je
to tak?)
http://www.delphi-gems.com/VirtualTreeview/VT.php
Pavel Poles
Net Framework a pointery
[*] Petr Vones <pvones(zv)vol(tec)cz> - 6.2.2004 19:38:34
From: "Ivan Turcan" <iturcan(zv)drake.sk>
> cize ako prepisat napr. vyssie uvedeny kod tak aby som sa v Net Framework
> vyhol pointrom ?
Udelat z toho record/object ktery ma v sobe primo ty polozky.
Petr Vones
Komponenta TreeView+ListView
[*] Bronislav Klucka <bronislav.klucka(zv)pro2-soft(tec)com> - 6.2.2004 19:26:31
Zdar,
nevite nekdo o nejake komponente (free, licencovane i pro pouziti v
komercnich produkterch, ne GPL), ktera by v sobe mela spojenej treeview a
listview?
Proste strom, kde polozky by byli jako TListItem?
Brona
CreateOleObject v DLL
[*] Petr Vones <pvones(zv)vol(tec)cz> - 6.2.2004 19:38:33
From: "Roman" <sw.maurice(zv)seznam(tec)cz>
> To by asi pomohlo, akorat ta aplikace (Uniface) pada na W2k stylem
> "uniface.exe generoval chyby a bude systemem Windows uzavren. Je nutne
> program restartovat.", v protokolu aplikaci neni zadna zprava o chybe.
Pak spatne odchytavas vyjimky. Delphi vyjimka se musi obslouzit na urovni DLL,
nesmi tedy "vybehnout" ven z funkce exportovane z DLL.
Petr Vones
Komponenta TreeView+ListView
[*] Petr Vones <pvones(zv)vol(tec)cz> - 6.2.2004 19:36:32
From: "Bronislav Klucka" <bronislav.klucka(zv)pro2-soft.com>
> nevite nekdo o nejake komponente (free, licencovane i pro pouziti v
> komercnich produkterch, ne GPL), ktera by v sobe mela spojenej treeview a
> listview?
http://www.delphi-gems.com/VirtualTreeview/VT.php
Petr Vones
Font u TMainMenu v CLX
[*] Pavel Poles <delphi(zv)noni(tec)cz> - 6.2.2004 17:30:21
> > Application.Style.BeforeDrawMenuItem
>
> Zkousel jsem to, ale na vykresleni MainMenu to nema vliv, udalost se
vyvola az pred kreslenim MenuItem a MainMenu uz je davno vykreslene.
Promin ma to byt udalost Application.Style.BeforeDrawItem,
BeforeDrawMenuItem se opravdu vztahuje je na podmenu
a popupmenu...
Pavel Poles
FireBird 1.5rc7 - gsec/secure.fdb
[*] Viktor Doubek <viktordoubek(zv)centrum(tec)cz> - 6.2.2004 17:10:19
> > konfiguracnim souboru serveru, aby ji hledal v jinem adresari nez
> > default.
>
> Z hlavy nevim, ale co takhle skusit v konfiguracnim souboru
> specifikovat bezpecnostni databazi i s cestou ?
No a k tomu jsem prave nenasel zadny parametr (heslo), ktery by to nastavoval. Ty o nejakem vis. Dik moz za minulou i pristi odpoved :o) VD
--------------------
GTS Pohoda Doma - domaci internet za pausal.
http://ad2.bbmedia(tec)cz/please/redirect/124/8/1/7/?param=4296/4871_1
FireBird 1.5rc7 - gsec/secure.fdb
[*] Pavel Cisar <pcb(zv)atlas(tec)cz> - 6.2.2004 16:24:16
Haj hou!
On 6 Feb 2004 at 10:35, Viktor Doubek wrote:
> nevite nekdo prosim, jestli se da spoustet utilita gsec (a
> pridavat/menit uzivatele FB serveru) vzdalene z klienta? Ted mam
> moznost to zkusit jen bez site pres localhost a to funguje, ale nevim,
> zda to jde i pres sit (predpokladam ze jo)....
Ano, lze.
> S tim souvisi jeste jedna vec, nenasel jsem nikde, zda lze menit
> umisteni secure.fdb na serveru, resp. nastavit nekde treba v
> konfiguracnim souboru serveru, aby ji hledal v jinem adresari nez
> default.
Z hlavy nevim, ale co takhle skusit v konfiguracnim souboru
specifikovat bezpecnostni databazi i s cestou ?
S pozdravem
Pavel Cisar (ICQ: 89017288)
Mobil: 724 281429
http://www.ibphoenix(tec)cz
Vse co potrebujete pro Firebird a InterBase
Firebird 1.5RC7 + BackUp
[*] Pavel Cisar <pcb(zv)atlas(tec)cz> - 6.2.2004 16:22:15
Haj hou!
On 6 Feb 2004 at 9:03, delphi(zv)mjsoft(tec)cz wrote:
> pouzivam backup pomoci komponenty FIBBackupService. Na serveru je vse
> OK. Na klientovi kdyz zadam soubor s cestou do ktereho se ma zalohovat,
> tak se vse provede s tim ze zal.soubor zustane na serveru. Lze nejak
> nastavit, aby zalohoval na klienta a ne na server? Zkousel jsem to i v
> IBOConsoli a vysledek je stejny. Drive jsem pouzival GBAK s parametry a
> tam to slo.
Nutno pouzit gbak, ktery umi zalohovat primo (na klienta), nebo pres
service manager. Komponenty AFAIK pracuji jen pres service manager.
Nemelo by byt tak tezke si napsat wrapper.
S pozdravem
Pavel Cisar (ICQ: 89017288)
Mobil: 724 281429
http://www.ibphoenix(tec)cz
Vse co potrebujete pro Firebird a InterBase
sejmuti casti obrazovky
[*] Jan Fiala <jan.fiala(zv)wo(tec)cz> - 6.2.2004 14:54:07
6.2.2004 alfons_nechvatal(zv)centrum(tec)cz:
> lze nejak sejmout (zkopirovat cast obrazovky)? - neco jako Print Screen v run-time?
var
DeskTopDC: HDC;
DeskTopCanvas: TCanvas;
DeskTopRect: TRect;
begin
LockWindowUpdate(img.Canvas.Handle);
DeskTopDC := GetWindowDC(GetDesktopWindow);
DeskTopCanvas := TCanvas.Create;
DeskTopCanvas.Handle := DeskTopDC;
DeskTopRect := Rect(0, 0, Screen.Width, Screen.Height);
img.Canvas.CopyRect(DeskTopRect, DeskTopCanvas, DeskTopRect);
ReleaseDC(GetDesktopWindow, DeskTopDC);
DeskTopCanvas.Free;
LockWindowUpdate(0);
end;
--
Jan Fiala
mailto:jan.fiala(zv)wo(tec)cz
sejmuti casti obrazovky
[*] alfons_nechvatal(zv)centrum(tec)cz - 6.2.2004 14:26:01
lze nejak sejmout (zkopirovat cast obrazovky)? - neco jako Print Screen v run-time?
Alfons Nechvatal
Font menu - VCL
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 6.2.2004 14:52:06
Ahoj,
snazim se zmenit font u TMenu, pripadne u TMenuItem. Nejak trivialne to nejde. Zdalo
se mi, ze schudnou cestou by bylo nastavit MainMenu.OwnerDraw := True... ale
nerozumim jedne veci. Ocekaval bych, ze kdyz uvedenou property nastavim na True a
neobslouzim zadne OnDrawItem apod., ze se menu vykresli aspon trochu podobne
jako v pripade OwnerDraw = False. Jenze to tak neni - menu je pri zapnutem
OwnerDraw s bilym podkladem a je celkove vykresleno jednodusseji.
Pokud budu ja sam vyrizovat kompletne jeho vykreslovani, urcite si nevzpomenu na
vsechny extraburty, ktere mohou v praxi nastat (Checked, obrazky, prirazene HotKey
atd.) zkratka vytvorim jen nejakou jednoduchou napodobeninu.
Nezkousel jste nekdo tento nebo jiny zpusob, jak v menu zmenit Font a charset tak, aby
se menu jinak chovalo uplne stejne, jako kdyby ho kreslily Windows samotne?
Diky
LDavid
SMTP komponenta
[*] Lukas Gebauer <gebylist(zv)mlp(tec)cz> - 6.2.2004 14:26:00
> Muzete mi nekdo poslat priklad odeslani textoveho emailu pomoci
> Synapse s autorizaci u SMTP serveru? Nejak to nemuzu rozchodit. Login
> je OK, AuthDone je TRUE, ale MailTo, MailFrom, MailData vraceji FALSE.
Na co priklad, kdyz jej mas primo v Synapsi? Podivej se jak to dela
funkce SendToEx ze smtpsend.pas.
(osobne tipuju, ze ty dalsi funkce volas ve spatnem poradi... na
poradi prikazu u SMTP protokolu zalezi!)
--
Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
http://www.ararat(tec)cz/synapse/ - Ararat Synapse - TCP/IP Lib.SMTP komponenta
[*] jsdelphi(zv)creatix(tec)cz - 6.2.2004 14:13:59
>> Neznate nekdo free komponentu pro posilani emailu pres SMTP server s
>> moznosti autorizace?
>Mam pocit, ze na temer vsechny podobne dotazy ohledne internetovych
>komponent existuje standardni odpoved:
>Synapse nebo Indy. ;-)
Muzete mi nekdo poslat priklad odeslani textoveho emailu pomoci Synapse s
autorizaci u SMTP serveru? Nejak to nemuzu rozchodit. Login je OK, AuthDone
je TRUE, ale MailTo, MailFrom, MailData vraceji FALSE.
Jan Skopovy
Font u TMainMenu v CLX
[*] horky(zv)cominn(tec)cz - 6.2.2004 14:09:58
> From: Pavel Poles [mailto:delphi(zv)noni(tec)cz]
> Sent: Friday, February 06, 2004 12:34 PM
>
> > Odpovim si sam, kdyby to nekdo potreboval, napadlo me to, az jsem to
> odeslal.
> > Musi se zmenit Application.Font a to primo ve zdroji
> projektu, jeste pred
> vytvorenim MainForm.
>
> Myslim ze elegantnejsi reseni by bylo pouziti
> Application.Style.BeforeDrawMenuItem
Zkousel jsem to, ale na vykresleni MainMenu to nema vliv, udalost se vyvola az pred kreslenim MenuItem a MainMenu uz je davno vykreslene.
Mozna by pomohl kousek kodu, jak to myslis.
--
S pozdravem Karel Horky, CLX, D7, FB 1.0.3, IBX 7.08, WXP SP1
[mailto:horky(zv)cominn(tec)cz]
Net Framework a pointery
[*] Zbysek Hlinka <hlinka(zv)hlinka(tec)cz> - 6.2.2004 13:39:55
> [mailto:delphi-l-owner(zv)clexpert(tec)cz] On Behalf Of Ivan Turcan
> Sent: Friday, February 06, 2004 1:08 PM
>
> realny problem ktory riesim je ten , ze mam pamatovu tabulku,
> ktora ma record ako pole bytov a prislusny field zacina v tom
> poli na pozicii X a ma dlzku y, po precitani pola z pozicii x
> o dlzke bytov Y skonvertujem bajty do pozadovaneho formatu
> (Float, Date, String, a pod) .
Aha, tak to nech v poli bajtu, a pouzij BitConverter.App a CLX app ?
[*] Pavel Poles <delphi(zv)noni(tec)cz> - 6.2.2004 13:09:51
> Ahoj,
> chci se zeptat, jaky je rozdil mezi clx aplikaci a obycejnou aplikaci. K
cemu jsou urceny clx ? Rozdilu jako jina nabidka komponent, kresleni menu
atd. jsem si vsiml.
CLX aplikace vyuziva multiplatformni knihovnu Qt. Napisesli
aplikaci v CLX pak stejne Unity vezmes a prekompilujes
v Kylixu a mas aplikaci pro Linux. Je to ovsem jen teorie,
v praxi to tak uplne jednoduche neni, ale pri trose snahy to jde.
Pokud planujes vyvoj jen pro Windows, puzij VCL, chces-li mit
aplikaci i pod linuxem, pouzij CLX, tim se ale das po slozitejsi ceste,
protoze CLX, i pouzita verze Qt (2.3) obsahuje mnoho chyb a nedodelavek,
a pro VCL je 100krat vic hotovych reseni.
Pavel Poles
Net Framework a pointery
[*] Ivan Turcan <iturcan(zv)drake.sk> - 6.2.2004 13:07:50
ten priklad nebol samozrejme realny, pisal som to len do emailu :) v
podstate ten pointer v recorde by sa mohol nahradit lubovolnym inym
recordom ktory moze mat zmysel. islo v podstate len o to ako nieco take
vyriesit.
realny problem ktory riesim je ten , ze mam pamatovu tabulku, ktora ma
record ako pole bytov a prislusny field zacina v tom poli na pozicii X a ma
dlzku y, po precitani pola z pozicii x o dlzke bytov Y skonvertujem bajty do
pozadovaneho formatu (Float, Date, String, a pod) . defakto predstav si pole
bajtov ako napr. riadok fieldov v CSV formate, cize klasicky mas pointer na
zaciatok recordu a posuvas sa po poli a citas fieldy... toto potrebujem
prerobit tak aby to fungovalo bez pouzitia pointerov...
Ivan
----- Original Message -----
From: "Zbysek Hlinka" <hlinka(zv)hlinka(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Friday, February 06, 2004 10:35 AM
Subject: Re: Net Framework a pointery
> > From: delphi-l-owner(zv)clexpert(tec)cz
> > [mailto:delphi-l-owner(zv)clexpert(tec)cz] On Behalf Of Ivan Turcan
> >
> > TMyString = string;
> > TMyInteger = integer;
> > TMyFloat = double;
> >
> > PMyString = ^TMyString;
> > PMyInteger = ^TMyInteger;
> > PMyFloat = ^ TMyFloat;
> >
> > TZaznam = record
> > FirstName : PMyString;
> > LastName : PMyString;
> > year:PMyInteger;
> > salary : PMyFloat;
> > end;
> >
> >
> > PZaznam = ^TZaznam;
> >
> > TZoznam = array of PZaznam;
>
> Nejak nechapu, proc mas pointery i v recordu. Zde staci si uvedomit, ze v
> .NET i typ je vlastne objekt, tedy s obsahem recordu je treba zachazet
> jinak, nez se s nim zachazi v Delphi, takze zde pointery odpadaji. Zapis
by
> mohl vypadat nejak takto (mozna to trochu "zmrsim" C# syntaxi):
>
> TZaznam = record
> FirstName: string;
> LastName: string;
> year: int;
> salary: float;
> end;
>
> Jeste je nutne vedet, ze string je VZDY unicode, a je dobre se tomu v .NET
> nevzpecovat a nepreklapet to nasilne do ascii, pokud k tomu neni vazny
> duvod. Struktura je take objekt, a predpokladam, ze Delphi tomu take tak
> rozumi, takze neni duvod k pointerum.
>
> Dal to muze vypadat takto:
>
> TZoznam: ArrayList;
>
> Tam mas potrebnou obsluhu fronty, pridavani a vybirani. Dovnitr pak
nasypes
> co chces.
>
> S pozdravem
>
> Zbysek Hlinka
> E-mail: hlinka zavin. hlinka(tec)cz
>
>
>
>
>
SMTP komponenta
[*] Lukas Gebauer <gebylist(zv)mlp(tec)cz> - 6.2.2004 13:03:49
> Neznate nekdo free komponentu pro posilani emailu pres SMTP server s
> moznosti autorizace?
Mam pocit, ze na temer vsechny podobne dotazy ohledne internetovych
komponent existuje standardni odpoved:
Synapse nebo Indy. ;-)
--
Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
http://www.ararat(tec)cz/synapse/ - Ararat Synapse - TCP/IP Lib.App a CLX app ?
[*] Radek Szurman <surad(zv)digijoe(tec)com> - 6.2.2004 12:49:42
Ahoj,
chci se zeptat, jaky je rozdil mezi clx aplikaci a obycejnou aplikaci. K cemu jsou urceny clx ? Rozdilu jako jina nabidka komponent, kresleni menu atd. jsem si vsiml.
Diky Radek
Font u TMainMenu v CLX
[*] Pavel Poles <delphi(zv)noni(tec)cz> - 6.2.2004 12:33:40
> Odpovim si sam, kdyby to nekdo potreboval, napadlo me to, az jsem to
odeslal.
> Musi se zmenit Application.Font a to primo ve zdroji projektu, jeste pred
vytvorenim MainForm.
Myslim ze elegantnejsi reseni by bylo pouziti
Application.Style.BeforeDrawMenuItem
Pavel Poles
SMTP komponenta
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 6.2.2004 11:53:36
Puvodni zprava ze dne 6.2.2004:
> Neznate nekdo free komponentu pro posilani emailu pres SMTP server s
> moznosti autorizace?
Treba Indy, urcite i Synapse.
Petr Zahradnik, pocitacovy expert
==========================================================
Petr Zahradnik, Computer Laboratory
web: http://www.clexpert(tec)cz, e-mail: clexpert(zv)clexpert(tec)cz
==========================================================
Font u TMainMenu v CLX
[*] horky(zv)cominn(tec)cz - 6.2.2004 11:45:35
Odpovim si sam, kdyby to nekdo potreboval, napadlo me to, az jsem to odeslal.
Musi se zmenit Application.Font a to primo ve zdroji projektu, jeste pred vytvorenim MainForm.
> Patram po tom, jak u CLX aplikace ovlivnit font v TMainMenu.
> --
> S pozdravem Karel Horky, CLX, D7, FB 1.0.3, IBX 7.08, WXP SP1
> [mailto:horky(zv)cominn(tec)cz]
SMTP komponenta
[*] jsdelphi(zv)creatix(tec)cz - 6.2.2004 11:41:34
Neznate nekdo free komponentu pro posilani emailu pres SMTP server s
moznosti autorizace?
Jan Skopovy
Centrino nebo P4 pro .NET?
[*] Erik Salaj <winsoft(zv)netkosice.sk> - 6.2.2004 11:15:31
>>http://www.emulators.com/pentium4.htm
>>
> ten konec je dobrej:
>
> The Verdict
ja na tej stranke vidim celkom iny koniec:
>With the launch of the 2.4 GHz Pentium 4 processor, and AMD's recent
>failures, I can no longer recommend the Athlon for anything but the most
>low-end entry level PC systems. For anything else, the Pentium 4 is now
>the processor of choice, as I explain why in my latest posting.
inak su to stranky nejakeho programatora emulatorov,
nie su to zaidne seriozne informacie. V zavere sam autor
priznava: "As always you have the right to disagree
with me." a ja si myslim, ze zrejme vela ludi s tym
co tam popisal v mnohom "disagree", vcitane mna.
Erik
Net Framework a pointery
[*] Zbysek Hlinka <hlinka(zv)hlinka(tec)cz> - 6.2.2004 10:35:27
> From: delphi-l-owner(zv)clexpert(tec)cz
> [mailto:delphi-l-owner(zv)clexpert(tec)cz] On Behalf Of Ivan Turcan
>
> TMyString = string;
> TMyInteger = integer;
> TMyFloat = double;
>
> PMyString = ^TMyString;
> PMyInteger = ^TMyInteger;
> PMyFloat = ^ TMyFloat;
>
> TZaznam = record
> FirstName : PMyString;
> LastName : PMyString;
> year:PMyInteger;
> salary : PMyFloat;
> end;
>
>
> PZaznam = ^TZaznam;
>
> TZoznam = array of PZaznam;
Nejak nechapu, proc mas pointery i v recordu. Zde staci si uvedomit, ze v
.NET i typ je vlastne objekt, tedy s obsahem recordu je treba zachazet
jinak, nez se s nim zachazi v Delphi, takze zde pointery odpadaji. Zapis by
mohl vypadat nejak takto (mozna to trochu "zmrsim" C# syntaxi):
TZaznam = record
FirstName: string;
LastName: string;
year: int;
salary: float;
end;
Jeste je nutne vedet, ze string je VZDY unicode, a je dobre se tomu v .NET
nevzpecovat a nepreklapet to nasilne do ascii, pokud k tomu neni vazny
duvod. Struktura je take objekt, a predpokladam, ze Delphi tomu take tak
rozumi, takze neni duvod k pointerum.
Dal to muze vypadat takto:
TZoznam: ArrayList;
Tam mas potrebnou obsluhu fronty, pridavani a vybirani. Dovnitr pak nasypes
co chces.
S pozdravem
Zbysek Hlinka
E-mail: hlinka zavin. hlinka(tec)cz
FireBird 1.5rc7 - gsec/secure.fdb
[*] Viktor Doubek <viktordoubek(zv)centrum(tec)cz> - 6.2.2004 10:35:27
Jeste jednou zdar,
nevite nekdo prosim, jestli se da spoustet utilita gsec (a pridavat/menit uzivatele FB serveru) vzdalene z klienta? Ted mam moznost to zkusit jen bez site pres localhost a to funguje, ale nevim, zda to jde i pres sit (predpokladam ze jo)....
S tim souvisi jeste jedna vec, nenasel jsem nikde, zda lze menit umisteni secure.fdb na serveru, resp. nastavit nekde treba v konfiguracnim souboru serveru, aby ji hledal v jinem adresari nez default.
Diky moc za trpelivost a hlavne za odpovedi. VD.CreateProcess v Delphi X Kylix
[*] p.sestak(zv)corag.sk - 6.2.2004 10:45:28
>* jak to same udelat v Kylixu (nejaky prikladek ?)
-Linux nepozna sys. volanie CreateProcess, (AFAIK), preto je nutne pouzit
exec() prip. dvojicu fork() + exec().
Fork proces rozdvoji (priznacne:-) a potom v jednej vetve treba zavolat
exec().
-je mozne pouzit aj sys. volanie system() - pozri man.
Pavol Sestak
ICQ : 20989081
CreateProcess v Delphi X Kylix
[*] Viktor Doubek <viktordoubek(zv)centrum(tec)cz> - 6.2.2004 10:27:25
Zdar vsem,
pomoci CreateProcess spoustim konzolovou aplikaci s command-line parametry. Vse funguje, jen bych jeste potreboval:
* aby se nezobrazovalo to okno konzole a abych mohl jeji vystup presmerovat do meho mema/logu
* jak to same udelat v Kylixu (nejaky prikladek ?)
Diky moc za odpovedi. VD.Font u TMainMenu v CLX
[*] horky(zv)cominn(tec)cz - 6.2.2004 10:19:23
Zdravim !
Patram po tom, jak u CLX aplikace ovlivnit font v TMainMenu.
Font formulare, na kterem menu spociva, nema vliv. Property Font u CLX TMainMenu neni.
Kudy se mam dat ?
Diky za kazde postrceni, potrebuji nahradit vychozi font MS Sans Serif 8 bodu fontem Arial 10 bodu.
--
S pozdravem Karel Horky, CLX, D7, FB 1.0.3, IBX 7.08, WXP SP1
[mailto:horky(zv)cominn(tec)cz]
Net Framework a pointery
[*] Ivan Turcan <iturcan(zv)drake.sk> - 6.2.2004 10:11:21
pokusim sa zobrazit priklad...
TMyString = string;
TMyInteger = integer;
TMyFloat = double;
PMyString = ^TMyString;
PMyInteger = ^TMyInteger;
PMyFloat = ^ TMyFloat;
TZaznam = record
FirstName : PMyString;
LastName : PMyString;
year:PMyInteger;
salary : PMyFloat;
end;
PZaznam = ^TZaznam;
TZoznam = array of PZaznam;
cize ako prepisat napr. vyssie uvedeny kod tak aby som sa v Net Framework
vyhol pointrom ?
vdaka
Ivan
----- Original Message -----
From: "Zbysek Hlinka" <hlinka(zv)hlinka(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Friday, February 06, 2004 9:55 AM
Subject: Re: Net Framework a pointery
> > From: delphi-l-owner(zv)clexpert(tec)cz
> > [mailto:delphi-l-owner(zv)clexpert(tec)cz] On Behalf Of Ivan Turcan
> >
> > taka mensia otazocka ohladom pointrov. Mate nejake
> > odporucania ako pri prepisovani jestvujuceho kodu do Delphi 8
> > sa vyhnut pouzivaniu pointerov ? co je najlepsie ( aka Net
> > trieda ) pouzit ako nahradu pointerov ?
>
> No to se radi dost tezko, protoze zalezi na tom, v jakych souvislostech je
> pouzivas. Zpravidla to ale znamena novy navrh kodu - tedy napsat dany usek
> jinak.
>
> S pozdravem
>
> Zbysek Hlinka
> E-mail: hlinka zavin. hlinka(tec)cz
>
>
>
>
record undelete
[*] Jiri Virt <virt(zv)volny(tec)cz> - 6.2.2004 10:01:19
kdysi jsem to zkousel ... jeden zaznam sel .. nejde, ovsem , jakmile zapises
jediny zaznam.. je to v tahu
Jirka
record undelete
[*] Pavel Rechberg <prechberg(zv)tempos(tec)cz> - 6.2.2004 09:57:18
...auuu, tak to muzu klidne packovat
----- Original Message -----
From: "Jiri Virt" <virt(zv)volny(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Friday, February 06, 2004 9:53 AM
Subject: Re: record undelete
> ne e ....
> Net Framework a pointery
[*] Zbysek Hlinka <hlinka(zv)hlinka(tec)cz> - 6.2.2004 09:55:18
> From: delphi-l-owner(zv)clexpert(tec)cz
> [mailto:delphi-l-owner(zv)clexpert(tec)cz] On Behalf Of Ivan Turcan
>
> taka mensia otazocka ohladom pointrov. Mate nejake
> odporucania ako pri prepisovani jestvujuceho kodu do Delphi 8
> sa vyhnut pouzivaniu pointerov ? co je najlepsie ( aka Net
> trieda ) pouzit ako nahradu pointerov ?
No to se radi dost tezko, protoze zalezi na tom, v jakych souvislostech je
pouzivas. Zpravidla to ale znamena novy navrh kodu - tedy napsat dany usek
jinak.
S pozdravem
Zbysek Hlinka
E-mail: hlinka zavin. hlinka(tec)cz
record undelete
[*] Jiri Virt <virt(zv)volny(tec)cz> - 6.2.2004 09:53:17
ne e ....
record undelete
[*] Pavel Rechberg <prechberg(zv)tempos(tec)cz> - 6.2.2004 09:49:16
Zdravim,
existuje nejaka moznost obnoveni smazaneho zaznamu v paradox tabulce level
7?
diky
Pavel
BDE 5.xx
Delphi 5 pro
WinXP pro
Net Framework a pointery
[*] Ivan Turcan <iturcan(zv)drake.sk> - 6.2.2004 09:43:15
Caves,
taka mensia otazocka ohladom pointrov. Mate nejake odporucania ako pri prepisovani jestvujuceho kodu do Delphi 8 sa vyhnut pouzivaniu pointerov ? co je najlepsie ( aka Net trieda ) pouzit ako nahradu pointerov ?
vdaka
Ivan
Firebird 1.5RC7 + BackUp
[*] delphi(zv)mjsoft(tec)cz - 6.2.2004 09:03:11
Zdravim,
pouzivam backup pomoci komponenty FIBBackupService. Na serveru je vse
OK. Na klientovi kdyz zadam soubor s cestou do ktereho se ma zalohovat,
tak se vse provede s tim ze zal.soubor zustane na serveru. Lze nejak
nastavit, aby zalohoval na klienta a ne na server? Zkousel jsem to i v
IBOConsoli a vysledek je stejny. Drive jsem pouzival GBAK s parametry a
tam to slo.
Diky Jin
Centrino nebo P4 pro .NET?
[*] Vaclav Halik <spravasd(zv)suz.cvut(tec)cz> - 6.2.2004 08:55:10
Zdravim,
> Dale rozlozeni klavesnice. Napriklad Acer ma Home/End na kurzorovych
klavesach
> pres Fn, silenost. V tomhle ohledu vede IBM nebo nove HP-Compaq.
to neni tak pravda. Tady moc sumarizujes. Mam Acer TM290
a mam klavesy samostatne. Zalezi od rady a typu nez od vyrobce.
>Dalsi problem s notebooky je neschopnost vetsiny firem je dodat s anglickou
> verzi Windows.
Tak to nevim, Ja k tomu mnel ceske i anglicke WindowsXP Prof..
A mohl sem si vybrat co tam dat. Stejne sem to nejak nepochopil proc k tomu
bali dve jazykove mutace Windows.
Jinak k tematu. Zrovna vcera jsme to s par lidma resili. Udelali par testu a
dosli
k tomuto:
Centrino 1.3 ma v kancelarskych aplikacich a prngani vykon celkem stejny
jako
2.4 P4. V gamesach a nejakem tesim rezimu (treba strih videa v plne DV
kvalite)
odpovida asi AMD Athlon XP 1.8.
Zastavam nazor asi vetsiny tady, ze do booku dneska uz ani jiny procesou
nema
smysl. Asi nejvetsi vyhodou je vydrz. Mne to vydrzi cca na 4,5 hodiny prace
ve vlaku v kuse. Delam v Delphi 6 mam pusteno nekolik dalsich programu.
Spustenu DB, a prehravam z CD nebo DVD MP3. Takze v podstate vsechno
pri tom jede. Nejvic stejne zere DVD-RW mechanika.
Dalsi vyhoda je ze to vubec ale VUBEC nechladi. Je tam sice nejaky vetracek,
ale ten nejede. Profoukne se pri startu a pak uz o nem nevite. Sem si myslel
ze to mam uz z vyrobce po....., tak sem tam pustil kompilovat jadro linuxu.
Zatizi to na 100%. A teprve pak to zacne chladit stylem minutka, dve nic.
Pak se tak 20 sekund profoukne a zase nejakou minutu nic.
Ja osobne bych uz do P4 nesel.
S pozdravem Vaclav Halik
Centrino nebo P4 pro .NET?
[*] Radek <radek_456(zv)seznam(tec)cz> - 6.2.2004 08:05:06
>
> Pomerne zajimavy rozbor je tady
http://www.emulators.com/pentium4.htm
>
ten konec je dobrej:
The Verdict
If it isn't clear already, the Pentium 4 is a terrible choice for PC
users. It is a severely crippled processor that does not live up to
its original design specifications. Its makes inefficient use of
available transistors and chip space. It places a higher burden on
software developers to optimize code, contrary to the trends being set
by AMD and Transmeta processors. It reverts to 10 year old techniques
which Intel abandoned and apparently forgot why.
Delphi 8 for .NET update now available
[*] Petr Vones <pvones(zv)vol(tec)cz> - 6.2.2004 03:36:48
Delphi 8 for .NET update now available
http://bdn.borland.com/article/0,1410,31971,00.html
Petr Vones
The 2004 Delphi Survey
[*] Petr Vones <pvones(zv)vol(tec)cz> - 6.2.2004 03:28:46
Abstract: Please give us your feedback and influence future versions
http://community.borland.com/article/0,1410,31972,00.html
Petr Vones
pouziti ISP programatoru IC-PROG + STK200 s AT89Sx
[*] Tomas Bradle <t.bradle(zv)worldonline(tec)cz> - 6.2.2004 01:58:40
omlouvam se, chybicka se vloudila, tento dotaz byl puvodne urcen do jine
konference ...
Tomas Bradle
t.bradle(zv)worldonline(tec)cz
pouziti ISP programatoru IC-PROG + STK200 s AT89Sx
[*] Tomas Bradle <t.bradle(zv)worldonline(tec)cz> - 5.2.2004 23:50:31
Zdravim vsechny,
chci se zeptat na prakticke zkusenosti s programatorem STK200 konkretne s
programem IC-PROG ? Ja se ho snazim rozchodit a vubec mi nejde - precte same
0FFh z naprogramovaneho AT89S8252. Muzete mi nekdo doporucit treba jiny
program ? Vim o YAAPu a PonyProgu, osvedcili se nekomu ? Nebo naopak ne ?
Pripada mi, ze to ISP nemuze byt zase tak slozite. Pouzivam PC Athlon cca
1,5GHz a Win XP.
diky za kazdou informaci
Tomas Bradle
t.bradle(zv)worldonline(tec)cz
Import dat z Paradox 7 - bez BDE
[*] Jaroslav Popluhar <delphi1(zv)acc.sk> - 5.2.2004 21:26:22
Ahoj,
potrebujem dorobit do app. import dat z Paradoxu7
existuje fungujuci pristup bez BDE?
--
Best regards,
Jaroslav mailto:delphi1(zv)acc.sk
Application.Terminate nefunguje
[*] jsdelphi(zv)creatix(tec)cz - 5.2.2004 20:26:16
>stahnul jsem komponentu pro kontrolu jedne
>instance aplikace TOneInstance.
>Komponenta se zda fungovat dobre, pokud je predchozi
>instance, tak ji najde, a skoci do spravne casti kodu, kde
>se vola Application.Terminate... a nic. Volani Application.Terminate
>probehne, a aplikace se vesele spusti. Zkousel jsem dodat
Application.ProcessMessages, nepomohlo to. Po volani Application.Terminate
je Application.Terminated stale na false. Komponenta je umistena na >hlavnim
form aplikace.
ExitProcess(0); Funguje na 100%. :-)
Jan Skopovy
Application.Terminate nefunguje
[*] Petr Vones <pvones(zv)vol(tec)cz> - 5.2.2004 19:52:13
From: "Pavel Poles" <delphi(zv)noni(tec)cz>
> stahnul jsem komponentu pro kontrolu jedne
> instance aplikace TOneInstance.
Kontrolu jedne instance aplikace nelze rozume realizovat komponentou.
Doporucuji vsechny komponenty zahodit a pouzit pouze normalni kod. Jedno z
reseni je v JCL, najdes tam i priklad pouzit:
http://sourceforge.net/project/showfiles.php?group_id=47514&release_id=118195
Petr Vones
Pouzitelne ikony windows
[*] David Kraina <dkx(zv)seznam(tec)cz> - 5.2.2004 19:36:11
>> Presto, ze se to obecne porusuje [ vcetne me :-) ] jsou ikony soucasti
>Je ti doufam jasne, ze prave ted musi 800 uzivatelu teto konference,
>kteri tuhle vetu cetli, dojit na policii podat na tebe trestni
>oznameni, kdyz to tu tak pekne hlasis? Ja nemam cas delat podobna
>oznameni, takze te timto durazne vyzyvam, abys sem takove hlasky uz
>nikdy vicekrat neposilal.
No, jo, no. Zas, ze bych je nejak distribuoval, ci co, to bylo mineno spise
obrazne - obcas se necham jimi inspirovat...
>> Windows a cili nesmi byt bez svoleni autora pouzity.
>> Nicmene Microsoft ikonky koupil, tvurci jsou www.xpicons.com (myslim) a
>> pokud je oni davaji zdarma, je mozno je volne pouzivat.
>To sis precetl na tom webu nebo jak jsi na to prisel, ze je mozne je
>volne pouzivat? Ja at se divam, jak se divam, tak tam vidim napsano
>neco uplne jineho. A predpokladam, ze na personal desktop use to
>nechces, kdyz jsi tu v konferenci o programovani...
Tam bylo POKUD. Ano, napsal jsem to vicesmyslne (spise nesmyslne) - melo tam
byt pokud neomezene schvaluji dalsi distibuce.
Ja jsem tuto tematiku hloubeji nestudoval (tva odpoved : tak to tu nema co
delat...)Application.Terminate nefunguje
[*] Pavel Poles <delphi(zv)noni(tec)cz> - 5.2.2004 19:30:10
Zdravim,
stahnul jsem komponentu pro kontrolu jedne
instance aplikace TOneInstance.
Komponenta se zda fungovat dobre, pokud je predchozi
instance, tak ji najde, a skoci do spravne casti kodu, kde
se vola Application.Terminate... a nic. Volani Application.Terminate
probehne, a aplikace se vesele spusti. Zkousel jsem dodat
Application.ProcessMessages, nepomohlo to. Po volani
Application.Terminate je Application.Terminated stale na false.
Komponenta je umistena na hlavnim form aplikace.
Nevite nekdo v cem by mohl byt problem?
Dekuji za tipy
Pavel Poles
Pouzitelne ikony windows
[*] Radek Szurman <surad(zv)digijoe(tec)com> - 5.2.2004 19:08:07
Ahoj,
davaji je zdarma coz je super ale "non-commercial use ONLY" coz neni ono :).
Radek
> Presto, ze se to obecne porusuje [ vcetne me :-) ] jsou ikony soucasti
> Windows a cili nesmi byt bez svoleni autora pouzity.
>
> Nicmene Microsoft ikonky koupil, tvurci jsou www.xpicons.com (myslim) a
> pokud je oni davaji zdarma, je mozno je volne pouzivat.
>
> S pozdravem
>
> ===================================================
>
> David Kraina, DKx
> -------------------------------
> Vedouci vyvojarskeho tymu MX-3, programator
>
> http://DKx.on.to
> http://www.MX-3(tec)cz
> ===================================================
>
> >snazim se ted program graficky prizpusobit, chtel bych aby co nejvice byl
> ve stylu windows xp. Stojim ted ale pred >otazkou co muzu pouzit a co ne
> (autorska prava a tak).
>
>
>Pouzitelne ikony windows
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 5.2.2004 18:58:06
Puvodni zprava ze dne 5.2.2004:
> Presto, ze se to obecne porusuje [ vcetne me :-) ] jsou ikony soucasti
Je ti doufam jasne, ze prave ted musi 800 uzivatelu teto konference,
kteri tuhle vetu cetli, dojit na policii podat na tebe trestni
oznameni, kdyz to tu tak pekne hlasis? Ja nemam cas delat podobna
oznameni, takze te timto durazne vyzyvam, abys sem takove hlasky uz
nikdy vicekrat neposilal.
> Windows a cili nesmi byt bez svoleni autora pouzity.
> Nicmene Microsoft ikonky koupil, tvurci jsou www.xpicons.com (myslim) a
> pokud je oni davaji zdarma, je mozno je volne pouzivat.
To sis precetl na tom webu nebo jak jsi na to prisel, ze je mozne je
volne pouzivat? Ja at se divam, jak se divam, tak tam vidim napsano
neco uplne jineho. A predpokladam, ze na personal desktop use to
nechces, kdyz jsi tu v konferenci o programovani...
Petr Zahradnik, pocitacovy expert
==========================================================
Petr Zahradnik, Computer Laboratory
web: http://www.clexpert(tec)cz, e-mail: clexpert(zv)clexpert(tec)cz
==========================================================
Pouzitelne ikony windows
[*] David Kraina <dkx(zv)seznam(tec)cz> - 5.2.2004 18:14:01
Presto, ze se to obecne porusuje [ vcetne me :-) ] jsou ikony soucasti
Windows a cili nesmi byt bez svoleni autora pouzity.
Nicmene Microsoft ikonky koupil, tvurci jsou www.xpicons.com (myslim) a
pokud je oni davaji zdarma, je mozno je volne pouzivat.
S pozdravem
===================================================
David Kraina, DKx
-------------------------------
Vedouci vyvojarskeho tymu MX-3, programator
http://DKx.on.to
http://www.MX-3(tec)cz
===================================================
>snazim se ted program graficky prizpusobit, chtel bych aby co nejvice byl
ve stylu windows xp. Stojim ted ale pred >otazkou co muzu pouzit a co ne
(autorska prava a tak).Integrace RealVidea a aplikace v Delphi
[*] Roman Varga <fontes(zv)iba(tec)cz> - 5.2.2004 17:37:58
Mohl by mi prosim nekdo chytrejsi poradit s nasledujicim problemem :
Potrebuji zobrazit na formulari video ze 4 kamer. Video se zpracovava na
streamserveru do formatu RealMedia a ja je potrebuji zobrazovat.
Matne tusim, ze cesta by mohla byt pres ActiveX, ale v seznamu mam pouze
TRealAudio a video jsem nikde nenasel a navic s ActiveX se snazim pracovat
poprve ;-(
dekuji
Roman
PS: pouzivam D5
Centrino nebo P4 pro .NET?
[*] Slavomir Skopalik <skopalik(zv)hlubocky.del(tec)cz> - 5.2.2004 17:27:56
Dobrou klavesnici ma Toshiba, alespon model satelite pro 42xx.
Ten byl celkove dost dobry (ergonomie), ale dnes je uz jen kus historie.
Slavek
> From: "Slavomir Skopalik" <skopalik(zv)hlubocky.del(tec)cz>
> > Jinak se divat, jestli nb nema moc ostre hrany, napriklad firemni assus
> > je ma a dost to vadi.
>
> Dale rozlozeni klavesnice. Napriklad Acer ma Home/End na kurzorovych klavesach
> pres Fn, silenost. V tomhle ohledu vede IBM nebo nove HP-Compaq. Dalsi problem
> s notebooky je neschopnost vetsiny firem je dodat s anglickou verzi Windows.
>
> Petr Vones
>
>
>
>
Aplikace na vice procesorech
[*] Slavomir Skopalik <skopalik(zv)hlubocky.del(tec)cz> - 5.2.2004 17:25:55
Pouzivam tento postup:
1. true thread safe zapis do logovaciho souboru (synchronizace pres winapi)
2. jcldebug, kazdy thread try except end a logovat stack a jmeno tridy threadu
3. pripadne si pridat logovani id threadu.
4. Poridit si vice cpu stroj na vyvoj (to nastesti mam), tohle se zaplati po 3 dnech
ladeni (pocitam pouze rozdil mezi normalnim a 2x cpu)
Doma mam 2x Celeron(zv)500, v praci kolega 2xPIII(zv)933 a ted nb s HT (coz
je 2x cpu jen na pul).
5. Pristupovat do DB jen z hlavniho vlakna, ona to ta db pak lepe snasi a ve
vysledku
to byva rychlejsi
Slavek
> Zdravim,
> mame aplikaci: multithreadova, ADO (access), BDE (nativ link na MSSQL),
> sitova komunikace, komunikace s COM porty.
>
> pokud tuto aplikace spustim na PC s jednim procesorem, vse bezi v
> poradku, pokud ji ale spustim na viceprocesorovem PC, tak po chvilce
> aplikace zhavaruje s hlasenim AV. Pokud aplikaci spustim tak, abz bezela
> pouze na jednom procesoru, tak je vse OK. ohuzel aplikaci nemuzu na tomto
> stroji otestovat, mohu testovat pouze na jednoprocesorovems troji.
> Aplikace je tvrde testovana na jednoprocesorovem stroji, a vse je OK.
>
> Nemate nekdo podobne zkusenosti, nevite cim by to mohlo byt? Pripominam
> Multithread, BDE, ADO, sit, COM porty.
>
> Diky za jakekoliv info
>
> Petr Sikola
>
>
>Centrino nebo P4 pro .NET?
[*] Petr Vones <pvones(zv)vol(tec)cz> - 5.2.2004 17:19:49
From: "Slavomir Skopalik" <skopalik(zv)hlubocky.del(tec)cz>
> Jinak se divat, jestli nb nema moc ostre hrany, napriklad firemni assus
> je ma a dost to vadi.
Dale rozlozeni klavesnice. Napriklad Acer ma Home/End na kurzorovych klavesach
pres Fn, silenost. V tomhle ohledu vede IBM nebo nove HP-Compaq. Dalsi problem
s notebooky je neschopnost vetsiny firem je dodat s anglickou verzi Windows.
Petr Vones
Aplikace na vice procesorech
[*] Petr Vones <pvones(zv)vol(tec)cz> - 5.2.2004 17:07:48
From: <developer(zv)efg(tec)cz>
> bohuzel historie a velikost projektu, mame v planu to "casem" predelat na
> ADO.
Rekl bych, ze tohle by melo byt naprostou prioritou. Jinak nema vubec cenu
hledat chyby v necem jinem.
> muzes prosim konkretizovat, o nicem zatim nevim...
Napriklad TMultiReadExclusiveWriteSynchronizer
Petr Vones
Terminate - preruseni aplikace
[*] jsdelphi(zv)creatix(tec)cz - 5.2.2004 17:03:47
>> Jakym zpusobem je mozne spolehlive prerusit aplikaci pri nejake
>> fatalni chybe? Pouzitim Terminate a Halt se sice aplikace ukonci, ale
>> casto zustane viset v pameti a pomuze pouze restart Windows.
> To se patrne tyka Windows 9x
Tyka se to Windows XP Professional. Vadi mi, ze to nezastavi natvrdo
aplikaci (proces), ale volaji se dalsi udalosti - napriklad CanClose, Close
atd.
Jan Skopovy
Aplikace na vice procesorech
[*] p.sestak(zv)corag.sk - 5.2.2004 16:59:46
>Ano, ovsem otazkou je zdali je tento problem v kodu ktery napsal vyvojar
nebo
>v tom ktery je od Borlandu.
v kode od Borlandu som uz nasiel nejake diery, ale co sa tyka MP, zatial
som nemal
problem - na mojej 2xCPU masine som uz popisal dost MT programov v
BCBuilder + Delphi, prip Kylix
a so synchronizaciou som nemal ziadny problem - ovsem predchadzala tomu
lepsia teoreticka priprava :-)
Mozno preto, ze som nikdy nepisal MT aplikacie s pristupom do DB
(akejkolvek DB).
Pavol Sestak
ICQ : 20989081
Aplikace na vice procesorech
[*] developer(zv)efg(tec)cz - 5.2.2004 16:41:43
> > mame aplikaci: multithreadova, ADO (access), BDE (nativ link na MSSQL),
>
> Jaky je duvod pouzivat pro MS SQL zrovna BDE ?
bohuzel historie a velikost projektu, mame v planu to "casem" predelat na ADO.> > pokud tuto aplikace spustim na PC s jednim procesorem, vse bezi v poradku,
> > pokud ji ale spustim na viceprocesorovem PC, tak po chvilce
> > aplikace zhavaruje s hlasenim AV. Pokud aplikaci spustim tak, abz bezela
>
> Borland ma obecne problem s nekterymi castmi RTL (a urcite i dalsich veci) pri
> behu na viceprocesorovych strojich.
muzes prosim konkretizovat, o nicem zatim nevim...> Petr Vones
Petr Sikola
Aplikace na vice procesorech
[*] Martin Nedopil <delphi(zv)hon(tec)cz> - 5.2.2004 16:47:44
No Async taky, ze... je ovsem otazkou jak.
Je samozrejme mozne, ze to dela i neco jineho. Urcite bych si dal pozor
na inicializaci BDE a jeji pouziti v threadech.
A samozrejme omezeni behu na jeden procesor ... :-)
Martin
----- Original Message -----
From: <developer(zv)efg(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Thursday, February 05, 2004 4:39 PM
Subject: Re: Aplikace na vice procesorech
> Pouzivame primo API funkce, a navic aplikace havajuje i pokud se
komunikovat pres seriak nepokousim :(
>
> Petr
>
> > Sazim 10:1, ze problem je v seriaku.
> >
> > Take jsem drive havaroval na tom, ze Async pro si s vice
> > procesory poradit neumel. Jednoduche reseni, programove
> > se omezit na jeden procesor.
> >
> > Martin
>
>
>Terminate - preruseni aplikace
[*] Petr Vones <pvones(zv)vol(tec)cz> - 5.2.2004 16:07:29
From: <jsdelphi(zv)creatix(tec)cz>
> Jakym zpusobem je mozne spolehlive prerusit aplikaci pri nejake fatalni
> chybe? Pouzitim Terminate a Halt se sice aplikace ukonci, ale casto zustane
> viset v pameti a pomuze pouze restart Windows.
To se patrne tyka Windows 9x
Petr Vones
Aplikace na vice procesorech
[*] Petr Vones <pvones(zv)vol(tec)cz> - 5.2.2004 16:41:42
From: <p.sestak(zv)corag.sk>
> -zjavne je to probrem so synchronizaciou threadov a tento problem dostal
> prilezitost az na viacprocesorovom stroji.
Ano, ovsem otazkou je zdali je tento problem v kodu ktery napsal vyvojar nebo
v tom ktery je od Borlandu.
Petr Vones
Centrino nebo P4 pro .NET?
[*] Slavomir Skopalik <skopalik(zv)hlubocky.del(tec)cz> - 5.2.2004 16:09:30
No ja pouzivam NB jako prenosnou workstation,
takze jsem volil P4 HT 2.8 GHz, klidne bych to vzal i bez
baterek (krome filmu jsem nevidel prakticke pouziti
nb s baterkama pro programatora).
Disk do NB se da koupit i 5400 otackovy, tam je celkem slusny
narust rychlosti.
Jinak se divat, jestli nb nema moc ostre hrany, napriklad firemni assus
je ma a dost to vadi.
Slavek
PS: Prace s gigabajtovyma DB vyzaduje hooodne CPU.
> From: "Karel Kral" <kralkonf(zv)purus(tec)cz>
> > mate nekdo zkusenosti s vykonem notebooku s procesorem Centrino 1.4
> > oproti procesoru P4 2.6? Krome kancelarskych aplikaci bych na nem rad
> > provozoval i Delhi a VS NET. Testy, ktere jsem videl na internetu
> > vychazeji rozporuplne.
>
> Kdyz dnes kupovat notebook tak jedine s Centrinem. Mobilni P4 ma velkou
> spotrebu a dost topi, takze u ne malo modelu pak bezi po celou dobu vetrak a
> dela to zbytecny kraval, navic jeho vykon je (jako u desktopove varianty :-)
> nepresvedcivy. Notebook nemuze (zatim) nahradit desktop predevsim kvuli
> pomalym diskum, takze vykon CPU bych nebral jako zasadni vec. Spise bych se
> zameril na kvalitu a rozlozeni klavesnice a displej s pouzitelnym rozlisenim,
> coz je u vetsiny notebooku zvoleno na 1400x1050 a vice.Aplikace na vice procesorech
[*] developer(zv)efg(tec)cz - 5.2.2004 16:39:42
Pouzivame primo API funkce, a navic aplikace havajuje i pokud se komunikovat pres seriak nepokousim :(
Petr
> Sazim 10:1, ze problem je v seriaku.
>
> Take jsem drive havaroval na tom, ze Async pro si s vice
> procesory poradit neumel. Jednoduche reseni, programove
> se omezit na jeden procesor.
>
> Martin
Aplikace na vice procesorech
[*] Petr Vones <pvones(zv)vol(tec)cz> - 5.2.2004 16:05:23
From: <developer(zv)efg(tec)cz>
> mame aplikaci: multithreadova, ADO (access), BDE (nativ link na MSSQL),
Jaky je duvod pouzivat pro MS SQL zrovna BDE ?
> pokud tuto aplikace spustim na PC s jednim procesorem, vse bezi v poradku,
> pokud ji ale spustim na viceprocesorovem PC, tak po chvilce
> aplikace zhavaruje s hlasenim AV. Pokud aplikaci spustim tak, abz bezela
Borland ma obecne problem s nekterymi castmi RTL (a urcite i dalsich veci) pri
behu na viceprocesorovych strojich.
Petr Vones
Aplikace na vice procesorech
[*] p.sestak(zv)corag.sk - 5.2.2004 16:15:32
>aplikace zhavaruje s hlasenim AV. Pokud aplikaci spustim tak, abz bezela
pouze na jednom procesoru, tak je vse OK. ohuzel aplikaci nemuzu na tomto
>stroji otestovat, mohu testovat pouze na jednoprocesorovems troji.
Aplikace je tvrde testovana na jednoprocesorovem stroji, a vse je OK.
-naco bola multithreadova, ked bola testovana len na jednoprocesorovom
stroji?
-zjavne je to probrem so synchronizaciou threadov a tento problem dostal
prilezitost az na viacprocesorovom stroji.
da sa zistit nieco blizsie o chybe?
Pavol Sestak
ICQ : 20989081
Aplikace na vice procesorech
[*] Martin Nedopil <delphi(zv)hon(tec)cz> - 5.2.2004 16:13:31
Sazim 10:1, ze problem je v seriaku.
Take jsem drive havaroval na tom, ze Async pro si s vice
procesory poradit neumel. Jednoduche reseni, programove
se omezit na jeden procesor.
Martin
----- Original Message -----
From: <developer(zv)efg(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Thursday, February 05, 2004 3:53 PM
Subject: Aplikace na vice procesorech
> Zdravim,
> mame aplikaci: multithreadova, ADO (access), BDE (nativ link na MSSQL),
sitova komunikace, komunikace s COM porty.
>
> pokud tuto aplikace spustim na PC s jednim procesorem, vse bezi v poradku,
pokud ji ale spustim na viceprocesorovem PC, tak po chvilce
> aplikace zhavaruje s hlasenim AV. Pokud aplikaci spustim tak, abz bezela
pouze na jednom procesoru, tak je vse OK. ohuzel aplikaci nemuzu na tomto
stroji otestovat, mohu testovat pouze na jednoprocesorovems troji. Aplikace
je tvrde testovana na jednoprocesorovem stroji, a vse je OK.
>
> Nemate nekdo podobne zkusenosti, nevite cim by to mohlo byt? Pripominam
Multithread, BDE, ADO, sit, COM porty.
>
> Diky za jakekoliv info
>
> Petr Sikola
>
>
>Centrino nebo P4 pro .NET?
[*] Petr Vones <pvones(zv)vol(tec)cz> - 5.2.2004 16:05:22
From: "Erik Salaj" <winsoft(zv)netkosice.sk>
> mohol by si byt konkretnejsi? V com je vlastne problem
> s P4 a preco je to najhorsi procesor?
Pomerne zajimavy rozbor je tady http://www.emulators.com/pentium4.htm
Petr Vones
rozparsovani multipart/form-data (RFC 1867)
[*] Lukas Gebauer <gebylist(zv)mlp(tec)cz> - 5.2.2004 16:03:21
> nemate nekdo po ruce udelanou komponentu na rozparsovani dat
> POSTovanych z weboveho formulare? Na webu jsem nasel TAS_FormUpload,
> ale moc se mi nepozdava. Ten formular posila nekolik hidden polozek a
> file (obrazek). Potreboval bych to rozbit na vsechny casti a nacist
> data.
No, uz nejakou dobu se chtstam, ze tohle pridam do Synapse, presneji
receno, ze po tohle obohatim muj mimepart.pas. Nekoukal jsem ale
zatim, jesti je tam neni nejaky zadrhel...
Nicmene by teoreticky mohlo stactit, kdybys k tem datum na zacate
pridal jeste HTTP hlavicky z odpovedi (kde jsou informace jako
content-type a tak), a pak to zkusit rozparsrovat pres ten muj
mimepart. Mozna to bude fungovat, mozna ne... mozna bude stacit
nejaka jen malinka uprava... fakt ted nevim. :-)
--
Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
http://www.ararat(tec)cz/synapse/ - Ararat Synapse - TCP/IP Lib.Centrino nebo P4 pro .NET?
[*] Erik Salaj <winsoft(zv)netkosice.sk> - 5.2.2004 15:59:19
> P4 je nejhorsi procesor jaky kdy Intel vyrobil - je smutny kam az
> zavody o co nejvic Mhz muzou zajit.
mohol by si byt konkretnejsi? V com je vlastne problem
s P4 a preco je to najhorsi procesor?
Erik
Aplikace na vice procesorech
[*] developer(zv)efg(tec)cz - 5.2.2004 15:53:18
Zdravim,
mame aplikaci: multithreadova, ADO (access), BDE (nativ link na MSSQL), sitova komunikace, komunikace s COM porty.
pokud tuto aplikace spustim na PC s jednim procesorem, vse bezi v poradku, pokud ji ale spustim na viceprocesorovem PC, tak po chvilce
aplikace zhavaruje s hlasenim AV. Pokud aplikaci spustim tak, abz bezela pouze na jednom procesoru, tak je vse OK. ohuzel aplikaci nemuzu na tomto stroji otestovat, mohu testovat pouze na jednoprocesorovems troji. Aplikace je tvrde testovana na jednoprocesorovem stroji, a vse je OK.
Nemate nekdo podobne zkusenosti, nevite cim by to mohlo byt? Pripominam Multithread, BDE, ADO, sit, COM porty.
Diky za jakekoliv info
Petr Sikola
rozparsovani multipart/form-data (RFC 1867)
[*] Petr Langer <langer(zv)xdom(tec)cz> - 5.2.2004 15:29:15
Ahojte,
nemate nekdo po ruce udelanou komponentu na rozparsovani dat POSTovanych z
weboveho formulare? Na webu jsem nasel TAS_FormUpload, ale moc se mi
nepozdava. Ten formular posila nekolik hidden polozek a file (obrazek).
Potreboval bych to rozbit na vsechny casti a nacist data.
Diky,
Petr Langer
Centrino nebo P4 pro .NET?
[*] Peter Surovy <psurovy(zv)uevora.pt> - 5.2.2004 15:37:17
----- Original Message -----
From: "Petr Vones" <pvones(zv)vol(tec)cz>
Sent: Thursday, February 05, 2004 1:11 PM
> Kdyz dnes kupovat notebook tak jedine s Centrinem.
-- suhlasim
>Mobilni P4 ma velkou spotrebu a dost topi,
-- to je sice pravda ale urcite signifikantne menej ako
nemobilni P4
> Notebook nemuze (zatim) nahradit desktop predevsim kvuli
> pomalym diskum, takze vykon CPU bych nebral jako zasadni vec.
-- s tymto rovnako plne suhlasim ..
> coz je u vetsiny notebooku zvoleno na 1400x1050 a vice.
-- no zas toto (netradicne) rozlisenie ma urcite problemy
so zobrazovanim GUI ale aspon sa clovek nauci davat pozor
pri programovani
urcite sa na to rozlisenie lepsie pozera ako na mensie
k povodnej otazke : ja osobne mozem porovnat Centrino 1.6
a Mobile Pentium 2.66 a jediny pozorovatelny (nie merany) rozdiel
je v chladeni to jest v hlucnosti. Centrino sa chladi menej.
PS
OT: ODBC a AMD procesor
[*] Koteles Jan <koteles(zv)lumen.sk> - 5.2.2004 15:09:13
Dobry den,
chcem sa opytat (bez toho ze by som chcel spustit flamewar) ci ma niekto
REALNU skusenost - napriklad pri nasadzovani nejakeho systemu na vacsie
mnozstvo pocitacov, ze by pocitace s AMD procesormi vytvarali konflikt s
databazovymi aplikaciami postavenych na ODBC? Hlavne sa mi jedna o MDBcka.
Pocul som totiz raz argument "ze vraj" a v sucasnosti som postaveny pred
situaciu ked mi program tretej strany pada a ja potrebujem zistit ci brat
ohlad aj na takuto eventualitu.
Dakujem
jk
ADO - nacteni omezeneho mnozstvi zaznamu
[*] Koteles Jan <koteles(zv)lumen.sk> - 5.2.2004 15:01:12
A bezpodmienecne potrebujes nacitat celu tabulku? Jeden program ktory som
robil to riesil tak ze vystup bol obmedzeny na 1000 zaznamov a odskrtnutim
zaskrtavatka sa vypisali vsetky.
> Hezky den konfero...
>
> Pripojuji se k db (oracle 9) pres ADO komponenty.
> Predpokladal jsem, ze kdyz v ADOQuery zmenim property
> CursorLocation z clClient na clServer tak se mi podari nacist
> jen cast dat a zbytek osetrit tak abych nacital dalsi data v
> pripade, ze budu scrolovat v dbgridu. Ale nic se nedeje.
> Ruzne obmeny properties CacheSize, CursorLocation,
> CursorType, PageSize konci stejne - cekam az natahne data.
> prosim poradte...
>
ADO - nacteni omezeneho mnozstvi zaznamu
[*] sulodk(zv)atlas(tec)cz - 5.2.2004 14:51:11
Skus komponentu TBetterADODataset na http://web.orbitel.bg/vassil/ .
Tam sa skus pohrat s nastaveniami IntialFetchSize a BackgroundFetchSize(tak
neako sa volaju) a ExecuteOptions nastav na eoAsyncFetch +
eoAsyncFetchNonBlocking. Potom skus obsluzit eventy OnFetchProgress a
OnFetchComplete.
Neviem ci ti to pomoze, ale zacat mozes prave tymto smerom. Ale nie som si
isty ci to postupne docitavanie vie spolupracovat s dbgridom.
----- Original Message -----
From: "Barton Lukas" <barton(zv)labsys(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Thursday, February 05, 2004 11:16 AM
Subject: ADO - nacteni omezeneho mnozstvi zaznamu
> Hezky den konfero...
>
> Pripojuji se k db (oracle 9) pres ADO komponenty. Predpokladal jsem, ze
kdyz v ADOQuery zmenim property CursorLocation z clClient na clServer tak se
mi podari nacist jen cast dat a zbytek osetrit tak abych nacital dalsi data
v pripade, ze budu scrolovat v dbgridu. Ale nic se nedeje. Ruzne obmeny
properties CacheSize, CursorLocation, CursorType, PageSize konci stejne -
cekam az natahne data. prosim poradte...
>
> -------------------------
> Lukas Barton
> D4 c/s, oracle 9, w2k sp4
> barton(zv)labsys(tec)cz
> ICQ#116948331
>
>
>Vlozeni jinych souboru do netypoveho souboru...
[*] Lauko Stefan <laukosw(zv)naex.sk> - 5.2.2004 14:37:09
----- Original Message -----
From: <vponecha(zv)volny(tec)cz>> Ahoj,
>
> Potrebuji ulozit nastaveni pracovni plochy do netypoveho souboru.
> Problem tkvi v tom, ze netusim, jak nahrat respektive vlozit do
> tohoto souboru treba obrazky nebo ruzne soubory.
Ahoj,
pozri na TZLBArchive je na niektorom CD v baliku Delphi. Tam mas metody na
vkladanie/mazanie/nahradzanie suborov a este komprimovane.
Lauko.Centrino nebo P4 pro .NET?
[*] Radek <radek_456(zv)seznam(tec)cz> - 5.2.2004 14:33:08
> dela to zbytecny kraval, navic jeho vykon je (jako u desktopove
varianty :-)
> nepresvedcivy. Notebook nemuze (zatim) nahradit desktop predevsim
kvuli
P4 je nejhorsi procesor jaky kdy Intel vyrobil - je smutny kam az
zavody o co nejvic Mhz muzou zajit.
Radek
Jak prevest tabulky FoxPro do MySql?
[*] Robert <rpvp(zv)vagnerplast(tec)cz> - 5.2.2004 14:29:07
Ahoj,
ja jsem z FoxPro udelal COPY TO SOUBOR.TXT SDF DELIMITED
a potom jsem napr. MySQL monitoru dal prikaz
LOAD DATA LOCAL INFILE "SOUBOR.TXT" INTO TABLE MySQLTabulka FIELDS
TERMINATED BY "," ENCLOSED BY """" .....
Robert
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz] On
Behalf Of Vlastislav Cilek
Sent: Wednesday, February 04, 2004 4:37 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: Jak prevest tabulky FoxPro do MySql?
Muze mi nekdo rict, jak prevest tabulky FOXPRO napr. do MYSQL? V letaku
k Delphi doporucuji vyhnout se BDE v novych aplikacich. Rad bych to
provedl snadno pomoci Datapump, ale jaksi se mi to nedari. Hlasi to
nejake nenalezene informace v ODBC. Nebo neexistuje nejaka jednorazova
utilita?Firebird a ADO komponenty a spolehlivost
[*] Pavel Cisar <pcb(zv)atlas(tec)cz> - 5.2.2004 14:09:03
Haj hou!
On 5 Feb 2004 at 12:50, Stranik Frantisek Ing. wrote:
> Jestlize pouziji deklarovany OLE DB ovladac z www.ibphoenix.com
> budu mite nejake mozne problemy ?
Se SW mohou byt vzdy problemy, takze na tuto otazku vam neodpovim.
> Je bezproblemove tyto ovladace pouzit ? Ktery je nejvhodnejsi ?
Osobne nepouzivam zadny, anz to nemam zapotrebi. Ale rada lidi
deklarovala svou spokojenost s IBproviderem
(http://www.lcpi.lipetsk.ru/prog/eng/index.html) Dmitry Kovalenka. Je
sice komercni, ale starsi verze je free.
S pozdravem
Pavel Cisar (ICQ: 89017288)
Mobil: 724 281429
http://www.ibphoenix(tec)cz
Vse co potrebujete pro Firebird a InterBase
Centrino nebo P4 pro .NET?
[*] Petr Vones <pvones(zv)vol(tec)cz> - 5.2.2004 14:11:04
From: "Karel Kral" <kralkonf(zv)purus(tec)cz>
> mate nekdo zkusenosti s vykonem notebooku s procesorem Centrino 1.4
> oproti procesoru P4 2.6? Krome kancelarskych aplikaci bych na nem rad
> provozoval i Delhi a VS NET. Testy, ktere jsem videl na internetu
> vychazeji rozporuplne.
Kdyz dnes kupovat notebook tak jedine s Centrinem. Mobilni P4 ma velkou
spotrebu a dost topi, takze u ne malo modelu pak bezi po celou dobu vetrak a
dela to zbytecny kraval, navic jeho vykon je (jako u desktopove varianty :-)
nepresvedcivy. Notebook nemuze (zatim) nahradit desktop predevsim kvuli
pomalym diskum, takze vykon CPU bych nebral jako zasadni vec. Spise bych se
zameril na kvalitu a rozlozeni klavesnice a displej s pouzitelnym rozlisenim,
coz je u vetsiny notebooku zvoleno na 1400x1050 a vice.
Petr Vones
Z objektu TPanel, TImage, TButtons udelat screen s
[*] Lauko Stefan <laukosw(zv)naex.sk> - 5.2.2004 14:21:06
----- Original Message -----
From: <vponecha(zv)volny(tec)cz>
> Mam prosbu. Mam TPanel, kteremu rikam napriklad Work_panel. Tento
> Work_panel je parent pro jine objekty jako TPanel, TImage,
> TButton..., ktere jsou samozrejme dynamicky rozmistene, dynamicke
> velikosti a ruzneho mnozstvi...
>
> Chci z tohoto vytvoru udelat obrazek formatu nejlepe jpg (cim
> mensi tim lepsi). Tak abych ziskal rychly nahled. Neco ve smyslu
> screen shoot z TPanelu Work_panel.
Ahoj,
mala ukazka
procedure TForm1.Button1Click(Sender: TObject);
var
B:TBitmap;
begin
B:=TBitmap.Create;
B.Width:= Panel1.Width;
B.Height:= Panel1.Height;
Panel1.PaintTo(B.Canvas,0,0);
Image1.Picture.Bitmap.Assign(B);
B.Free;
end;
s TBitmap potom mozes robit co chces.
Lauko.Centrino nebo P4 pro .NET?
[*] Pospisil Jan <j.pospisil(zv)aquasoft(tec)cz> - 5.2.2004 13:47:01
Ahoj,
ja osobne mam TravelMate 291LCi a v nem 1,4 Centrino. Pisu na nem .NET aplikace ve VS 2003 a i kdyz delam WWW aplikace, nepozoruju rozdil v prekladu a provozu na nem a nebo na notasu s 2,4 P4. Nicmene kdyz potrebuju cestovat, tak je pro me rozhodujici vydrz baterie. Jednoduchy priklad. Na Centrinu skouknu na jednu baterku tak 2-3 filmy, coz je neco pres 4 hod plneho provozu vcetne multimedii. Na P4 je to tak hodina a pul. ... Ale abych se vratil k tematu. Hry na tom neprovozuju, ale v kancelarsky, vyvojarskych a ani serverovych (SQL) systemech nepozoruji viditelny rozdil. Snad jen kdyz cas od casu prekodovavam nejaky film, tak zatinco na P4 je co cca 1:1, tak na centrinu je to tak 1:1.8 tam je ten takt videt.> -----Original Message-----
> From: Karel Kral [mailto:kralkonf(zv)purus(tec)cz]
> Sent: Thursday, February 05, 2004 1:17 PM
> To: delphi-l(zv)clexpert(tec)cz
> Subject: OT: Centrino nebo P4 pro .NET?
>
>
> Ahoj,
> mate nekdo zkusenosti s vykonem notebooku s procesorem Centrino 1.4
> oproti procesoru P4 2.6? Krome kancelarskych aplikaci bych na nem rad
> provozoval i Delhi a VS NET. Testy, ktere jsem videl na internetu
> vychazeji rozporuplne.
>
> Vim, ze Centrino vydrzi 2x dele na baterie ale co vykon?
> --
>
>
>
OT: Centrino nebo P4 pro .NET?
[*] Karel Kral <kralkonf(zv)purus(tec)cz> - 5.2.2004 13:16:58
Ahoj,
mate nekdo zkusenosti s vykonem notebooku s procesorem Centrino 1.4
oproti procesoru P4 2.6? Krome kancelarskych aplikaci bych na nem rad
provozoval i Delhi a VS NET. Testy, ktere jsem videl na internetu
vychazeji rozporuplne.
Vim, ze Centrino vydrzi 2x dele na baterie ale co vykon?
--
______________________________________________________
Karel Kral, vedouci odd. IT / IT manager
Purus, s.r.o., Cezavy 627, 664 56 Blucina, CZ
Tel: 547 235 000, 602 552 432, Fax: 547 231 203
E-Mail: mailto:kral(zv)purus(tec)cz, WWW: http://www.purus(tec)cz
______________________________________________________
format datumu
[*] Pavel Poles <delphi(zv)noni(tec)cz> - 5.2.2004 13:29:00
> Mam nasledujici problem. Potreboval bych v DBGridu zobrazit casovou normu
(treba 56 hodin 20 minut -> 56:20). V databazi to je ulozeno jako DateTime
(). Jak nastavit display format, aby to zobrazovalo tech 56:20? Druha
varianta pak asi je vyuzit CalculatedField, prepocitat to a zobrazit v
pozadovanem formatu, ale preferoval bych nastaveni DisplayFormat. Nevite
nekdo jak na to?
A co TField.OnGetText. V tom si muzes nastavit co se ma zobrazit pomerne
lehce....
Pavel Poles
Ikony do Delphi
[*] jsdelphi(zv)creatix(tec)cz - 5.2.2004 13:16:57
>> Lze nekde v CR koupit dobre ikony do aplikaci (16x16, 32x32) pripadne
>> mate nekdo tip na zahranicni provenienci ktera by se dala realizovat
>> treba pres Jimaz
>Take to resime zakazkove, nas grafik si uctuje od kusu (i kdyz
>jich udela vice a da nam vybrat, uctuje si za ty ktere si skutecne
>vybereme). Cena je kolem 150-200 Kc za ikonu.
To je rozumne. Nemuzete mi poslat kontakt na takoveho grafika?
Jan Skopovy
TeeChart a vlastni tisk
[*] Jonas Marian <jonas(zv)komercpoj(tec)cz> - 5.2.2004 12:58:54
> -----Original Message-----
> From: Pavel Poles [mailto:delphi(zv)noni(tec)cz]
> Sent: Thursday, February 05, 2004 12:15 PM
> To: delphi-l(zv)clexpert(tec)cz
> Subject: Re: TeeChart a vlastni tisk
>
> Mne funguje tohle
>
> Chart.PrintResolution:=300;
> Chart.DrawToMetaCanvas(PaintCanvas,Rect);
>
> Pavel Poles
Prave tohle jsem zkousel a nefunguje to, porad jsou ty fonty male,
zkouseno na nekolika tiskarnach s DPI 300 a 600.
Na webu Steema software jsem nasel tohle:
var
Meta:TMetafile;
begin
Meta := Chart1.TeeCreateMetafile(True,Rect(0,0,Chart1.Width,Chart1.Height));
try
Printer.BeginDoc;
try
Printer.Canvas.StretchDraw(Rect(1000,1000,2000,2000),Meta);
finally
Printer.EndDoc;
end;
finally
Meta.Free;
end;
end;
vypada to docela fajn.
Marian
format datumu
[*] Otisk Rene <otisk(zv)misel(tec)cz> - 5.2.2004 12:46:51
Hi,
D5, MSSQL 2000
Mam nasledujici problem. Potreboval bych v DBGridu zobrazit casovou normu (treba 56 hodin 20 minut -> 56:20). V databazi to je ulozeno jako DateTime (). Jak nastavit display format, aby to zobrazovalo tech 56:20? Druha varianta pak asi je vyuzit CalculatedField, prepocitat to a zobrazit v pozadovanem formatu, ale preferoval bych nastaveni DisplayFormat. Nevite nekdo jak na to?
Sroub
TeeChart a vlastni tisk
[*] Petr Vetesnik <wetty(zv)quick(tec)cz> - 5.2.2004 12:46:52
OK,
ja ale nepouzivam Chart a to plati, pokud se nepletu, jen pro nej
Petr
----- Original Message -----
From: "Pavel Poles" <delphi(zv)noni(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Thursday, February 05, 2004 12:14 PM
Subject: Re: TeeChart a vlastni tisk
> > Problem je v rozdilu DPI, obrazovka ma 96, tiskarna ma napr 600.
> > V mem programu to resim tak, ze pri kresleni na canvas (at bitmapa nebo
> > APrinter) prepocitavam velikosti, delky apod dle DPI a lupy.
> > Pokud jsem pouzil StrechDraw nebylo to ono.
> >
>
> Mne funguje tohle
>
> Chart.PrintResolution:=300;
> Chart.DrawToMetaCanvas(PaintCanvas,Rect);
>
> Pavel Poles
>
>
> Firebird a ADO komponenty a spolehlivost
[*] Stranik Frantisek Ing. <fstranik(zv)cpoj(tec)cz> - 5.2.2004 12:50:53
Jestlize pouziji deklarovany OLE DB ovladac z www.ibphoenix.com
budu mite nejake mozne problemy ?
Je bezproblemove tyto ovladace pouzit ? Ktery je nejvhodnejsi ?
Jake jsou zkusenosti ?
Dekuji za odpovedi.> -----Original Message-----
> From: Pavel Cisar [mailto:pcb(zv)atlas(tec)cz]
> Sent: Wednesday, February 04, 2004 2:28 PM
> To: delphi-l(zv)clexpert(tec)cz
> Subject: Re: Firebird a ADO komponenty
>
> Haj hou!
>
> On 4 Feb 2004 at 13:13, Stranik Frantisek Ing. wrote:
>
> > Lze (je vhodne) pro nekterou verzi Firebird pouzit ADO komponenty ?
> > (jestli ano tak jak ?)
>
> Nejde ani tak o ADO, jako o vhodny OLE DB ovladac. Par jich je k
> dispozici a odkazy jsou k nalezeni na www.ibphoenix.com.
>
> S pozdravem
> Pavel Cisar (ICQ: 89017288)
> Mobil: 724 281429
> http://www.ibphoenix(tec)cz
> Vse co potrebujete pro Firebird a InterBase
>
> Problem Interbase
[*] petr palicka <palicka.petr(zv)seznam(tec)cz> - 5.2.2004 12:44:51
> na PC je nainstalovano AVG ktere ma svoji knihovnu gds32 pro firebird
> tak jsem tu z interbase nahral primo do adresare odkud prekladam program
> staci to ?
tak to si nejsem jistej. windows AFAIK berou dll
ze slozky aplikace prednostne, ale co je slozka
aplikace pri spousteni v IDE? Zkusil bych cvicne
odstranit ze systemu (a vsech cest) jine verze
gds32.dll, nez co potrebujes, pripadne je vymenit
za tu nejnovejsi.
mam za to, ze posledni verze gds32.dll by mela byt
kompatibilni i s programy, ktere pouzivaji starsi.
_myslim si_ ze to rikal primo Pavel Cisar.
nejak mi uniklo, jakou mas verzi IBX. zkus to
zjistit, pripadne na http://codecentral.borland.com
od autora Jeffa Overcache (doufam, ze to pisu dobre).
stahni novou.
AVGcko je taky jeden z tech "residentnich" antiviru?
zkus ho na cas odstavit. nam v urcitych konstelacich
residentni antivir delal zajimave veci, ktere by s tim
nemeli co delat. uz nekolikrat jsem se presvedcil, ze
residentni antiviri doukazou uplny kouzla :/
(timto bych nerad rozpoutal nejakou flame, ale muje
zkusenost je takova, ze tyto programy zpusobuji
nestabilitu jinych jinak fungujicich programu, proto
je z principu na svem pocitaci nesnesu (zapnuty).
pripadne reakce na toto tema prosim do zvlastniho
vlakna diskuse).
peca
TeeChart a vlastni tisk
[*] Pavel Poles <delphi(zv)noni(tec)cz> - 5.2.2004 12:14:47
> Problem je v rozdilu DPI, obrazovka ma 96, tiskarna ma napr 600.
> V mem programu to resim tak, ze pri kresleni na canvas (at bitmapa nebo
> APrinter) prepocitavam velikosti, delky apod dle DPI a lupy.
> Pokud jsem pouzil StrechDraw nebylo to ono.
>
Mne funguje tohle
Chart.PrintResolution:=300;
Chart.DrawToMetaCanvas(PaintCanvas,Rect);
Pavel Poles
Ikony do Delphi
[*] Martin Schayna <mschayna(zv)aktis(tec)cz> - 5.2.2004 11:46:45
Viktor Marek <viktor(zv)mbox.vol(tec)cz> wrote:
> Lze nekde v CR koupit dobre ikony do aplikaci (16x16, 32x32) pripadne
> mate nekdo tip na zahranicni provenienci ktera by se dala realizovat
> treba pres Jimaz
Take to resime zakazkove, nas grafik si uctuje od kusu (i kdyz
jich udela vice a da nam vybrat, uctuje si za ty ktere si skutecne
vybereme). Cena je kolem 150-200 Kc za ikonu.
Martin Schayna
TeeChart a vlastni tisk
[*] Petr Vetesnik <wetty(zv)quick(tec)cz> - 5.2.2004 11:16:42
Problem je v rozdilu DPI, obrazovka ma 96, tiskarna ma napr 600.
V mem programu to resim tak, ze pri kresleni na canvas (at bitmapa nebo
APrinter) prepocitavam velikosti, delky apod dle DPI a lupy.
Pokud jsem pouzil StrechDraw nebylo to ono.
Petr
----- Original Message -----
From: "Jonas Marian" <jonas(zv)komercpoj(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Thursday, February 05, 2004 10:12 AM
Subject: TeeChart a vlastni tisk
> Snazim se vytisknout TeeChart graf na tiskarnu pres Canvas, pouzivam tento
kod :
>
> AChart.DrawToMetaCanvas(APrinter.Canvas, ADest)
>
> funguje to v poradku ale veskere fonty - nadpis, legenda, popisky os jsou
hrozne male - v grafu je pouzit font.size 8 ale na papire ma pismo vysku asi
2 mm. Protoze namam data pro graf v datasetu nemohu pouzit QRChart a
standartni tisk z TeeChart mi nevyhovuje. Nevite nekdo co s tim ?
>
> Dik Marian
>
>
ADO - nacteni omezeneho mnozstvi zaznamu
[*] Barton Lukas <barton(zv)labsys(tec)cz> - 5.2.2004 11:16:42
Hezky den konfero...
Pripojuji se k db (oracle 9) pres ADO komponenty. Predpokladal jsem, ze kdyz v ADOQuery zmenim property CursorLocation z clClient na clServer tak se mi podari nacist jen cast dat a zbytek osetrit tak abych nacital dalsi data v pripade, ze budu scrolovat v dbgridu. Ale nic se nedeje. Ruzne obmeny properties CacheSize, CursorLocation, CursorType, PageSize konci stejne - cekam az natahne data. prosim poradte...
-------------------------
Lukas Barton
D4 c/s, oracle 9, w2k sp4
barton(zv)labsys(tec)cz
ICQ#116948331
TeeChart a vlastni tisk
[*] Jonas Marian <jonas(zv)komercpoj(tec)cz> - 5.2.2004 10:12:37
Snazim se vytisknout TeeChart graf na tiskarnu pres Canvas, pouzivam tento kod :
AChart.DrawToMetaCanvas(APrinter.Canvas, ADest)
funguje to v poradku ale veskere fonty - nadpis, legenda, popisky os jsou hrozne male - v grafu je pouzit font.size 8 ale na papire ma pismo vysku asi 2 mm. Protoze namam data pro graf v datasetu nemohu pouzit QRChart a standartni tisk z TeeChart mi nevyhovuje. Nevite nekdo co s tim ?
Dik Marian
Ikony do Delphi
[*] Vlastimil Zdenek <delphi(zv)gestore(tec)cz> - 5.2.2004 10:02:35
Zdravim,
pouzivame toto: httt:/2beesoft.com a jsme vcelku spokojeny.... Trial je na
tricet dni a pak uvidis..:-))) Nazepomen si stahnout i vsechny ikony......
Praci zdar
Vlasta
> ----- Original Message -----
> From: "Viktor Marek" <viktor(zv)mbox.vol(tec)cz>
> To: <delphi-l(zv)clexpert(tec)cz>
> Sent: Wednesday, February 04, 2004 9:47 PM
> Subject: Ikony do Delphi
>
>
> > Zdravim
> >
> > Lze nekde v CR koupit dobre ikony do aplikaci (16x16, 32x32) pripadne
mate
> > nekdo tip na zahranicni provenienci ktera by se dala realizovat treba
pres
> > Jimaz
> >
> > Diky za odpoved
> >
> > Viktor Marek
> > viktor(zv)mbox.vol(tec)cz
> >
> >
> >
> >
>
Net tiskarny NT-NT
[*] Zdenek Brejsa <prog(zv)hjsoft(tec)cz> - 5.2.2004 09:28:31
> Points to a null-terminated character string that specifies the name of
the
> device driver (for example, "Epson").
>
> a zkusit mu ten driver pre pipe vnutit ze serveru ???
>
> \\PCServer\\Windows\\Sysyem32\\Spool\\Drivers\\w32x86....
hmm ... no muzu to pro legraci zkusit, ale to neni cesta - asi to neprojde
pres prava. Program ma fungovat vsude a cesty budou ruzne ...
>
> > > pokud jde EnumPrinters(PRINTER_ENUM_CONNECTIONS , proc ji nevytahnes
ze
> > > seznamu a pak ji otevrit pres OpenPrinter ?
> > OpenPrinter pouzivam (pro zjisteni informaci o driveru atd.), ale pak si
> > chci vytvorit vlastni "plochu" na tisk. Jenze CreateIC asi nezna ten
> driver,
> > protoze ho nemam nainstalovanej (je na "serveru"). Zajima mne, jestli
> > existuje nejaka cesta, jak to zprovoznit.
> >
> > PS:
> > zkusil jsem i "stary postup", tedy Printer.Canvas, BeginDoc ... a taky
to
> na
> > takhle pripojene sitove tiskarne nefacha (AV).
> >
> >
> > > > si vytvarim vlastni IC [h := CreateIC(PChar(FDriver),
PChar(FDevice),
> > nil,
> > > > FDeviceMode);] podle aktualni tiskarny (prime pouziti Printer se
> > > > neosvedcilo). Vsechno funguje OK, az na pripad, ze je sitova
tiskarna
> > > pouze
> > > > "pripojena", neboli jak to chapu ja - neni primo nainstalovana, ale
> > > pouziva
> > > > se ovladac na "serveru" (nejde zjistit
> > EnumPrinters(PRINTER_ENUM_LOCAL...,
> > > > ale EnumPrinters(PRINTER_ENUM_CONNECTIONS...). V tu chvili mi
CreateIC
> > > > zhavaruje na AV.
> > > >
> >
> >
> >
> >
> >
>
>Net tiskarny NT-NT
[*] Zdenek Brejsa <prog(zv)hjsoft(tec)cz> - 5.2.2004 08:50:26
> pokud jde EnumPrinters(PRINTER_ENUM_CONNECTIONS , proc ji nevytahnes ze
> seznamu a pak ji otevrit pres OpenPrinter ?
OpenPrinter pouzivam (pro zjisteni informaci o driveru atd.), ale pak si
chci vytvorit vlastni "plochu" na tisk. Jenze CreateIC asi nezna ten driver,
protoze ho nemam nainstalovanej (je na "serveru"). Zajima mne, jestli
existuje nejaka cesta, jak to zprovoznit.
PS:
zkusil jsem i "stary postup", tedy Printer.Canvas, BeginDoc ... a taky to na
takhle pripojene sitove tiskarne nefacha (AV).> > si vytvarim vlastni IC [h := CreateIC(PChar(FDriver), PChar(FDevice),
nil,
> > FDeviceMode);] podle aktualni tiskarny (prime pouziti Printer se
> > neosvedcilo). Vsechno funguje OK, az na pripad, ze je sitova tiskarna
> pouze
> > "pripojena", neboli jak to chapu ja - neni primo nainstalovana, ale
> pouziva
> > se ovladac na "serveru" (nejde zjistit
EnumPrinters(PRINTER_ENUM_LOCAL...,
> > ale EnumPrinters(PRINTER_ENUM_CONNECTIONS...). V tu chvili mi CreateIC
> > zhavaruje na AV.
> >
Net tiskarny NT-NT
[*] Jiri Virt <virt(zv)volny(tec)cz> - 5.2.2004 08:56:27
Points to a null-terminated character string that specifies the name of the
device driver (for example, "Epson").
a zkusit mu ten driver pre pipe vnutit ze serveru ???
\\PCServer\\Windows\\Sysyem32\\Spool\\Drivers\\w32x86....
Jirka Virt
----- Original Message -----
From: "Zdenek Brejsa" <prog(zv)hjsoft(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Thursday, February 05, 2004 8:50 AM
Subject: Re: Net tiskarny NT-NT
> > pokud jde EnumPrinters(PRINTER_ENUM_CONNECTIONS , proc ji nevytahnes ze
> > seznamu a pak ji otevrit pres OpenPrinter ?
> OpenPrinter pouzivam (pro zjisteni informaci o driveru atd.), ale pak si
> chci vytvorit vlastni "plochu" na tisk. Jenze CreateIC asi nezna ten
driver,
> protoze ho nemam nainstalovanej (je na "serveru"). Zajima mne, jestli
> existuje nejaka cesta, jak to zprovoznit.
>
> PS:
> zkusil jsem i "stary postup", tedy Printer.Canvas, BeginDoc ... a taky to
na
> takhle pripojene sitove tiskarne nefacha (AV).
>
> > > si vytvarim vlastni IC [h := CreateIC(PChar(FDriver), PChar(FDevice),
> nil,
> > > FDeviceMode);] podle aktualni tiskarny (prime pouziti Printer se
> > > neosvedcilo). Vsechno funguje OK, az na pripad, ze je sitova tiskarna
> > pouze
> > > "pripojena", neboli jak to chapu ja - neni primo nainstalovana, ale
> > pouziva
> > > se ovladac na "serveru" (nejde zjistit
> EnumPrinters(PRINTER_ENUM_LOCAL...,
> > > ale EnumPrinters(PRINTER_ENUM_CONNECTIONS...). V tu chvili mi CreateIC
> > > zhavaruje na AV.
> > >
>
>
>
>Ikony do Delphi
[*] Vaclav Halik <spravasd(zv)suz.cvut(tec)cz> - 5.2.2004 08:38:25
Zdravim,
to by mne take zajimalo. Jinak mi to resime zakazkovou tvorbou presne na
miru. Mame proste na to sikovne lidi :-)
Vaclav Halik
> Zdravim
>
> Lze nekde v CR koupit dobre ikony do aplikaci (16x16, 32x32) pripadne mate
> nekdo tip na zahranicni provenienci ktera by se dala realizovat treba pres
> Jimaz
>
> Diky za odpoved
>
> Viktor Marek
> viktor(zv)mbox.vol(tec)cz
nacteni hodnoty do vyctoveho typu podle indexu (in
[*] Petr Daricek <petr.daricek(zv)seznam(tec)cz> - 5.2.2004 08:00:21
> Lze nejak jednoduse priradit hodnotu do vyctoveho typu z ordinalniho typu
> (integer)
>
> Pr.: mam
> type
> TVyctovyTyp = (prvni, druhej, treti);
>
> a
> var
> i: integer;
> VyctovyTyp: TVyctovyTyp;
>
> ----------
> lze napsat neco jako VyctovyTyp:=i; // treba 0
> --------
> jde to sice pomoci Case, ale to je nekdy na zastreleni se. :-)
> ----
>
>
>
Ahoj,
staci pretypovat, dle tve deklarace nasledovne.
VyctovyTyp:=TVyctovyTyp(i);
Petr Daricek
____________________________________________________________
Contactel. Prijemne rychla komunikace. Internet, hlas, data.
http://ad2.seznam(tec)cz/redir.cgi?instance=70016%26url=http://www.contactel(tec)cz
nacteni hodnoty do vyctoveho typu podle indexu (in
[*] Milan Tomes <delphi(zv)haida(tec)cz> - 5.2.2004 07:38:19
Jestli to potrebujes pouzit v cyklu, tak muzes pouzit konstrukci:
var
i: TVyctovyTyp;
begin
for i := Low(TVyctovyTyp) to High(TVyctovyTyp) do
........
end;
S pozdravem
Milan Tomes
mailto:milan.tomes(zv)haida(tec)cz
> [mailto:delphi-l-owner(zv)clexpert(tec)cz]On Behalf Of Jan Rizek
> Sent: Wednesday, February 04, 2004 4:43 PM
> Subject: nacteni hodnoty do vyctoveho typu podle indexu (integer)
>
> Lze nejak jednoduse priradit hodnotu do vyctoveho typu z ordinalniho typu
> (integer)Net tiskarny NT-NT
[*] Jiri Virt <virt(zv)volny(tec)cz> - 5.2.2004 07:34:18
pokud jde EnumPrinters(PRINTER_ENUM_CONNECTIONS , proc ji nevytahnes ze
seznamu a pak ji otevrit pres OpenPrinter ?
Jirka Virt
> Ahojky,
> delam programek pro tisk specialnich sestav. Podle ruznych rad a
doporuceni
> si vytvarim vlastni IC [h := CreateIC(PChar(FDriver), PChar(FDevice), nil,
> FDeviceMode);] podle aktualni tiskarny (prime pouziti Printer se
> neosvedcilo). Vsechno funguje OK, az na pripad, ze je sitova tiskarna
pouze
> "pripojena", neboli jak to chapu ja - neni primo nainstalovana, ale
pouziva
> se ovladac na "serveru" (nejde zjistit EnumPrinters(PRINTER_ENUM_LOCAL...,
> ale EnumPrinters(PRINTER_ENUM_CONNECTIONS...). V tu chvili mi CreateIC
> zhavaruje na AV.
>
> Dokaze mi nekdo poradit jak to udelat spravne?
>
> PS
> Pro zjisteni seznamu tiskaren pouzivam:
>
> function PrinterList:TStringList;
> var
> i,dwAlloc,dwReturned,dwBytesOfArray,dwByteNeeded:dWord;
> pPrinterInfoI:PPrinterInfo2;Seznam:TStringList;
> begin
> Seznam:= TStringList.Create;
> dwBytesOfArray:=0;
> EnumPrinters(PRINTER_ENUM_LOCAL,Nil,2,Nil,0,dwByteNeeded,dwReturned);
> if dwByteNeeded <> 0 then
> begin
> dwAlloc := GlobalAlloc(GHND,dwByteNeeded);
> pPrinterInfoI := GlobalLock(dwAlloc);
> if
>
EnumPrinters(PRINTER_ENUM_LOCAL,Nil,2,pPrinterInfoI,dwByteNeeded,dwBytesOfAr
> ray,dwReturned) then
> begin
> for i:= 0 to dwReturned-1 do
> begin
> Seznam.Add(pPrinterInfoI.pPrinterName);
> { pPrinterInfoI.pServerName;
> pPrinterInfoI.pPortName;
> pPrinterInfoI.pDriverName;
> pPrinterInfoI.cJobs;
> pPrinterInfoI.
> .....
> }
> INC(pPrinterInfoI);
> end;{for}
> end;{EnumPrinters}
> end;{cByteNeeded <> 0}
> dwBytesOfArray:=0;
>
EnumPrinters(PRINTER_ENUM_CONNECTIONS,Nil,2,Nil,0,dwByteNeeded,dwReturned);
> if dwByteNeeded <> 0 then
> begin
> dwAlloc := GlobalAlloc(GHND,dwByteNeeded);
> pPrinterInfoI := GlobalLock(dwAlloc);
> if
>
EnumPrinters(PRINTER_ENUM_CONNECTIONS,Nil,2,pPrinterInfoI,dwByteNeeded,dwByt
> esOfArray,dwReturned) then
> begin
> for i:= 0 to dwReturned-1 do
> begin
> Seznam.Add(pPrinterInfoI.pPrinterName);
> { pPrinterInfoI.pServerName;
> pPrinterInfoI.pPortName;
> pPrinterInfoI.pDriverName;
> pPrinterInfoI.cJobs;
> pPrinterInfoI.
> .....
> }
> INC(pPrinterInfoI);
> end;{for}
> end;{EnumPrinters}
> end;{cByteNeeded <> 0}
> result := Seznam;
> end;{PrinterList}
>
> pro zjisteni hodnot pro CreateIC:
> procedure ZjistitInfo;
> var
> Tiskarna: THandle;
> Buffer: Pointer;
> Vraceno: Cardinal;
> begin
> {Printer.PrinterIndex := lbTiskarny.ItemIndex;}
> FDevice := lbTiskarny.Items[lbTiskarny.ItemIndex];
> if Pos(' on ', FDevice) > 0 then
> FDevice := Copy(FDevice, 1, Pos(' on ', FDevice) - 1);
> OpenPrinter(PChar(FDevice), Tiskarna, nil);
> try
> GetMem(Buffer, 4096);
> try
> if GetPrinter(Tiskarna, 2, Buffer, 4096, (zv)Vraceno) then
> begin
> FDriver := TPrinterInfo2(Buffer^).pDriverName;
> FPort := TPrinterInfo2(Buffer^).pLocation;
> if FPort = '' then
> FPort := TPrinterInfo2(Buffer^).pPortName;
> end
> finally
> FreeMem(Buffer)
> end
> finally
> ClosePrinter(Tiskarna)
> end;
> end;
>
>
>
>Vlozeni jinych souboru do netypoveho souboru...
[*] Jiri Virt <virt(zv)volny(tec)cz> - 5.2.2004 07:08:16
> procedure TForm1.Button1Click(Sender: TObject);
> var
> Dat : File;
> Buf : Array[0..128] of byte;
> OpenedFile : File;
> testImage : TImage;
> NumRead,Tst : integer;
> begin
> AssignFile(Dat, ExtractFilePath(Application.ExeName)+
> 'Test.DAT'); If fileExists(ExtractFilePath(Application.ExeName)
> + 'TEST.DAT') then Reset(Dat)
> else
> rewrite(Dat);
> try
> if opendialog1.Execute then
> begin
> Seek(Dat, FileSize(Dat));
BlockRead(Dat, Buf, SizeOf(Buf), NumRead);
> AssignFile(OpenedFile, OpenDialog1.Files); //Snazim se
> vybrany soubor vlozit do *FILE* OpenedFile
>
BlockWrite(OpenedFile, Buf, NumRead,Tst);
end;
> finally
> CloseFile(Dat);
> end;
Jirka Virt
Vlozeni jinych souboru do netypoveho souboru...
[*] vponecha(zv)volny(tec)cz - 5.2.2004 01:17:48
Ahoj,
Potrebuji ulozit nastaveni pracovni plochy do netypoveho souboru.
Problem tkvi v tom, ze netusim, jak nahrat respektive vlozit do
tohoto souboru treba obrazky nebo ruzne soubory.
Vydal jsem se timto smerem:
procedure TForm1.Button1Click(Sender: TObject);
var
Dat : File;
Buf : Array[0..128] of byte;
OpenedFile : File;
testImage : TImage;
Tst : integer;
begin
AssignFile(Dat, ExtractFilePath(Application.ExeName)+
'Test.DAT'); If fileExists(ExtractFilePath(Application.ExeName)
+ 'TEST.DAT') then Reset(Dat)
else
rewrite(Dat);
try
if opendialog1.Execute then
begin
Seek(Dat, FileSize(Dat));
AssignFile(OpenedFile, OpenDialog1.Files); //Snazim se
vybrany soubor vlozit do *FILE* OpenedFile
BlockWrite(Dat, OpenedFile, 1); //OpenedFile se snazim
vlozit do meho netypoveho souboru end;
finally
CloseFile(Dat);
end;
Nicmene to nefunguje. Jedine co se mi podarilo, do netypoveho
souboru nahrat je rosypany caj a cesta k souboru na disku.
Pleeease, help... Tlaci to.. :-(
Diky za pomoc,
Vlada
--
Zapojte se do ankety Motocykl roku 2004 a muzete vyhrat
Kawasaki ER-5 a dalsi ceny temer za 300.000 tisic korun.
Dejte hlas nejlepsi motorce na http://www.motocyklroku(tec)cz
Z objektu TPanel, TImage, TButtons udelat screen s
[*] vponecha(zv)volny(tec)cz - 5.2.2004 01:07:45
Ahoj vsichni,
Mam prosbu. Mam TPanel, kteremu rikam napriklad Work_panel. Tento
Work_panel je parent pro jine objekty jako TPanel, TImage,
TButton..., ktere jsou samozrejme dynamicky rozmistene, dynamicke
velikosti a ruzneho mnozstvi...
Chci z tohoto vytvoru udelat obrazek formatu nejlepe jpg (cim
mensi tim lepsi). Tak abych ziskal rychly nahled. Neco ve smyslu
screen shoot z TPanelu Work_panel.
Diky za nakopnuti, pripadne pomoc.
Vlada
--
VOLNY klub: Modemisti vseho druhu, spojte se!
http://klub.volny(tec)cz
Ikony do Delphi
[*] Viktor Marek <viktor(zv)mbox.vol(tec)cz> - 4.2.2004 21:47:30
Zdravim
Lze nekde v CR koupit dobre ikony do aplikaci (16x16, 32x32) pripadne mate
nekdo tip na zahranicni provenienci ktera by se dala realizovat treba pres
Jimaz
Diky za odpoved
Viktor Marek
viktor(zv)mbox.vol(tec)cz
Problem Interbase
[*] Matejcek Petr <konference(zv)crhov.komfi(tec)cz> - 4.2.2004 19:45:01
petr palicka napsal(a):
>Jaka je verze serveru?
>
verze je 6.0.1 a jinou dat nemuzu protoze na tom behaji jiny programy
(tam ocividne problemy nejsou )
>Nejsou v dotazu nahodou nejaky joiny a
>mezi selectenymi poli nejaka, ktera se vyskytuji ve vice tabulkach?
>proklad:
>
>
>
pouzivam pouze select * from komponenty where id = :id v hlavni
tabulce problemy nejsou pouze v te ktera je na hlavni navazana
>zkontroluj si velikost pismen v dotazu a nazvu pole v gridu
>je to sice kravina, ale tak me to napadlo.
>
>
kdyby toto vadilo tak to nebude fungovat nikdy ale ono to nekdy jde
>kdyz uplne vypnes (odstranis metodu z udalosti OnDraw...)
>vlastni prekreslovani, tak to dela to samy?
>
>
ANO dela
>mas spravnou verzi gds32.dll? jakou mas verzi IBX (je to videt
>pri kliknuti pravym tlacitkem na komponentu ve formulari)?
>
>
na PC je nainstalovano AVG ktere ma svoji knihovnu gds32 pro firebird
tak jsem tu z interbase nahral primo do adresare odkud prekladam program
staci to ?
>jaky vsecky udalosti IBQuery a DBGridu mas vyuzity? nemuzes
>di nahodou nekde neco zavrit, preponout rezim edit/browse/insert
>nekde behem ruznejch udalosti?
>
>
Events IBQuery: Database, Datasource, Transaction
DBGrid: Datasource, OnCellClick, OnDrawDataCell
>idealni na tohle je mit dva monitory, kdy mas ladenej form
>vedle delphi a muzes v klidu krokovat.
>
mam :-)IndyTCP klient
[*] Petr Vones <pvones(zv)vol(tec)cz> - 4.2.2004 19:00:58
From: "Pavel Poles" <delphi(zv)noni(tec)cz>
> Pri pouziti idFTP pro komunikaci s FTP serverem se mi stava to,
> ze behem prenosu, hlavne u vetsich souboru ostatni aplikace
> "zamrza", nereaguje na kliky mysi, neprekresluje poradne apod
> (resp prekrsluje ale pomalu).
Veskery prenos by mel probihat v samostatnem threadu. Synchronizace s hlavnim
threadem kde je GUI by se mela omezit jen na nazbytne nutne updatovani
ovladacich prvku.
> Ruzne cachry s idAntifreeze nepomahaji, jedine co trochu pomuze je
> volat v OnWork Application.ProccessMessages a nastavit SendBuffer
Nikdy nevolej Application.ProccessMessages.
Petr Vones
MSIE - nastaveni zabezpeceni
[*] Petr Vones <pvones(zv)vol(tec)cz> - 4.2.2004 18:56:57
From: <prgx(zv)email(tec)cz>
> Ahoj, potreboval bych radu. Jak muzu z me aplikace nastavit "zabezpeceni"
> MSIE (pouzivam verzi 6). Konkretne se mi jedna vypnout/zapnout skriptovani
http://www.euromind.com/iedelphi/iesecurity.htm
Petr Vones
jak vlozim radek do sesitu excelu
[*] Marek Dostal <konf(zv)agnis(tec)cz> - 4.2.2004 18:28:46
Prosim o pomoc, jak vlozim radek do sesitu v dokumentu v excelu?
ExcelApp:=CreateOleObject('Excel.Application');
ExcelApp.WorkBooks.Add('mujdokument.xls');
Sheet:=ExcelApp.WorkBooks[1].WorkSheets[1];
Sheet."pridat radek na urcitou pozici"
Marek Dostal
D7Prof, W98, Excel2000
nacteni hodnoty do vyctoveho typu podle indexu (in
[*] Tomas Rosa <trosa(zv)seznam(tec)cz> - 4.2.2004 17:24:41
>Pr.: mam
>type
> TVyctovyTyp = (prvni, druhej, treti);
>
>a
>var
> i: integer;
> VyctovyTyp: TVyctovyTyp;
>
>----------
>lze napsat neco jako VyctovyTyp:=i; // treba 0
VyctovyTyp:=TVyctovyTyp(i);
eventuelne:
const prevod:array[0..2] of TVyctovyTyp = (prvni, druhej, treti);
VyctovyTyp:=prevod[i];
S pozdravem
Tomas Rosa
------------------------=[ pinknet on every screen]=-----------------------
Tomas Rosa
Tomas.Rosa(zv)PinkNet(tec)cz http://www.pnws.org
+420 602 860 704
PinkNet Web Server for Win32 - FREEWARE www.pnws.org
---------------------------------------------------------------------------
nacteni hodnoty do vyctoveho typu podle indexu (in
[*] Ondrej Kelle <o.kelle(zv)digitalpublishing.de> - 4.2.2004 17:08:39
> type
> TVyctovyTyp = (prvni, druhej, treti);
> var
> i: integer;
> VyctovyTyp: TVyctovyTyp;
>
> ----------
> lze napsat neco jako VyctovyTyp:=i; // treba 0
> --------
> jde to sice pomoci Case, ale to je nekdy na zastreleni se. :-)
Mas dve moznosti:
VyctovyTyp := TVyctovyTyp(i);
alebo
Byte(VyctovyTyp) := i;
V obidvoch pripadoch plati, ze kompilator Ti s kontrolou hodnoty nepomoze,
je to na Tebe.
Tu kontrolu si mozes spravit napriklad takto:
if (i >= Ord(Low(TVyctovyTyp))) and (i <= Ord(High(TVyctovyTyp))) then
VyctovyTyp := TVyctovyTyp(i)
else
raise Exception...
HTH
TOndrej
nacteni hodnoty do vyctoveho typu podle indexu (in
[*] Jan Rizek <abxsw(zv)centrum(tec)cz> - 4.2.2004 16:42:37
Lze nejak jednoduse priradit hodnotu do vyctoveho typu z ordinalniho typu
(integer)
Pr.: mam
type
TVyctovyTyp = (prvni, druhej, treti);
a
var
i: integer;
VyctovyTyp: TVyctovyTyp;
----------
lze napsat neco jako VyctovyTyp:=i; // treba 0
--------
jde to sice pomoci Case, ale to je nekdy na zastreleni se. :-)
----
Spiknuti vyrobcu USB - jak pripojit Nokii?
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 4.2.2004 16:40:36
Puvodni zprava ze dne 4.2.2004:
>> Tak si precti manual telefonu a nauc se povolit pristup natrvalo,
>> jinymi slovy priradit svuj pocitac mezi duveryhodna zarizeni, jeste
>> jinymi slovy nastavit, aby nevyzadoval pokazde autorizaci...
> No tak rekneme ze vse je nastavene ... A ...? Stale se hlaska ukazuje.
> Cili to jest spis chyba FW nez moje.
Jestlize mas telefon, ktery nepracuje podle navodu, musis ho
reklamovat a ne si preci stezovat v konferenci, ze to spatne funguje.
Me to pracuje bez nejmensich problemu.
Petr Zahradnik, pocitacovy expert
==========================================================
Petr Zahradnik, Computer Laboratory
web: http://www.clexpert(tec)cz, e-mail: clexpert(zv)clexpert(tec)cz
==========================================================
Jak prevest tabulky FoxPro do MySql?
[*] Vlastislav Cilek <bigvlci(zv)seznam(tec)cz> - 4.2.2004 16:36:35
Muze mi nekdo rict, jak prevest tabulky FOXPRO napr. do MYSQL? V letaku k Delphi doporucuji vyhnout se BDE v novych aplikacich. Rad bych to provedl snadno pomoci Datapump, ale jaksi se mi to nedari. Hlasi to nejake nenalezene informace v ODBC. Nebo neexistuje nejaka jednorazova utilita?
IndyTCP klient
[*] Pavel Poles <delphi(zv)noni(tec)cz> - 4.2.2004 16:22:33
Zdravim,
Mate nekdo zkusenosti s pouzivanim nejakych Indy TCP klientu
(idFTP, idHTTP apod..)
Pri pouziti idFTP pro komunikaci s FTP serverem se mi stava to,
ze behem prenosu, hlavne u vetsich souboru ostatni aplikace
"zamrza", nereaguje na kliky mysi, neprekresluje poradne apod
(resp prekrsluje ale pomalu).
Ruzne cachry s idAntifreeze nepomahaji, jedine co trochu pomuze je
volat v OnWork Application.ProccessMessages a nastavit SendBuffer
a RecieveBuffer na nejakou nesmyslne malou hodnotu jako treba 2.
To ma ale za dusledek ze kdyz treba hybu formularem, tak se zas
neprenaseji data, protoze aplikace proste procesi messages, a na FTP
nema cas.
Jedine co mne napadlo je udelat jakousi obalovaci komponentu, ktera si
idFTP vytvori v threadu a bude volat jeji funkce threadove. To by ale znamenalo
pro tu obalovaci komponentu zaregistrovat vsechny mozny funkce jako ma idFTP...
Neexistuje nejake jine reseni?
Dekuji predem za nazory a rady
Pavel Poles
Net tiskarny NT-NT
[*] Zdenek Brejsa <prog(zv)hjsoft(tec)cz> - 4.2.2004 16:12:31
Ahojky,
delam programek pro tisk specialnich sestav. Podle ruznych rad a doporuceni
si vytvarim vlastni IC [h := CreateIC(PChar(FDriver), PChar(FDevice), nil,
FDeviceMode);] podle aktualni tiskarny (prime pouziti Printer se
neosvedcilo). Vsechno funguje OK, az na pripad, ze je sitova tiskarna pouze
"pripojena", neboli jak to chapu ja - neni primo nainstalovana, ale pouziva
se ovladac na "serveru" (nejde zjistit EnumPrinters(PRINTER_ENUM_LOCAL...,
ale EnumPrinters(PRINTER_ENUM_CONNECTIONS...). V tu chvili mi CreateIC
zhavaruje na AV.
Dokaze mi nekdo poradit jak to udelat spravne?
PS
Pro zjisteni seznamu tiskaren pouzivam:
function PrinterList:TStringList;
var
i,dwAlloc,dwReturned,dwBytesOfArray,dwByteNeeded:dWord;
pPrinterInfoI:PPrinterInfo2;Seznam:TStringList;
begin
Seznam:= TStringList.Create;
dwBytesOfArray:=0;
EnumPrinters(PRINTER_ENUM_LOCAL,Nil,2,Nil,0,dwByteNeeded,dwReturned);
if dwByteNeeded <> 0 then
begin
dwAlloc := GlobalAlloc(GHND,dwByteNeeded);
pPrinterInfoI := GlobalLock(dwAlloc);
if
EnumPrinters(PRINTER_ENUM_LOCAL,Nil,2,pPrinterInfoI,dwByteNeeded,dwBytesOfAr
ray,dwReturned) then
begin
for i:= 0 to dwReturned-1 do
begin
Seznam.Add(pPrinterInfoI.pPrinterName);
{ pPrinterInfoI.pServerName;
pPrinterInfoI.pPortName;
pPrinterInfoI.pDriverName;
pPrinterInfoI.cJobs;
pPrinterInfoI.
.....
}
INC(pPrinterInfoI);
end;{for}
end;{EnumPrinters}
end;{cByteNeeded <> 0}
dwBytesOfArray:=0;
EnumPrinters(PRINTER_ENUM_CONNECTIONS,Nil,2,Nil,0,dwByteNeeded,dwReturned);
if dwByteNeeded <> 0 then
begin
dwAlloc := GlobalAlloc(GHND,dwByteNeeded);
pPrinterInfoI := GlobalLock(dwAlloc);
if
EnumPrinters(PRINTER_ENUM_CONNECTIONS,Nil,2,pPrinterInfoI,dwByteNeeded,dwByt
esOfArray,dwReturned) then
begin
for i:= 0 to dwReturned-1 do
begin
Seznam.Add(pPrinterInfoI.pPrinterName);
{ pPrinterInfoI.pServerName;
pPrinterInfoI.pPortName;
pPrinterInfoI.pDriverName;
pPrinterInfoI.cJobs;
pPrinterInfoI.
.....
}
INC(pPrinterInfoI);
end;{for}
end;{EnumPrinters}
end;{cByteNeeded <> 0}
result := Seznam;
end;{PrinterList}
pro zjisteni hodnot pro CreateIC:
procedure ZjistitInfo;
var
Tiskarna: THandle;
Buffer: Pointer;
Vraceno: Cardinal;
begin
{Printer.PrinterIndex := lbTiskarny.ItemIndex;}
FDevice := lbTiskarny.Items[lbTiskarny.ItemIndex];
if Pos(' on ', FDevice) > 0 then
FDevice := Copy(FDevice, 1, Pos(' on ', FDevice) - 1);
OpenPrinter(PChar(FDevice), Tiskarna, nil);
try
GetMem(Buffer, 4096);
try
if GetPrinter(Tiskarna, 2, Buffer, 4096, (zv)Vraceno) then
begin
FDriver := TPrinterInfo2(Buffer^).pDriverName;
FPort := TPrinterInfo2(Buffer^).pLocation;
if FPort = '' then
FPort := TPrinterInfo2(Buffer^).pPortName;
end
finally
FreeMem(Buffer)
end
finally
ClosePrinter(Tiskarna)
end;
end;