Archív konference Delphi
Zpět na výběr roku archívu nebo přejít na fulltextové vyhledávání v konferenci.
Binarni vs textovy soubor
[*] Ludek <konference(zv)sales(tec)cz> - 25.10.2005 14:05:05
----- Original Message -----
From: "Kilchevskyy Anton" <anton.kilchevskyy(zv)arbes.com>
> Reseni vidim v tom, pridat hlavicku rucne, pripadne se spolehnout na
priponu souboru.
Ahoj,
To mi prijde nejlepsi, kazdy zakodovany soubor uved nejakou sekvenci (jeste
bych dodal i ukonceni , delku a kontrolni soucet) a mas to jasne a navic
odolne vuci poskozeni souboru.
Ludek
presouvani sloupcu v DBGridu
[*] Martin Burle <mburle2(zv)volny(tec)cz> - 25.10.2005 13:12:46
>pri otevirani formu, potrebuji zamenit jejich poradi.
Ahoj, a menit index jsi zkousel? Takto nejak resim rotaci poli:
{Aktualni na konec}
Columns[CurrPos].Index := Columns.Count-1;
{Osetreni skrytych sloupcu}
while (not (dgRowSelect in Options)) and not Columns[selectedindex].Visible
do begin
SelectedIndex:=SelectedIndex+1;
end;
MB
presouvani sloupcu v DBGridu
[*] Ondrej Kelle <o.kelle(zv)digitalpublishing.de> - 25.10.2005 13:08:20
> potrebuji programove presouvat sloupce (Columns[i]) v
> DBGridu. Potrrebuji, aby si jednotlive sloupce zachovaly
> svoje vlastnosti, tak jak jim je priradim v IDE, jen podle
> situace, ktera je znama pri otevirani formu, potrebuji
> zamenit jejich poradi.
Skus TCollectionItem.Index. (TColumn je odvodeny od TCollectionItem.)
HTH
TOndrej
Binarni vs textovy soubor
[*] Kilchevskyy Anton <anton.kilchevskyy(zv)arbes(tec)com> - 25.10.2005 13:03:55
>> Textovy soubor by nemel obsahovat znaky pod #32 s vyjimkou znaku
>> #9, #12, #10, #13, unicode soubor bude obsahovat i znaky #0
>> Pokud tyto znaky obsahuje, da se predpokladat, ze jde o binarni
>> soubor.
>> Proste soubor otevres, vezmes tak 1000 prvnich znaku a budes
>> zjistovat. Pokud narazis na nejaky z "nedovolenych", koncis s detekci
>> a usoudis, ze jde o binarni soubor.
>> Jeste to muzes upravit tak, ze udelas seznam pripon souboru, o kterych
>> vis, ze jsou binarni a napred zkontrolujes priponu souboru...
>Ahoj,
>To ale preci neni pravda, to ze soubor neobsahuje nejake znaky neznamena ze
neni binarni.
>Cili takto nemuzes poznat nic.
>Poste neco jako "textovy" nebo "binarni" soubor, pokud to neni nijak
presneji specifikovano nelze vicemene urcit.
>Ludek
No poznat takhle muzu lecos. Pokud soubor obsahuje nektery z one mnoziny znaku pod #32. tak muzu s jistotou rict, ze data v souboru jsou binarni. Mensi jistotu pak mam u tvrzeni, ze soubor je textovy. Dovolil bych si tvrdit, ze pravdepodobnost, ze binarni soubor primerene delky neobsahuje zadny z uvedenych znaku pod #32 je pomerne nizka.
(Podobnym stylem jsem psal funkci na zjisteni kodovani textovych retezcu.)
Otazkou je, jestli v konkretnim pripade implementace, je dulezita 100 % presnost zjisteni ci nikoliv.
V mem pripade bohuzel musim sahnout po jinem reseni. Sifruji textove soubory, a snazim se do modulu, ktery tyto soubory zpracovava, zapracovat autodetekci. Jestli je soubor textovy(nesifrovany), pak lze rovnou nacist do prohlizece, jinac je binarni(zasifrovany) a musi se prohnad desifrovanim.
Potiz je, v tom, ze sifrovaci algoritmus, co jsem sehnat free na netu, nevklada do souboru zadnou hlavicku nebo identifikaci, aspon jsem zadnou nerozpoznal. Jedna se o BlowFish.
Reseni vidim v tom, pridat hlavicku rucne, pripadne se spolehnout na priponu souboru.
presouvani sloupcu v DBGridu
[*] Milan Dvorak <dvorak(zv)gymzn(tec)cz> - 25.10.2005 12:41:26
Zdravim,
potrebuji programove presouvat sloupce (Columns[i]) v DBGridu. Potrrebuji, aby si jednotlive sloupce zachovaly svoje vlastnosti, tak jak jim je priradim v IDE, jen podle situace, ktera je znama pri otevirani formu, potrebuji zamenit jejich poradi.
Zkousel jsem klasicke prohazovani obsahu promenych (nadefinoval jsem si pomocny sloupec typu TColumn), ale to nefunguje. Zkousel jsem i vselijak Assign, ale taky mi to neslo. Neresil jste uz nekdo tento problem a pripadne jak? Trochu popostrcit potrebuji.
Milan Dvorak.DBGrid, zakaz editace nekterych bunek
[*] Martin Burle <mburle2(zv)volny(tec)cz> - 25.10.2005 12:35:01
> To jsem samozrejme zkousel taky, stejny vysledek. ReadOnly jsou i nove
vlozene zaznamy (tedy prislusne sloupce). Mi prijde, ze proste zamkne cely
sloupec (tedy dany sloupec ve vsech zaznamech), ale tak by to fungovat snad
nemelo, ne?
No ovsem, column je sloupec, tak proc by to melo ovlivnovat jen jeden radek?
Kdyz to jednou oznacis jako RO tak to bude RO dokud to nezmenis. Tj. dokud
nekde nenastavis readonly:=false.
MB
TAcroPDF, Print dialog
[*] Jaromir Cermak <cermak(zv)procom(tec)cz> - 25.10.2005 12:24:35
Ahoj vsichni
Pro zobrazovani PDF souboru mam naimportovanou TAcroPDF ActiveX komponentu. Potreboval bych vedet, jestli jde nejak ovlivnit Print Dialog ktery Adobe Reader zobrazuje pred tiskem. Potrebuju zmenit rotaci a prizpusobeni velikosti strance. Da se to? nebo to bude muset opravit uzivatel rucne?
Jaromir Cermak
DBGrid, zakaz editace nekterych bunek
[*] peca.konference(zv)centrum(tec)cz - 25.10.2005 12:02:09
To jsem samozrejme zkousel taky, stejny vysledek. ReadOnly jsou i nove vlozene zaznamy (tedy prislusne sloupce). Mi prijde, ze proste zamkne cely sloupec (tedy dany sloupec ve vsech zaznamech), ale tak by to fungovat snad nemelo, ne?
>
> Tak potom skus
> DBGrid.Columns[i].ReadOnly
>
>
> S pozdravom
>
> Robert Fujak
Binarni vs textovy soubor
[*] Ludek <konference(zv)sales(tec)cz> - 25.10.2005 11:59:43
----- Original Message -----
From: "Jan Fiala" <jan.fiala(zv)wo(tec)cz>
> Textovy soubor by nemel obsahovat znaky pod #32 s vyjimkou znaku
> #9, #12, #10, #13, unicode soubor bude obsahovat i znaky #0
> Pokud tyto znaky obsahuje, da se predpokladat, ze jde o binarni
> soubor.
> Proste soubor otevres, vezmes tak 1000 prvnich znaku a budes
> zjistovat. Pokud narazis na nejaky z "nedovolenych", koncis s detekci
> a usoudis, ze jde o binarni soubor.
> Jeste to muzes upravit tak, ze udelas seznam pripon souboru, o kterych
> vis, ze jsou binarni a napred zkontrolujes priponu souboru...
Ahoj,
To ale preci neni pravda, to ze soubor neobsahuje nejake znaky neznamena ze
neni binarni.
Cili takto nemuzes poznat nic.
Poste neco jako "textovy" nebo "binarni" soubor, pokud to neni nijak
presneji specifikovano nelze vicemene urcit.
Ludek
DBGrid, zakaz editace nekterych bunek
[*] Martin Burle <mburle2(zv)volny(tec)cz> - 25.10.2005 11:48:52
> Zkusil jsem, ale nejak to nefunguje, respektive v danem sloupci jsou
ReadOnly i bunky, ktere by byt nemely.
Jestli tomu dobre rozumim, tak ma byt ten column readonly jen nekdy. Jenomze
nikde nevidim, ze bys readonly i vypinal, tj. asi by melo byt spise neco
jako:
tblUdaCis.Fields[DataCol].ReadOnly :=
(tblUdaCis.Fields.FieldByName('udacis_editable').AsString = 'f');
Nebyl bych si ale jisty tim, zda dochazi k prekresleni bunky (a tedy i
nastaveni readonly) ve chvili jeji editace. Napr pri prepnuti okna se ti
prekresli grid jako celek, nezavisle na pozici kurzoru. Takze bych v onDraw
spise vyresil jen barvu bunky, a RO nastavil treba v onColEnter. Vyzkousej
a uvidis ;)
MB
DBGrid, zakaz editace nekterych bunek
[*] Robert Fujak <robof(zv)inmail.sk> - 25.10.2005 11:30:26
Tak potom skus
DBGrid.Columns[i].ReadOnly
S pozdravom
Robert Fujak
>>
>> DataSet.Fields[i].ReadOnly:=True;
> ______________________________________________________________
>
>
> Zkusil jsem, ale nejak to nefunguje, respektive v danem sloupci jsou
> ReadOnly i bunky, ktere by byt nemely.
>
> Mam nasledujici kod:
>
> procedure TfrmUdaCis.DBGridUdaCisDrawColumnCell(Sender: TObject;
> const Rect: TRect; DataCol: Integer; Column: TVolgaColumn;
> State: TGridDrawState);
> begin
> if (Column.FieldName = 'udacis_kod') or (Column.FieldName =
> 'udacis_text') then
> begin
> if tblUdaCis.Fields.FieldByName('udacis_editable').AsString = 'f' then
> begin
> tblUdaCis.Fields[DataCol].ReadOnly := true;
> TVolgaDBGrid(Sender).Canvas.Font.Color := clSilver;
> end;
> end;
>
> DBGridUdaCis.DefaultDrawColumnCell(Rect,DataCol,Column,State);
> end;
>
> DBGrid ma vypnuto defaultni vykreslovani. Bunky, ktere maji mit readonly
> na true maji sedy text. Ve sloupci mam predposledni polozku, ktera by mela
> byt editovatelna, vypise se barevne spravne (tj. neni seda), ale ma
> nastaveno ReadOnly taky na true. Pri doubleclicku na danou bunku jsem si
> nechal vypsat zpravu, pokud je readonly:
>
> if DBGridUdaCis.SelectedField.ReadOnly then
> showmessage('read only');
>
> A bohuzel je.
sfx a ShellExecute
[*] Vlastimil Zdenek <vlastimil.zdenek(zv)seznam(tec)cz> - 25.10.2005 11:11:59
Zdravim vas,
potreboval bych opet poradit.
V moji aplikaci potrebuju spustit(rozbalit) sfx archiv. Procedura
"ShellExecute(0,'open',Pchar(archiv.exe),nil,nil,Sw_ShowNormal)" ale ten
archiv nerozbali. Tvari se jako ze jo, ale nic. Co delam spatne? Nebo mam
zavolat sfx soubor jinak? Jak?
Diky za radu
Vlasta, D5Ent
DBGrid, zakaz editace nekterych bunek
[*] peca.konference(zv)centrum(tec)cz - 25.10.2005 10:59:33
> Co tak
>
> DataSet.Fields[i].ReadOnly:=True;
______________________________________________________________
Zkusil jsem, ale nejak to nefunguje, respektive v danem sloupci jsou ReadOnly i bunky, ktere by byt nemely.
Mam nasledujici kod:
procedure TfrmUdaCis.DBGridUdaCisDrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TVolgaColumn;
State: TGridDrawState);
begin
if (Column.FieldName = 'udacis_kod') or (Column.FieldName = 'udacis_text') then
begin
if tblUdaCis.Fields.FieldByName('udacis_editable').AsString = 'f' then
begin
tblUdaCis.Fields[DataCol].ReadOnly := true;
TVolgaDBGrid(Sender).Canvas.Font.Color := clSilver;
end;
end;
DBGridUdaCis.DefaultDrawColumnCell(Rect,DataCol,Column,State);
end;
DBGrid ma vypnuto defaultni vykreslovani. Bunky, ktere maji mit readonly na true maji sedy text. Ve sloupci mam predposledni polozku, ktera by mela byt editovatelna, vypise se barevne spravne (tj. neni seda), ale ma nastaveno ReadOnly taky na true. Pri doubleclicku na danou bunku jsem si nechal vypsat zpravu, pokud je readonly:
if DBGridUdaCis.SelectedField.ReadOnly then
showmessage('read only');
A bohuzel je.OT: Licence - poptavka
[*] Jiri Hajsl <jhajsl(zv)centrum(tec)cz> - 25.10.2005 10:55:08
Zdravim, nema tu nekdo na prodej licenci na Delphi 6/7
Enterprise/Proffesional za rozumnou cenu. Diky
--
Jiri Hajsl
Cookies in Delphi
[*] Lukas Gebauer <gebylist(zv)mlp(tec)cz> - 25.10.2005 10:40:40
> Synapse umi posilat cookie nebo ne?
Ano, umi.
Synapse dokonce umi poslat i naprosto lobovolnou HTTP hlavicku, takze
lze kompletne nasimulovat WWW prohlizec.
--
Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
http://www.ararat(tec)cz/synapse/ - Ararat Synapse - TCP/IP Lib.DBGrid, zakaz editace nekterych bunek
[*] Robert Fujak <robof(zv)inmail.sk> - 25.10.2005 09:25:39
Co tak
DataSet.Fields[i].ReadOnly:=True;
S pozdravom
Robert Fujak
> Ahoj,
> potreboval bych v DBGridu zamezit editaci nekterych bunek (ne celych
> zaznamu). Nepodarilo se mi dopatrat, jak na to. Myslel jsem v udalosti
> OnBeforeEdit, ale nevim jak. Muzete mi nekdo prosim poradit?
>
> Diky
>
> Petr
>
obnova RAID pole PERC 3/Di
[*] Slavomir Skopalik <skopalik(zv)elektlabs(tec)cz> - 25.10.2005 10:16:13
Diky, problem jsme vyresili pomoci programu RAID reconstructor, i kdyz nam to
dalo zabrat.
http://www.runtime.org/raid.htm
Poradi a velikosti jsme odvodili tak, ze jsme nalezli MBR, BOOT a dosovou FAT.
Slavek
> Preposilam ti to na WINNT-L(zv)LIST.EMWAC.CZ
>
>
> ----- Original Message ----- > Zdravim, mam pred sebou server
> DELL PoverEdge
> s radicem PERC 3/Di a rozpadlim
> > diskovim polem.
> > Konfigurace byla 4 disky v RAID5 + jeden hot spare.
> > V okmaziku kdy jsem k serveru prisel byla vetsina disku offline a
> > radic
Dynamicky balicek
[*] Martin Burle <mburle2(zv)volny(tec)cz> - 25.10.2005 10:03:47
> Jo takhle to resim u tech ostatnich, ale tady mam problem, ze freereport a
barcode maji jeden nazev tridy stejny a ja to potrebuju oddelit... Tak jsem
to udelal takhle, ze si natahnu form z balicku, v ramci toho formu se udela
neco s carovym kodem plus nejake dalsi operace a tisk a pak ten form zase
uvolnim.
Tusil bych tedy problem v tom prirazeni metody (zv)..., druhy zpusob ktery
pouzivam je, ze pri inicializaci balicku vytvorim nejaky objekt, ktery ma
metody typu TnotifyEvent odpovidajici jednotlivym formularum ci jinym akcim,
a tyto metody rovnou priradim napr. polozkam menu nebo actionlistu. Opet
nevznika tebou popisovany efekt.
MB
SQL error-Retezcova data byla zkracena z prava
[*] Venca Zaruba <zaruba(zv)elastoform(tec)cz> - 25.10.2005 09:47:21
HI,
Mam pres ODBC, pripojeny access (mdb) a pomoci TUpdateSQL aktualizuji zaznamy. 2 x je vse OK a po treti hlasi na aktualizaci memopolozky viz predmet... Nevite co s tim, prosim..
Prijemny zbytek dne
Vasek Zaruba
8^)
Dynamicky balicek
[*] Otisk Rene <otisk(zv)misel(tec)cz> - 25.10.2005 09:44:56
Jo takhle to resim u tech ostatnich, ale tady mam problem, ze freereport a barcode maji jeden nazev tridy stejny a ja to potrebuju oddelit... Tak jsem to udelal takhle, ze si natahnu form z balicku, v ramci toho formu se udela neco s carovym kodem plus nejake dalsi operace a tisk a pak ten form zase uvolnim.
To ze se tam vraci ten form resp. v kazdem pripade nil, je vice mene nepodstatne - Result muze byt boolean - cokoli. Dal uz se s tim na strane aplikace nepracuje
Sroub
<Ahoj,
<
<mozna se pletu, ale pripada mi to tve reseni trochu zvlastni:
<
<-ve funkci LoadMyBC priradis do result instanci TfMyBC, abys ji pred
<ukonceni fce uvolnil, tj. v result je neplatny ukazatel. S resultem sice
<dale nepracujes, ale pripada mi to podivne.
<
<Pokud je smyslem vytvorit/zobrazit v aplikaci nejaky formular z dynamicky
<natazeneho balicku, tak tuto ulohu resim zaregistrovanim tridy formulare v
<initialization sekci prislusne unity a nasledne jej mohu vytvorit kdekoli z
<hlavni casti aplikace konstrukci
<
<mujForm := TFormClass(FindClass(FormClassName)).Create(Application);
<
<
<MB
DBGrid, zakaz editace nekterych bunek
[*] Martin Burle <mburle2(zv)volny(tec)cz> - 25.10.2005 09:34:30
> potreboval bych v DBGridu zamezit editaci nekterych bunek (ne celych
zaznamu). Nepodarilo se mi dopatrat, jak na to. Myslel jsem v udalosti
OnBeforeEdit, ale nevim jak. Muzete mi nekdo prosim poradit?
Kazdy column (doubleclick na grid) ma vlastnost Readonly ;)
MB
Dynamicky balicek
[*] Martin Burle <mburle2(zv)volny(tec)cz> - 25.10.2005 09:30:04
> No prave ze pouzivam balicky normalne (MDIChild, Dialogy) a tady se mi to
stalo poprve. Mam vyexportovanou fci:
Ahoj,
mozna se pletu, ale pripada mi to tve reseni trochu zvlastni:
-ve funkci LoadMyBC priradis do result instanci TfMyBC, abys ji pred
ukonceni fce uvolnil, tj. v result je neplatny ukazatel. S resultem sice
dale nepracujes, ale pripada mi to podivne.
Pokud je smyslem vytvorit/zobrazit v aplikaci nejaky formular z dynamicky
natazeneho balicku, tak tuto ulohu resim zaregistrovanim tridy formulare v
initialization sekci prislusne unity a nasledne jej mohu vytvorit kdekoli z
hlavni casti aplikace konstrukci
mujForm := TFormClass(FindClass(FormClassName)).Create(Application);
MB
Cookies in Delphi
[*] Radek Cervinka <radek.cervinka(zv)technodat(tec)cz> - 25.10.2005 09:25:14
Milan Kajnar napsal(a):
> Ahoj...
>
> Chtel bych Vas poprosit, jestli ma nekdo z vas prakticke zkusenosti se ctenim
> a zapisem Cookies v Delphi aplikaci tak, aby prohlizec IE nebo Firefox dokazal
> takovou cookies prijmout pak za svou...
>
> Potrebuji to pro komunikaci se serverem mimo vizualni rovinu. Prakticky simuluji
> v dll vlastni prohlizec, coz se mi dari, ale chybi mi moznost precist si cookies z
> jineho, ale vizualniho prihlaseni se do webove aplikace pomoci standartniho
> prohlizece. O cookies vim prd. Vim, ze se nekde muzou ukladat, ale na tom
S politovanim ti musim napsat ze toho o cookies bylo napsano tolik ze
pokud by jsi chvilku hledal tak okamzite neco najdes.
viz
http://www.kosek(tec)cz/clanky/iweb/17.html
jinak
cookie se posilaji v hlavicce http protokolu, presnou specifikaci najdes
u netscape
Synapse umi posilat cookie nebo ne?
Version 3.9.3 released 2004-08-23
+ Username and password properties for default authorisation values
# Content-length is sended in all cases.
# Cookies are sended all in one header.
# Reading of Chunks
> koncim. Vubec netusim jak si je interne spravuje pak IE ci Firefox, jestli je nekde
> indexuje apod.
to ti muze byt taky celkem putna
> Diky
>
> Milan Kajnar
>
Radek Cervinka
DBGrid, zakaz editace nekterych bunek
[*] peca.konference(zv)centrum(tec)cz - 25.10.2005 09:20:48
Ahoj,
potreboval bych v DBGridu zamezit editaci nekterych bunek (ne celych zaznamu). Nepodarilo se mi dopatrat, jak na to. Myslel jsem v udalosti OnBeforeEdit, ale nevim jak. Muzete mi nekdo prosim poradit?
Diky
Petr
Dynamicky balicek
[*] Otisk Rene <otisk(zv)misel(tec)cz> - 25.10.2005 08:30:15
No prave ze pouzivam balicky normalne (MDIChild, Dialogy) a tady se mi to stalo poprve. Mam vyexportovanou fci:
function LoadfMyBC(IDMajetku: string; MyApplication: TApplication): TForm;
begin
Result := nil;
fMyBC := TfMyBC.Create(MyApplication);
fMyBC.ParentWindow := MyApplication.Handle;
with fMyBC do
try
fMyBC.MyBarcode.Text := IDMajetku;
fMyBC.MyBarcode.DrawBarcode(fMyBC.imBarcode.Canvas);
...
fMyBC.ShowModal;
Result := fMyBC;
finally
FreeAndNil(fMyBC);
end;
end;
a takhle ji volam
var
ExecF: function(IDMajetku: string; MyApplication: TApplication): TForm;
begin
(zv)ExecF := GetProcAddress(fMain.Hwnd, PChar('LoadfMyBC'));
if Assigned(ExecF) then
ExecF(sqlHlavniIDMAJETKU.AsString, Application);
end;
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
Behalf Of Martin Burle
Sent: Monday, October 24, 2005 5:44 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: Re: Dynamicky balicek
> Nejak jsem zapomnel, jaxe nastavuje, aby se modalni dialogove okno z
> balicku nezobrazovalo v liste windows jako dalsi aplikace. Pomuze mi
> nekdo?
Jak natahujes ten balicek a jak vytvaris to okno? Balicky pouzivam a toto se
mi jeste nestalo ;).
MB
Binarni vs textovy soubor
[*] Jan Fiala <jan.fiala(zv)wo(tec)cz> - 24.10.2005 20:02:55
From: "Kilchevskyy Anton" <anton.kilchevskyy(zv)arbes.com>
> Potreboval bych poradit jesli existuje nejaky spolehlivy postup jak v D7
> zjistit, jestli soubor na disku je binarni nebo textovy?
Textovy soubor by nemel obsahovat znaky pod #32 s vyjimkou znaku
#9, #12, #10, #13, unicode soubor bude obsahovat i znaky #0
Pokud tyto znaky obsahuje, da se predpokladat, ze jde o binarni
soubor.
Proste soubor otevres, vezmes tak 1000 prvnich znaku a budes
zjistovat. Pokud narazis na nejaky z "nedovolenych", koncis s detekci
a usoudis, ze jde o binarni soubor.
Jeste to muzes upravit tak, ze udelas seznam pripon souboru, o kterych
vis, ze jsou binarni a napred zkontrolujes priponu souboru...
--
Jan Fiala
mailto:jan.fiala(zv)wo(tec)cz
Binarni vs textovy soubor
[*] Ludek <konference(zv)sales(tec)cz> - 24.10.2005 19:28:28
----- Original Message -----
From: "Kilchevskyy Anton" <anton.kilchevskyy(zv)arbes.com>
> Potreboval bych poradit jesli existuje nejaky spolehlivy postup jak v D7
zjistit, jestli soubor na disku je binarni nebo textovy?
>
Ahoj,
No to musis asi specifikovat presneji. Takhle obecne se obavam to nepujde,
uz jen z toho duvodu, ze ciste teoreticky vzato textove soubory jsou v
zasade podmnozinou binarnich. (Alespon jak ja to chapu).Dale to zavani
problemem urcit co je vlastne "textovy" soubor s ohledem na jeho datovou
interpretaci (kodovani,komprese,format).
Ludek
Dynamicky balicek
[*] Martin Burle <mburle2(zv)volny(tec)cz> - 24.10.2005 17:43:55
> Nejak jsem zapomnel, jaxe nastavuje, aby se modalni dialogove okno z
> balicku nezobrazovalo v liste windows jako dalsi aplikace. Pomuze mi
> nekdo?
Jak natahujes ten balicek a jak vytvaris to okno? Balicky pouzivam a toto se
mi jeste nestalo ;).
MB OT: Literatura pro Oracle
[*] Stanislav Smejkal <ssmejkal(zv)gmail(tec)com> - 24.10.2005 14:53:15
Zdravim,
rad bych se zeptal, jestli neznate nejakou dostupnou literaturu pro
zacatecniky a prip. vyucujici zacatecniku v systemu Oracle. Jako klienta
asi pouzijeme Delphi. Jde nam spis o obecny navrh databazi a tvorbu SQL.
Mel by z toho vypadnout kurs zakladu databazi pro zacatecniky a mirne
pokrocile s priklonem na Oracle.
Diky
Standa
Binarni vs textovy soubor
[*] Kilchevskyy Anton <anton.kilchevskyy(zv)arbes(tec)com> - 24.10.2005 14:42:49
Zdravicko.
Potreboval bych poradit jesli existuje nejaky spolehlivy postup jak v D7 zjistit, jestli soubor na disku je binarni nebo textovy?
Predem dik za rady.
Anton Kilchevskyy
FastReport 3, TfrxCrossView
[*] Jaroslav Uher <jarek(zv)iuher(tec)cz> - 24.10.2005 14:34:23
Ahoj,
zkousel nekdo z vas pomoci Report.Engine.NewPage
rozdelit tisk ze StringGridu pomoci objeku TfrxCrossView.
Tiskneme mesicni sestavu za obdobi a bylo by vhodne kazdy mesic
zacit na nove strance.
Zatim bohuzel bez jakehokoli uspechu :-(
Dekuji za kazdy napad,
preji hezky den,
Jarek Uher
Cookies in Delphi
[*] Milan Kajnar <mkajnar(zv)mikesoft(tec)cz> - 24.10.2005 14:21:57
Ahoj...
Chtel bych Vas poprosit, jestli ma nekdo z vas prakticke zkusenosti se ctenim
a zapisem Cookies v Delphi aplikaci tak, aby prohlizec IE nebo Firefox dokazal
takovou cookies prijmout pak za svou...
Potrebuji to pro komunikaci se serverem mimo vizualni rovinu. Prakticky simuluji
v dll vlastni prohlizec, coz se mi dari, ale chybi mi moznost precist si cookies z
jineho, ale vizualniho prihlaseni se do webove aplikace pomoci standartniho
prohlizece. O cookies vim prd. Vim, ze se nekde muzou ukladat, ale na tom
koncim. Vubec netusim jak si je interne spravuje pak IE ci Firefox, jestli je nekde
indexuje apod.
Diky
Milan Kajnar
Dynamicky balicek
[*] Otisk Rene <otisk(zv)misel(tec)cz> - 24.10.2005 14:05:30
Hi,
Nejak jsem zapomnel, jaxe nastavuje, aby se modalni dialogove okno z balicku nezobrazovalo v liste windows jako dalsi aplikace. Pomuze mi nekdo?
Diky predem
Sroub
Nastaveni sitoveho pripojeni
[*] Radek Cervinka <radek.cervinka(zv)technodat(tec)cz> - 24.10.2005 12:02:57
Lukas Gebauer napsal(a):
>>neni lepsi ipconfig /all ?
>
>
> Neni lepsi pouzit IpHlpApi?
>
To kazdopadne!
vzdy je lepsi pouzit API nez parsovat vystup,
nechal jsem se unest :(,
Radek
Nastaveni sitoveho pripojeni
[*] Lukas Gebauer <gebylist(zv)mlp(tec)cz> - 24.10.2005 11:52:31
> neni lepsi ipconfig /all ?
Neni lepsi pouzit IpHlpApi?
--
Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
http://www.ararat(tec)cz/synapse/ - Ararat Synapse - TCP/IP Lib.Nastaveni sitoveho pripojeni
[*] Radek Cervinka <radek.cervinka(zv)technodat(tec)cz> - 24.10.2005 11:06:02
Pepa napsal(a):
> Ahoj, zjistil jsem, jde zjistit aktualni nastaveni pomoci volani
> programu "netsh interface ip show config"
> Tady je ale problem, jak dostat tyto informace do Delphi. Jde sice
> nastavit netsh, aby zapisoval do souboru. Ale toto zapisovani se ukonci
> s ukoncenim programu netsh. To bych musel nechat konzolu netsh otevrenou
> a predavat ji jenom dalsi prikazy, ale to nevim jak. Poradi nekdo?
>
da se to to nacist pomoci pipes
neni lepsi ipconfig /all ?
function gExecAndReadStd(const sCmd: string; var sStdIn:String):Cardinal;
const
ReadBuffer = 1048576; // 1 MB Buffer
var
Security: TSecurityAttributes;
hReadPipe, hWritePipe: THandle;
StartupInfo: TStartUpInfo;
ProcessInfo: TProcessInformation;
Buffer: PChar;
iTotalBytesRead, iBytesRead: DWORD;
iAppRunning, n, iBytesLeftThisMessage, iTotalBytesAvail: Integer;
begin
Result := Cardinal($FFFFFFFF);
with Security do
begin
nLength := SizeOf(TSecurityAttributes);
bInheritHandle := True;
lpSecurityDescriptor := nil;
end;
if not CreatePipe(hReadPipe, hWritePipe, (zv)Security, 0) then exit;
Buffer := AllocMem(ReadBuffer+1);
try
FillChar(StartupInfo, Sizeof(StartupInfo), #0);
StartupInfo.cb := SizeOf(StartupInfo);
StartupInfo.hStdOutput := hWritePipe;
StartupInfo.hStdInput := hReadPipe;
StartupInfo.dwFlags := STARTF_USESTDHANDLES + STARTF_USESHOWWINDOW;
StartupInfo.wShowWindow := SW_HIDE;
if CreateProcess(nil, PChar(sCmd), (zv)Security, (zv)Security,
True, CREATE_NO_WINDOW or NORMAL_PRIORITY_CLASS, nil,
nil, StartupInfo, ProcessInfo
) then
begin
n := 0;
iTotalBytesRead := 0;
repeat
Inc(n); //??
iAppRunning := WaitForSingleObject(ProcessInfo.hProcess, 5000);
if not PeekNamedPipe(hReadPipe,
(zv)Buffer[iTotalBytesRead],
ReadBuffer,
(zv)iBytesRead,
(zv)iTotalBytesAvail,
(zv)iBytesLeftThisMessage) then
Break
else
if iBytesRead > 0 then
ReadFile(hReadPipe, Buffer[iTotalBytesRead],
iBytesRead, iBytesRead, nil);
iTotalBytesRead := iTotalBytesRead + iBytesRead;
until (iAppRunning <> WAIT_TIMEOUT) or (n > 150);
Buffer[iTotalBytesRead] := #0;
// OemToChar(Buffer, Buffer);
sStdIn:= StrPas(Buffer);
gLog(ltDebug, sStdIn);
if not GetExitCodeProcess(ProcessInfo.hProcess, Result) then
Result := Cardinal($FFFFFFFF);
end
else
gLog(ltError, SysErrorMessage(GetlastError));
finally
FreeMem(Buffer);
end;
CloseHandle(ProcessInfo.hProcess);
CloseHandle(ProcessInfo.hThread);
CloseHandle(hReadPipe);
CloseHandle(hWritePipe);
end;> Delphi 2005 Personal, WinXP SP2
> Pepa
>
> Pepa napsal(a):
>
>>Ahoj, potreboval bych poradit, jak z Delphi programove zjistit masku
>>podsite, branu a DNS server?
>>Nastaveni sitoveho pripojeni provadim pomoci netsh, ale taky jeden
>>dotaz. Pomoci netsh lze upravovat pouze stavajici sitove pripojeni, a k
>>tomu potrebuju jmeno toho pripojeni. Jak by se to dalo v programu
>>zjistit, aby to uzivatel nemohl pokazit?
>>Delphi 2005 Personal, WinXP SP2
>>Pepa
>
>
>
> Nastaveni sitoveho pripojeni
[*] Pepa <strakajosef(zv)seznam(tec)cz> - 24.10.2005 10:37:30
Ahoj, zjistil jsem, jde zjistit aktualni nastaveni pomoci volani
programu "netsh interface ip show config"
Tady je ale problem, jak dostat tyto informace do Delphi. Jde sice
nastavit netsh, aby zapisoval do souboru. Ale toto zapisovani se ukonci
s ukoncenim programu netsh. To bych musel nechat konzolu netsh otevrenou
a predavat ji jenom dalsi prikazy, ale to nevim jak. Poradi nekdo?
Delphi 2005 Personal, WinXP SP2
Pepa
Pepa napsal(a):
> Ahoj, potreboval bych poradit, jak z Delphi programove zjistit masku
> podsite, branu a DNS server?
> Nastaveni sitoveho pripojeni provadim pomoci netsh, ale taky jeden
> dotaz. Pomoci netsh lze upravovat pouze stavajici sitove pripojeni, a k
> tomu potrebuju jmeno toho pripojeni. Jak by se to dalo v programu
> zjistit, aby to uzivatel nemohl pokazit?
> Delphi 2005 Personal, WinXP SP2
> Pepa
Problem s casem v TTimeField
[*] Josef Zvonicek <prosoft(zv)prosoft(tec)cz> - 24.10.2005 10:31:05
Pracujis s TADODATASET a TADOCONNECTION pro pripojeni k SQL databazi. V
tabulce mam definovanou polozku ktera je typu ftTime.
Pokud si na ni sahnu fied.AsString tak vraci cas tak jak ma byt "21:00:12"
pokud se ale na ni saha pres field.AsVariant tak vraci "24.10.2005
21:00:12".
Poradi mi nekdo jak udelat aby AsVariant vracel pouze cas a necpal pred to
ten aktualni datum. Ve unite DB je zajimave, ze pro typ TTimeField a
TDateTimeField je stejna implementace GetAsVariant, coz si myslim ze je
spatne.
Dekuji.Zvo,Problem s kompilaci projektu
[*] Roman Kubin <r.kubin(zv)jcee(tec)cz> - 24.10.2005 10:24:39
Zdravim, mam zajimavy problem. Do existujiciho funkcniho projektu jsem
pridal funkci na zjisteni otevrenych programu, tato funkce v jinem projektu
bezchybne fungovala avsak tento projekt s touto funkci nejde zkompilovat
pricemz se ani nevypise chyba. Kdyz funkci v projektu nepouziji, vse
korektne probehne a exe se vygeneruje. Problem je asi s knihovnou Tlhelp32,
kterou funkce pouziva, ale co s tim mam delat to vazne netusim. Nesetkal se
nekdo s podobnou chybkou? Predem diky
D5, Win XP
procedure TForm1.GetProcesses;
var
hSnapShot : THandle;
pe32 : TPROCESSENTRY32;
begin
Processes.Clear;
hSnapShot := CreateToolHelp32SnapShot(TH32cs_snapprocess,0);
pe32.dwSize := SizeOf(TPROCESSENTRY32);
Process32First(hSnapShot, pe32);
while Process32Next(hSnapShot, pe32) do
begin
Processes.Add(extractFileName(pe32.szExeFile)+'
'+IntToStr(pe32.th32ProcessID));
end;
CloseHandle (hSnapShot);
end; FlashFiler: problem s operatorem LIKE
[*] Ing. Igor Vodicka <vodicka(zv)sagit(tec)cz> - 24.10.2005 09:28:10
Zdravim priznivce FlashFileru!
Narazil jsem na jednu zajimavost. Nasledne prikazy SELECT s podminkou LIKE
funguji OK:
Pole LIKE '%neco'
Pole NOT LIKE '%neco'
Pole LIKE 'neco%'
Pole NOT LIKE 'neco%'
Pole LIKE '%neco%'
ale
Pole NOT LIKE '%neco%' vraci stejny vysledek jako Pole LIKE '%neco%'. Asi se
jedna o chybu. Prosim Vas muze to nekdo vyzkouset?
Ja pouzivam FF veri 2.13 (open source verze).
Ing. Igor Vodicka
informacni systemy
Nakladatelstvi Sagit
Prenos Delphi & Kylix projektu do FreePascalu a La
[*] Radek Cervinka <radek.cervinka(zv)technodat(tec)cz> - 24.10.2005 09:21:42
Roland Turcan napsal(a):
> Hello All!
>
> Prevzal som jeden dost velky projekt, ktory bol zo zaciatku vyvijany
> len v Delphi a potom sa projekt preportoval aj do Kylixu.
> Predchadzajuci programator vyvinul uzasne vela komponent a velke
> mozstvo kodu zacal pisat nezavisle, t.j. podla vsetkeho jeho vizia
> bola taka, ze casom sa to podari preniest bez velkej namahy aj na ine
> prekladace, lebo uz presun na Kylix mu trvalo rekordne kratky cas.
> Windows verzia programu zostala na VCLke a Linux verzia sa napisala na
> CLX.
>
> Teraz som dostal za ulohu zistit, ze ako by sme to vedeli presunut
> tento projekt na FreePascal & Lazarus, lebo cielom by mala byt verzia
> pre MacOS.
Lazarus umi importovat projekt Delphi a behem importu by mel konvertovat
formulare.
Asi tak 2 roky zpet jsem prechazel u jednoho projektu z Kylix > FPC a
byl to trochu porod, ale to jeste nefungoval ten import.
Kazdopadne, pokud vim tak nefunguje (resp. cca 2mesice zpet nefungovalo)
vizualni dedeni formularu (normalni funguje, tj. muzes mit generickeho
predchudce, ale komponenty na nem uvedene neuvidis v DESIGN modu u
naslednika) a neexistuji Frames (resp. stav par mesicu zpet - da se
nahradit vlastni komponentou, stejne jsem od pouzivani frames upustil k
vuli problemem i v Delphi).
Ohledne MacOS: oficialni podpora fpc je myslim od verze 2.0 (tj. asi tak
1/2 roku zpet).
> Mate s takymto nejake skusenosti alebo rady ako postupovat?
zalezi jakym zpusobem to mas napsane :)
> Vopred dakujem za kazdy nazor.
>
R.
QReport: Vlastni komponenta
[*] delphak(zv)centrum(tec)cz - 24.10.2005 09:09:14
Ahoj,
nemate nekdo priklad nebo zdrojovy kod vlastni komponenty pro QReport? Potreboval bych vytvorit takovou, ktera by zastresovala nekolik TQRExpr a sama je usporadala v ramci bandu dle nejakych kriterii.
Dik za radu ci odkaz.
PS: Opravdu jsem nucen pouzivat QReport .. nesmim pouzit jiny reporter ...Databaze bez BDE
[*] Stanislav ADAMCIK <konferencia(zv)stadas.sk> - 24.10.2005 08:26:45
ak chces skusit Firebird Embed skus si stiahnut nasledovny priklad...
http://www.stadas.sk/Download/Priklad.zip
Stanislav ADAMCIK
www.stadas.sk
Nastaveni sitoveho pripojeni
[*] Straka Josef <strakajosef(zv)seznam(tec)cz> - 23.10.2005 22:33:38
Ahoj, potreboval bych poradit, jak z Delphi programove zjistit masku
podsite, branu a DNS server?
Nastaveni sitoveho pripojeni provadim pomoci netsh, ale taky jeden
dotaz. Pomoci netsh lze upravovat pouze stavajici sitove pripojeni, a k
tomu potrebuju jmeno toho pripojeni. Jak by se to dalo v programu
zjistit, aby to uzivatel nemohl pokazit?
Delphi 2005 Personal, WinXP SP2
Straka Josef
strakajosef(zv)quick(tec)cz
Prenos Delphi & Kylix projektu do FreePascalu a La
[*] Roland Turcan <konf(zv)rotursoft.sk> - 23.10.2005 21:29:03
Hello All!
Prevzal som jeden dost velky projekt, ktory bol zo zaciatku vyvijany
len v Delphi a potom sa projekt preportoval aj do Kylixu.
Predchadzajuci programator vyvinul uzasne vela komponent a velke
mozstvo kodu zacal pisat nezavisle, t.j. podla vsetkeho jeho vizia
bola taka, ze casom sa to podari preniest bez velkej namahy aj na ine
prekladace, lebo uz presun na Kylix mu trvalo rekordne kratky cas.
Windows verzia programu zostala na VCLke a Linux verzia sa napisala na
CLX.
Teraz som dostal za ulohu zistit, ze ako by sme to vedeli presunut
tento projekt na FreePascal & Lazarus, lebo cielom by mala byt verzia
pre MacOS.
Mate s takymto nejake skusenosti alebo rady ako postupovat?
Vopred dakujem za kazdy nazor.
--
Best regards, TRoland
http://exekutor.rotursoft.sk
Ukonceni aplikace
[*] xxxx <sojokl(zv)seznam(tec)cz> - 22.10.2005 20:04:51
Jeste me tak napadlo s tema balickama. Myslim, ze by to slo i bez pouziti balicku. Domnivam se, ze by se to dalo vyresit predavani ukazatelu. Ale nevim, tohle reseni jsem nezkousel, kazdopane me to jen tak napadlo.
Databaze bez BDE
[*] Lukas Gebauer <gebylist(zv)mlp(tec)cz> - 22.10.2005 16:40:10
> SQLite. Nikdy jsem s tim nedelal, ale co jsem slysel, tak je to prej
> docela jednoduchy, a v mnoha pripadech dostacujici, nastroj.
Ja osobne tuto databazi pouzivam velmi rad. Pouzivam posledni verzi
SQLite 3 pomoci jednoducheho rozhrani:
http://www.itwriting.com/sqlitesimple.php
(posledni verze obsahuje dost mych vlastnorucnich uprav. ;-))
--
Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
WEB: http://www.ararat(tec)cz/synapse - Synapse Delphi and Kylix TCP/IP
Library
Databaze bez BDE
[*] koukal(zv)petrkoukal(tec)cz - 22.10.2005 14:09:30
-----Puvodni zprava-----
From: "Pavel Malinsky" malinsky(zv)pmcom(tec)cz
Date: Sat, 22 Oct 2005 11:35:00 +0200
To: delphi-l(zv)clexpert(tec)cz
Subject: Re: Databaze bez BDE
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz
> [mailto:delphi-l-owner(zv)clexpert(tec)cz] On Behalf Of petr palicka
Ahoj,
> Firebird embeded. Vyhoda je v moznosti okamziteho prechodu na
> client/server bez temer jakekoliv zmeny (jenom smazes to dll
> v adresari
> a nastavis jinou cestu k databazi).
Doplnim, ze umoznuje pouze jednu connectionu.
S pozdravem a dikem
Jeste dotaz ,
je nutny login (Jmenno , heslo) do databaze ?
Petr koukal.
Databaze bez BDE
[*] Pavel Malinsky <malinsky(zv)pmcom(tec)cz> - 22.10.2005 11:34:52
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz
> [mailto:delphi-l-owner(zv)clexpert(tec)cz] On Behalf Of petr palicka
Ahoj,
> Firebird embeded. Vyhoda je v moznosti okamziteho prechodu na
> client/server bez temer jakekoliv zmeny (jenom smazes to dll
> v adresari
> a nastavis jinou cestu k databazi).
Doplnim, ze umoznuje pouze jednu connectionu.
S pozdravem a dikem
=====================================
> Pavel Malinsky; malinsky(zv)pmcom(tec)cz <
=====================================
> GSM: 602 652 203 | ICQ: 322015967 <
=====================================
Databaze bez BDE
[*] petr palicka <palicka.petr(zv)seznam(tec)cz> - 22.10.2005 09:56:20
Ahoj,
koukal(zv)petrkoukal(tec)cz napsal(a):
> Dobry den.
>
> nejlepe podobnou paradoxu.
to nevim, Paradox je IMHO dost specificky, ale jestli tu podobnost
myslis ve smyslu definice integrity a indexu, pak to bude splnovat
jakakoliv skutecna SQL databaze.
> (Pristup z delphi nejlepe prez DLL) - bez nutnosti cokoliv na PC instalovat.
Firebird embeded. Vyhoda je v moznosti okamziteho prechodu na
client/server bez temer jakekoliv zmeny (jenom smazes to dll v adresari
a nastavis jinou cestu k databazi).
SQLite. Nikdy jsem s tim nedelal, ale co jsem slysel, tak je to prej
docela jednoduchy, a v mnoha pripadech dostacujici, nastroj.
> Diky za kazdou odpoved.
neni zac
> Petr Koukal
Peca (aka Petr Palicka)
Databaze bez BDE
[*] koukal(zv)petrkoukal(tec)cz - 22.10.2005 09:39:53
Dobry den.
Omlouvam se za dotaz, uz to tu bylo ale v archivu se mi nepodarilo naiit uspokojivou odpoved. Hledam jednoduchou SQL databazi ,
nejlepe podobnou paradoxu. (Pristup z delphi nejlepe prez DLL) - bez nutnosti cokoliv na PC instalovat. Vyvijena aplikace potrebuje cca 3 tabulky (prirustek max. v desitkach zaznamu za tyden ) .
Diky za kazdou odpoved.
Petr Koukal
struktura typu extended
[*] Peter Svetlik <peternal(zv)seznam(tec)cz> - 21.10.2005 18:54:41
> Kde mozem najst popis struktury typu extended (pripadne aj dalsich real
> typov delphi)?
>
> Dakujem, Peter Svetlik.
>
>
>
Tu to mas :)
http://info.borland.com/techpubs/delphi/delphi5/oplg/memory.html
struktura typu extended
[*] Peter Svetlik <peternal(zv)seznam(tec)cz> - 21.10.2005 18:30:10
Kde mozem najst popis struktury typu extended (pripadne aj dalsich real
typov delphi)?
Dakujem, Peter Svetlik.
Potlaceni zpravy systemu - Scr eenSaver
[*] Jan Novak <delfin4(zv)volny(tec)cz> - 21.10.2005 18:01:40
> chtel bych potlacit zpravu systemu SC_SCREENSAVE
A co tak misto toho periodicky posilat nejakou zpravu, ze se pohla mys
nebo klavesa? Ani bych se netrapil zjistovanim periody, klidne bych to
pral i kazdych 5 sekund.Opak funkcie DayOfTheYear
[*] Jan Novak <delfin4(zv)volny(tec)cz> - 21.10.2005 17:57:12
> zadam cislo dna a fcia mi vrati datum aktualneho roku.
Normalne to cislo dne pricti k EncodeDate(rok,1,1)
Case insensitive vyber ve FirebirdSQL
[*] Pavel Malinsky <malinsky(zv)pmcom(tec)cz> - 21.10.2005 14:42:31
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz
> [mailto:delphi-l-owner(zv)clexpert(tec)cz] On Behalf Of MaReK
Ahoj,
> chci se zeptat, pri vyberu pomoci SELECT z FbSQL je podminka
> citliva na
> velikosti pismen, nebo ne (to je varianta, kterou potrebuji)?
Ano je. Lze pouzit treba prevod pomoci UDF UpperCase/LowerCase
v ramci selectu.
S pozdravem a dikem
=====================================
> Pavel Malinsky; malinsky(zv)pmcom(tec)cz <
=====================================
> GSM: 602 652 203 | ICQ: 322015967 <
=====================================
Addony do IE
[*] David Janko <djanko(zv)nextmedia(tec)cz> - 21.10.2005 14:42:05
Zdravim vsechny,
nevi nekdo o nejakych info jak napsat jednoduchy addon/listu do IE ? V
podstate jde o to aby uzivatel kliknutim na nejaky button tam spustil
exportni program (nebo pripadne na spustenem programu spustil import).
Za jakekoliv navedeni kde hladat predem velice dekuji.
---
Best Regards,
David Janko
djanko(zv)nextmedia(tec)cz
http://www.nextmedia(tec)cz
+420 777 233 530
Potlaceni zpravy systemu - Scr eenSaver
[*] vstuchl(zv)email(tec)cz - 21.10.2005 14:29:38
Ahoj,
potreboval bych vypnout setric obrazovky, pokud bezi muj program. Nechci tedy setric deaktivovat trvale v systemu, coz lze pomoci prikazu: SystemParametersInfo(SPI_SETSCREENSAVEACTIVE,0,nil,0);, ale chtel bych potlacit zpravu systemu SC_SCREENSAVE z WM_SYSCOMMAND. Nevite jak prijmout zpravu moji aplikaci, ktera nema treba ani focus a potlacit ji?
Diky moc za kazdou radu,
Vasek
Sestaveni view ve Firebirdu
[*] Ladislav Stary <stary(zv)ekodat(tec)cz> - 21.10.2005 13:27:08
Tady by opravdu byla nejlepsi ulozena procedura, ale jeji podstatny
prinos je predevsim v tom,
ze ty hratky s daty mas na strane serveru a dostanes z toho select,
ktery se bude chovat jako
tebou pozadanovany view.
Pokud se ti do ulozene procedury nechce, tak si ty kroky proste udelej
primo v Delphi a vysledek
bude stejny.
Nejsem si zcela jisty, jak vypada ten vysledny DBF soubor, ale jestli to
dobre chapu, tak
jeden zaznam v DBF = jeden ELDP.
Trochu bych to zadani pro nazornost zjednodusil. Mam 2 tabulky,
Tabulka A obsahuje:
- klic
- dalsi udaje
Tabulka B obsahuje:
- klic
- priznak (nabyva treba hodnot A,B,C)
- hodnota
A potrebuju to dostat do tvaru:
Klic, HodnotaA, HodnotaB, HodnotaC,
kde hodnotaA atd jsou z tabulky B pro odpovidajici priznak, tedy
HodnotaA je hodnota z tabulky B, pokud Priznak = A.
Toto by melo priblizne odpovidat tvemu problemu. A tedy jak na to:
1. Vytvorit pracovni tabulku, ktera bude mit sloupce:
- klic
- HodnotaA
- HodnotaB
- HodnotaC
2. naplnit ji pomoci tabulky A
insert into PracovniTab
(klic)
select klic from TabulkaA
3. provest odpovidajici pocet updatu tak, abych spravne doplnil
HodnotuA, HodnotuB a HodnotuC.
Pro kazdou dilci vetu tabulky B musi byt jeden update. Tady mam
bohuzel problem, protoze
pouzivam MS SQL, kde se to lisi od FB, ale snad tomu bude rozumnet:
update PracovniTab
set
HodnotaA = B.Hodnota
from PracovniTab P
join TabulkaB B
on P.Klic = B.Klic
where B.Priznak = A
4. Stejnym stylem pro priznak B a C
5. Nakonec jen select nad pracovni tabulkou a zrejme prepsani do DBF tabulky
Ladislav Stary
>Proste mame softik, ktery je urcen jen pro Evidencni Listy Duchodoveho
>Pojisteni, data se do nej importuji z mzdoveho systemu. Firma, pro
>kterou pracuji (www.amzdy(tec)cz) si to tak preje (soucasny stav ulozeni dat
>nebudu popisovat presne, muj predchudce to dal do dbf a jeden list =
>jedna veta, s 98 polozkami, spousta dat je redundantnich).
>V databazi mam nekolik tabulek (data o organizaci, identifikace cloveka,
>normalni prubeh ELDP a pak ELDP_VCM (Vojna-Civilni_Sluzba-Materska)) pro
>odeslani na portal verejne spravy je parovani:
>- firma + clovek + vsechny prubehy ELDP a ELDP+VCM, ktere nejsou
>odeslany (na to je u nich identifikator odeslani a pokud se neopravuji,
>neodesilaji, ani netisknou se znovu). Protoze toto se dela jen jednou za
>Case insensitive vyber ve FirebirdSQL
[*] MaReK Penguin Olsavsky <orsm(zv)centrum(tec)cz> - 21.10.2005 13:00:39
Bodry den,
chci se zeptat, pri vyberu pomoci SELECT z FbSQL je podminka citliva na
velikosti pismen, nebo ne (to je varianta, kterou potrebuji)?
Dekuji
MO
--
- --
MaReK "Penguin" Olsavsky
PHP Voodoo
private mail: orsm(zv)centrum(tec)cz
private web: http://orsm.wz(tec)cz
ICQ#: 160 178 925; MSN: orsm(zv)centrum(tec)cz; Skype: Penguin_007
tel.: +420-603-519-650; +420-775-154-689 (775-1-LINUX)
Sestaveni view ve Firebirdu
[*] MaReK Penguin Olsavsky <orsm(zv)centrum(tec)cz> - 21.10.2005 11:10:05
> Ahoj,
>
> nejsem si jistej, jestli jsem ten popis 100% pochopil, ale myslim, ze
> toto by melo jit vyresit vklidu ulozenou procedurou. Pohled nevim, jak
> by se rozumne vytvoril (nenapada me hezky zpusob).
>
>
Uff, tak to nemam moc radost. Protoze me taky nic jineho, nez nehezka
reseni nenapada a asi to nejak elegantne nejde.
Proste mame softik, ktery je urcen jen pro Evidencni Listy Duchodoveho
Pojisteni, data se do nej importuji z mzdoveho systemu. Firma, pro
kterou pracuji (www.amzdy(tec)cz) si to tak preje (soucasny stav ulozeni dat
nebudu popisovat presne, muj predchudce to dal do dbf a jeden list =
jedna veta, s 98 polozkami, spousta dat je redundantnich).
V databazi mam nekolik tabulek (data o organizaci, identifikace cloveka,
normalni prubeh ELDP a pak ELDP_VCM (Vojna-Civilni_Sluzba-Materska)) pro
odeslani na portal verejne spravy je parovani:
- firma + clovek + vsechny prubehy ELDP a ELDP+VCM, ktere nejsou
odeslany (na to je u nich identifikator odeslani a pokud se neopravuji,
neodesilaji, ani netisknou se znovu). Protoze toto se dela jen jednou za
cas, nevadi rychlosti nacitani v cyklu a postupne prendani do vystupniho
XML.
Pro tisk a opravy (mame v programu v podstate okopirovany orig.
formular) ale potrebuji parovani:
- firma + clovek + 3 prubehy (pokud existuji) ELDP + 2 prubehy (zase
pokud existuji) ELDP_VCM. A toto se opakuje ke kazdemu cloveku, dokud
nedojdou zaznamy o prubehu ELDP a ELDP_VCM.
- V prikladu jsem uvedl, ze budu mit cloveka, ktery bude mit 5 soubehu a
jeden ELDP_VCM (zena odesla na materskou a mela hlavni uvazek + nekolik
castecnych uvazku ve firme a je podilnikem)
1. list - organizace + clovek + prvni 3 zaznamy z ELDP + zaznam z ELDP_VCM
2. list - org. + clov. + zbyle dva zaznamy z ELDP
(predpokladam, ze netreba psat, kdyz bude mit vice soubehu, nez na dva
listy)
Truchu tu bloudim v kruhu, nenapada me elegantni reseni, optimalne to
mit ve view a na FbSQL fakt PL/SQL moc neumim.
Prosim, jestli ma nekdo napad, kudy z toho kruhu ven. Nechci cely kod,
staci jen ukazat jak a ja si to poladim a dopisu i za cenu nauceni se
PL/SQL (Ted kvituju PgSQL, kde lze psat i v Pythonu, Perlu, nebo C,
kterezto jazyky jsou mocnejsi a prehlednejsi, lec PgSQL nema nektere
vymozenosti FbELDP, jako je treba Embedded verze :-().
S pozdravem a velikymi diky za popostrceni
MaReK Olsavsky
--
- --
MaReK "Penguin" Olsavsky
PHP Voodoo
private mail: orsm(zv)centrum(tec)cz
private web: http://orsm.wz(tec)cz;
ICQ#: 160 178 925; MSN: orsm(zv)centrum(tec)cz; Skype: Penguin_007
tel.: +420-603-519-650; +420-775-154-689 (775-1-LINUX)
klient pre firebird
[*] Dusan Vrazel <d.vrazel(zv)centrum(tec)cz> - 21.10.2005 11:09:40
Mam Lite verzi SQL Manager od EMS a jsem spokojeny. Je tam vse co potrebuji.
SQL Manager Lite for InterBase/Firebird
http://www.sqlmanager.net/en/products/ibfb/manager
Vrazel.> Zdravim, poradte nejakeho dobreho klienta / freee/ na spravu databazy
> firebird aj na pripadnu manualnu editaciu tabuliek
>
> dakujem
>
>
>
>
> __________ NOD32 1.1261 (20051019) Information __________
>
> This message was checked by NOD32 antivirus system.
> http://www.nod32.com
>
> Opak funkcie DayOfTheYear
[*] Skalsky Milan <skalsky(zv)komercpoj(tec)cz> - 21.10.2005 10:57:11
taky jsem nic nenasel ... zkus tohle (upravy formatu datumu
uses DateUtils;
//vraci datum podle poradi dne v aktualnim roce ...
function .getDateOfTheYear(nmr:integer):TDateTime;
begin
result := StartOfTheYear(now) + nmr - 1;
end;
Milan
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz] On Behalf Of Stanislav ADAMCIK
Sent: Friday, October 21, 2005 10:32 AM
To: delphi-l(zv)clexpert(tec)cz
Subject: Opak funkcie DayOfTheYear
Neviete o nejakej funkcii, ktora spravy opak ku funkcii DayOfTheYear() ?
Cize zadam cislo dna a fcia mi vrati datum aktualneho roku.
napr. c. 301 - 28.10.2005
Stano
www.stadas.sk
Opak funkcie DayOfTheYear
[*] Jiri Matejka <matejka(zv)stemmark(tec)cz> - 21.10.2005 10:46:45
Nevim jestli existuje primo nejake inverzni funkce k DayOfTheYear, ale prip.
by slo pouzit StartOfTheYear(D)+(N-1), kde N je cislo dne a D je nejake
datum z daneho roku. StartOfTheYear vraci 12:00 AM prvniho dne roku.
Jirka Matejka
> Neviete o nejakej funkcii, ktora spravy opak ku funkcii DayOfTheYear() ?
>
> Cize zadam cislo dna a fcia mi vrati datum aktualneho roku.
> napr. c. 301 - 28.10.2005
>
>
> Stano
> www.stadas.sk
Opak funkcie DayOfTheYear
[*] Stanislav ADAMCIK <konferencia(zv)stadas.sk> - 21.10.2005 10:32:17
Neviete o nejakej funkcii, ktora spravy opak ku funkcii DayOfTheYear() ?
Cize zadam cislo dna a fcia mi vrati datum aktualneho roku.
napr. c. 301 - 28.10.2005
Stano
www.stadas.sk
Sestaveni view ve Firebirdu
[*] Bc. Jiri Cincura <diskuze(zv)cincura(tec)net> - 21.10.2005 10:13:50
MaReK Penguin Olsavsky wrote:
> Bodry den,
> potrebuji posunout se sestavenim jednoho view. Mam na vstupu 3 tabulky.
> Jedna dve se doplnuji s tou prvni. Z prvni vyberu zaznam a z dalsich
> dvou doplnujici data (potud neni problem, joinit umim), ale potrebuju
> vybrat k te prvni z druhe 3 vety a ze treti 2 vety, dokud vety v tech
> doplnujicich nedojdou (tzn. je-li k zaznamu v prvni tabulce 5 vet druhe
> a ve treti jedna veta, potrebuju ziskat 2 vety, kdy prvni bude obsahovat
> zaznam z prvni tabulky, prvni 3 vety z druhe a vetu z treti a druha veta
> bude obsahovat zaznam z prvni tabulky, zbyle 2 vety z druhe tabulky, mno
> a protoze nic nezbylo, takze nic z te treti). Pokud nekdo chce upresnit,
> o co jde, jedna se o tisk ELDP na formulare.
> Vazebni klice a ukazatele pro to, co jiz bylo vytisteno/odeslano jsou ve
> vsech tabulkach. Staci nasmerovat, jestli to lze jen podminkami, se
> stored procedurou si zatim rady moc nevim. Na PgSQL jo, protoze tam se
> da napsat v Pythonu.
> Dekuji a s pozdravem
> MaReK Olsavsky
>
>
Ahoj,
nejsem si jistej, jestli jsem ten popis 100% pochopil, ale myslim, ze
toto by melo jit vyresit vklidu ulozenou procedurou. Pohled nevim, jak
by se rozumne vytvoril (nenapada me hezky zpusob).
--
Bc. Jiri Cincura
http://www.ID3renamer.com/
http://www.x2develop.com/
ICQ: 314711544 | Yahoo!: x2develop
http://photo.cincura.net/
Historie v D7
[*] Dalibor <dalibor(zv)torola(tec)cz> - 21.10.2005 09:19:21
Ahoj, nevite nekdo jak by se dal navysit pocet naposledy otevrenych projektu v Delphi 7?
Jsou tam maximalne zobrazene 4 projekty, coz je hrozne malo.
Dekuji za radu
OT: Nabidka zamestnani v Praze
[*] pk <delphi(zv)tds-technik(tec)cz> - 21.10.2005 08:34:24
Hledame zkusene programatory v Delphi pro vyvoj technickych aplikaci.
Pozadujeme:
- dobrou znalost a praxi v Delphi (Win32)
- anglictinu alespon pasivne
Vitame zkusenosti a znalosti: ADO, tvorba ActiveX komponent, MS Visual
Studio (VB, C++ event. C#).
Prace na plny uvazek v Praze 8. Nastup mozny ihned.
Odpovedi e-mailem neposilejte do konference, ale primo na:
delphi(zv)tds-technik(tec)cz
Kontakt:
Pavel Kriz
TDS, Palaskova 1107/2, 182 00 Praha 8
tel.: 284 691 444, 603 145 613
fax: 284 693 858
e-mail: delphi(zv)tds-technik(tec)cz
http://www.tds-technik(tec)cz
Delphi IDE a ladeni vlaken
[*] Cabak Pavel <delphikonf(zv)cross(tec)cz> - 21.10.2005 08:07:52
Dobry den vsem,
mam problem pri ladeni programu s vlakny. Po ukonceni mi to vetsinou skonci hlaskou "Access violation at addr... in module CorIde40.bpl. Read of addr...", v titulku okna Delphi je stale [Running]. Muzu dat maximalne Ctrl+F2, v titulku to sice napise [Stopping], ale s IDE nejde uz dal nic udelat. Musim to shodit a znovu spustit. Pouzivam D4C/S a WXP.
Pavel
cabak(zv)cross(tec)cz
Podepsany email
[*] Jan Netrval <jnetrval(zv)pilscom(tec)cz> - 21.10.2005 06:53:21
Nejak nemohu pohnout s digitalnim podepsanim emailu. Mam zdrojovy kod emailu v UTF-8 a rad bych ho v Delphi (WIN32) podepsal. Nejlepe pres capicom.dll (neni podminkou).Nevite prosim nekdo jak na to?
Diky
Jan Netrval
Transparentni kopie vice bitmap (canvas)
[*] peca.konference(zv)centrum(tec)cz - 20.10.2005 19:09:35
Tak se mi dneska podarilo najit reseni. Kdyby to nekdo taky nekdy
potreboval, tak nasledujici odkaz vede do diskuze o delphi, kde je
uveden zdrojovy kod umoznujici vytvareni a kopirovani transparentnich
bitmap.
http://groups.google.com/group/borland.public.delphi.graphics/browse_thread/thread/8cf61bd8e7bae8f5/6fd535a68a0737ec?lnk=st&q=delphi+create+transparent+bitmap&rnum=6&hl=en#6fd535a68a0737ec
UIB2 chyba proti FirebirdSQL 1.5
[*] MaReK Penguin Olsavsky <orsm(zv)centrum(tec)cz> - 20.10.2005 17:30:57
Omlouvam se za slepotu, ale asi tak minutu po odeslani dotazu jsem
nasel, ze nebylo definovana kodova stranka pro pripojeni z aplikace :-(.
S pozdravem
MaReK
MaReK Penguin Olsavsky napsal(a):
> Dobry den,
> setkal se nekdo z vas s touto chybkou:
> - Pouzivam OpenSource componenty UIB2 pro pristup k FbSQL.
> - Dotaz 'SELECT COUNT(*) AS POCET FROM ORGANIZACE WHERE IDORG = 57 AND
> ICO = '14864592' AND VSORG = '58010106' AND NAZORG = 'VITRABLOK a.s.'
> AND OBEC = 'Duchcov' AND PSC = '41914' AND ULICE = 'Bilinska' AND
> CISLODOMU = '42';' mi vraci chybu: 'arithmetic exception, numeris
> owerflow or string truncation, cannot transliterate character between
> character sets. Arithmetic overflow or division by zero occured'.
> - pokud tento dotaz zadam do IB Experta, projde, jak jsem cekal a potrebuji.
> - tabulky jsou definovany v kodovani CP1250.
>
> Napada nekoho neco? Nebo neco nevidim?
> Dekuji a s pozdravem
> MaReK Olsavsky
>
UIB2 chyba proti FirebirdSQL 1.5
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 20.10.2005 14:52:21
> setkal se nekdo z vas s touto chybkou:
> - Pouzivam OpenSource componenty UIB2 pro pristup k FbSQL.
> CISLODOMU = '42';' mi vraci chybu: 'arithmetic exception, numeris
> owerflow or string truncation, cannot transliterate character between
> character sets. Arithmetic overflow or division by zero occured'.
Neznam uvedene komponenty, ale strelba od boku: mas u komponenty
definujici pripojeni k databazi, krome jmena a hesla i nastavenou
znakovou sadu? Zanakova sada je jednak v databazi, jednak je treba ji
zadavat i pro pripojeni.
David Lebeda
UIB2 chyba proti FirebirdSQL 1.5
[*] Tomas Krejzek <tomas.krejzek(zv)kpsys(tec)cz> - 20.10.2005 14:45:30
Zkontroluj si jake mas nastaveni kodovani v pripojeni do databaze, tohle
presne mi to delalo, kdyz jsem v IBDatabase zapomnel nastavit znakovou
sadu z NONE na CP1250.
Tom
MaReK Penguin Olsavsky napsal(a):
> Dobry den,
>setkal se nekdo z vas s touto chybkou:
>- Pouzivam OpenSource componenty UIB2 pro pristup k FbSQL.
>- Dotaz 'SELECT COUNT(*) AS POCET FROM ORGANIZACE WHERE IDORG = 57 AND
>ICO = '14864592' AND VSORG = '58010106' AND NAZORG = 'VITRABLOK a.s.'
>AND OBEC = 'Duchcov' AND PSC = '41914' AND ULICE = 'Bilinska' AND
>CISLODOMU = '42';' mi vraci chybu: 'arithmetic exception, numeris
>owerflow or string truncation, cannot transliterate character between
>character sets. Arithmetic overflow or division by zero occured'.
>- pokud tento dotaz zadam do IB Experta, projde, jak jsem cekal a potrebuji.
>- tabulky jsou definovany v kodovani CP1250.
>
>Napada nekoho neco? Nebo neco nevidim?
> Dekuji a s pozdravem
> MaReK Olsavsky
>
>
>klient pre firebird
[*] Jiri Virt <virt(zv)volny(tec)cz> - 20.10.2005 14:35:04
IB Expert 2.0 .. je tam free verze a docela slusna prace s tabulkama
www.ibexpert.com
Jirka Virt
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz] On
Behalf Of mato
Sent: Thursday, October 20, 2005 2:31 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: klient pre firebird
Zdravim, poradte nejakeho dobreho klienta / freee/ na spravu databazy
firebird aj na pripadnu manualnu editaciu tabuliek
dakujem
klient pre firebird
[*] mato <mato.tino(zv)inmail.sk> - 20.10.2005 14:30:38
Zdravim, poradte nejakeho dobreho klienta / freee/ na spravu databazy
firebird aj na pripadnu manualnu editaciu tabuliek
dakujem
Sestaveni view ve Firebirdu
[*] MaReK Penguin Olsavsky <orsm(zv)centrum(tec)cz> - 20.10.2005 14:28:13
Bodry den,
potrebuji posunout se sestavenim jednoho view. Mam na vstupu 3 tabulky.
Jedna dve se doplnuji s tou prvni. Z prvni vyberu zaznam a z dalsich
dvou doplnujici data (potud neni problem, joinit umim), ale potrebuju
vybrat k te prvni z druhe 3 vety a ze treti 2 vety, dokud vety v tech
doplnujicich nedojdou (tzn. je-li k zaznamu v prvni tabulce 5 vet druhe
a ve treti jedna veta, potrebuju ziskat 2 vety, kdy prvni bude obsahovat
zaznam z prvni tabulky, prvni 3 vety z druhe a vetu z treti a druha veta
bude obsahovat zaznam z prvni tabulky, zbyle 2 vety z druhe tabulky, mno
a protoze nic nezbylo, takze nic z te treti). Pokud nekdo chce upresnit,
o co jde, jedna se o tisk ELDP na formulare.
Vazebni klice a ukazatele pro to, co jiz bylo vytisteno/odeslano jsou ve
vsech tabulkach. Staci nasmerovat, jestli to lze jen podminkami, se
stored procedurou si zatim rady moc nevim. Na PgSQL jo, protoze tam se
da napsat v Pythonu.
Dekuji a s pozdravem
MaReK Olsavsky
--
- --
MaReK "Penguin" Olsavsky
PHP Voodoo
private mail: orsm(zv)centrum(tec)cz
private web: http://orsm.wz(tec)cz
ICQ#: 160 178 925; MSN: orsm(zv)centrum(tec)cz; Skype: Penguin_007
tel.: +420-603-519-650; +420-775-154-689 (775-1-LINUX)
UIB2 chyba proti FirebirdSQL 1.5
[*] MaReK Penguin Olsavsky <orsm(zv)centrum(tec)cz> - 20.10.2005 14:19:46
Dobry den,
setkal se nekdo z vas s touto chybkou:
- Pouzivam OpenSource componenty UIB2 pro pristup k FbSQL.
- Dotaz 'SELECT COUNT(*) AS POCET FROM ORGANIZACE WHERE IDORG = 57 AND
ICO = '14864592' AND VSORG = '58010106' AND NAZORG = 'VITRABLOK a.s.'
AND OBEC = 'Duchcov' AND PSC = '41914' AND ULICE = 'Bilinska' AND
CISLODOMU = '42';' mi vraci chybu: 'arithmetic exception, numeris
owerflow or string truncation, cannot transliterate character between
character sets. Arithmetic overflow or division by zero occured'.
- pokud tento dotaz zadam do IB Experta, projde, jak jsem cekal a potrebuji.
- tabulky jsou definovany v kodovani CP1250.
Napada nekoho neco? Nebo neco nevidim?
Dekuji a s pozdravem
MaReK Olsavsky
--
- --
MaReK "Penguin" Olsavsky
PHP Voodoo
private mail: orsm(zv)centrum(tec)cz
private web: http://orsm.wz(tec)cz
ICQ#: 160 178 925; MSN: orsm(zv)centrum(tec)cz; Skype: Penguin_007
tel.: +420-603-519-650; +420-775-154-689 (775-1-LINUX)
Load balancing - cluster MSSQL serveru
[*] Jiri Foldyna <jiri.f(zv)avizo(tec)cz> - 20.10.2005 12:01:12
> >problem je v tom, ze rozsiruji informacni system, ktery je
> uzce provazany s
> >vyrobnim (jde o noviny). Mam tam Compaq, 2xPIII(zv)1,3GHz, 2 GB
> pameti a SCSI
> >disky a dochazi mu dech.
> >
>
> jde evidentne o slabou masinu. U nas jsme to vsechno,
> kde to slo, uz vyhazeli. Mame po Praze 5 provozu cca v prumeru
> s 20 klienty na provoz, plus prevodni server. Vetsina bezela
> na techto serverech jen s tim rozdilem ze jsme mneli slabsi
> konfigurace. Prodejni system s cca 1 Mega transakci za mesic
> na 70 stanicich to absolutne nezvladalo. Nepouzivame sice
> MSSQL ale evidentne je to problem HW.
>
> Pokud tam das bezne kancelarske PC cca za 20 tisic bude to
> mnohem lepe zvladat nez tento predrazeny a dle meho nazoru
> naprosto debilne provedeny a nespolehlivy server od Compaq.
>
> Tot jest muj nazor, podlozen praktickou zkusenosti z deni praxe.
>
> S pozdravem Vaclav Halik
Ahoj,
ano, je to problem HW. Zhruba po peti hodinach provozu po restartu zacina
server swapovat, protoze ma obsazenou fyzickou pamet.
Do serveru uz nepujdeme, prestoze po zhruba 4 letech nonstop provozu si na
ten Compaq stezovat nemuzu - nebyl s nim jediny problem (teda az na ten
vykon :-).
Skutecne planujeme pouziti skladacky, jsme na to solidne personalne
pripraveni, ale skalovatelnost pomoci clusteru by nam pomohla do
budoucnosti - mohli bychom resit deficit vykonu pridanim dalsiho pocitace.
No a v neposledni rade by cluster ze dvou masin hned od zacatku mohl
eliminovat potencialni problem zpusobeny pripadnou mensi spolehlivosti
skladacky (s tim mame taky dost zkusenosti, bohuzel...).
Diky
Jiri Foldyna
Load balancing - cluster MSSQL serveru
[*] Vaclav Halik <spravasd(zv)suz.cvut(tec)cz> - 20.10.2005 11:46:45
Zdravim,
>problem je v tom, ze rozsiruji informacni system, ktery je uzce provazany s
>vyrobnim (jde o noviny). Mam tam Compaq, 2xPIII(zv)1,3GHz, 2 GB pameti a SCSI
>disky a dochazi mu dech.
>
jde evidentne o slabou masinu. U nas jsme to vsechno,
kde to slo, uz vyhazeli. Mame po Praze 5 provozu cca v prumeru
s 20 klienty na provoz, plus prevodni server. Vetsina bezela
na techto serverech jen s tim rozdilem ze jsme mneli slabsi
konfigurace. Prodejni system s cca 1 Mega transakci za mesic
na 70 stanicich to absolutne nezvladalo. Nepouzivame sice
MSSQL ale evidentne je to problem HW.
Pokud tam das bezne kancelarske PC cca za 20 tisic bude to
mnohem lepe zvladat nez tento predrazeny a dle meho nazoru
naprosto debilne provedeny a nespolehlivy server od Compaq.
Tot jest muj nazor, podlozen praktickou zkusenosti z deni praxe.
S pozdravem Vaclav Halik
Rozmery formu pred maximalizaci
[*] Pavel Poles <delphi(zv)noni(tec)cz> - 20.10.2005 11:44:19
Pokud se jedna o VCL tak v JEDI VCL je na to komponenta.
Pavel Poles
peca.konference(zv)centrum(tec)cz napsal(a):
>Zdravim,
>daji se nejak zjistit jake rozmery ma formular v nemaximalizovaenem stavu, kdyz je zrovna maximalizovany? Jde mi o to, ze potrebuju ulozit rozmery formulare do .ini souboru, jenze kdyz je formular maximaliovany, tak v Left, Top, Width, Height ma hodnoty v maximalizovanem stavu. Kam si objekt TForm uklada rozmery v nemaximalizovanem stavu? Nikde jsem to nenasel. A odchyceni udalosti CanResize mi nepomohlo, protoze tam zase nepoznam, jestli jde okno do maximalizace nebo jestli je normalne resizenute...
>
>
>
>
>
Rozmery formu pred maximalizaci
[*] Ladislav Fitz <ladislav.fitz(zv)kodytek(tec)cz> - 20.10.2005 11:35:53
Ja na to pouzivam toto
var r : tRect; wp : WINDOWPLACEMENT;
if (aForm.WindowState=wsMaximized)
then begin
wp.length:=sizeof(wp);
if (GetWindowPlacement (aForm.Handle,(zv)wp))
then r:=wp.rcNormalPosition
else r:=aForm.BoundsRect;
end
else r:=aForm.BoundsRect;
Rozmery formu pred maximalizaci
[*] peca.konference(zv)centrum(tec)cz - 20.10.2005 11:27:28
Zdravim,
daji se nejak zjistit jake rozmery ma formular v nemaximalizovaenem stavu, kdyz je zrovna maximalizovany? Jde mi o to, ze potrebuju ulozit rozmery formulare do .ini souboru, jenze kdyz je formular maximaliovany, tak v Left, Top, Width, Height ma hodnoty v maximalizovanem stavu. Kam si objekt TForm uklada rozmery v nemaximalizovanem stavu? Nikde jsem to nenasel. A odchyceni udalosti CanResize mi nepomohlo, protoze tam zase nepoznam, jestli jde okno do maximalizace nebo jestli je normalne resizenute...Load balancing - cluster MSSQL serveru
[*] Ludek <konference(zv)sales(tec)cz> - 20.10.2005 10:32:58
----- Original Message -----
From: "Jiri Foldyna" <jiri.f(zv)avizo(tec)cz>
> prave u SQL2000 Enterprise jsem nasel jen failover clustering (dva nebo
vice
Ahoj,
Mas pravdu, necetl jsem poradne:)
No pokud serveru "dochazi dech" tak bych spise doporucoval nejprve podrobnou
analyzu cim je to zpusobeno.
Moje zkusenost pro MS SQL je takova, ze vestsi pocet procesoru a pameti
prakticky vubec nezrychli zpracovani dotazu. Pouze se zlepsi vykon pro praci
vice uzivatelu soucasne.
Cili pokud je "dochazeni" dechu zpusobeno predevsim narustem mnozstvi dat
pak pomuze nejvice optimalizace dotazu a indexu databaze. Skutecne jsem
neveril vlastnim ocim, co dokazou dva indexy navic....
Dalsi zrychleni (jiz mene razantni) "zpusobi" rychla diskova pole - idealne
5 v masine (Zvlast pro MDF, LDF, TMPDB, TMPSYSTEM,SYSTEM)
Take upgrade na Enterprise verzi by melo byt znat (lepsi vyuziti pameti).
Ludek
Oznameni dlasich "24 hodin s Delphi"
[*] rkubat(zv)email(tec)cz - 20.10.2005 10:16:30
Borland bude poradat druhy maraton ?24 hodin s Delphi?
O co jde: ?24 hodin s Delphi? (?24 Hours of Delphi?) je interaktivni vysilani rozhlasove stanice spolecnosti Borland, ktere bude behem celeho dne poskytovat rozhovory, rady expertu a vyhledy na budoucnost Delphi. Do vysilani se zapoji pres 50 recniku z celeho sveta vcetne borlandskych zakazniku, partneru, testeru predbeznych verzi, vyvojaru, vedoucich projektu a recniku z planovane vyvojarske conference Borland ve Spojenych statech. Mimoradna pozornost bude venovana nedavno oznamene nove verzi Delphi 2006 puvodne vyvijene s kodovym jmenem ?DeXter?, ktera je dnes jiz k dispozici pro predbezne objednavky.
Kdy: Pondeli 24.10.2005 od 8:00 rano GMT do 25.10.2005 7:59 GMT.
Kde: Borland Developer Network (BDN), http://ec.borland.com/eventDisplay.faces?e=589
Za kolik: poslech vysilani je ZDARMA
Vysilani odstartuji tri ?Delphi guru? Michael Swindell, Jason Vokes a Malcolm Groves, kteri povedou diskusi o pouzivani nastroju Delphi, C++Builder a C#Builder v ramci celeho sveta. Budou tez hovorit o budoucich smerech vyvoje a podpory Microsoft?s .NET Compact Framework (CF), .NET 2.0 a Windows Vista. Behem celeho maratonu ulysi posluchaci cenne rady, navody a techniky od expertu v Delphi a budou se moci zucastnit diskusi o presunu vyvojovych projektu ve Win32 do prostredi Delphi 2006, stejne tak jako o presunu aplikaci do prostredi Microsoft .NET a .NET Compact Framework.
Posluchaci mohou zaslat sve otazky pro hosty poradu elektronickou postou na adresu aohlsson(zv)borland.com. Na otazky ziskaji odpovedi behem vysilani. Cele vysilani bude zaznamenano a archivovano na Borland Developer Network pro ty, kteri jej nebudou moci vyslechnout cele.
Potrebujete-li vice informaci, navstivte www.bdn.borland.com.Spojeni nekolika stejnych DBF do jednoho souboru
[*] Jan Fiala <jan.fiala(zv)wo(tec)cz> - 20.10.2005 09:40:01
Kazdy Dataset, zalozeny na BDE ma implemtnovan BatchMove.
Dataset.Batchmove(Zdrojovy_Dataset, batAppendUpdate);
--
Jan Fiala
mailto:jan.fiala(zv)wo(tec)cz
20.10.2005 Petr Hlozek:
> Dobry den,
> pokud Vam nevadi ze na to pouzijete BDE, mrknete se na komponentu
> BatchMove z palety BDE.
> Petr
> Martin Pavera napsal(a):
>> potreboval bych poradit, jak spojit nekolik stejnych DBF souboru se stejnou
>> strukturou do jednoho DBF souboru.
>> DBF soubory mohou obsahovat stejne (duplicitni radky). Jde to taky nejak
>> elegantne poresit, abych se nemuselo pri spojovani pro kazdy radek
>> zjistovat, jestli uz neni obsazen ve vyslednem DBF souboru ?
>>
>> Dekuji za radu
>> Martin
Spojeni nekolika stejnych DBF do jednoho souboru
[*] Petr Hlozek <petr_h(zv)mrp(tec)cz> - 20.10.2005 09:17:32
Dobry den,
pokud Vam nevadi ze na to pouzijete BDE, mrknete se na komponentu
BatchMove z palety BDE.
Petr
Martin Pavera napsal(a):
> potreboval bych poradit, jak spojit nekolik stejnych DBF souboru se stejnou
> strukturou do jednoho DBF souboru.
> DBF soubory mohou obsahovat stejne (duplicitni radky). Jde to taky nejak
> elegantne poresit, abych se nemuselo pri spojovani pro kazdy radek
> zjistovat, jestli uz neni obsazen ve vyslednem DBF souboru ?
>
> Dekuji za radu
> Martin
--
email : petr_h(zv)mrp(tec)cz
work : www.mrp(tec)cz
home : www.ok2cqr.com
ICQ : 165536992
AOL : PetrHH
Skype : PetrHH
OT: Licence Delphi
[*] hlji <hlji(zv)atlas(tec)cz> - 20.10.2005 07:49:00
zdravim
nema nekdo prebytecnou licenci na D7 Ent
dekuji jirka
nabidky prosim na hlji(zv)atlas(tec)cz
Load balancing - cluster MSSQL serveru
[*] Martin Falta <martin.falta(zv)atlas(tec)cz> - 20.10.2005 00:00:39
Tak v tom te musim zklamat - nema.
S pozdravem,
Martin Falta
Wednesday, October 19, 2005, 11:48:36 PM, you wrote:
JF> Ahoj,
JF> napr. zminene VAXy se propojovaly do clusteru specialni sbernici, diky niz
JF> mohly sdilet (pokud se dobre pamatuji) cast operacni pameti, v podstate se
JF> jedna o analogii viceprocesorove struktury. Nekde jsem zahledl, ze dnes se
JF> pro tyto ucely pouziva FireWire nebo gigovy ethernet. Je to jen otazka
JF> software, k cemuz smeroval muj dotaz, totiz jestli MS nema takovy server ve
JF> svem portfoliu.
JF> Diky
JF> Jiri Foldyna
Load balancing - cluster MSSQL serveru
[*] Jiri Foldyna <jiri.f(zv)avizo(tec)cz> - 19.10.2005 23:48:36
> MS SQL Server podporuje pouze failover clustering a myslim, ze i
> ostatni RDBMS, ktere podporuji clustering, podporuji pouze failover. V
> zasade je to i logicke. Zkuste si predstavit, jak by se v pripade NLB
> clusteru zapisovaly transakce do transakcniho logu? Jak by byl
> synchronizovan pristup k databazovym souborum?
>
> S pozdravem,
> Martin Falta
Ahoj,
napr. zminene VAXy se propojovaly do clusteru specialni sbernici, diky niz
mohly sdilet (pokud se dobre pamatuji) cast operacni pameti, v podstate se
jedna o analogii viceprocesorove struktury. Nekde jsem zahledl, ze dnes se
pro tyto ucely pouziva FireWire nebo gigovy ethernet. Je to jen otazka
software, k cemuz smeroval muj dotaz, totiz jestli MS nema takovy server ve
svem portfoliu.
Diky
Jiri Foldyna
Load balancing - cluster MSSQL serveru
[*] Martin Falta <martin.falta(zv)atlas(tec)cz> - 19.10.2005 23:30:34
MS SQL Server podporuje pouze failover clustering a myslim, ze i
ostatni RDBMS, ktere podporuji clustering, podporuji pouze failover. V
zasade je to i logicke. Zkuste si predstavit, jak by se v pripade NLB
clusteru zapisovaly transakce do transakcniho logu? Jak by byl
synchronizovan pristup k databazovym souborum?
S pozdravem,
Martin Falta
Wednesday, October 19, 2005, 10:38:30 PM, you wrote:
JF> Ahoj,
JF> prave u SQL2000 Enterprise jsem nasel jen failover clustering (dva nebo vice
JF> pocitacu, navenek se xichti jako jeden, maji spolecny disk nebo pole, ale
JF> jako server jede jen jeden, druhy je zalozni). Ja bych potreboval jeden SQL
JF> server bezici na vice pocitacich s tim, ze se zatez rozdeluje mezi ne a
JF> zvenku to vypada jako jeden stroj. Pokud jsou problemy s vykonem, proste se
JF> prida dalsi pocitac. Popravde receno, nevim, jestli vubec neco takoveho u
JF> databazovych SQL serveru existuje. Kdysi jsem takhle videl pracovat tri
JF> VAXy, neco snad ma jako aplikacni server Sybase. My pouzivame MS SQL a jak
JF> rikam, serveru dochazi dech. Nez koupime neco vyzivnejsiho, chtel bych
JF> vedet, jestli MS nema nejake reseni podporujici skalovatelnost na urovni
JF> clusteru.
JF> Pokud mas nejake podrobnejsi informace nebo odkaz, muzes mi je prosim
JF> poskytnout ?
JF> Diky
JF> Jiri Foldyna
Load balancing - cluster MSSQL serveru
[*] Jiri Foldyna <jiri.f(zv)avizo(tec)cz> - 19.10.2005 22:50:31
> Ahoj,
> myslim, ze vyvazovani zateze neumoznuje k dispozici pouze
> dual-cluster. Jestli mohu, docela pred tim varuji, naistalovat to
> a rozebehnout je prace tak na cely den a neco na tom zmenit tak na
> dva (kdyz mas stesti a povede se to). Resil jsem pouhou zmenu ODBC
> ovladacu pro DTS a proste to neslo,
> zachodu ani omylem a bez reinstalace taky ne.
> Po rozhozeni clusteru byl preinstalovan na samostatne dva servery
> za par hodin a bez odporu. Jednodusi dnes je pouzit viceprocesorovy
> (4) server s WIN2003Sx64 a odpovidajici verze MSSQL (64bit), cena je
> jen funkci poctu procesoru. Vyvazovani zateze mezi procesory mas v
> cene, pole museji mit tak jako tak spolecne.
>
> Pavel
Ahoj,
problem je v tom, ze rozsiruji informacni system, ktery je uzce provazany s
vyrobnim (jde o noviny). Mam tam Compaq, 2xPIII(zv)1,3GHz, 2 GB pameti a SCSI
disky a dochazi mu dech. Samozrejme muzu koupit neco vyzivnejsiho, jenze
driv nebo pozdeji (spis driv) to taky nebude stacit. Takze cluster, ktery
bych v pripade potreby rozsiril o dalsi pocitac(e), by mi usnadnil zivot.
Diky
Jiri Foldyna
Load balancing - cluster MSSQL serveru
[*] Jiri Foldyna <jiri.f(zv)avizo(tec)cz> - 19.10.2005 22:38:30
> > Umoznuje MS SQL server (jedno jaka edice) vytvoreni clusteru z vice
> pocitacu
> > s automatickym vyvazenim zateze (nemyslim failover clustering) ?
>
> Ahoj,
> Myslim ze to umi SQL2000 Enterprise.
>
> Ludek
Ahoj,
prave u SQL2000 Enterprise jsem nasel jen failover clustering (dva nebo vice
pocitacu, navenek se xichti jako jeden, maji spolecny disk nebo pole, ale
jako server jede jen jeden, druhy je zalozni). Ja bych potreboval jeden SQL
server bezici na vice pocitacich s tim, ze se zatez rozdeluje mezi ne a
zvenku to vypada jako jeden stroj. Pokud jsou problemy s vykonem, proste se
prida dalsi pocitac. Popravde receno, nevim, jestli vubec neco takoveho u
databazovych SQL serveru existuje. Kdysi jsem takhle videl pracovat tri
VAXy, neco snad ma jako aplikacni server Sybase. My pouzivame MS SQL a jak
rikam, serveru dochazi dech. Nez koupime neco vyzivnejsiho, chtel bych
vedet, jestli MS nema nejake reseni podporujici skalovatelnost na urovni
clusteru.
Pokud mas nejake podrobnejsi informace nebo odkaz, muzes mi je prosim
poskytnout ?
Diky
Jiri Foldyna
Filter proti SQL injection
[*] lelicek(zv)volny(tec)cz - 19.10.2005 20:04:20
Ahoj,
nemate nekdo napsany filter zabranujici utoku 'SQL injection'.
Idealni pro MSSQL (napr. jako DLL) nebo jen v Delphi ?
Pavel
Setrideni indexu TTable pro DBase podle dvou sloup
[*] lelicek(zv)volny(tec)cz - 19.10.2005 20:02:20
Ahoj
DBASE a FOX nepouzivali slozkove indexy.
Musis ho vyrobit jako vyraz z cisel udelej string konstantni delky
a secti to .
Pavel
Od: "Jan Novak" <delfin4(zv)volny(tec)cz>
> > Misto 'STLNR,POSNR' jsem zkusil z hecu pouzit 'STLNR+POSNR' a
> > setrideni se zmenilo, ale razeni (oba udaje jsou cisla) bylo
> nespravne.
>
> Za cely den nikdo nereagoval. Taky bych mlcel, protoze DB
> format
> nepouzivam, ale co tak z jeste vetsiho hecu pouzit neco typu
> STLNR*1000+POSNR ?Spojeni nekolika stejnych DBF do jednoho souboru
[*] lelicek(zv)volny(tec)cz - 19.10.2005 20:00:19
Ahoj,
pokud pracujes pres ADO (ODBC) tak je spoj pomoci UNION a vysledek
uloz do noveho souboru. SELECT * FROM tabuka1
UNION
SELECT * FROM tabuka2
..
..
SELECT * FROM tabukan
Pavel
Od: "Martin Pavera" <martin.pavera(zv)gmail.com>
> potreboval bych poradit, jak spojit nekolik stejnych DBF
> souboru se stejnou
> strukturou do jednoho DBF souboru.
> DBF soubory mohou obsahovat stejne (duplicitni radky). Jde to
> taky nejak
> elegantne poresit, abych se nemuselo pri spojovani pro kazdy
> radek
> zjistovat, jestli uz neni obsazen ve vyslednem DBF souboru ?
Load balancing - cluster MSSQL serveru
[*] lelicek(zv)volny(tec)cz - 19.10.2005 19:56:18
Ahoj,
myslim, ze vyvazovani zateze neumoznuje k dispozici pouze
dual-cluster. Jestli mohu, docela pred tim varuji, naistalovat to
a rozebehnout je prace tak na cely den a neco na tom zmenit tak na
dva (kdyz mas stesti a povede se to). Resil jsem pouhou zmenu ODBC
ovladacu pro DTS a proste to neslo,
zachodu ani omylem a bez reinstalace taky ne.
Po rozhozeni clusteru byl preinstalovan na samostatne dva servery
za par hodin a bez odporu. Jednodusi dnes je pouzit viceprocesorovy
(4) server s WIN2003Sx64 a odpovidajici verze MSSQL (64bit), cena je
jen funkci poctu procesoru. Vyvazovani zateze mezi procesory mas v
cene, pole museji mit tak jako tak spolecne.
Pavel
Od: "Ludek" <konference(zv)sales(tec)cz>
> > Umoznuje MS SQL server (jedno jaka edice) vytvoreni clusteru
> > z vice
> pocitacu
> > s automatickym vyvazenim zateze (nemyslim failover
> > clustering) ?
>
> Ahoj,
> Myslim ze to umi SQL2000 Enterprise.
Setrideni indexu TTable pro DBase podle dvou sloup
[*] Jan Novak <delfin4(zv)volny(tec)cz> - 19.10.2005 17:38:08
> Misto 'STLNR,POSNR' jsem zkusil z hecu pouzit 'STLNR+POSNR' a
> setrideni se zmenilo, ale razeni (oba udaje jsou cisla) bylo
nespravne.
Za cely den nikdo nereagoval. Taky bych mlcel, protoze DB format
nepouzivam, ale co tak z jeste vetsiho hecu pouzit neco typu
STLNR*1000+POSNR ?Spojeni nekolika stejnych DBF do jednoho souboru
[*] Martin Pavera <martin.pavera(zv)gmail(tec)com> - 19.10.2005 16:52:05
Zdravim *,
potreboval bych poradit, jak spojit nekolik stejnych DBF souboru se stejnou
strukturou do jednoho DBF souboru.
DBF soubory mohou obsahovat stejne (duplicitni radky). Jde to taky nejak
elegantne poresit, abych se nemuselo pri spojovani pro kazdy radek
zjistovat, jestli uz neni obsazen ve vyslednem DBF souboru ?
Dekuji za radu
Martin obnova RAID pole PERC 3/Di
[*] Fabik Milan <fabtech(zv)fabtech.sk> - 19.10.2005 15:17:59
Preposilam ti to na WINNT-L(zv)LIST.EMWAC.CZ
----- Original Message ----- > Zdravim, mam pred sebou server DELL PoverEdge
s radicem PERC 3/Di a rozpadlim
> diskovim polem.
> Konfigurace byla 4 disky v RAID5 + jeden hot spare.
> V okmaziku kdy jsem k serveru prisel byla vetsina disku offline a radic
> nenasel
> zadny contanner.
> Ted jsou vsechny disky offline, ale plne citelne. K rozpadu doslo tim, ze
> server
> byl vypnut a po zapnuti radic nenasel disky !!!
> Mam stazene disky do souboru, ale neznam jejich poradi v RAID poli a ani
> neznam
> velikost bloku pole.
>Stranky napsane v Delphi
[*] Pavel Poles <delphi(zv)noni(tec)cz> - 19.10.2005 14:27:54
webline.dnsalias.org - stranky delane pomoci komponent IntraWeb
Petr Podany napsal(a):
>Znate nejake stranky, ktere byly udelany v Delphi, at uz jako cgi-bin
>nebo modul do Apache.
>
>Diky
>
>
>
>
>
OT: obnova RAID pole PERC 3/Di
[*] Slavomir Skopalik <skopalik(zv)elektlabs(tec)cz> - 19.10.2005 14:19:53
Zdravim, mam pred sebou server DELL PoverEdge s radicem PERC 3/Di a rozpadlim
diskovim polem.
Konfigurace byla 4 disky v RAID5 + jeden hot spare.
V okmaziku kdy jsem k serveru prisel byla vetsina disku offline a radic nenasel
zadny contanner.
Ted jsou vsechny disky offline, ale plne citelne. K rozpadu doslo tim, ze server
byl vypnut a po zapnuti radic nenasel disky !!!
Mam stazene disky do souboru, ale neznam jejich poradi v RAID poli a ani neznam
velikost bloku pole.
Jakykoliv tip jak obnovit data vitan.
Diky Slavek
Ing. Slavomir Skopalik
Jednatel spolecnosti
Elekt Labs s.r.o.
Chaloupky 158
783 72 Velky Tynec
Czech Republic
--------------------------------------------
Mobil: +420 724 207 851
icq:199 118 333
e-mail:skopalik(zv)elektlabs(tec)cz
http://www.elektlabs(tec)cz
Transparentni kopie vice bitmap (canvas)
[*] peca.konference(zv)centrum(tec)cz - 19.10.2005 14:15:53
Ahoj,
resim problem s kopirovanim bitmap a ne a ne na to prijit.
Situace: mam dve (nebo vice) rucne vytvorenych bitmap, do jejich canvasu napisu text. Pak mam "hlavni" bitmapu, do ktere chci ty "textove" zkopirovat, ale transparentne. Bitmapy kopiruju funkci BitBlt.
Nasel jsem k ni MaskBlt, ale to nemuzu zaboha rozfungovat. Postupuju tak, ze pri vytvoreni "textove" bitmapy ji zkopiruju do jine, ktere pak nastavim Bitmap.Monochrome:=true abych vytvoril masku. Pak pomoci MaskBlt zkopiruju "textovou" bitmapu do "hlavni" za pomoci vytvorene masky. Problem je, ze se nic na "hlavni" bitmape nevykresli :( Kdyz jsem pomoci BitBlt zkousel zkopirovat tu masku, abych videl jak vypada, tak to byl ten text, jen cernou barvou a na sedem pozadi. Lze takhle masku vubec vytvorit? Nebo na to musim uplne jinak? Vypisuju sem fragmenty kodu:
bText.Canvas.Font := FFont;
bText.Canvas.Brush.Color := clWhite;
bText.Canvas.FillRect(bText.Canvas.ClipRect);
{ antialiasing }
GetObject(bText.Canvas.Font.Handle, SizeOf(logFont), Addr(logFont));
logFont.lfQuality := ANTIALIASED_QUALITY;
logFont.lfOutPrecision := Out_TT_Only_Precis;
bText.Canvas.Font.Handle := CreateFontIndirect(logFont);
bText.Width := bText.Canvas.TextWidth(FText);
bText.Height := bText.Canvas.TextHeight(FText);
bText.Canvas.TextOut(0, 0, FText);
bMask.Assign(bText);
bMask.Monochrome := true;
MaskBlt(bHlavni.Canvas.Handle, x, y, bHlavni.Width, bHlavni.Height,
bText.Canvas.Handle, 0, 0,
bMask.Canvas.Handle, 0, 0, srcCopy);Frekvencni analyza
[*] Ing. Jan Dvorak <dvorak(zv)szu(tec)cz> - 19.10.2005 14:07:53
Nasel jsem v nastrojich firmy Borland pro Turbo Pascal nekolik unit
provadejicich FFT. Potrebuji nejake upravy pro Delphi a jine deklarace pro
pouziti koprocesoru. Na pozadani zaslu.
Jan Dvorak
>
> Zdravim konferenci.
> Prosim, nemate nekdo modul pro frekvencni analyzu ze zadane
> casove rady dat (FFT), nebo alespon typ, kde se da sehnat
> free ? Free SDL knihovna na netu ma malo bodu.
> Dik za kazdy namet. PS: Google v teto oblasti selhava.
>
> Pavel
>
Load balancing - cluster MSSQL serveru
[*] Ludek <konference(zv)sales(tec)cz> - 19.10.2005 13:13:48
----- Original Message -----
From: "Jiri Foldyna" <jiri.f(zv)avizo(tec)cz>
> Umoznuje MS SQL server (jedno jaka edice) vytvoreni clusteru z vice
pocitacu
> s automatickym vyvazenim zateze (nemyslim failover clustering) ?
Ahoj,
Myslim ze to umi SQL2000 Enterprise.
Ludek
Nezname chybove hlaseni FB
[*] petr palicka <palicka.petr(zv)seznam(tec)cz> - 19.10.2005 11:03:39
Ahoj,
zakaznik (tentyz, co posila hlaseni cislo -107) mi poslal dalsi
zajimave hlaseni, ktere nemuzu najit v dokumentaci:
SQL error code=104
number of page buffers for cacke reguired
Ocitoval jsem ho presne, ale tusim, ze kod by mel byt spise -104 a
misto "cacke" asi "cache". Bohuzel to dotycny opisoval z paporku a stezi
to rozlustil (to je tak, kdyz misto aby operator volal primo, preposila
vzkazy po ITakovi).
Chyba je po cerstvem obnoveni zalohy, kterou jsem tu delal ja osobne
a je urcite v cajku. Jo, Firebird verze 1.5.2, verzi windows nevim.
Peca
PS: Tusim, ze maji asi neco podelanyho, mozna HW, mozna server.
Postup pri tvorbe posouvajiciho se textu
[*] Ondrej Kelle <o.kelle(zv)digitalpublishing.de> - 19.10.2005 10:19:36
> Ted vyvstava otazka, co je narocnejsi, jestli kopirovani
> bitmapy do jine nebo vypis textu funkci TextOut?
Da sa to overit testom. Kopirovanie hotovej bitmapy by malo byt vyrazne
rychlejsie.
> - bylo by v tomhle pripade vhodne tuto komponentu udelat
> vicevlaknovou? Nevim dost dobre, kterou cast by to vlakno
> melo delat, kdyz vypocty probihaji na popud Timeru - nebo ten
> je vlakno uz sam o sobe a je tedy zbytecne delat nejake dalsi?
Timer funguje cez message loop v hlavnom threade - Windows Ti periodicky
posiela spravu WM_TIMER.
Ak pouzijes thread, nepotrebujes timer - mozes v slucke while not Terminated
... robit svoje vypocty, kreslit vysledky a volat Sleep. Na GDI operacie
(pri praci priamo s HDC) nemusis dokonca ani volat Synchronize. Mozes skusit
jednoducho prekreslovat zakazdym celu plochu pomocou BitBlt. Da sa to vsak
este (hlavne pri vecsich plochach) zrychlit tym, ze pre posun uz vykreslenej
casti zavolas ScrollDC, a potom BitBlt na dokreslenie zvysku.
Ak sa ale jedna o jednoduche kreslenie textu bez efektov (alpha-blending,
gradient fill a podobne), nemusis si s tym asi robit starosti.
HTH
TOndrej
Ukonceni aplikace
[*] xxxx <sojokl(zv)seznam(tec)cz> - 19.10.2005 10:15:36
me tak napada, je zkusit v menu
< Project - Options - Application zkusit priradit nejakou ikonu, ale to
< strilim od boku.
<
< David Lebeda
Tak tohle jsem zkusil a nefunguje to. Akorat to priradi ikonu exe souboru, ale v liste a na formulari se nic nezmeni.
Uz jsem to vyresil, ze jsem tu ikonu priradil primo formulari. Potom se to rozbehlo
Takze diky, za ty balicky, uz to funguje tak jak ma :-)
Memo a azbuka
[*] Vit Krska <krska(zv)del(tec)cz> - 19.10.2005 10:09:35
> Resil jsem neco podobneho z wordu do RTF DB Access (Office) pres
> clipboard .
> Nektera pismena byly ctverecky. Reseni jsem konzultoval s MS, chybu jsem u
> nich nasimuloval na dalku. S resenim mi neporadili. Ja jsem reseni nasel.
> Staci si RTF v DB otevrit jako prosty text. Na zacatku je sekce
> "/charset="
> a do ni doplnit spravnou kodovou stranku (ja 1250). Pak se v RTF zobrazilo
> vse dobre.
> Reseni jsem MS rekl, pockal dve verze Office a jeste se zeptal, zda bylo
> odstraneno. Po ujisteni jsem koupil a po vyzkouseni horce zaplakal.
>
> S pozdravem Mirek Vopalecky, D7 W2000
>
> >Zdravim vsechny
> >Resim problem, kdy potrebuji do komponenty memo vlozit text
> >psany azbukou (bezne kodovani - text prekopirovany z wordu
> >pomoci clipboardu), ale v memo se mi zobrazuji jenom otazniky.
> >Vlastnost fontu v memo mi nabizi pouze stredoevropsky font.
> >Jak lze toto vyresit?
> >Diky za radu
> >Honza
>
a co pouzit UNICODE
http://www.tntware.com/delphicontrols/unicode/
vitek
>
>Frekvencni analyza
[*] Pavel Troubil <mechzk(zv)cbeng(tec)cz> - 19.10.2005 09:55:33
Zdravim konferenci.
Prosim, nemate nekdo modul pro frekvencni analyzu ze zadane casove rady dat (FFT), nebo alespon typ, kde se da sehnat free ? Free SDL knihovna na netu ma malo bodu.
Dik za kazdy namet. PS: Google v teto oblasti selhava.
Pavel
Postup pri tvorbe posouvajiciho se textu
[*] peca.konference(zv)centrum(tec)cz - 19.10.2005 09:47:29
Zdravim,
vytvarim komponentu "Informacni panel". Jedna se o potomka TGraphicControl. Ucelem je zobrazovat ruzne texty, kazdy je reprezentovany objektem, ve kterem jsou ulozeny informace (text, pozice, font...). Kazdy text muze mit zapnutu "animaci" - tj. posun nejakym smerem nebo blikani. Mam par dotazu ohledne vhodne implementace:
1. Zobrazeni textu - momentalne v metode Paint projizdim seznam textu a postupne kazdy vykreslim, tj. nastavim font a vypisu text na dane souradnice. Texty vypisuju nejprve do pomocne bitmapy, kterou nakonec zkopiruju na Canvas hlavni komponenty (TGraphicControl). Napadlo me ovsem, jestli by nebylo lepsi si do kazdeho objektu ulozit rovnou bitmapu toho textu, ktera by se vytvarela jen pri zmene textu ci fontu. Pak bych nemusel pri kazdem prekresleni komponenty ten text vypisovat funkci TextOut. Ted vyvstava otazka, co je narocnejsi, jestli kopirovani bitmapy do jine nebo vypis textu funkci TextOut?
2. "Animace" - v komponente je jeden Timer, ktery pri Execute vola pro kazdy objekt s textem metodu, ktera aktualizuje souradnice daneho textu. Potom vola Invalidate kvuli prekresleni komponenty. Jeden "tik" je 50ms. Prozatim tu komponentu pouzivam jen na prazdnem formulari, na kterem ji testuju, ovsem az ji nasadim do aplikace, tak se obavam, aby ta animace nekolika textu nezdrzovala aplikaci. Proto otazka - bylo by v tomhle pripade vhodne tuto komponentu udelat vicevlaknovou? Nevim dost dobre, kterou cast by to vlakno melo delat, kdyz vypocty probihaji na popud Timeru - nebo ten je vlakno uz sam o sobe a je tedy zbytecne delat nejake dalsi?
Diky predem za nakopnuti spravnym smerem :)
Petr
Memo a azbuka
[*] Jan Fiala <jan.fiala(zv)wo(tec)cz> - 19.10.2005 09:43:27
Musis pouzit UNICODE komponentu, ktera bude schopna zpracovat vice
kodovych stranek najednou.
Treba TNTUnicode Controls (free knihovna)
--
Jan Fiala
mailto:jan.fiala(zv)wo(tec)cz
>Zdravim vsechny
>Resim problem, kdy potrebuji do komponenty memo vlozit text
>psany azbukou (bezne kodovani - text prekopirovany z wordu
>pomoci clipboardu), ale v memo se mi zobrazuji jenom otazniky.
>Vlastnost fontu v memo mi nabizi pouze stredoevropsky font.
>Jak lze toto vyresit?
>Diky za radu
>Honza
Memo a azbuka
[*] Ing. Miroslav Vopalecky <m.vopalecky(zv)tiscali(tec)cz> - 19.10.2005 09:13:16
Resil jsem neco podobneho z wordu do RTF DB Access (Office) pres clipboard .
Nektera pismena byly ctverecky. Reseni jsem konzultoval s MS, chybu jsem u
nich nasimuloval na dalku. S resenim mi neporadili. Ja jsem reseni nasel.
Staci si RTF v DB otevrit jako prosty text. Na zacatku je sekce "/charset="
a do ni doplnit spravnou kodovou stranku (ja 1250). Pak se v RTF zobrazilo
vse dobre.
Reseni jsem MS rekl, pockal dve verze Office a jeste se zeptal, zda bylo
odstraneno. Po ujisteni jsem koupil a po vyzkouseni horce zaplakal.
S pozdravem Mirek Vopalecky, D7 W2000
>Zdravim vsechny
>Resim problem, kdy potrebuji do komponenty memo vlozit text
>psany azbukou (bezne kodovani - text prekopirovany z wordu
>pomoci clipboardu), ale v memo se mi zobrazuji jenom otazniky.
>Vlastnost fontu v memo mi nabizi pouze stredoevropsky font.
>Jak lze toto vyresit?
>Diky za radu
>Honza
Stranky napsane v Delphi
[*] Venca Zaruba <zaruba(zv)elastoform(tec)cz> - 19.10.2005 08:47:12
> Znate nejake stranky, ktere byly udelany v Delphi, at uz jako cgi-bin
> nebo modul do Apache.
>
trivialni vyhledavani na www.mekra(tec)cz, www.ima-pisek(tec)cz
Ukonceni aplikace
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 19.10.2005 08:33:11
> Tak moc dekuju za pomoc. Jen si stale nevim rady s tou ikonou. Na
> aplikaci, nebo v liste se nezobrazuje ani standartni ikona delphi.
S ikonou fakt neporadim. Jedine, co me tak napada, je zkusit v menu
Project - Options - Application zkusit priradit nejakou ikonu, ale to
strilim od boku.
David Lebeda
Setrideni indexu TTable pro DBase podle dvou sloup
[*] Ing. Miroslav Vopalecky <m.vopalecky(zv)tiscali(tec)cz> - 19.10.2005 08:27:10
Ahoj.
Potrebuji setridit tabulku databaze DBase podle dvou sloupcu. Pouzil jsem
nasledujici konstrukci:
uses DB,....;
Table1.close;
Table1.DatabaseName :=cesta;
Table1.Exclusive:=true;
Table1.AddIndex('IDXStueck','STLNR;POSNR',[ixExpression]); //podle
napovedy
Table1.IndexName:='IDXStueck';
Table1.Exclusive:=false;
Table1.Open;
Table1.Active:=true;
pri pohledu na Table1 pomoci DBGrid je tabulka setridena jen podle prvniho
sloupce. Misto 'STLNR,POSNR' jsem zkusil z hecu pouzit 'STLNR+POSNR' a
setrideni se zmenilo, ale razeni (oba udaje jsou cisla) bylo nespravne.
Obdobne skoncila varianta s 'STLNR+" "+POSNR'. Zmenou poradi razenych
sloupcu se seradilo vzdy jen podle prvniho sloupce.
Ma nekdo nejaky napad?
S pozdravem Mirek Vopalecky, D7 W2000 Stranky napsane v Delphi
[*] Lukas Gebauer <gebylist(zv)mlp(tec)cz> - 18.10.2005 22:04:16
> Znate nejake stranky, ktere byly udelany v Delphi, at uz jako cgi-bin nebo
> modul do Apache.
Napriklad cely online system Mestske knihovny v Praze je napsan jako CGI
v Delphi:
http://www.mlp(tec)cz/cgi/ebaweb/menu/search
Jinak par modulu do Apache jsem take napsal, ale ty negenerovaly obsah,
slo spise o ruzne autorizacni ci filtracni moduly. Ale jak jsem tu uz
parkrat rikal, psat apache moduly v delphi je dost o zdravy rozum,
protoze borland ma v hlavickovych souborech pro Apache neuveritelne
chyby, ktere ackoliv jsou davno reportovany, dodnes je nikdo neopravil.
--
Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
WEB: http://www.ararat(tec)cz/synapse - Synapse Delphi and Kylix TCP/IP
Library
Stranky napsane v Delphi
[*] Petr Podany <podany(zv)students.zcu(tec)cz> - 18.10.2005 20:12:03
Znate nejake stranky, ktere byly udelany v Delphi, at uz jako cgi-bin
nebo modul do Apache.
Diky
Enable Disable PNP device
[*] jiri(zv)bartonek(tec)cz - 18.10.2005 19:54:01
Zdravim,
pisi aplikaci ktera by mela umet vypnout a zapnout zarizeni windows,napr sitovou
kartu.
Dle MSDN DDK k tomu slouzi SetupDiChangeStatus, ale ten sem zatim nedokazal
uspesne pouzit.
Na webu sem nesel tento kod:
<cituji>
Bowers, Michael P. ISD
Tue, 28 Jun 2005 23:05:14 -0700
I did this just recently as a quick test for a proof of concept. It
uses the SetupAPI header translation from Project Jedi and the rest is
adapted from source from the Microsoft Win2K3 DDK. It works in
Win2K/WinXP (the only platforms of interest in my work) but may work in
others.
-----------
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls,
Forms, Dialogs, StdCtrls, SetupAPI;
const
GUID_DEVCLASS_NET: TGUID = '{4D36E972-E325-11CE-BFC1-08002BE10318}';
type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
procedure Button1Click(Sender: TObject);
private
public
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
function StateChange(NewState, SelectedItem: cardinal; hDevInfo:
HDEVINFO): boolean;
var
PropChangeParams: SP_PROPCHANGE_PARAMS;
DeviceInfoData: SP_DEVINFO_DATA;
begin
DeviceInfoData.cbSize := SizeOf(SP_DEVINFO_DATA);
// Get handle to selected item
if not SetupDiEnumDeviceInfo(hDevInfo, SelectedItem, DeviceInfoData)
then
begin
Result := False;
Exit;
end;
// Set the PropChangeParams structure for this item
PropChangeParams.ClassInstallHeader.InstallFunction := DIF_PROPERTYCHANGE;
PropChangeParams.ClassInstallHeader.cbSize := SizeOf(SP_CLASSINSTALL_HEADER);
PropChangeParams.Scope := DICS_FLAG_GLOBAL;
PropChangeParams.StateChange := NewState;
if not SetupDiSetClassInstallParams(hDevInfo, (zv)DeviceInfoData,
PSPCLASSINSTALLHEADER((zv)PropChangeParams), SizeOf(PropChangeParams)) then
begin
Result := False;
Exit;
end;
// Call the ClassInstaller and perform the change
if not SetupDiCallClassInstaller(DIF_PROPERTYCHANGE, hDevInfo,
(zv)DeviceInfoData) then
begin
Result := False;
Exit;
end;
Result := True;
end;
//------------------------------------------------------------------------
function EnableNetAdapter: boolean;
var
hdi: HDEVINFO;
begin
hdi := SetupDiGetClassDevs((zv)GUID_DEVCLASS_NET, nil, 0, DIGCF_PRESENT);
if cardinal(hdi) = INVALID_HANDLE_VALUE then
begin
Result := False;
end
else
begin
Result := StateChange(DICS_ENABLE, 0, hdi);
SetupDiDestroyDeviceInfoList(hdi);
end;
end;
end.
---------------
problem je nasledujici: 1)
hdi := SetupDiGetClassDevs((zv)GUID_DEVCLASS_NET, nil, 0, DIGCF_PRESENT);
tento segment kodu konci chybou na adrese 0x00000000.
2)
GUID_DEVCLASS_NET je trida daneho zarizeni a v pripade ze budu mit napr dve
stejne sitove karty tak teoreticky dojde k zakazu/povoleni tridy tzn obou
techto karet. Stejne se chova i MS DevCon coz je utilita na spravu zarizeni.
Muze me nekdo nasmerovat jak tento problem vyresit?
MSDN sem prostudoval, ale stale se v tom placam bez vysledku.
Diky za namety.
Jiri
Jak zmensit velikost EXE souboru
[*] Jan Novak <delfin4(zv)volny(tec)cz> - 18.10.2005 19:31:57
> U klienta staci UNRAR,
Sorry, nestaci, musi se pakovat i u klienta
Jak zmensit velikost EXE souboru
[*] Jan Novak <delfin4(zv)volny(tec)cz> - 18.10.2005 18:53:52
> To ovsem predpoklada, ze klient nevynecha ani jeden upgrade
> nebo, ze budes delat rozdilove zaplaty mezi ruznymi verzemi.
Nemel by byt problem archivovat vsechny distribuovane verze. Stejne se
to dela kvuli poradku. Zaplata se muze vyrobit 'on demand'.
Jen pro zajimavost: Ty rozdily se nejlepe ziskaji tak, ze se zabali
nejdrive stara verze .EXE, pak stara s novou do jednoho archivu,
zjisti se adresa byte, od ktereho se archivy zacinaji lisit a toto
cislo se spolu se zbytkem posle klientovi. U klienta je zbalena starsi
verze .EXE, veme se z ni zacatek, dolepi co prislo a vybali novy .EXE
Aby to fungovalo, musi se pouzit packer, ktery umi tzv solid kompresi,
napr. RAR a pochopitelne oba konce musi pouzit stejne parametry
komprese. A pouzit ruzna jmena souboru. U klienta staci UNRAR, ktery
je free vcetne zdrojaku. Kdyby se misto jednoho souboru mel updatovat
cely adresar, je potreba pri baleni parametry prikazove radky
zajistit, aby se packer nepokousel 'optimalizovat' poradi souboru. RAR
bohuzel umi velikost slovniku jen do 4M, takze pro vetsi macky se musi
pouzit neco, co umi vetsi slovnik.Ukonceni aplikace
[*] Petr Berek <sojokl(zv)seznam(tec)cz> - 18.10.2005 16:43:43
Tak moc dekuju za pomoc. Jen si stale nevim rady s tou ikonou. Na
aplikaci, nebo v liste se nezobrazuje ani standartni ikona delphi. Mozna
to bude mit na starost taky nejaky balicek, ne? Jsem tam pridal jen VCL.
OT: Load balancing - cluster MSSQL serveru
[*] Jiri Foldyna <jiri.f(zv)avizo(tec)cz> - 18.10.2005 16:41:42
Ahoj,
omlouvam se za OT, ale potrebuji zvysit vykon serveru a nejak se mi nedari
najit potrebne informace.
Umoznuje MS SQL server (jedno jaka edice) vytvoreni clusteru z vice pocitacu
s automatickym vyvazenim zateze (nemyslim failover clustering) ?
Diky za nasmerovani.
Jiri Foldyna
Prechod mezi komponentami na ENTER
[*] Ludek <konference(zv)sales(tec)cz> - 18.10.2005 16:31:41
----- Original Message -----
From: <delphi(zv)unileasing(tec)cz>
> jak prechazet mezi komponentami (edit,combobox,listbox,...) nejenom
tabulatorem ale treba po kliknuti na Enter.
> Samozrejme si muzu dat do udalosti OnKeyUp, nebo Down,... kontrolu Key=13
a prepnout activecontrol,
Ahoj,
Mrkni na www.sinea(tec)cz, jsou tam free komponenty se zdrojakama, ktere tak
muzou fungovat.
Ludek
Ukonceni aplikace
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 18.10.2005 16:29:41
Ahoj,
> to je trosku moc torie :-) ale co uz. Ta se hodi vzdycky.
IMHO je rada oblasti, kde se bez teoretickych zakladu, jak to delat
spravne, programovat neda. DLL jsou jedna z nich, dal me napadaji
thready a jiste by se snadno vymyslela spousta dalsich.> Jeste bych mel otazku. Nestaci dat do exe i dll uses Windows, Messages,
> SysUtils, Variants, Classes, Graphics, Controls, Forms,
> Dialogs;..... ????
Nestaci. Kdyz napises exe a dll a v kazdem bude (samozrejme uplne
jiny) form pojmenovany TForm1, tak se sice jmenuji stejne, ale jsou to
jine typy.
Dokonce i v jednom zdrojaku, kdyz udelas tohle:
var
a: array[0..5] of integer;
b: array[0..5] of integer;
tak zjistis, ze a a b nejsou stejneho typu! I kdyz fakticky ano, z hlediska
jazyka a typove kontroly ne. Cili v nazvech to (obecne) neni.
Tenhle priklad, ktery jsem uvedl, nema asi velko souvislost se sdilenim
VCL mezi EXE a DLL, ale ukazuje na pomerne podobny problem.> ak jsem to udelal, akorat to zkompiluju s tema balickama VCL a
> ty se vlastne ou sdilet mezi exe a dll. Chapu to dobre?
Presne tak. Ty zadny balicek vytvaret nemusis. Takhle by to melo
slapat.
Jinak musim tedy poctive priznat, ze v teto oblasti jsem teoretik - sma
jsem aplikaci s balicky vytvarel jen jednou pred casem, ale kdyz se do
diskuse nepridal nikdo povolanejsi a ani nikdo neprotestuje, tak to snad
bude pravda...
David Lebeda
Ukonceni aplikace
[*] Petr Berek <sojokl(zv)seznam(tec)cz> - 18.10.2005 15:11:35
Takze pokus priliknovat balicek VCL k exe a dll vysel a aplikace funguje
tak jak ma.
Akorat je problem s ikonou. Ikona souboru je v pohode, ale kdyz program
spustim, mam konu klasickeho dosovskeho programu. Zkousel jsem zmenit
ikonu v Projects -> Options nejde.
Muzete nekdo poradit?
Diky
Petr Berek napsal(a):
>Ahoj,
>to je trosku moc torie :-) ale co uz. Ta se hodi vzdycky. Hledal jsem
>nejake materialy, jak i vytvorit vlastni balicek a prilinkovat jej do
>souboru.
>Na konci tve zpravy jsem se ale docetl, ze pokud chci sdilet vcl, tak to
>musim udelat pres balicky.
>Jeste bych mel otazku. Nestaci dat do exe i dll uses Windows, Messages,
>SysUtils, Variants, Classes, Graphics, Controls, Forms,
> Dialogs;..... ????
>Myslim, ze vysledek by mohl byt stejny, ale asi se pletu.
>Takze ted zpatky k balickum. Z tve zpravy jsem pochopil, ze udelam exe a
>dll, to ak jsem to udelal, akorat to zkompiluju s tema balickama VCL a
>ty se vlastne ou sdilet mezi exe a dll. Chapu to dobre?
>
>
Ukonceni aplikace
[*] Petr Berek <sojokl(zv)seznam(tec)cz> - 18.10.2005 14:31:31
Ahoj,
to je trosku moc torie :-) ale co uz. Ta se hodi vzdycky. Hledal jsem
nejake materialy, jak i vytvorit vlastni balicek a prilinkovat jej do
souboru.
Na konci tve zpravy jsem se ale docetl, ze pokud chci sdilet vcl, tak to
musim udelat pres balicky.
Jeste bych mel otazku. Nestaci dat do exe i dll uses Windows, Messages,
SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;..... ????
Myslim, ze vysledek by mohl byt stejny, ale asi se pletu.
Takze ted zpatky k balickum. Z tve zpravy jsem pochopil, ze udelam exe a
dll, to ak jsem to udelal, akorat to zkompiluju s tema balickama VCL a
ty se vlastne ou sdilet mezi exe a dll. Chapu to dobre?Jak zmensit velikost EXE souboru
[*] MaReK Penguin Olsavsky <orsm(zv)centrum(tec)cz> - 18.10.2005 14:25:30
vlko napsal(a):
> niekde na internete som videl este zaujimavejsie riesenie upgradu.
> Jednoducho
> sa na klienta posle len rozdiel medzi jeho exe a novym exe. Pri vydani
> novej
> versie sa spusti program ktory najde rozdiely medzi tymito dvoma exe,
> vyextrahuje ich a spravi exe program, ktory vie povodny subor upravit na
> novu
> verziu. Toto je podla mna najlepsi sposob updatu. Nevidim dovod posielat
> zbytocne napr 2 MB, ktore uz uzivatel ma, ked on potrebuje len povedzme
> 100 KB zmeneneho kodu:)
>
> vlko
Mergeovat binarky bych nevidel jako moc optimalni reseni, byt, kdyz
delam s nekolika lidmama na webech a cpou do subversionu i obrazky, tak
to vetsinou projde (jeden z 10 tedy ne).
MaReK
--
- --
MaReK "Penguin" Olsavsky
PHP Voodoo
private mail: orsm(zv)centrum(tec)cz
private web: http://orsm.wz(tec)cz
ICQ#: 160 178 925; MSN: orsm(zv)centrum(tec)cz; Skype: Penguin_007
jabber: Penguin_007(zv)jabber.org
tel.: +420-603-519-650; +420-775-154-689 (775-1-LINUX)
Jak zmensit velikost EXE souboru
[*] Martin Pisarik <martin.pisarik(zv)seznam(tec)cz> - 18.10.2005 14:03:28
> niekde na internete som videl este zaujimavejsie riesenie upgradu.
> Jednoducho
> sa na klienta posle len rozdiel medzi jeho exe a novym exe. Pri vydani
> novej
> versie sa spusti program ktory najde rozdiely medzi tymito dvoma exe,
> vyextrahuje ich a spravi exe program, ktory vie povodny subor upravit na
> novu
> verziu. Toto je podla mna najlepsi sposob updatu. Nevidim dovod posielat
> zbytocne napr 2 MB, ktore uz uzivatel ma, ked on potrebuje len povedzme
> 100 KB zmeneneho kodu:)
>
> vlko
To ovsem predpoklada, ze klient nevynecha ani jeden upgrade a nebo, ze budes
delat rozdilove zaplaty mezi ruznymi verzemi.
Kvuli tomuto jsem tuto moznost zavrhnul.
Jak zmensit velikost EXE souboru
[*] vlko <vlko(zv)zilina(tec)net> - 18.10.2005 12:53:20
On Tue, 18 Oct 2005 12:43:19 +0200, Martin Pisarik
<martin.pisarik(zv)seznam(tec)cz> wrote:
> Ja resim aktualizaci tak, ze soubor komprimuji. Z 5MB se tak dostanu i
> pod
> 2MB.
> Dalsi vyhodou je, ze ten soubor komprimuji s heslem (zip komprese) a
> rozbalovani resim vlastnim updaterem. Tim mam zajisteno, ze nikdo nemuze
> podvrhnout jiny EXE, protoze nevi s jakym hesem ho ma zkomprimovat.
niekde na internete som videl este zaujimavejsie riesenie upgradu.
Jednoducho
sa na klienta posle len rozdiel medzi jeho exe a novym exe. Pri vydani
novej
versie sa spusti program ktory najde rozdiely medzi tymito dvoma exe,
vyextrahuje ich a spravi exe program, ktory vie povodny subor upravit na
novu
verziu. Toto je podla mna najlepsi sposob updatu. Nevidim dovod posielat
zbytocne napr 2 MB, ktore uz uzivatel ma, ked on potrebuje len povedzme
100 KB zmeneneho kodu:)
vlko
--
--------------
mail: vlko(zv)zilina.net
web: http://vlko.zilina.net
Jak zmensit velikost EXE souboru
[*] Petr Fejfar <development(zv)callnet(tec)cz> - 18.10.2005 13:13:22
vlko wrote:
> verziu. Toto je podla mna najlepsi sposob updatu. Nevidim dovod
> posielat zbytocne napr 2 MB, ktore uz uzivatel ma, ked on potrebuje
> len povedzme 100 KB zmeneneho kodu:)
Nekdy i min - zalezi co se kde meni. My takovy zpusob updatu mame
implementovany, ale prakticky jsme po prestali pouzivat. Pokud mas jednu
aplikaci, v ni par souboru, tak je to pro prvnich nekolik updatu parada.
Ale pokud se jedna napr. o odstupnovanou skalu aplikaci v nejake rodine,
jeste ruzne customizovanych a lokalizovanych do ruznych jazyku,
tak to znamena nekde si drzet historicka data z nichz se budou delat rozdily
a nenadelat v nich bordel. A to s roustoucim poctem updatu zacne byt
ponekud aministrativne narocne.
Takze i kdyz se na prvni pohled zda, ze je to vhodne reseni,
tak bych ho moc nedoporucoval. Tech par minut navic pri downloadu
za to IMHO nestoji ;-)
pf
Ukonceni aplikace
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 18.10.2005 12:53:20
> Mohl bys mi napsat ne(co vic o te(ch balic(cich??
Ahoj,
pokusim se.
Nejde o to, abys ty sam vytvarel nejake balicky. Jen bude treba pouzit
ty stavajici. Ale pojdme postupne.
Kdyz pises aplikaci - a je jedno, zda EXE nebo DLL, Delphi do ni
prilinkuji krome toho, co ty sam naprogramujes, jeste VCL a dalsi
potrebne zalezitosti. Kdyz mas cast kodu v EXE a cast kodu v DLL,
znamena to, ze jak v EXE, tak i v DLL mas pokazde samostatnou kopii
VCL, memory manager apod., ktere o sobe vzajemne nevedi. Vznikla
proto myslenka, tyhle spolecne casti dat stranou, do balicku, ktery by
jak EXE, tak i DLL, nacitaly. VCL by tak byla v pameti jen jednou a byla
by spolecna pro oba. VCL mas proto i na svem pocitaci jiz pripravenou
ve forme balicku - obvykle nekde v Windows\System - hledej soubory s
priponou BPL. Ty se muzes u kazdeho projektu rozhodnout, jestli chces
to, co je v balickach VCL, prilinkovat rovnou do EXE, nebo zda VCL do
EXE linkovat nechces a budes cerpat z tech balicku. Zaskrtava se to
nekde v Project - Options, ted z hlavy nevim. Kdyz si das prelozit
aplikaci normalne, bez balicku, dostanes klasicke ("velke" samostatne)
EXE, DLL apod. Kdyz si zaskrtnes preklad s balicky (lze pak
upresnovat, ktere konkretne, ale to ted vynechme), vznikne ti pomerne
male EXE nebo DLL, protoze neobsahuje to, co je v tech BPL
souborech. Nicmene je nutne, aby na pocitaci, kde budes aplikaci
provozovat, ty BPL byly k dispozici.
Chces-li mezi aplikaci a DLL predavat nejake objekty souvisejici s VCL,
musis EXE i DLL prelozit s balicky. Tim budou spolu VCL sdilet a bude
platit, ze typ TForm z EXE a typ TForm z DLL jsou opravdu totozne
typy. Cena za to je ta, ze BPL soubory musis sirit spolu se svou
aplikaci. Viz tez archiv nebo nejaka knizka.
Staci takhle?
David Lebeda
Jak zmensit velikost EXE souboru
[*] Jonas Marian <jonas(zv)komercpoj(tec)cz> - 18.10.2005 12:51:19
Pokud opravdu potrebujes zmensit velikost aktualizacniho programu, doporucuji aplikaci prelozit s balicky. Pokud ty obrazky ktere zminujes se v prubehu novych verzi nemeni, udelej si DLL knihovnu a do ni nacpi ty obrazky. Zustane ti pak "relativne" maly EXE soubor.
Pro istalaci pouzij treba InnoSetup. V prvotni instalaci budes mit Tvuj.EXE, Tvoji.DLL a VCL???.BPL. V aktualizaci bude jen Tvuj.EXE.
AsPack, UPX apod. nepouzivej.
Marian
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz] On Behalf Of delphi(zv)unileasing(tec)cz
Sent: Tuesday, October 18, 2005 12:27 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: Re: Jak zmensit velikost EXE souboru
Hlavni duvod je, ze se aplikace aktualizuje po internetu, takze jsem chtel minimalizovat mnozstvi prenasenych dat. Nicmene zkusim se podivat na ten AsPack, jak radi nekdo z vas.
Diky, Lubos
-----Puvodni zasilka-----
Od: "Tomas Rosa" <trosa(zv)seznam(tec)cz>
Komu: delphi(zv)unileasing(tec)cz;delphi-l(zv)clexpert(tec)cz;
Odeslano: utery 18. 10. 2005 9:17:02
Vec: Re: Jak zmensit velikost EXE souboru
>Zasadni otazka zni: PROC TO CHCES DELAT?
>
>Mas k tomu nejaky duvod? Distrubujes aplikaci emailem na 100.000
>zakazniku? Nevejde se ti na CD? Nebo proc? Velikost EXE neni to same,
>jako obsazena pamet v pocitaci, takze obecne velikost EXE souboru
>neni vubec zajimavy udaj. Naopak, pokud pouzijes nejaky EXE
>kompresor, ktery ti to srazi na mensi cislo, nebude fungovat klasicke
>windowsove nacitani jen toho co je potreba a nacte se vzdy cely exe
>soubor do pameti, takze usetris misto na disku, ale pri behu aplikace
>se to cele narve do pameti, takze vysledek je kontraproduktivni.
>
>Takze pokud k tomu nemas nejaky vazny duvod, neni potreba se tim
>zabyvat, protoze windows si poradi s EXE souborem 20kb stejne jako 20MB..
>
>>Kterou cestu hlavne zvolit pokud chci zmensit velikost EXE souboru,
>>ktera je nyni 6 MB.
>>Hlavni cast asi tvori FastReport, obrazky a komponenty.
>>Nepouzivam vlastni komponenty ani nemam zadnou velkou cast kodu,
>>kterou bych mohl dat do DLL knihovny.
>>
>>- vyndat obrazky do samostatnych souboru
>>- pouzit balicky bpl - ale co do nich ?
>>- ...
>
> 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
>-----------------------------------------------------------------------
>----
>
>
>
>
>Jak zmensit velikost EXE souboru
[*] Martin Pisarik <martin.pisarik(zv)seznam(tec)cz> - 18.10.2005 12:43:19
Ja resim aktualizaci tak, ze soubor komprimuji. Z 5MB se tak dostanu i pod
2MB.
Dalsi vyhodou je, ze ten soubor komprimuji s heslem (zip komprese) a
rozbalovani resim vlastnim updaterem. Tim mam zajisteno, ze nikdo nemuze
podvrhnout jiny EXE, protoze nevi s jakym hesem ho ma zkomprimovat.>
>
> Hlavni duvod je, ze se aplikace aktualizuje po internetu, takze
> jsem chtel minimalizovat mnozstvi prenasenych dat.
> Nicmene zkusim se podivat na ten AsPack, jak radi nekdo z vas.
>
> Diky, Lubos
Jak zmensit velikost EXE souboru
[*] Jan Fiala <jan.fiala(zv)wo(tec)cz> - 18.10.2005 12:37:18
18.10.2005 delphi(zv)unileasing(tec)cz:
> Hlavni duvod je, ze se aplikace aktualizuje po internetu, takze
> jsem chtel minimalizovat mnozstvi prenasenych dat.
> Nicmene zkusim se podivat na ten AsPack, jak radi nekdo z vas.
AsPack je vice problematicky nez UPX.
A nenapadlo te pouzit nejaky kompresor (CAB, ZIP, 7Zip) a soubor
po preneseni rozbalit na klientovi ?
--
Jan Fiala
mailto:jan.fiala(zv)wo(tec)cz
Jak zmensit velikost EXE souboru
[*] Petr Vones <konference(zv)petrvones(tec)net> - 18.10.2005 12:35:17
From: <delphi(zv)unileasing(tec)cz>
> Hlavni duvod je, ze se aplikace aktualizuje po internetu, takze jsem chtel
> minimalizovat mnozstvi prenasenych dat.
Potom ji rozdelit do vice modulu. Nicmene pokud soubor pro distribuci
zkomprimujes tak se dostanes na cca 60% velikosti a to uz dnes stahnes i po
nouzovem pripojeni jako je GPRS. Pokud pouzijes runtime balicky tak bude sice
prvotni instalace relativne velka, ale aktualizace EXE souboru (ci dalsich
vlastnich balicku) uz bude podstatne mensi.
> Nicmene zkusim se podivat na ten AsPack, jak radi nekdo z vas.
Pokud se jedna o EXE compressor tak zcela zasadne nedoporucuji, ma jen same
nevyhody a kosmeticka mensi velikost souboru je zcela iluzorni.
Petr Vones
Jak zmensit velikost EXE souboru
[*] delphi(zv)unileasing(tec)cz - 18.10.2005 12:27:16
Hlavni duvod je, ze se aplikace aktualizuje po internetu, takze jsem chtel minimalizovat mnozstvi prenasenych dat.
Nicmene zkusim se podivat na ten AsPack, jak radi nekdo z vas.
Diky, Lubos
-----Puvodni zasilka-----
Od: "Tomas Rosa" <trosa(zv)seznam(tec)cz>
Komu: delphi(zv)unileasing(tec)cz;delphi-l(zv)clexpert(tec)cz;
Odeslano: utery 18. 10. 2005 9:17:02
Vec: Re: Jak zmensit velikost EXE souboru
>Zasadni otazka zni: PROC TO CHCES DELAT?
>
>Mas k tomu nejaky duvod? Distrubujes aplikaci emailem na 100.000
>zakazniku? Nevejde se ti na CD? Nebo proc? Velikost EXE neni to same,
>jako obsazena pamet v pocitaci, takze obecne velikost EXE souboru
>neni vubec zajimavy udaj. Naopak, pokud pouzijes nejaky EXE
>kompresor, ktery ti to srazi na mensi cislo, nebude fungovat klasicke
>windowsove nacitani jen toho co je potreba a nacte se vzdy cely exe
>soubor do pameti, takze usetris misto na disku, ale pri behu aplikace
>se to cele narve do pameti, takze vysledek je kontraproduktivni.
>
>Takze pokud k tomu nemas nejaky vazny duvod, neni potreba se tim
>zabyvat, protoze windows si poradi s EXE souborem 20kb stejne jako 20MB..
>
>>Kterou cestu hlavne zvolit pokud chci zmensit velikost EXE souboru,
>>ktera je nyni 6 MB.
>>Hlavni cast asi tvori FastReport, obrazky a komponenty.
>>Nepouzivam vlastni komponenty ani nemam zadnou velkou cast kodu,
>>kterou bych mohl dat do DLL knihovny.
>>
>>- vyndat obrazky do samostatnych souboru
>>- pouzit balicky bpl - ale co do nich ?
>>- ...
>
> 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
>---------------------------------------------------------------------------
>
>
>
>
>
Obnoveni zobrazeni aplikace
[*] Frantisek Mlcoch <frantisek.mlcoch(zv)vsb(tec)cz> - 18.10.2005 09:47:05
Zdravim
Mam aplikaci v D6 ent., ktera se spousti pomoci scheduleru ve win po startu
PC pod admin uctem. Nasledne, kdyz se admin prihlasi na tu stanici, tak sice
v procesech je videt, ze aplikace bezi, ale nezobrazuje se ani ikona v
systemove liste ani okno aplikace. Jde nejak udelat, aby aplikace poznala,
ze se nekdo prihlasil (je platny desktop) a zobrazila svuj formular (ikonu v
systemove liste)???
F.
Jak zmensit velikost EXE souboru
[*] Martin Burle <mburle2(zv)volny(tec)cz> - 18.10.2005 09:41:04
> Kterou cestu hlavne zvolit pokud chci zmensit velikost EXE souboru, ktera
je nyni 6 MB.
> Hlavni cast asi tvori FastReport, obrazky a komponenty.
> Nepouzivam vlastni komponenty ani nemam zadnou velkou cast kodu, kterou
bych mohl dat do DLL knihovny.
>
> - vyndat obrazky do samostatnych souboru
> - pouzit balicky bpl - ale co do nich ?
Pokud ti jde o zmenseni exe, treba aby byla snadnejsi (mensi soubor)
aktualizace, muzes prelozit "s balicky", ktere pak ovsem musis sirit spolu s
aplikaci. Prvotni instalace pak bude sice naopak mnohem rozsahlejsi, ale
vlastni exe se smrskne treba na 2MB. Muzes do jiste miry i ovlivnit, se
kterymi balicky se prelozi a ktere budou zakompilovany do exe. Pokud mas
jistotu, ze se nejaka cast tve aplikace nebude menit, muzes i vlastni
aplikaci rozdelit do vice balicku - to je ale podle mych zkusenosti iluze,
obvykle se meni vsechno ;).
Take existuji exe kompresory, ktere mohou zaroven znesnadnit hacknuti
programu, napr. AsPack.
MB
Jak zmensit velikost EXE souboru
[*] Pavel Malinsky <malinsky(zv)pmcom(tec)cz> - 18.10.2005 09:33:04
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz
> [mailto:delphi-l-owner(zv)clexpert(tec)cz] On Behalf Of Tomas Rosa
Ahoj,
> Zasadni otazka zni: PROC TO CHCES DELAT?
>
[...]
> Takze pokud k tomu nemas nejaky vazny duvod, neni potreba se tim
> zabyvat, protoze windows si poradi s EXE souborem 20kb stejne
> jako 20MB.
Plati co pise TR nicmene:
Duvod bys mohl tehdy, pokud bys mel zapotrebi opravdu setrit
pameti a nastrkal to do DLLlek, ktere budes dynamicky nacitat
a uvolnovat dle potreby (napr. "moduly" apliakce). Jinak pokud
bys to nastrkal do DLLek a ty nacital staticky tak to udela v pameti
totez co jeden velky exe a este se ti zvetsi distribucni objem aplikace
pokud bys nepouzil balicky.
S pozdravem a dikem
=====================================
> Pavel Malinsky; malinsky(zv)pmcom(tec)cz <
=====================================
> GSM: 602 652 203 | ICQ: 322015967 <
=====================================
Jak zmensit velikost EXE souboru
[*] Tomas Rosa <trosa(zv)seznam(tec)cz> - 18.10.2005 09:17:02
Zasadni otazka zni: PROC TO CHCES DELAT?
Mas k tomu nejaky duvod? Distrubujes aplikaci emailem na 100.000
zakazniku? Nevejde se ti na CD? Nebo proc? Velikost EXE neni to same,
jako obsazena pamet v pocitaci, takze obecne velikost EXE souboru
neni vubec zajimavy udaj. Naopak, pokud pouzijes nejaky EXE
kompresor, ktery ti to srazi na mensi cislo, nebude fungovat klasicke
windowsove nacitani jen toho co je potreba a nacte se vzdy cely exe
soubor do pameti, takze usetris misto na disku, ale pri behu aplikace
se to cele narve do pameti, takze vysledek je kontraproduktivni.
Takze pokud k tomu nemas nejaky vazny duvod, neni potreba se tim
zabyvat, protoze windows si poradi s EXE souborem 20kb stejne jako 20MB.
>Kterou cestu hlavne zvolit pokud chci zmensit velikost EXE souboru,
>ktera je nyni 6 MB.
>Hlavni cast asi tvori FastReport, obrazky a komponenty.
>Nepouzivam vlastni komponenty ani nemam zadnou velkou cast kodu,
>kterou bych mohl dat do DLL knihovny.
>
>- vyndat obrazky do samostatnych souboru
>- pouzit balicky bpl - ale co do nich ?
>- ... 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
---------------------------------------------------------------------------
Balicky
[*] Martin Burle <mburle2(zv)volny(tec)cz> - 18.10.2005 09:11:01
> Tak jsem si zkousel vytvorit, no nejak jsem na to prisel, ale nevim, jak
> ho pripojit do rojektu. Respektive, jak se dotazovat na tu funkci. V
> projektu jsem zaskrtl prelozeni s balicky, ale kdyz primo napisu tu
> jmeno te fce a parametry, tak to nejde. Pak jsem se docetl, ze je
> potreba pridat tam jeste do uses unitu toho balicku. Tak jsem to taky
> kousel, ale nic.
-unity museji byt v adresari, ktery je v library path
-das je do uses jako jakekoli jine unity
-v project options pridas balicek do seznamu balicku, pokud se odkazuje
balicek A na dalsi balicek B pak v A musi byt v requires balicku A. v
opacnem pripade se pouzite unity zakompiluji do exe ci balicku A, bez ohledu
na to ze jsou v B. Ovsem pozor, balicky A a B se nesmeji odkazovat na sebe
navzajem (cross reference).
-balicek musi byt zkompilovan, takze vznikly *.bpl a *dcp jsou je napr. v
\projects\bpl
MB
> Martin Burle napsal(a):
>
> > Pokud se jedna pouze o "prelozeni s balicky", pak staci v options
projektu
> >
> >nastavit "built with packages". Pak se pouzite casti VCL ani jine
komponenty
> >nekompiluji do exe, ale musis spolu s timto exe sirit prislusne balicky
> >(najdes v \projects\bpl, pripadne \system32). Vlastni balicky potrebujes,
> >paklize vytvaris vlastni komponenty, pouzivas dynamicke balicky, nebo, a
o
> >to tu zrejme jde, mohou obsahovat sdilene tridy a objekty pro exe a DLL:
> >
> >Novy balicek: File-New-Other-New-Package
> >
> >MB
> >
>
>XML a XSD
[*] vlko <vlko(zv)zilina(tec)net> - 18.10.2005 08:54:57
On Fri, 14 Oct 2005 09:47:22 +0200, <lelicek(zv)volny(tec)cz> wrote:
> Ahoj,
>
> vytvarim XML dokument dle XSD schematu a potreboval bych zjist
> "vlastnosti" elementu a atributu. Zejmena potrebuji znat minOccurs
> a maxOccurs elementu a use atributu. Existuje nejaka jednoducha
> cesta ?
>
> Pavel
skus toto: http://vlko.zilina.net/index.php?page=XSDParse
vlko
--
--------------
mail: vlko(zv)zilina.net
web: http://vlko.zilina.net
Balicky
[*] Petr Berek <sojokl(zv)seznam(tec)cz> - 17.10.2005 23:04:03
Tak jsem si zkousel vytvorit, no nejak jsem na to prisel, ale nevim, jak
ho pripojit do rojektu. Respektive, jak se dotazovat na tu funkci. V
projektu jsem zaskrtl prelozeni s balicky, ale kdyz primo napisu tu
jmeno te fce a parametry, tak to nejde. Pak jsem se docetl, ze je
potreba pridat tam jeste do uses unitu toho balicku. Tak jsem to taky
kousel, ale nic.
Martin Burle napsal(a):
> Pokud se jedna pouze o "prelozeni s balicky", pak staci v options projektu
>
>nastavit "built with packages". Pak se pouzite casti VCL ani jine komponenty
>nekompiluji do exe, ale musis spolu s timto exe sirit prislusne balicky
>(najdes v \projects\bpl, pripadne \system32). Vlastni balicky potrebujes,
>paklize vytvaris vlastni komponenty, pouzivas dynamicke balicky, nebo, a o
>to tu zrejme jde, mohou obsahovat sdilene tridy a objekty pro exe a DLL:
>
>Novy balicek: File-New-Other-New-Package
>
>MB
>
Jak zmensit velikost EXE souboru
[*] delphi(zv)unileasing(tec)cz - 17.10.2005 23:02:01
Kterou cestu hlavne zvolit pokud chci zmensit velikost EXE souboru, ktera je nyni 6 MB.
Hlavni cast asi tvori FastReport, obrazky a komponenty.
Nepouzivam vlastni komponenty ani nemam zadnou velkou cast kodu, kterou bych mohl dat do DLL knihovny.
- vyndat obrazky do samostatnych souboru
- pouzit balicky bpl - ale co do nich ?
- ...
diky za rady,
Lubos Novy
Balicky
[*] Martin Burle <mburle2(zv)volny(tec)cz> - 17.10.2005 21:27:48
> mohl by mi prosim nekdo poradit, jak vytvorit balicek? Pan Lebeda mi to
> doporucoval, ale vubec nevim, jak se s tim pracuje a jak se to vytvari.
> Diky
Pokud se jedna pouze o "prelozeni s balicky", pak staci v options projektu
nastavit "built with packages". Pak se pouzite casti VCL ani jine komponenty
nekompiluji do exe, ale musis spolu s timto exe sirit prislusne balicky
(najdes v \projects\bpl, pripadne \system32). Vlastni balicky potrebujes,
paklize vytvaris vlastni komponenty, pouzivas dynamicke balicky, nebo, a o
to tu zrejme jde, mohou obsahovat sdilene tridy a objekty pro exe a DLL:
Novy balicek: File-New-Other-New-Package
MB
Balicky
[*] Petr Berek <sojokl(zv)seznam(tec)cz> - 17.10.2005 17:37:30
Zdravim,
mohl by mi prosim nekdo poradit, jak vytvorit balicek? Pan Lebeda mi to
doporucoval, ale vubec nevim, jak se s tim pracuje a jak se to vytvari.
Diky
Ukonceni aplikace
[*] Petr Berek <sojokl(zv)seznam(tec)cz> - 17.10.2005 16:21:24
Pokud tu funkci v te knihovne( zavolam poprve, vs(echno je ok a funguje
to. Ale pokud chci aplikaci zavr(it, nebo znova zavolat tu funkci,
nefunguje.
Mohl bys mi napsat ne(co vic o te(ch balic(cich??
Diky
Lebeda David napsal(a):
>>Deklarace je nasledujici:
>>procedure otevri(otevreno:String; nacitanisouboru:TMemo; tabulka:
>>TStringGrid);
>>
>>
>>
>
>Ma-li fungovat predavani jakychkoli potomku TObject mezi EXE a DLL,
>musi byt EXE i DLL prelozeny s balicky (a ty balicky s aplikaci
>samozrejme sirit). DLL bez balicku je jinak vlastne prakticky
>samostatna aplikace, kde jednotlive typy (TObject, TForm, TMemo
>atd.) se stejne jmenuji v EXE i v DLL, ale jde fakticky o odlisne typy. Cili
>bud balicky anebo to vymyslet tak, aby parametry funkci a procedur
>predavane mezi EXE a DLL byly "obycejnejsi" - nemajici puvod ve VCL
>apod.
>
>Podobne i parametr String je zdrojem potizi - lepe PChar nebo alespon
>ShortString.
>
>David Lebeda
>
>
>
>Ukonceni aplikace
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 17.10.2005 16:07:22
> Deklarace je nasledujici:
> procedure otevri(otevreno:String; nacitanisouboru:TMemo; tabulka:
> TStringGrid);
>
Ma-li fungovat predavani jakychkoli potomku TObject mezi EXE a DLL,
musi byt EXE i DLL prelozeny s balicky (a ty balicky s aplikaci
samozrejme sirit). DLL bez balicku je jinak vlastne prakticky
samostatna aplikace, kde jednotlive typy (TObject, TForm, TMemo
atd.) se stejne jmenuji v EXE i v DLL, ale jde fakticky o odlisne typy. Cili
bud balicky anebo to vymyslet tak, aby parametry funkci a procedur
predavane mezi EXE a DLL byly "obycejnejsi" - nemajici puvod ve VCL
apod.
Podobne i parametr String je zdrojem potizi - lepe PChar nebo alespon
ShortString.
David Lebeda
Ukonceni aplikace
[*] Petr Berek <sojokl(zv)seznam(tec)cz> - 17.10.2005 15:29:15
Takz(e jsem zkous(el odkomentovat cele te(lo funkce. Kupodivu to
fungovalo. Ted( by asi stac(ilo pr(ijit na to, kde a proc( se to seka.
Jedna se o proceduru, coz( je vlastne( taky funkce, takz(e v tomhle
problem nevidim.
Deklarace je nasledujici:
procedure otevri(otevreno:String; nacitanisouboru:TMemo; tabulka:
TStringGrid);
volani provadim:
otevri(otevreno[aktivni], hlavni.Memo1, formular[aktivni].StringGrid1);
takhle to mam ve zdrojaku exic(ka.
procedure otevri(otevreno:String; nacitanisouboru:TMemo; tabulka:
TStringGrid);
external 'Project2.dll' name 'otevri'
Abych to tros(ku popsal. Takz(e funkce(procedura) otevira do okna se
stringridem soubor csv. Adresa k tomu souboru se pr(edava prvnim
parametrem. Ves(kere texty se nahraji do mema, odkud jsou potom
zpracovavany.
Kdyz( te(lo te funkce napis(u do unity exe souboru, vs(echno be(z(i a
neseka se, takz(e nevim, kde by mohl byt problem.
Lebeda David napsal(a):
>>co to bude delat, ale kazdopadne, kdyz opakovane volam
>>funkci v te knihovne, kterou nacitam implicitne, tak mi
>>aplikace zatuhne. Ta funkce v te knihovne totiz upravuje
>>objekty, ktere mam na formulari. Po prvnim volani je
>>vsechno ok, ale pri druhem volani to vytuhne.
>>
>>
>
>V tom pripade nebude problem s uvolnovanim DLL, ale v tom, ze DLL
>dela neco, co nema. Zkusil bych test: veskere telo funkce v DLL
>zakomentovat, volat tedy jen funkci z DLL, ktera nedela nic.
>
>Dale by nebylo spatne, kdybys sem napsal deklaraci te funkce -
>parametry, volaci konvence apod.
>
>David Lebeda
>
>
>
>