Archív konference Delphi
Zpět na výběr roku archívu nebo přejít na fulltextové vyhledávání v konferenci.
IB/FB a cas ze serveru
[*] Tomas Uldrich <tomas.uldrich(zv)centrum(tec)cz> - 17.3.2003 09:41:35
Ahoj,
potraboval bych radu od odborniku na IB/FB.
Prechazim z MSSQL na FB a na FB mi chybi funkce, ktera vraci datum ze
serveru. U MSSQL to bylo getdate().
Je neco podobneho u FB? V dokumentaci jsem nic nenasel :(
Diky za kazdy typ.
Tomas
RE[3x]: Re: Jak na DBLookupComboBox s cilem .Text:
[*] <js-delphi(zv)quick(tec)cz> - 17.3.2003 09:28:12
Od: Lebeda David <david.lebeda(zv)comarr(tec)cz>
> Ahoj,
>
> podle me bys na KeyField za behu nemel
> potrebovat vubec sahat. To udava pole,
> podle ktereho hledas, tedy ID a nemelo by se
> menit.
> Takze do KeyValue prirazujes jen ID a to by
> melo radne fungovat.
>
> David Lebeda
Ahoj.
No to funguje skvele, ale pak potrebuju vymazat
ten text a poslat ho na neexistujici id konci
chybou (napr. KeyValue:=-1 a 0 uz je prvni zaznam
tabulky)
Takze porad trva problem co s tim...
Jirka
--------------------------------------------------
Ing. Jiri Sokol; jiri.sokol(zv)seznam(tec)cz; 972 231 187
D6Prof+SP2; WinNT
programator amater
FlasFiler aTop
[*] Ing. Pavel �ilinec����)b����ȧ~�� - 17.3.2003 09:20:56
Ahoj,
potreboval bych v TffQuery provest dotaz na prvni z nalezenych
zaznamu (vlastne jde o nasledujici zaznam). Napr. :
ffQuery.SQL.Text := 'select Top 1 * from Tab where Klic > :Klic order by Klic';
Nevite nekdo, jak to tu lze zapsat (pokud to vubec jde).
Pro jednoduche primarni klice jsem si udelal napr. min(Klic) s danou
podminkou a pak si udelal jednoduchy dotaz na konkretni klic. Ale v
pripade slozenych primarnich klicu to neni tak jednoduche a tak by
mi to dost pomohlo (lze vybrat vse a pak vzit jen prvni vetu, ale to
se mi pri cca 40000 zaznamech nezda jako optimalni).
Diky za kazdou pomoc
--------
ing. Pavel Zilinec
MailTo:zilinec(zv)email(tec)cz
Prog-Soft s.r.o. Plzen
Informacni system pro vyrobce
a distributory napoju
RE[2x]: Re: Jak na DBLookupComboBox s cilem .Text:
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 17.3.2003 09:03:15
> Samo - zkousel jsem to pomoci KeyField, KeyValue,
> ale vysledek byl spatny. Sice se provedlo co jsem
> chtel, ale dalsi prehozeni KeyField (nejprve z ID
> na XXX) zpet na ID zpusobi vyjimku, kdyz chci do
> KeyValue dosadit hodnotu ID.
Ahoj,
podle me bys na KeyField za behu nemel potrebovat vubec sahat. To udava pole,
podle ktereho hledas, tedy ID a nemelo by se menit.
Takze do KeyValue prirazujes jen ID a to by melo radne fungovat.
Re[2]: pruhledny form
[*] Ing. J�n Kuch�r PhD. <kuchar(zv)unicodesys(tec)cz> - 17.3.2003 08:39:13
no skoro je to ono, upravil jsem si to pro mys podle prilozeneho kodu, ale
este porad to ma jednu chybu, mam hlavni form pres cast obrazovky, nad nim
vytvorim jiny modalni form zpusteny z hlavniho formu o mensich rozmerech nez
ten puvodni a tady je ten problem, odkliknuti v takovemto pripade odchytim
pouze v nove vytovrenem modalnim okne, nebo uplne mimo aplikaci, ale kdyz
kliknu na hlavni form, tak neodchytim nic, pritom nove modalni okno je porad
aktivni, takze to nejde odchytit ani pres ondeactivate, co s tim ?
> library WHook;
>
> uses SysUtils, Classes, Windows, MSGDef;
>
> type
> PHookRec = ^THookRec;
> THookRec = record
> MainWindow: HWND;
> HookID: HHOOK;
> end;
>
> const
> rHookRec: PHookRec = nil;
>
> {$R *.RES}
>
> procedure SetMainHandle(Handle: HWND);
> begin
> rHookRec.MainWindow := Handle;
> end;
>
> function WNDPROCRET_HookProc(nCode: Integer; iWPARAM: wParam; iLPARAM:
> lParam): LResult; stdcall; far;
> begin
> if nCode >= 0 then
> begin
> if rHookRec.MainWindow<> 0 then SendMessage(rHookRec.MainWindow,
> MSG_MOUSE, iWPARAM, iLPARAM);
> end
> else CallNextHookEx(rHookRec.HookID, nCode, iwParam, ilParam);
> result := 0;
> end;
>
> procedure SetHook;
> begin
> rHookRec.HookID := SetWindowsHookEx(WH_MOUSE, (zv)WNDPROCRET_HookProc,
> hInstance, 0);
> end;
>
> procedure UnSetHook;
> begin
> UnHookWindowsHookEx(rHookRec.HookID);
> end;
>
> exports
> SetHook,
> UnSetHook,
> SetMainHandle;
>
> procedure EntryPointProc(Reason: Integer);
> const
> hMapObject: THandle = 0;
> begin
> case reason of
> DLL_PROCESS_ATTACH:
> begin
> hMapObject := CreateFileMapping($FFFFFFFF, nil, PAGE_READWRITE, 0,
> SizeOf(THookRec), 'KbdHook');
> rHookRec := MapViewOfFile(hMapObject, FILE_MAP_WRITE, 0, 0, 0);
> end;
> DLL_PROCESS_DETACH:
> begin
> try
> UnMapViewOfFile(rHookRec);
> CloseHandle(hMapObject);
> except
> end;
> end;
> DLL_THREAD_ATTACH:
> begin
> end;
> DLL_THREAD_DETACH:
> begin
> end;
> end;
> end;
>
> begin
> DllProc := (zv)EntryPointProc;
> EntryPointProc(DLL_PROCESS_ATTACH);
>
> end.
>
>
Ztrata konektivity IB/FB
[*] David Liska <konference(zv)thsoft(tec)cz> - 17.3.2003 08:24:44
Transakce se opravdu zaviraji pri odkonenektovani databaze, jenze jen za
normalniho stavu, kdy je jeste dostupna konektivita na databazovy stroj.
Pokud se databaze zavre az pri ztrate konektivity, otevrene transakce
zustavaji nadale otevrene a neni mozne je normalnim zpusobem zavrit (na ten
nenormalni jsem prave jeste neprisel). Pokud by transakce byla zavrena uz
pred provadenim prikazu Transaction.Active:=False, nemel by tento prikaz
zadny vliv a proto by nemelo dojit k zadne chybe. Presto dekuji za odpoved.
David
----- Original Message -----
> > procedure TForm.Test;
> > begin
> > try
> > IBQuery.Active:=False;
> > IBQuery.Active:=True;
> > except
> > on E: Exception do begin
> > IBDatabase.ForceClose;
> > ShowMessage(E.Message);
> > IBDatabase.Connected:=True;
> > IBTransaction.Active:=False;
> > end;
> > end;
> > end;
> >
> > Nakonektovani probehne v poradku, ale ten dalsi radek
> > (zavreni nejake transakce predtim otevrene) hodi tu chybu
> > "Invalid transaction handle (expecting explicit transaction start)" Co
> > delam spatne?
>
> Ahoj,
>
> je to jen tip, ale takhle - myslim si, ze s odkonektovanim od databaze
dojde i k
> zavreni vsech transakci, v kazdem pripade bych byl prkvapen, kdyby po
prihlaseni k
> databazi byla nejaka otevrena. Proto prirazeni IBTransaction.Active :=
False asi
> zkousi uzavrit nezapocatou transakci.
>
> Pokud kecam, sorry.
>
> David Lebeda
>
>
grafika do vlastniho programu
[*] Michal Kuncl <spider_x(zv)quick(tec)cz> - 17.3.2003 08:20:56
Na pozadi muzes jednoduse pouzit tImage s vlastnosti align na alClient (d=
o
toho pak priradis obrazek at v runtime nebo design time, to je jedno). A =
na
tlacitka je dobry tJvImage z JVCL (adresu jsem zapomel, doplnte nekdo
please). Do toho na rozdil od normalniho tImage muzes priradit obrazky 3 =
-
jeden pro stav v klidu, druhy pro prejeti krysou a treti pri klepnuti.
Dobrych vysledku se da dosahnout taky s tSpeedButtonem (zvlaste dobre vyp=
ada
s vlastnosti flat na true), ale do toho narves jen bitmapy.
V kazdym pripade se podivej ale na www.torry.net , tam se vyskytuje par
komponent na skinovani programu, ale vetsinou maj jednu velice podstatnou
nevyhodu - zdrojaky jsou za prachy :-(
Spider_X
----- Original Message -----
From: "Petr Hude=E8ek" <pheek(zv)seznam(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Monday, March 17, 2003 8:03 AM
Subject: grafika do vlastniho programu
> Dobry den.Mel bych dotaz.Potreboval bych na plochu sveho formu dostat
> nejakej vlastni obrazek a vlastni tlacitka.Proste si chci udelat
> aplikaci podle sveho vlastniho gusta a nepouzivat fadni klasiku z
> windows.Mohlo by to byt i skinovatelne ale neni to podminkou.Diky za
> kazdou radu.
> Petr
>
RE[2x]: Re: Jak na DBLookupComboBox s cilem .Text:
[*] <js-delphi(zv)quick(tec)cz> - 17.3.2003 08:14:22
----- P=F9vodn=ED zpr=E1va -----
Od=3A Lebeda David =3Cdavid=2Elebeda=40comarr=2Ecz=3E
=3E takhle=2C tj=2E s pomoci ItemIndex nebo Text se =
=3E s DBLookupCombem nepracuje=2E K =
=3E nastavovani slouzi KeyValue=2E Takze=3A
=3E =
=3E 1) Edit=2EText=3A=3D=27=27=3B =
=3E DBLookupComboBox=2EKeyValue =3A=3Did=3B
=3E nebo
=3E 2) Edit=2EText=3A=3D=27hodnota zadana uzivatelem=27
=3E DBLookupComboBox=2EKeyValue =3A=3D -1=3B
=3E =
=3E Zkusil bych se jeste podivat do helpu=2C =
=3E jestli DBL nema primo nejakou metodu na =
=3E vybrani zadne polozky - neco jako Clear =
=3E apod=2E - nemam ted pustene Delphi=2C tak =
=3E nevim=2E
=3E =
=3E David Lebeda
Ahoj=2E
Samo - zkousel jsem to pomoci KeyField=2C KeyValue=2C =
ale vysledek byl spatny=2E Sice se provedlo co jsem =
chtel=2C ale dalsi prehozeni KeyField (nejprve z ID =
na XXX) zpet na ID zpusobi vyjimku=2C kdyz chci do =
KeyValue dosadit hodnotu ID=2E Presne hlasi=2C ze =
vznikl konflikt pri prevodu mezi String a Double =
as Variant=2E Nejak jsem tomu moc nerozumnel=2E =
Myslel jsem=2C ze je jedno jakou promnennou (myslim =
typ) dosadim do Variant=2E Asi bude chyba nekde dal =
v komponente=2C kde se s KeyValue pracuje=2E
Hmm=2C ale co s tim=3F Fakt to mam resit =
tim =22fiiglem=22 s obyc=2E ComboBoxem=3F
S tou metodou Clear jsem do helpu nekoukal=2C ale =
tusim=2C ze jsem ji hledal jako druhy pokus=2C kdyz =
jsem neuspel s =2EText=3A=3D=27=27=2E Jenze jsem toho delal =
tolik=2C ze 100=25 si jisty nejsem=2E
Diky
Jirka
grafika do vlastniho programu
[*] Petr Hude�ek <pheek(zv)seznam(tec)cz> - 17.3.2003 08:03:49
Dobry den.Mel bych dotaz.Potreboval bych na plochu sveho formu dostat
nejakej vlastni obrazek a vlastni tlacitka.Proste si chci udelat
aplikaci podle sveho vlastniho gusta a nepouzivat fadni klasiku z
windows.Mohlo by to byt i skinovatelne ale neni to podminkou.Diky za
kazdou radu.
Petr
Ztrata konektivity IB/FB
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 17.3.2003 06:47:48
> procedure TForm.Test;
> begin
> try
> IBQuery.Active:=False;
> IBQuery.Active:=True;
> except
> on E: Exception do begin
> IBDatabase.ForceClose;
> ShowMessage(E.Message);
> IBDatabase.Connected:=True;
> IBTransaction.Active:=False;
> end;
> end;
> end;
>
> Nakonektovani probehne v poradku, ale ten dalsi radek
> (zavreni nejake transakce predtim otevrene) hodi tu chybu
> "Invalid transaction handle (expecting explicit transaction start)" Co
> delam spatne?
Ahoj,
je to jen tip, ale takhle - myslim si, ze s odkonektovanim od databaze dojde i k
zavreni vsech transakci, v kazdem pripade bych byl prkvapen, kdyby po prihlaseni k
databazi byla nejaka otevrena. Proto prirazeni IBTransaction.Active := False asi
zkousi uzavrit nezapocatou transakci.
Pokud kecam, sorry.
Jak na DBLookupComboBox s cilem .Text:=''
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 17.3.2003 06:25:33
> mam problem viz subject. Proste komponenta
> DBLookupComboBox je pripojena na IBQuery, ktery
> ma SQL dotaz jehoz vysledkem jsou dva sloupce. Id
> a seznam hodnot (id->jedna hodnota, id je
> unikatni a primarni index)
> Uzivatel si ma vybrat ze seznamu. Muze se vsak
> stat, ze hodnota neni v seznamu a proto ma
> moznost pomoci RadioButtonu prepnout na "vyber" z
> Editu, do ktereho zada patricnou hodnotu.
> Pri zobrazovani hodnot z databaze bud chci
> provest:
> 1) Edit.Text:='';
> DBLookupComboBox.ItemIndex:=id;
> nebo
> 2) Edit.Text:='hodnota zadana uzivatelem'
> DBLookupComboBox.Text:='';
Ahoj,
takhle, tj. s pomoci ItemIndex nebo Text se s DBLookupCombem nepracuje. K
nastavovani slouzi KeyValue. Takze:
1) Edit.Text:='';
DBLookupComboBox.KeyValue :=id;
nebo
2) Edit.Text:='hodnota zadana uzivatelem'
DBLookupComboBox.KeyValue := -1;
Zkusil bych se jeste podivat do helpu, jestli DBL nema primo nejakou metodu na
vybrani zadne polozky - neco jako Clear apod. - nemam ted pustene Delphi, tak
nevim.
MetaFile a tisk
[*] uz.nevim(zv)post(tec)cz - 16.3.2003 21:24:00
Zdravim vsechny!
Mohl byste mi nekdo vysvetlit nasl.vetu?
"Vytvorte metasoubor pouzitim handlu tiskarny jako referencniho zarizeni."
V podstate mi jde o to,ze ten metasoubor chci pouzit jako nahled na
tisk.Jestli jsem to pochopil dobre,tak potom budu tisknout ten
metasoubor,ale vubec nevim jak na to.Proste potrebuju vytisknout grafiku na
pozadi,presto text a cast textu jeste rotovat o 90/270stupnu...Pokud
existuje lepsi nebo jednodussi reseni,budu jen rad...
Pokousel jsem se o to pouzitim QuickReportu3,ale mel jsem problemy s
rozlisenim obrazku v pozadi.
Diky za kazdou radu. HonzaS
BLOB jako parametr v StoredProc
[*] Miroslav Evjak <me.delphi(zv)seznam(tec)cz> - 16.3.2003 17:11:35
Omlouvam se, problem zmizel, jako se objevil. Nicmene nevim ...
ME
> -----Original Message-----
> tak insert skonci chybou "invalid BLOB ID", zatimco update probehne bez
---
Odchoz=ED zpr=E1va neobsahuje viry.
Zkontrolov=E1no antivirov=FDm syst=E9mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.459 / Virov=E1 b=E1ze: 258 - datum vyd=E1n=ED: 25.02.2003
dbExpress - zkusenosti v realnem nasazeni ?
[*] David Janko <djanko(zv)wizards(tec)cz> - 16.3.2003 17:05:36
Ahoj,
tak pred rokem jsem zkousel pouzit dbExpress (konkretne nad mysql) a narazil
na problemy ktere dle meho nazoru jeho pouziti v praxi vicemene znemoznovali
(detaily by meli byt v archivu konference) i kdyz jinak se mi architektura
libila. Od te doby sem ziskal dalsi info (neco byla moje neznalost ci
nepochopeni te pocatecni dokumentace, neco borland opravil) ale stale nevim
o reseni dalsich problemu, na ktere jsem tehdy narazil, napr.: problem s
hodnotou generovanou serverem az po ApplyUpdates (treba autoincrement ID u
mysql) nebo prekodovani textovych dat do znakove sady pouzivane serverem
(ISO-Lat2 z win).
Zkusil to od te doby nekdo pouzit v realnem nasazeni (mensiho) IS ? Jake
byli prosim zkusenosti - mnou uvedene problemy, dalsi problemy, slibovana
stabilita a robustnost ? Budoucnost teto techologie ?
Diky za vyjadreni ....
(jeste prosim jednu vec - neposilejte mi odkaz na "reseni" autoincrementu se
zapornyma lokalnima hodnotama ID, pokud to nemate pozitivne overene - jinak
prosim o verze se kterymi vam to chodilo - protoze uvedene reseni (me) jaksi
nefunguje;)
---
Best Regards,
David Janko
programmer & Linux system administrator
djanko(zv)infoware(tec)cz
+420 777 233 530
MySQL - zamykani zaznamu
[*] David Janko <djanko(zv)wizards(tec)cz> - 16.3.2003 16:37:29
Ahoj,
ad 1) : pouzivej "optimisticke zamykani" - tj. nastav mod update where all
nebo where changed - kdyz se pak pokusi uzivatel ulozit zaznam ktery mezitim
zmenil nekdo jiny, dostanes vyjimku a obslouzis ji (doporuceny zpusob ktery
treba borland doporucuje/pouziva i ve sve nove architekture
dbExpress-MIDAS);
pesimisticke zamykani na urovni radku mysql primo neumi, musel bys to
obchazet pomocnymi sloupci;
lze zamknout tabulku pro zapis, ale to lze s pochopitelnych duvodu rozumne
pouzit jen pokud ta editace je spise vyjimka nez pravidlo;
ad2): mozna by ses mel nekde nejdriv obecne seznamit s tim k cemu je dobry
SQL server a jak pracuje, pokud znas jen souborove DBF - ale jinak mkrni na
prikazy GRANT a REVOKE, low-level pristup (ale casto se hodi) je pres DB se
jmenem "mysql" ...
---
Best Regards,
David Janko
programmer & Linux system administrator
djanko(zv)infoware(tec)cz
+420 777 233 530
----- Original Message -----
From: <kenny(zv)razdva(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Saturday, March 15, 2003 2:16 PM
Subject: MySQL - zamykani zaznamu
Mam za ukol predelat program, ktery pracuje s daty na siti (vice uzivatelu)
z puvodni DBF na MySQL. Nikdy jsem s MySQL nedelal a tak ze mi postupne
objevuji problemy.
-pracuju s komponentamy zeos a kdyz v SQLTable edituju radek, tak se pro
ostatni uzivatele nezamkne a jde mi o to, jak server presvedcit, ze by tento
zaznam nemel nikdo soucasne se mnou editovat.
-jak se tu pracuje s uzivateli? ja tu mam jen roota a nevim jak zalozit
dalsiho, jak mu dat prava a hlavne k cemu to je dobry, kdyz pripojovani
resim programove?
Dik za rady
Filip
D5ent, MySQL 3.23 a zeos 5.2.3
BLOB jako parametr v StoredProc
[*] Miroslav Evjak <me.delphi(zv)seznam(tec)cz> - 16.3.2003 15:43:47
Ahoj,
nejak si nevim rady s updatem tabulky s BLOBy (text) pomoci ulozene
procedury.
Pole BLOB je typu BLOB SUB_TYPE 1 (cili text podle dokumentace IB). Pokud
predam parametr do SP takto:
ParamByName('poznamka').AsMemo :=3D MemoPoznamka.Text
(zkousel jsem .AsString, Value:Variant - vsecko jedno)
tak insert skonci chybou "invalid BLOB ID", zatimco update probehne bez
problemu. Tusim, ze databaze asi nepochopi pri insertu typ blobu jako
SUB_TYPE 1, ale nejak po svem.
Samozrejme by to slo provest tak, ze BLOB pri insertu vynecham a dodatecn=
e
poslu updatem, ale neni to moc elegantni.
Jeste poznamka - v dokumentaci IB se pise:
The name of the parameter must be unique within the stored procedure, and
the datatype can be any standard SQL datatype except ("vyjma") BLOB and
arrays of datatypes.
Presto se necha parametr nadeklarovat jako BLOB a update funguje o). Pros=
im
"ostrilene IB borce" o radu.
(W2K, D6Prof, IB6.0)
Moc dekuju.
Mirecek
Ing.Miroslav Evj=E1k
mailto:miroslav.evjak(zv)seznam(tec)cz
+420 607 875748
---
Odchoz=ED zpr=E1va neobsahuje viry.
Zkontrolov=E1no antivirov=FDm syst=E9mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.459 / Virov=E1 b=E1ze: 258 - datum vyd=E1n=ED: 25.02.2003
Re[2]: FB/IB: Backup / Restore
[*] Miroslav Evjak <me.delphi(zv)seznam(tec)cz> - 16.3.2003 15:43:47
> ja s komponentama z IBAdmin nemam zadny problem - databaze okolo 1GB a
> nekolik milionu zaznamu
Ahoj,
mozna poradis ...
zkousel jsem rozchodit Backup/Restore (IBServices) se stridavymi uspechy:
Local connection:
-----------------
Backup v pohode.
Restore skonci chybou "Page size allowed only on restore or create".
TCP connection:
---------------
Backup probehne, ale skonci s chybou "Cannot write to connection", soubor=
se
zalohou se vytvori, ale diky chybe zustane viset zamceny s 0 delkou. Po
restartu je OK.
Restore stejne jako vyse.
(W2K, D6Prof, IB6.0)
Pokud jste nekdo narazil na podobne problemy, prosim o vase zkusenosti.
Dik
Mirecek
Ing.Miroslav Evj=E1k
mailto:miroslav.evjak(zv)seznam(tec)cz
+420 607 875748
---
Odchoz=ED zpr=E1va neobsahuje viry.
Zkontrolov=E1no antivirov=FDm syst=E9mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.459 / Virov=E1 b=E1ze: 258 - datum vyd=E1n=ED: 25.02.2003
Constant expression violates subrange bounds - Pro
[*] Pavel ZIDEK <delphi(zv)kopr(tec)cz> - 16.3.2003 14:14:11
Mne to jede na D6Pro,
ale mozna je chyba u tebe, takze:
1. v tech zavorkach mysli muzes jit pouze do 255, i kdyz OKolik je integer
2. mas pravdu, obcas tato sekvence nemusi fungovat proto pouzij
if (OKolik in [10, 30, 50]) then...,
a to by melo fungovat urcite.
pavel ZIDEK
mozna hloupy dotaz. Chtel jsem osetrit vstupni parametr na konkretni
hodnoty a napadlo me napsat
if OKolik in [10, 30, 50] then...,
ale za ] mi to hlasi "Constant expression violates subrange bounds"
Jaksi nechapu, kde je chyba. OKolik je Integer. Muzete mi to nekdo
vysvetlit, prip. proc to nemuzu takhle napsat?
Diky.
Miroslav Novosad
OT spustenie starsieho softu pod Win XP
[*] Peter Ondras <peter.ondras(zv)pse.sk> - 16.3.2003 11:38:10
Ja mam tiez rovnaky problem s jednym programom pod win2000 a win xp.
Konfiguraciou pc to nebude, pretoze na rovnakom pc pod win98 mi program
funguje. Nepomaha ani spomalovac procesoru cpu killer, ktory mi inak
spusta este starsie softy. Rezim kompatibility vo win xp mi nijak
nepomohol. Aj vo win 2000 aj v xp som prihlaseny ako administrator s
plnymi pravami a uz naozaj neviem co mam robit,aby som to rozbehol.
Peter Ondras
peter.ondras(zv)pse.sk
(+421) 0904 421 925
>: -----Original Message-----
>: From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]
On
>: Behalf Of Obermaier Petr Ing.
>: Sent: Sunday, March 16, 2003 5:39 AM
>: To: delphi-l(zv)clexpert(tec)cz
>: Subject: RE: OT spustenie starsieho softu pod Win XP
>:
>: > Od: idulgerov(zv)centrum.sk [SMTP:idulgerov(zv)centrum.sk]
>: > Pri pokuse o spustenie niektorych starsich
>: > programov (jedna sa o programy pre windows 95),
>: >
>: Zkus u vlastnosti toho souboru nastavit mod kompatibility Win 95.
>:
>: Ober
---
avast! Antivirus: Odchadzajuca sprava cista.
Virova databaza (VPS): 14. 3. 2003
Testovane: 16. 3. 2003 11:14:34
avast! (c) copyright 2000-2003 ALWIL Software.
http://www.avast.com
Jak na DBLookupComboBox s cilem .Text:=''
[*] <js-delphi(zv)quick(tec)cz> - 16.3.2003 06:21:34
Ahoj,
mam problem viz subject. Proste komponenta
DBLookupComboBox je pripojena na IBQuery, ktery
ma SQL dotaz jehoz vysledkem jsou dva sloupce. Id
a seznam hodnot (id->jedna hodnota, id je
unikatni a primarni index)
Uzivatel si ma vybrat ze seznamu. Muze se vsak
stat, ze hodnota neni v seznamu a proto ma
moznost pomoci RadioButtonu prepnout na "vyber" z
Editu, do ktereho zada patricnou hodnotu.
Pri zobrazovani hodnot z databaze bud chci
provest:
1) Edit.Text:='';
DBLookupComboBox.ItemIndex:=id;
nebo
2) Edit.Text:='hodnota zadana uzivatelem'
DBLookupComboBox.Text:='';
Jenze! property Text u DBLookupComboBoxu je
readonly, takze takhle jednoduse to nejde.
Kazdemu id odpovida nejaka hodnota a dosadit
DBLookupComboBox.ItemIndex:=-1 konci chybou
Zkouseno i pres Key, kdyz KeyField:='id'.
Jedine co mi funguje je zmenit KeyField na tu
textovou polozku a pomoci Key:='' se provede mnou
chtene "vymazani" obsahu property Text.
Jenze! Jednak to trva dlouho (cca okolo 5s na
iCel1.0GHz) a jednak pak jakykoliv vyber v tom
DBComboBoxu konci vyjimkou - pochopitelne, ze
po "vymyzani" vracim veskere na hodnoty na
puvodni hodnoty, jake byly predtim (KeyField atd.)
Co s tim?? Je nejaka moznost jak property Text u
DBLookupComboBoxu vymazat? Jak?
Jedine co asi ted udelam, ze na form hodim
obycejny ComboBox a ten polozim Enabled:=False; a
budu ho podle potreby posouvat do popredi nebo do
pozadi, ale to se mi zda jako "prasarna".
Nejake napady jak mi poradit? :)
Diky
Jirka
--------------------------------------------------
Ing. Jiri Sokol; jiri.sokol(zv)seznam(tec)cz; 972 231 187
D6Prof+SP2; WinNT
programator amater
MySQL - zamykani zaznamu
[*] <tomsir1.edu(zv)mail.cez(tec)cz> - 16.3.2003 06:09:15
1/ tabulku musis zamknout tj. pouzit prikaz lock table xxx + pouzit mo=
d
jakym zpusobem chces tabulku zamknout tj. nechat ji pro cteni, nebo upl=
ne
zamknout ... najdi si v dokuentaci slovo LOCK a tam to najdes podrobne =
...
ZEOS komponenty neznam, pouzivam BDE a TQuery, tak ti vic neporadim ...=
2/ pro uzivatele musis pridat/editovat zaznamy v db mysql v tabulce use=
rs,
pristupy ze site/localhostu v tabulce hosts ... k cemu je to dobre ?? n=
o
treba chces omezit pristup uzivatelu k nekterym databazim, nebo treba j=
en k
tabulkam ...
Doporucuju knihu Naucte se MySQL za 21 dni nevimodkohokdotonapsal
Radegast
<kenny(zv)razdva(tec)cz>(zv)clexpert(tec)cz on 15.03.2003 14:16:32
Odpov=ECzte pros=EDm - delphi-l(zv)clexpert(tec)cz
Odesl=E1no k=FDm: delphi-l-owner(zv)clexpert(tec)cz
Komu: delphi-l(zv)clexpert(tec)cz
Kopie:
P=F8edm=ECt: MySQL - zamykani zaznamu
Mam za ukol predelat program, ktery pracuje s daty na siti (vice uzivat=
elu)
z puvodni DBF na MySQL. Nikdy jsem s MySQL nedelal a tak ze mi postupne=
objevuji problemy.
-pracuju s komponentamy zeos a kdyz v SQLTable edituju radek, tak se pr=
o
ostatni uzivatele nezamkne a jde mi o to, jak server presvedcit, ze by
tento zaznam nemel nikdo soucasne se mnou editovat.
-jak se tu pracuje s uzivateli? ja tu mam jen roota a nevim jak zalozit=
dalsiho, jak mu dat prava a hlavne k cemu to je dobry, kdyz pripojovani=
resim programove?
Dik za rady
Filip
D5ent, MySQL 3.23 a zeos 5.2.3
-----
Zahrajte si nov=E9 on-line hry a z=EDskejte mobiln=ED telefony Nokia a =
dal=B9=ED
v=ECcn=E9 ceny. Pro dal=B9=ED informace n=E1s nav=B9tivte na str=E1nk=E1=
ch
http://www.razdva(tec)cz/ .
=
OT spustenie starsieho softu pod Win XP
[*] Obermaier Petr Ing. <Obermaier(zv)mail.sdas(tec)cz> - 16.3.2003 05:39:12
> Od: idulgerov(zv)centrum.sk [SMTP:idulgerov(zv)centrum.sk]
> Pri pokuse o spustenie niektorych starsich
> programov (jedna sa o programy pre windows 95),
>=20
Zkus u vlastnosti toho souboru nastavit mod kompatibility Win 95.
ShellExecute, Rozliseni obrazovky
[*] tondrej(zv)t-online.de (TOndrej) - 15.3.2003 22:44:39
Najdes to v JEDI Code Library http://www.delphi-jedi.org
> 1/ jestli je nejaka blokujici funkce, jako ShellExecute, resp. potrebuji
> spustit externi program a potrebuji se dozvedet, ze byl ukoncen.
JclShell.ShellExecAndWait
JclMiscel.WinExec32AndWait
> 2/ jak zmenit rozliseni obrazovky
JclMiscel.SetDisplayResolution
HTH
TOndrej
OT spustenie starsieho softu pod Win XP
[*] <idulgerov(zv)centrum.sk> - 15.3.2003 20:24:35
Zdravim.
Mam taku drobnu otazku.
Pod stromcek som si daroval pocitac s
Windows XP Prof.
Pri pokuse o spustenie niektorych starsich
programov (jedna sa o programy pre windows 95),
na mna reve "config.nt Systemovy subor sa neda pouzit v=20
aplikaciach MS-Dos ....)
Potom su tam dve tlacidla : "zavriet", "Ignorovat",
ked kliknem na "Zavriet", program predstavte si :-) skonci,
ked kliknem na "Ignorovat", detto.
Neviete niekto ci mozno tuto "Vlastnost" nejako vypnut.
Podotykam ze vytvorenie vlastneho konfiguracneho suboru
nie je mozne, jedna sa o soft pre Win 95.
S pozdravom
Ivan Dulgerov programator-amater, ... atd
----------------------------------------------------------------
Constant expression violates subrange bounds - Pro
[*] Petr Varga <djvar(zv)post(tec)cz> - 15.3.03 20:10:22
No podle m=EC je to pro to, =BEe od Tebe o=E8ek=E1v=E1 n=ECjak=FD rozsah. T=
edy
[10..30,30..50] a nebo rozepsat po dvou jenom.. Ale tak jak Jsi
to napsal to nejde mysl=EDm.
Petr
> Ahoj,
>=20
> mozna hloupy dotaz. Chtel jsem osetrit vstupni parametr na
konkretni > hodnoty a napadlo me napsat
>=20
> if OKolik in [10, 30, 50] then...,
>=20
> ale za ] mi to hlasi "Constant expression violates subrange
bounds"
--=20
Ziskejte kvalitu, kterou si zasluhujete. Za minimalni mesicni
poplatek vam nabizime Antivir, Antispam nebo dalsi kapacitu pro
vas Mailbox. Vice na: http://sluzby.volny(tec)cz/product/postpaid/
Constant expression violates subrange bounds - Pro
[*] Miroslav Novosad <mirnov2(zv)seznam(tec)cz> - 15.3.2003 17:56:01
Ahoj,
mozna hloupy dotaz. Chtel jsem osetrit vstupni parametr na konkretni
hodnoty a napadlo me napsat
if OKolik in [10, 30, 50] then...,
ale za ] mi to hlasi "Constant expression violates subrange bounds"
Jaksi nechapu, kde je chyba. OKolik je Integer. Muzete mi to nekdo
vysvetlit, prip. proc to nemuzu takhle napsat?
Diky.
Miroslav Novosad
mirnov2(zv)seznam(tec)cz
ShellExecute, Rozliseni obrazovky
[*] Bronislav Klu�ka <Bronislav.Klucka(zv)seznam(tec)cz> - 15.3.2003 19:03:14
Zdar
Mam dva dotazy
1/ jestli je nejaka blokujici funkce, jako ShellExecute, resp. potrebuji
spustit externi program a potrebuji se dozvedet, ze byl ukoncen.
2/ jak zmenit rozliseni obrazovky
OT:MS SQL Server + ODBC set format float
[*] <aldik(zv)quick(tec)cz> - 15.3.2003 14:52:41
Ahoj kluci pri komunikaci pres ODBC s MS SQL
Serverem potrebuji nastavit format float '.797'
zobrazovat spravne jako '0,797' nevite nekdo jak
nastavim format pro dannou session pri
konecteni?? Urcite to jde stejne nejak jako
parametr s pismem ci userem
Ales Pavel
D6 Ent
MySQL - zamykani zaznamu
[*] <kenny(zv)razdva(tec)cz> - 15.3.2003 14:16:32
Mam za ukol predelat program, ktery pracuje s daty na siti (vice uzivatelu)=
z puvodni DBF na MySQL. Nikdy jsem s MySQL nedelal a tak ze mi postupne ob=
jevuji problemy.
-pracuju s komponentamy zeos a kdyz v SQLTable edituju radek, tak se pro os=
tatni uzivatele nezamkne a jde mi o to, jak server presvedcit, ze by tento =
zaznam nemel nikdo soucasne se mnou editovat.
-jak se tu pracuje s uzivateli? ja tu mam jen roota a nevim jak zalozit dal=
siho, jak mu dat prava a hlavne k cemu to je dobry, kdyz pripojovani resim =
programove?
Dik za rady
Filip
D5ent, MySQL 3.23 a zeos 5.2.3
-----
Zahrajte si nov=E9 on-line hry a z=EDskejte mobiln=ED telefony Nokia a dal=
=B9=ED v=ECcn=E9 ceny. Pro dal=B9=ED informace n=E1s nav=B9tivte na str=E1n=
k=E1ch http://www.razdva(tec)cz/ .
jpeg2000
[*] Vaclav Krmela <krmela(zv)ustinadorlici(tec)cz> - 15.3.2003 07:13:23
> From: Michal Aichinger
>
> neni nejaka knihovna do Delphi pro praci s formatem Jpeg2000?
Ja vim o dvou:
Pegasus Imaging Corporation ($999+$399):
http://www.pegasusimaging.com/ixjpeg2000.htm
LeadTools ($995+$495)
http://www.leadtools.com/SDK/Raster/Raster-Addon-JPEG2000.htm
K obema je jeste potreba alespon zakladni verze
obrazovych knihoven, to je ta druha castka.
Vaclav Krmela
TWebBroker na bazi ISAPI ztraci data pri POST vets
[*] Petr Fejfar <development(zv)callnet(tec)cz> - 15.3.2003 00:35:28
From: "Petr Fejfar" <development(zv)callnet(tec)cz>
> 4. Vysledkem je, ze ztracim radove desitky kB (!)
> z dat, ktera nasleduji za Request.Content tj.
> ta, ktera bych mel nacist prvnim volanim
> ReadClient()
Odpovim si sam, protoze by to mohlo zajimat
i nekoho dalsiho.
Temer jako vzdy se jedna o chybu ve VCL, ktera existuje i v D7. Ma to na
svedomi diletantska implementace metody
HTTPApp.TWebRequest.ExtractContentFields(),
ktera nacte jeden chunk z TCP streamu do lokalni promenne a tim ho zahodi,
popr. pokud se zavola az po nacteni celeho obsahu zadosti, zustane viset ve
40 sekundovem timeoutu, protoze si mysli, ze stale existuji nejaka pending
data.
Dusledkem teto chyby je, ze se property TWebRequest.ContentFields neda
pouzit u zadosti
delsi nez 48 kB.
HTH, pf
jpeg2000
[*] Michal Aichinger <michal.aichinger(zv)talk21(tec)com> - 14.3.2003 22:56:09
Dobry den,
neni nejaka knihovna do Delphi pro praci s formatem Jpeg2000?
diky
Re[2]: Jak poslat string pres UDP?
[*] Lukas Gebauer <gebylist(zv)mlp(tec)cz> - 14.3.2003 22:53:02
Chtel bych videt tu komponentu, se kterou by to slo jednoduseji...
1. zadna komponenta te nenauci programovat
2. a uz vubec ne zadna komponenta te nenauci programovat site! ;-)
> Neslo by to nejak jednoduseji? Jsem v Delphi zacatecnik a nez se
> naucim vytvorit co popisujes... :-/
>
> Uplne nejradsi bych byl, kdyby na to byla nejaka komponenta, nevite
> nekdo o nejake?
-- Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
WEB: http://www.ararat(tec)cz/synapse - Synapse Delphi and Kylix TCP/IP Library
Re[2]: Jak poslat string pres UDP?
[*] Pavel Bambasek <pabam(zv)volny(tec)cz> - 14.3.2003 16:38:39
Neslo by to nejak jednoduseji? Jsem v Delphi zacatecnik a nez se
naucim vytvorit co popisujes... :-/
Uplne nejradsi bych byl, kdyby na to byla nejaka komponenta, nevite
nekdo o nejake?
Dekuju moc za radu, jdu se ucit abych pochopil co vlastne mam udelat
:-)
Pavel
-----------------------------------------------------
Friday, March 14, 2003, 9:07:41 AM, jsi napsal(a):
LG> Ze Synapse si vem TUDPBlockSocket. Vytvor si tuto tridu a prirad si
LG> ji do promenne udp.
LG> Na poslani stringu nekam, pak staci pouzit kod:
LG> udp.connect('cilova.ip.adresa','cilovy_port');
LG> udp.sendstring('to co chces odeslat');
LG> na prijimani mas parradkovy priklad v dokumentaci Synapse. (v
LG> artiklech) Princip je takovy,z e si vytvoris separatni thread, v nem
LG> si vytvoris nasouchajici instanci TUDPBlockSocket, rikejme ji
LG> udplisten.
LG> Pak na zacatku udelas:
LG> udplisten.bind('0.0.0.0', 'tvuj_port');
LG> (nebo udplisten.bind('::0', 'tvuj_port'); pokud chces naslouchat na
LG> IPv6 adrese...)
LG> a pk uz staci cyklicky volat treba:
LG> s := udplisten.recvpacket(5000);
LG> Pokud po teto pperaci bude udplisten.lasterror rovno nule, pak v s
LG> mas prijmuty string. Pokud je nenulovy, pak opakuj. v teto smycce bys
LG> mel take testovat, jestli se nahodou nema ukoncit thread, a kdyz ano,
LG> tak z teto smycky vybehnes.
>> Proste bych rad jen nejakou komponentu, ktera uplne primitivne umi
>> poslat string na IP:PORT, ktere zadam, a zaroven na stejnem portu
>> posloucha, jestli ji nekdo jiny neco neposila.
LG> -- Lukas Gebauer.
LG> E-mail: gebauerl(zv)mlp(tec)cz
LG> http://www.ararat(tec)cz/synapse/ - Synapse Delphi and Kylix TCP/IP Lib.
com/dcom a navrh komponent aplikace
[*] Zbysek Hlinka <hlinka(zv)hlinka(tec)cz> - 14.3.2003 16:33:36
On 14 Mar 2003 at 14:34, kevin33(zv)post(tec)cz wrote:
> > Pokud pomineme
> > problemy s DCOM jako takovym ....
>
> mohl bys to prosim popsat nejak presneji? kdyby ses ted mel
> rozhodnout zda predelat lokalizator na com/dcom, udelal bys to
> znovu? nebo bys sel jinou cestou?
Udelal, protoze bych musel. Nebo bych se rozhodoval, zda vubec novou
verzi psat. A "musel" bych proto, ze je to zavisle na Win32 a ze tam
visi zpracovani DFM. A protoze bez rozsekani na moduly je Lokalizator
uz neudrzovatelny.
Jakoukoliv jinou aplikaci, ktera neni takto primo zavisla, zacinam uz
jen v .NET. Tedy i Lokalizator pro .NET. Samozrejme aplikaci psanou
modularne. Po zjisteni, co vsechno a jak lze v .NET napsat, me Win32
Delphi prestalo zajimat. :-)
S pozdravem
Zbysek Hlinka
Ztrata konektivity IB/FB
[*] David Li�ka <konference(zv)thsoft(tec)cz> - 14.3.2003 16:31:14
procedure TForm.Test;
begin
try
IBQuery.Active:=3DFalse;
IBQuery.Active:=3DTrue;
except
on E: Exception do begin
IBDatabase.ForceClose;
ShowMessage(E.Message);
IBDatabase.Connected:=3DTrue;
IBTransaction.Active:=3DFalse;
end;
end;
end;
Tuhle proceduru volam po ShutDown Interbase.
Pri ShowMessage ji zase nahodim.
Nakonektovani probehne v poradku, ale ten dalsi radek
(zavreni nejake transakce predtim otevrene) hodi tu chybu
"Invalid transaction handle (expecting explicit transaction start)"
Co delam spatne?
----- Original Message -----
______________________________________________________________
Pouzivam to v nekolika aplikacich ktere museji bezet trvala. Mam to
ale postavene na FibPlus komponentach kde je tento stav osetren
eventem. Ale ten event nenastane v okamziku kdy se provede odpojeni
databaze ale az v okamziku kdy aplikace provede dotaz. APlikace pak
dokaze provest reconnect automaticky.
U IBX komponent se to da take docilit tim ze se odchyti vyjimka
neuspesneho dotazu a provede se po ni tvrde zavreni ForceClose cele
databaze . Nasledne na timer nebo jinou opakujici se cinnost je nutno
zjistovat jestli uz je server nehozeny napriklad pomoci connected a
kdyz nevyhodi chybu tak je vsechno aktivni a aplikace muze pokracovat.
Jediny problem ktery toto znovu pripojeni skyta jsou IBeventy ktere v
komponente FibPlus nedari radne odpojit u IBX je to v poradku.
> Ahoj, neresil jste uz nekdo ztratu spojeni s IB/FB?
> spojeni testuju pomoci IBDatabase.TestConnected a pri odpadle
>konektivite
> jsem si myslel, ze budu spojeni automaticky znovu navazovat, jenze
>pri
> zavirani aktivni transakce (IBTransaction.Active:=3DFalse) to spadne
>na
> "Invalid transaction handle (expecting explicit transaction start)"
>
> nev=EDte n=ECkdo jak se znova bez chyb nakonektovat a znova nastartovat
> transakci?
>
> David
SynEdit pro D7
[*] Anton <tantonin(zv)cbox(tec)cz> - 14.3.2003 16:11:24
Ahoj,
Diky za odpovedi. Ve verzi 1.1 jsem pridal do souboru synedit.inc
{$IFDEF VER150}
{$DEFINE SYN_COMPILER_6}
{$IFNDEF BCB}
{$DEFINE SYN_DELPHI}
{$DEFINE SYN_DELPHI_6}
{$ELSE}
{$DEFINE SYN_CPPB}
{$DEFINE SYN_CPPB_6}
{$ENDIF}
{$ENDIF}
pak to slo zkompilovat a nainstalovat na jeden vrz a dokonce se zda, ze
to i funguje.
S pozdravem
Antonin.
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz] On
Behalf Of Anton
Sent: Thursday, March 13, 2003 6:22 PM
To: Konference Delphi
Subject: SynEdit pro D7
Ahoj,
Kde je (zda-li je) k mani synedit pro delphi 7 Prof. Na
http://synedit.sourceforge.net je pouze verze 1.1 pro Delphi do 6.
Dekuji za pomoc.
S pozdravem
Antonin.
Uvolneni pameti po TListView
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 14.3.2003 16:01:50
From: "Ji�� Baudy�" <baudys(zv)duplikace(tec)cz>
> V ListView se zobrazuj� n�hledy obr�zk�. (omezen� mno�ina) Pokud na win98
> kouk�m na voln� prost�edky tak po otev�en� Formu s ListViwe rapidn� ubude
> pam�, po zav�en� se nic nestane a po dal��m otev�en� zase ubude a� do
Co je to 'pamet' ? Jaka je to presne verze Delphi ?
Petr Vones
StayOnTop at Runtime
[*] Jan Harman <harman(zv)volny(tec)cz> - 14.3.03 14:53:51
Ahoj, v helpu je ze se nedoporucuje menit FormStyle v runtime.
Vyzkousel jsem to a je to v pohode. Jaky nato mate nazor? Honza.
--
Ziskejte kvalitu, kterou si zasluhujete. Za minimalni mesicni
poplatek vam nabizime Antivir, Antispam nebo dalsi kapacitu pro
vas Mailbox. Vice na: http://sluzby.volny(tec)cz/product/mailpaid/
com/dcom a navrh komponent aplikace
[*] kevin33(zv)post(tec)cz - 14.3.03 14:34:31
> Pokud pomineme
> problemy s DCOM jako takovym ....
mohl bys to prosim popsat nejak presneji? kdyby ses ted mel
rozhodnout zda predelat lokalizator na com/dcom, udelal bys to
znovu? nebo bys sel jinou cestou?
dekuji
--
Ziskejte kvalitu, kterou si zasluhujete. Za minimalni mesicni
poplatek vam nabizime Antivir, Antispam nebo dalsi kapacitu pro
vas Mailbox. Vice na: http://sluzby.volny(tec)cz/product/postpaid/
Uvolneni pameti po TListView
[*] Ji�� Baudy� - 14.3.2003 14:05:47
V ListView se zobrazuj=ED n=E1hledy obr=E1zk=F9. (omezen=E1 mno=BEina) Po=
kud na win98
kouk=E1m na voln=E9 prost=F8edky tak po otev=F8en=ED Formu s ListViwe rap=
idn=EC ubude
pam=EC=BB, po zav=F8en=ED se nic nestane a po dal=B9=EDm otev=F8en=ED zas=
e ubude a=BE do
tot=E1ln=ED smrti win98. Na NT/2K/XP to funguje dob=F8e.
Naivn=EC jsem si myslel, =BEe pam=EC=BB uvoln=EDm pou=BEit=EDm ListView.I=
tems.Clear, ale
samoz=F8ejm=EC to nem=E1 vliv.
Jirka
From: Petr Vones
>Jak zustava alokovana pamet, cim jsi na to prisel ? >Co je to 'View.Clea=
r'
?
>Petr Vones
From: "Ji=F8=ED Baudy?" <baudys(zv)duplikace(tec)cz>
> netu?=EDte n=ECko pro=E8 my po zav=F8en=ED forum s TListView resp. jeho=
netodou
> View.Clear, z=F9st=E1v=E1 alokovan=E1 pam=EC? ?
Lock WS po dobe necinnosti
[*] Martin Schayna <mschayna(zv)aktis(tec)cz> - 14.3.2003 14:14:04
----- Original Message -----
From: "Robert Suska" <SuskaR(zv)seznam(tec)cz>
> Stojim pred otazkou. Ako napisat taku funkciu ktora by vedela ci sa kliklo
> myskou alebo ci sa tuklo do klavesnice bez toho aby som na to pouzil hook.
> Hookom to mam napisane len sa pytam ze ako je to napr. robene v
> screensaveroch, tiez je pouzity hook ?
Rekl bych ze screensaver je po dobu kdy "pracuje" aktivni aplikace s
focusem,
tj. jsou na nej smerovany vsechny klavesy a on je musi pouze chytat a ihned
skoncit, jinak je to normalni EXE prejmenovane na SCR.
Martin Schayna
SynEdit pro D7
[*] Martin Schayna <mschayna(zv)aktis(tec)cz> - 14.3.2003 14:08:20
----- Original Message -----
From: "Michal Kuncl" <spider_x(zv)quick(tec)cz>
> > Jen pro uplnost:
> >
> > na CVS (:pserver:anonymous(zv)cvs.sourceforge.net:/cvsroot/synedit)
> > je v ChangeLog.htm uvedena verze 1.04 a posledni zmeny v SynEdit.pas
> > jsou z 22.2.2003, viz checkmark z tohoto souboru:
> > $Id: SynEdit.pas,v 1.234 2003/02/22 18:50:00 etrusco Exp $
> >
> > Martin Schayna
> >
>
> Jeste takovej dotaz: A cim se mam na to "CVS" pripojit? Internet explorer
mi
> to nejak nebere... :-(
Web interface:
http://cvs.sourceforge.net/cgi-bin/viewcvs.cgi/synedit/SynEdit/
Popis jak na to:
http://sourceforge.net/cvs/?group_id=3221
Martin Schayna
SynEdit pro D7
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 14.3.2003 13:26:24
From: "Michal Kuncl" <spider_x(zv)quick(tec)cz>
> Jeste takovej dotaz: A cim se mam na to "CVS" pripojit? Internet explorer mi
> to nejak nebere... :-(
http://www.wincvs.org/
http://www.tortoisecvs.org/
Oboji nic moc.
Petr Vones
SynEdit pro D7
[*] Michal Kuncl <spider_x(zv)quick(tec)cz> - 14.3.2003 13:22:02
> Jen pro uplnost:
>
> na CVS (:pserver:anonymous(zv)cvs.sourceforge.net:/cvsroot/synedit)
> je v ChangeLog.htm uvedena verze 1.04 a posledni zmeny v SynEdit.pas
> jsou z 22.2.2003, viz checkmark z tohoto souboru:
> $Id: SynEdit.pas,v 1.234 2003/02/22 18:50:00 etrusco Exp $
>
> Martin Schayna
>
Jeste takovej dotaz: A cim se mam na to "CVS" pripojit? Internet explorer mi
to nejak nebere... :-(
Spider_X
jak instalovat BDEMergeModulePro
[*] Zaplik <zaplik(zv)volny(tec)cz> - 14.3.2003 11:46:34
Po instalaci vznikly tyto dva soubory a z prilozeneho popisu nevim co dal.
Ten exe slouzi pouze pro vyber driveru.
BDEMMCFG.EXE
BDE_PRO.msm
Doufal jsem, ze se mi nainstaluje nova verze BDE 5.2.
> to je snad "samoinstalovany" SW, ne?
---
Odchoz=ED zpr=E1va neobsahuje viry.
Zkontrolov=E1no antivirov=FDm syst=E9mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.461 / Virov=E1 b=E1ze: 260 - datum vyd=E1n=ED: 10.3.2003
Uvolneni pameti po TListView
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 14.3.2003 13:22:19
From: "Ji�� Baudy�" <baudys(zv)duplikace(tec)cz>
> netu��te n�ko pro� my po zav�en� forum s TListView resp. jeho netodou
> View.Clear, z�st�v� alokovan� pam� ?
Jak zustava alokovana pamet, cim jsi na to prisel ? Co je to 'View.Clear' ?
Petr Vones
Zobrazovani WMF
[*] Roman <sw.maurice(zv)seznam(tec)cz> - 14.3.2003 13:14:13
Ahoj,
znamy ma vytvorenou prezentaci PowerPointu na strankach A4. Pokud ji ulozim
do WMF a nactu pomoci
image1.picture.loadfromfile('strana1.wmf'), tak je ta stranka spatne
zobrazena, tj. vyska a sirka pravdepodobne sedi, ale pisma jsou natahle a
spatneho fontu. Pokud si to WMF prohlidnu napr. v AcdSee, tak se zobrazi
spravne.
Zkousel jsem i:
wmf:=TMetafile.Create;
wmf.loadfromfile(...)
image1.picture.bitmap.stretchdraw(...,wmf)
ale vysledek byl stejny. Zajimave je, ze pokud nactu WMF vytvorene z
PowerPointu, ktere nema rozmery A4, ale klasicke prezentace (obrazovka), tak
se to WMF v Delphi zobrazi spravne (tj. spravny font).
Neresil jste to nekdo? Delam neco spatne?
Roman
W98SE, D4
Lock WS po dobe necinnosti
[*] Petr Brant <brant(zv)dcomm(tec)cz> - 14.3.2003 12:48:36
Screensaver je obycejny EXE program, jen je prejmenovany na SCR a jeste =
ma
implementovane chovani pro nastavovani parametru. Takze neni treba =
zadny
hook, staci jen odchytit OnMouseDown resp. OnKeyDown apod.
Ale obecne odchyceni udalosti klavesnice nebo mysi BEZ hooku asi =
nepujde.
RNDr. Petr Brant [brant(zv)dcomm(tec)cz]=20
http://web.redbox(tec)cz/petr.brant
D&COMM s.r.o.
Korunova=E8n=ED 6
Praha 7
tel. +420724007234
Stojim pred otazkou. Ako napisat taku funkciu ktora by vedela ci sa
kliklo
myskou alebo ci sa tuklo do klavesnice bez toho aby som na to pouzil
hook.
Hookom to mam napisane len sa pytam ze ako je to napr. robene v
Lock WS po dobe necinnosti
[*] Robert Suska <SuskaR(zv)seznam(tec)cz> - 14.3.2003 12:34:54
Ahojte!
Stojim pred otazkou. Ako napisat taku funkciu ktora by vedela ci sa kliklo
myskou alebo ci sa tuklo do klavesnice bez toho aby som na to pouzil hook.
Hookom to mam napisane len sa pytam ze ako je to napr. robene v
screensaveroch, tiez je pouzity hook ?
Dakujem za info
Robo
************************************
Robert Suska
KORAK SLOVAKIA s.r.o.
Horna 52
974 01 Banska Bystrica
www.korak.sk robert(zv)korak.sk
Network administrator, Delphi programmer
************************************
Re[3]: FB/IB: Backup / Restore
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 14.3.2003 12:14:07
> "lock manager out of room", nevim jak to obchazi IBEpert ale resenim
> by mohlo byt zvetseni shared pameti
Ahoj,
o tomhle vim, nastaveno je na 500000 pro jistotu. Jinak velikosti databaze jsem
nemel na mysli mnozstvi dat, ale spis kosatost (u nas cca 230 tabulek, hafo
procedur, pres 1000 triggeru. Jak rikam, obnova z IBConsole, IBExperta i primo na
serveru bez problemu, pouze pres IBRestoreService nula uspechu ze 7 pokusu.
Varianty typu ihned po restartu SQL serveru, tj. databaze cerstva, zadny prihlaseny
uzivatel... jsou v tom zahrnuty. (Jen pro info - aby me nekdo neobvinoval z toho, ze
nesetrne restartuji server - kdekoli pisu restart, myslim tim radne sjeti linuxu,
restartovani a radne najeti, nikoli cudlik na pocitaci).
Vytuhlo to s hlaskou lock manager out of room pokazde v jinem miste, ale vzdy dost
daleko, az po nekolikach minutach chodu.
Ted uz je mi to fuk, proste to resime tou IBConsoli, protoze nemuzu travit nekolik dni
zkoumanim, kde je zakopany pes, kdyz existuje jine reseni. To bych totiz vetsinu
casu travil resenim problemu serveru a ne aplikace.
S ohledem na dalsi oblibenou hlasku v nahodnych situacich - cannot attach to
password databaze, ktera se obcas objevi behem prace a zpusobi, ze obcas se
nejaky select nepovede (ale za chvili to jde), obcasne poskozeni indexu, ktere nelze
detekovat atd. viz prispevky drive, povazuji FB za neprilis stabilni databazi, na
kterou se nesmi clovek ani krive podivat, natoz po prichodu do prace zapomenout
pozdravit pocitac, na kterem jede, to se pak nekdy deji veci tezko pochopitelne.
Samozrejme trochu prehanim, ale jen trochu.
Re[3]: FB/IB: Backup / Restore
[*] Ond�ej Frant�k - 14.3.2003 11:54:30
14. b�ezna 2003, 10:28:14, autor napsal:
"lock manager out of room", nevim jak to obchazi IBEpert ale resenim by
mohlo byt zvetseni shared pameti, v ibconfig je defaultne nastaveno na
#V4_LOCK_MEM_SIZE 98304, zkus zvetsit treba na #V4_LOCK_MEM_SIZE 196608
viz http://bdn.borland.com/article/0,1410,25156,00.html
--
Keep Mailing ;-)
**************************************************
* Ond�ej Frant�k
* program�tor, analytik
*
* ATLAS consulting, spol. s r.o.
* Chocholou�kova 9
* 709 16 Ostrava
* Czech Republic
*
* secretary: +420 59 661 33 33
* fax : +420 59 661 33 30
* e-mail : delphi(zv)atlascon(tec)cz
* WWW : http://www.atlascon(tec)cz
**************************************************
Re[2]: FB/IB: Backup / Restore
[*] Ond�ej Frant�k - 14.3.2003 11:14:19
sorry, vypadla prvni veta:
ja s komponentama z IBAdmin nemam zadny problem - databaze okolo 1GB a
nekolik milionu zaznamu
--
Keep Mailing ;-)
**************************************************
* Ond�ej Frant�k
* program�tor, analytik
*
* ATLAS consulting, spol. s r.o.
* Chocholou�kova 9
* 709 16 Ostrava
* Czech Republic
*
* secretary: +420 59 661 33 33
* fax : +420 59 661 33 30
* e-mail : delphi(zv)atlascon(tec)cz
* WWW : http://www.atlascon(tec)cz
**************************************************
FB/IB: Backup / Restore
[*] Milan Tomes <milan.tomes(zv)haida(tec)cz> - 14.3.2003 11:10:17
> > chtel jsem se zeptat na moznost zalohy a obnovy databaze IB z
> > vlastniho programu. Databazovy stroj bezi na Linuxu a Backup/Restore
> > service z IB Admin nelze pouzit, protoze Services manager neni
> > implementovan... Mate nekdo nejaky navod, jak to udelat jinak nez
> > spustenim gbak ???
>
> Ahoj,
>
> Jinak si myslim, ze moc cest neni:
> 1) Volat gbak - ale to abys k nemu mel prava, coz bude asi
> problem a spravce
> serveru nebude moc nadsen
Coz o to - gbak spustim na lokalnim PC, ale moc se mi do toho nechce... Mam
totiz zavedeno admina a ten ma fixne stanovene heslo, ktere nechci nikomu
davat a SYSDBA je zakazan. A dalsi problem je v tom, ze potrebuji spoustet
pravidelnou zalohu dat primo na serveru a nemuzu to z vyse uvedeneho duvodu
delat prikazovou radkou...
> 2) Pres API IB. Mely by existovat fce na vyvolani procesu zalohy a obnovy.
Hledal jsem takovou funkci, ale marne :((((
> David Lebeda
Milan Tomes
Re[2]: FB/IB: Backup / Restore
[*] Ond�ej Frant�k - 14.3.2003 11:06:35
14. b�ezna 2003, 10:28:14, autor napsal:
> podle mych zkusenosti nejsou komponenty z IBAdmin stejne pouzitelne pro vetsi
> databazi. Se zalohou jsem (snad) nemel problemy, ale nikdy se mi nepovedlo
> dokoncit obnovu - po par minutach to zbuchlo s tim, ze lock manager out of room. I
> pres vsechny pokusy jsem nedocilil ZADNEHO uspesneho pokusu. Pritom obnova
> napr. z IBExperta apod. byla bez problemu, takze chyba musi byt v te komponente.
namu
.
.
.
IBBackup.DatabaseName := 'databaze.gdb';
IBBackup.BackupFile.Clear;
IBBackup.BackupFile.Add('databaze.gbk);
IBBackup.Verbose := True;
IBBackup.Options := [NonTransportable]; //pripadne jeine
IBBackup.Params.Clear;
IBBackup.Params.Add('USER_NAME=' + 'user');
IBBackup.Params.Add('PASSWORD=' + 'password');
IBBackup.Protocol := Local;
IBBackup.ServerName := '';
IBBackup.Active := True;
IBBackup.ServiceStart;
while not IBBackup.Eof do begin
Memo1.Lines.Add(IBBackup.GetNextLine);
Application.ProcessMessages;
end;
IBBackup.Active := False;
.
.
.
--
Keep Mailing ;-)
**************************************************
* Ond�ej Frant�k
* program�tor, analytik
*
* ATLAS consulting, spol. s r.o.
* Chocholou�kova 9
* 709 16 Ostrava
* Czech Republic
*
* secretary: +420 59 661 33 33
* fax : +420 59 661 33 30
* e-mail : delphi(zv)atlascon(tec)cz
* WWW : http://www.atlascon(tec)cz
**************************************************
Ztrata konektivity IB/FB
[*] <rdanhel(zv)centrum(tec)cz> - 14.3.2003 11:00:37
______________________________________________________________
Pouzivam to v nekolika aplikacich ktere museji bezet trvala. Mam to=20
ale postavene na FibPlus komponentach kde je tento stav osetren=20
eventem. Ale ten event nenastane v okamziku kdy se provede odpojeni=20
databaze ale az v okamziku kdy aplikace provede dotaz. APlikace pak=20
dokaze provest reconnect automaticky.
U IBX komponent se to da take docilit tim ze se odchyti vyjimka=20
neuspesneho dotazu a provede se po ni tvrde zavreni ForceClose cele=20
databaze . Nasledne na timer nebo jinou opakujici se cinnost je nutno=20
zjistovat jestli uz je server nehozeny napriklad pomoci connected a=20
kdyz nevyhodi chybu tak je vsechno aktivni a aplikace muze pokracovat.
Jediny problem ktery toto znovu pripojeni skyta jsou IBeventy ktere v=20
komponente FibPlus nedari radne odpojit u IBX je to v poradku.
> Ahoj, neresil jste uz nekdo ztratu spojeni s IB/FB?>=20
> spojeni testuju pomoci IBDatabase.TestConnected a pri odpadle=20
konektivite
> jsem si myslel, ze budu spojeni automaticky znovu navazovat, jenze=20
pri
> zavirani aktivni transakce (IBTransaction.Active:=3DFalse) to spadne=20
na
> "Invalid transaction handle (expecting explicit transaction start)">=20
> nev=EDte n=ECkdo jak se znova bez chyb nakonektovat a znova nastartov=
at
> transakci?>=20
> David
>=20
>=20
SynEdit pro D7
[*] Ji�� Binder<j.binder(zv)albacon(tec)cz> - 14.3.2003 10:52:31
=3E Na sourceforge jsem nasel jen 1=2E03 a 1=2E1
=3E PS=3A trochu neporadek nebo to ma nejaky vyznam=3F
Je v tom opravdu trochu =28mirne receno=29 neporadek=2E Mam zrejme tez verzi=
1=2E1=2E
Kdyz jsem posilal odpoved=2C kouknul jsem se do Readme =28tam se mluvi o=
verzi 1=2E0=29
a pak do changelogu=2C tam je naposledy zminema verze 1=2E04 =28mimochodem=
bez uvedeni data=29=2C
tak jsem napsal 1=2E04=2C ve zdrojacich jsem verzi nevidel=2E
Jiri Binder
SynEdit pro D7
[*] Martin Schayna <mschayna(zv)aktis(tec)cz> - 14.3.2003 10:42:13
----- Original Message -----
From: "Tomas Bihary" <delphi(zv)wige-mic(tec)cz>
> Na sourceforge jsem nasel jen 1.03 a 1.1
>
> Tady je verze 1.03 z November 25, 2000
> http://sourceforge.net/projects/synedit/
>
>
> Tady je verze 1.1 z 2002-07-12
> http://synedit.sourceforge.net/
Jen pro uplnost:
na CVS (:pserver:anonymous(zv)cvs.sourceforge.net:/cvsroot/synedit)
je v ChangeLog.htm uvedena verze 1.04 a posledni zmeny v SynEdit.pas
jsou z 22.2.2003, viz checkmark z tohoto souboru:
$Id: SynEdit.pas,v 1.234 2003/02/22 18:50:00 etrusco Exp $
Martin Schayna
OT: Databaze ruskych mest v Asii
[*] Petr Brant <brant(zv)dcomm(tec)cz> - 14.3.2003 10:28:57
Ahoj vespolek, nemate nekdo nahodou %subj%? Ale v takovem formatu, aby =
to
umoznovalo vyexportovat nazev mesta a jeho zemepisne souradnice. Pokud =
by
byl k dispozici take nazev ci zkratka statu a nejake vyjadreni =
velikosti
mesta, bylo by to sqele. Odpovedi prosim na soukromy mail.
Diky
RNDr. Petr Brant [brant(zv)dcomm(tec)cz]=20
http://web.redbox(tec)cz/petr.brant
D&COMM s.r.o.
Korunova=E8n=ED 6
Praha 7
FB/IB: Backup / Restore
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 14.3.2003 10:28:14
> chtel jsem se zeptat na moznost zalohy a obnovy databaze IB z
> vlastniho programu. Databazovy stroj bezi na Linuxu a Backup/Restore
> service z IB Admin nelze pouzit, protoze Services manager neni
> implementovan... Mate nekdo nejaky navod, jak to udelat jinak nez
> spustenim gbak ???
Ahoj,
podle mych zkusenosti nejsou komponenty z IBAdmin stejne pouzitelne pro vetsi
databazi. Se zalohou jsem (snad) nemel problemy, ale nikdy se mi nepovedlo
dokoncit obnovu - po par minutach to zbuchlo s tim, ze lock manager out of room. I
pres vsechny pokusy jsem nedocilil ZADNEHO uspesneho pokusu. Pritom obnova
napr. z IBExperta apod. byla bez problemu, takze chyba musi byt v te komponente.
Jinak si myslim, ze moc cest neni:
1) Volat gbak - ale to abys k nemu mel prava, coz bude asi problem a spravce
serveru nebude moc nadsen
2) Pres API IB. Mely by existovat fce na vyvolani procesu zalohy a obnovy.
Cekani na potvrzeni ze Serveru
[*] Petr Langer <langer(zv)xdom(tec)cz> - 14.3.2003 10:22:41
Pro kazdy pozadavek udelej samostatny thread a komunikaci se serverem udelej
v nem.
HTH
Petr Langer
----- Original Message -----
From: "Dalibor" <Dalibor(zv)torola(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Friday, March 14, 2003 9:53 AM
Subject: Cekani na potvrzeni ze Serveru
> Ahoj,
> mam TCP server, na ktery kdyz poslu nejaky pozadavek, tak mi vrati, jestli
> jej prijal nebo ne. Jak udelat v klientske aplikaci to cekani na odezvu
> toho serveru, kdyz chci najednou poslat vice pozadavku, tak aby se
posilaly
> postupne az po potvrzeni ze strany serveru, ze byl prijat predchozi
> pozadavek.
>
> Neco jako
>
> for i:=1 to PocetPozadavku do begin
> PosliPozadavek[i]
> while not PozadavekPotvrzen do
> (CekejNaPotvrzeni nebo CekejNaTimeOut)
> if PozadavekPotvrzen then Pokracuj
> if PozadavekNepotvrzen or Timeout then "PRERUSENI"
> end;
>
> (D5 Prof)
>
>
SynEdit pro D7
[*] Tomas Bihary <delphi(zv)wige-mic(tec)cz> - 14.3.2003 09:53:22
Ahoj a odkud ji prosim mas?
Na sourceforge jsem nasel jen 1.03 a 1.1
Tady je verze 1.03 z November 25, 2000
http://sourceforge.net/projects/synedit/
Tady je verze 1.1 z 2002-07-12
http://synedit.sourceforge.net/
Tomas Bihary
PS: trochu neporadek nebo to ma nejaky vyznam?
----- Original Message -----
> > Kde je (zda-li je) k mani synedit pro delphi 7 Prof. Na
> > http://synedit.sourceforge.net je pouze verze 1.1 pro Delphi do 6.
>
> Mam tusim verzi 1.04 a funguje i na D7. Nanejvys jsem upravil direktivy
kompilatoru
> hlidajici verzi Deplhi, ale to uz si nepamatuji,
>
>
Jiri Binder
---
Odchoz=ED zpr=E1va neobsahuje viry.
Zkontrolov=E1no antivirov=FDm syst=E9mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.461 / Virov=E1 b=E1ze: 260 - datum vyd=E1n=ED: 10.3.2003
FB/IB: Backup / Restore
[*] Milan Tome� <milan.tomes(zv)haida(tec)cz> - 14.3.2003 10:07:24
Zdravim vsechny,
chtel jsem se zeptat na moznost zalohy a obnovy databaze IB z vlastniho
programu. Databazovy stroj bezi na Linuxu a Backup/Restore service z IB
Admin nelze pouzit, protoze Services manager neni implementovan... Mate
nekdo nejaky navod, jak to udelat jinak nez spustenim gbak ???
Dekuji
S pozdravem
Milan Tomes
mailto:milan.tomes(zv)haida(tec)cz
Cekani na potvrzeni ze Serveru
[*] Dalibor <Dalibor(zv)torola(tec)cz> - 14.3.2003 09:53:38
Ahoj,
mam TCP server, na ktery kdyz poslu nejaky pozadavek, tak mi vrati, jestli
jej prijal nebo ne. Jak udelat v klientske aplikaci to cekani na odezvu
toho serveru, kdyz chci najednou poslat vice pozadavku, tak aby se posilaly
postupne az po potvrzeni ze strany serveru, ze byl prijat predchozi
pozadavek.
Neco jako
for i:=1 to PocetPozadavku do begin
PosliPozadavek[i]
while not PozadavekPotvrzen do
(CekejNaPotvrzeni nebo CekejNaTimeOut)
if PozadavekPotvrzen then Pokracuj
if PozadavekNepotvrzen or Timeout then "PRERUSENI"
end;(D5 Prof)
DB aplikacia
[*] Ing. Pavel �ilinec����)b����ȧ~�� - 14.3.2003 09:24:15
Podivej se na FlashFiler (bylo tu o nem u hodne napsano).
Ja ho ted zacal pouzivat na samostatnou aplikaci a jsem s nim vcelku
spokojen. Sice jsem byl z MSSQL zvykly na ulozene procedury a
slozitejsi dotazy, ale zatim jsem tu napsal vse, co jsem potreboval.
--------
ing. Pavel Zilinec
MailTo:zilinec(zv)email(tec)cz
Prog-Soft s.r.o. Plzen
Informacni system pro vyrobce
a distributory napoju
PT> ahojte
PT> chcel by som spravit databazovu aplikaciu, ale tak aby bola databaza
PT> na jednom PC s aplikaciou. nechcem to robit cez BDE. Viete mi poradit
PT> nejaku kombinaciu (MDAC, DB)? najlepsi by bol native connect na databazu. Super
PT> by bolo, keby bolo potom mozne pouzit VCL komponenty dbgrid a spol. (a este
PT> lepsie keby sa nic navyse nemuselo doinstalovavat (ako MySQL a pod.))
PT> co pouzivate vy?
PT> vdaka za rady
PT> Peter
SynEdit pro D7
[*] Ji�� Binder<j.binder(zv)albacon(tec)cz> - 14.3.2003 09:37:19
=3E Kde je =28zda-li je=29 k mani synedit pro delphi 7 Prof=2E Na
=3E http=3A=2F=2Fsynedit=2Esourceforge=2Enet je pouze verze 1=2E1 pro Delphi=
do 6=2E
Mam tusim verzi 1=2E04 a funguje i na D7=2E Nanejvys jsem upravil direktivy=
kompilatoru
hlidajici verzi Deplhi=2C ale to uz si nepamatuji=2C
=
Jiri Binder
Synapse a traceroute
[*] Lukas Gebauer <gebylist(zv)mlp(tec)cz> - 14.3.2003 09:00:06
Je potreba precist patricnou ICMP zpravu. PingSend sice cte ICMP
zpravy, ale vsechny krome odpoved na PING pozadavek ignoruje.
Naprogramovat Traceroute neni zase az tak jednoducha vec, casto se to
neresi ani pres PING.
Asi to do nejake pristi verze Synapse naprogramuji. ;-)
> chtel bych se zeptat, neresil jste nekdo nahodou trace pomoci synapse
> ? Jde me o to zjistit pres ktery routery leze muj connect podobne jako
> vypisuje prikaz tracert pod windows. Staci mi ip adresy. Zkousel jsem
> dodelat do PingSend definici TTL, kterou TICMPSocket ma, ale
> nepodarilo se. Priklad pouziti: jsem na 192.168.10.2 a chci zjistit
> cestu na 192.168.21.2
>
> ping 192.168.21.2 - ttl 1 -> 192.168.10.1
> ping 192.168.21.2 - ttl 2 -> 192.168.20.16
> ping 192.168.21.2 - ttl 3 -> 192.168.21.2
>
>
> takhle nejak bych si to predstavoval, akorat nevim jak u toho ping
> objektu definovat ttl a zjistit kdo zkutecne odpovedel. muj pokus
> zkoncil tam ze sice muzu nastavit ttl, zkutecne neproleze az k cili
> (kdyz nastavim treba 1 nebo 2), zastavi se na ty masine podle ttl, ale
> uz nevim jak zjistit u koho se paket zastavil.
-- Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
http://www.ararat(tec)cz/synapse/ - Synapse Delphi and Kylix TCP/IP Lib.
com/dcom a navrh komponent aplikace
[*] Zbysek Hlinka <hlinka(zv)hlinka(tec)cz> - 14.3.2003 09:24:57
On 14 Mar 2003 at 8:35, kevin33(zv)post(tec)cz wrote:
> rad bych se zeptal zkusenejsich na jejich nazor na com/dcom.
> resim ted situaci kdy mam zpracovat prevazne databazovy projekt +
> nejaky hw pres seriovou linku, vice klientu napojenych na sql2000
> serveru. prace to bude asi na 4 mesice pro 2 programatory. chteli
> bysme tento projekt ale postavit tak aby se daly uz naprogramovane
> veci znovupouzit i v jinych projektech. k tomu se com primo nabizi,
> ale mam obavy o jeho funkcnost na ruznych w9x/2000/xp o registraci
> komponent com, ruzna nastavovani v ruznych sitich u zakaznika atd.
> chteli bysme to postavit jako vicevrstvou aplikaci - zkusenosti s
> timhle uz mame ale pouze v ramci zdrojovych kodu v delphi a nyni bysme
> chteli com komponenty pouzit i v ostatnich programovacich jazycich
> ktere tu mame. rad si prectu jakekoli vase rady/poznamky atd ...
Docela rad bych te pred timto postupem varoval. Proc? Pokud pomineme
problemy s DCOM jako takovym, v D6 a D7 se velmi spatne ladi projekt
se slozitejsim komplexem COM objektu. Problem je v tom, ze kdyz neco
zmenis v nejakem COM a zkompilujes to, IDE si pamatuje stare pointy
na zdrojaky a vsechno pak pri krokovani pada a pada. Je nutne
restartovat Delphi, prekompilovat, a teprve pak lze krokovat. Zcela
evidentne se jedna o chybu v Delphi, protoze v D5 to jeste funguje.
Na me urgence Borland nereagoval. Kdyz mam tedy ladit v D7
Lokalizator, ktery je prave na COM modulech postaven, padaji mi z
toho vlasy. Doporucil bych ti spise venovat pozornost .NET (ale ne
tomu bastardu ktery je dodavan k D7).
S pozdravem
Zbysek Hlinka
OT: Konfigurace site
[*] Ludek ZITA <konference(zv)sales(tec)cz> - 14.3.2003 08:57:52
Zdravim.
Mam problem, na ktery mi zatim nikdo nedal odpoved ani ve spec. konferencich
a tak se obracim sem.
Mam 3 servery :
PC (W2k-SBS, Primary Domain Controler, DNS, Exchange, .....)
PD (W2Kserv. Secondary Domain Controler , DNS, MS SQL2000)
PE (W2Kserv. Secondary Domain Controler , DNS, IIS, Aplikacni Server
firemniho IS)
Servery jsou pripojeny do 1GB switche (dale ma switch 10/100 porty pro
uzivatele)
Protoze mezi PD a PE panuje cily a datove narocny provoz (App server <>
MSSQL) je potreba ulechcit switchi.
Proto jsou v obou dalsi 1GB karty propojene mezi sebou primo.
Uzivatele s PD a PE komunikuji pres "hlkavni" segment site (192.168.1....)
Otazka zni jak to cele nakonfigurovat.
Ja jsem zacal tim (Nez byly servery PD a PE povyseny na radice domeny), ze
jsem pridavnym kartam dal jiny segment site (sit ma 192.168.1.... a ja dal
192.168.9....), pak jsem do hosts souboru napsal :
v PD\....\hosts :
PC 192.168.1.10
PD 192.168.1.11
PE 192.168.9.1
v PE\....\hosts :
PC 192.168.1.10
PE 192.168.1.12
PD 192.168.9.2
v PC\....\hosts :
PC 192.168.1.10
PD 192.168.1.11
PE 192.168.1.12
Jeste pro jistotu jsem v konfiguraci App serveru zadal adresu SQL serveru
primo IPckem (192.168.9.2)
Jenze po povyseni na radice domeny prestalo vse fungovat a dokazu to dostat
do dvou stavu :
1) Jedou replikace Active Directory ale prestane chodit moje vytouzena
pricka (PD s PE mezi sebou komunikuji pomoci hlavnich adres)
(V tomto pripade samozrejme musi jit pryc hosts soubory)
2) Nejedou replikace, ale pricka funguje jak ma. Replikace zhuci na spatnych
zapisech v DNS (PC hleda PD a PE pres adresy 192.198.9... a ty samozrejme PC
nevidi.
Klidne muzu "ozelet" jeden Secondary Domain Controler (na PD nebo PE) ale
alespon jeden tam kvuli pripadnemu vypadku PC potrebuju.
Mozna ze spravna otazka zni : "Jak spravne zapsat do DNS server s dvema IP
adresami z nichz kazda je v jinem segmentu site"
Nebo jeste lepe "Jak spravne zapsat do DNS sekundarni Domain Controler s
dvema IP adresami z nichz kazda je v jinem segmentu site a Primarni
kontroler na druhou IP adresu "nevidi"
Snad jsem to popsal srozumitelne.....
Predem veeeelike diky za jakykoliv naznak pomoci.
Ludek
DB aplikacia
[*] Peter Turcan <peter.turcan(zv)centrum.sk> - 14.3.2003 09:14:24
ahojte
chcel by som spravit databazovu aplikaciu, ale tak aby bola databaza
na jednom PC s aplikaciou. nechcem to robit cez BDE. Viete mi poradit
nejaku kombinaciu (MDAC, DB)? najlepsi by bol native connect na databazu. Super
by bolo, keby bolo potom mozne pouzit VCL komponenty dbgrid a spol. (a este
lepsie keby sa nic navyse nemuselo doinstalovavat (ako MySQL a pod.))
co pouzivate vy?
vdaka za rady
Peter
Jak poslat string pres UDP?
[*] Lukas Gebauer <gebylist(zv)mlp(tec)cz> - 14.3.2003 09:07:41
Ze Synapse si vem TUDPBlockSocket. Vytvor si tuto tridu a prirad si
ji do promenne udp.
Na poslani stringu nekam, pak staci pouzit kod:
udp.connect('cilova.ip.adresa','cilovy_port');
udp.sendstring('to co chces odeslat');
na prijimani mas parradkovy priklad v dokumentaci Synapse. (v
artiklech) Princip je takovy,z e si vytvoris separatni thread, v nem
si vytvoris nasouchajici instanci TUDPBlockSocket, rikejme ji
udplisten.
Pak na zacatku udelas:
udplisten.bind('0.0.0.0', 'tvuj_port');
(nebo udplisten.bind('::0', 'tvuj_port'); pokud chces naslouchat na
IPv6 adrese...)
a pk uz staci cyklicky volat treba:
s := udplisten.recvpacket(5000);
Pokud po teto pperaci bude udplisten.lasterror rovno nule, pak v s
mas prijmuty string. Pokud je nenulovy, pak opakuj. v teto smycce bys
mel take testovat, jestli se nahodou nema ukoncit thread, a kdyz ano,
tak z teto smycky vybehnes.
> Proste bych rad jen nejakou komponentu, ktera uplne primitivne umi
> poslat string na IP:PORT, ktere zadam, a zaroven na stejnem portu
> posloucha, jestli ji nekdo jiny neco neposila.
-- Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
http://www.ararat(tec)cz/synapse/ - Synapse Delphi and Kylix TCP/IP Lib.
Ztrata konektivity IB/FB
[*] David Li�ka <konference(zv)thsoft(tec)cz> - 14.3.2003 08:58:50
Ahoj, neresil jste uz nekdo ztratu spojeni s IB/FB?
spojeni testuju pomoci IBDatabase.TestConnected a pri odpadle konektivite
jsem si myslel, ze budu spojeni automaticky znovu navazovat, jenze pri
zavirani aktivni transakce (IBTransaction.Active:=3DFalse) to spadne na
"Invalid transaction handle (expecting explicit transaction start)"
nev=EDte n=ECkdo jak se znova bez chyb nakonektovat a znova nastartovat
transakci?
David
Jak poslat string pres UDP?
[*] Milan Tomes <milan.tomes(zv)haida(tec)cz> - 14.3.2003 08:45:21
Zkus se podivat na Synapsy - www.ararat(tec)cz/synapse
Pred dvema dny jsem dokoncil neco podobneho, takze pokud budes chtit dalsi
info, tak se obrat na soukr. mail...
S pozdravem
Milan Tomes
mailto:milan.tomes(zv)haida(tec)cz
> Zdravim,
> Proste bych rad jen nejakou komponentu, ktera uplne primitivne umi
> poslat string na IP:PORT, ktere zadam, a zaroven na stejnem portu
> posloucha, jestli ji nekdo jiny neco neposila.
> Pavel Bambasek
com/dcom a navrh komponent aplikace
[*] kevin33(zv)post(tec)cz - 14.3.03 08:35:51
dobry den,
rad bych se zeptal zkusenejsich na jejich nazor na com/dcom.
resim ted situaci kdy mam zpracovat prevazne databazovy projekt +
nejaky hw pres seriovou linku, vice klientu napojenych na sql2000
serveru. prace to bude asi na 4 mesice pro 2 programatory. chteli
bysme tento projekt ale postavit tak aby se daly uz
naprogramovane veci znovupouzit i v jinych projektech. k tomu se
com primo nabizi, ale mam obavy o jeho funkcnost na ruznych
w9x/2000/xp o registraci komponent com, ruzna nastavovani v
ruznych sitich u zakaznika atd. chteli bysme to postavit jako
vicevrstvou aplikaci - zkusenosti s timhle uz mame ale pouze v
ramci zdrojovych kodu v delphi a nyni bysme chteli com komponenty
pouzit i v ostatnich programovacich jazycich ktere tu mame. rad
si prectu jakekoli vase rady/poznamky atd ...
dekuji
Kev
--
Ziskejte kvalitu, kterou si zasluhujete. Za minimalni mesicni
poplatek vam nabizime Antivir, Antispam nebo dalsi kapacitu pro
vas Mailbox. Vice na: http://sluzby.volny(tec)cz/product/postpaid/
jak instalovat BDEMergeModulePro
[*] Jiri Virt <virt(zv)volny(tec)cz> - 14.3.2003 08:23:39
to je snad "samoinstalovany" SW, ne?
Jirka
jak instalovat BDEMergeModulePro
[*] Zaplik <zaplik(zv)volny(tec)cz> - 14.3.2003 08:11:10
Muzete mi prosim nekdo polopate rict jak instalovat BDE5.2
BDEMergeModulePro?
Dik
---
Odchoz=ED zpr=E1va neobsahuje viry.
Zkontrolov=E1no antivirov=FDm syst=E9mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.461 / Virov=E1 b=E1ze: 260 - datum vyd=E1n=ED: 10.3.2003
Dalsi vyvoj FlashFiler-u ?
[*] bleak <bleak(zv)mvesely(tec)com> - 14.3.2003 08:04:40
ah, omlouvam se, jedna se o Delphi 6 Professional. Jine databazove komponenty funguji naprosto bez
problemu.
bleak
----- Original Message -----
From: "Jarom�r Sola�" <solar(zv)magion(tec)cz>
> Pokud D6P znamena D6 Personal, tak je to v tom, �e v Personal verzi neni podpora
> pro databazove aplikace (chybi TDataset). Proto tato knihovna nepujde ani
> zkompilovat.
> S pozdravem
Dalsi vyvoj FlashFiler-u ?
[*] Jarom�r Sola� <solar(zv)magion(tec)cz> - 14.3.2003 07:56:43
> ja jsem to tam stahl a nejde mi to nainstalovat, D6P hlasi pri instalaci .dpk
: "nebyla nalezena
> jedna z knihoven, potrebnych pro spusteni programu". Tak ted nevim, je to
chyba FF, nebo W98?
> bleak
Pokud D6P znamena D6 Personal, tak je to v tom, �e v Personal verzi neni podpora
pro databazove aplikace (chybi TDataset). Proto tato knihovna nepujde ani
zkompilovat.
S pozdravem
Ing. Jarom�r Sola� (jaromir.solar(zv)magion(tec)cz)
MAGION system a.s. (http://www.magion(tec)cz)
Tel.: 571-499-316
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.461 / Virov� b�ze: 260 - datum vyd�n�: 10.3.2003
TDBF a slozitejsi index
[*] Zaplik <zaplik(zv)volny(tec)cz> - 14.3.2003 07:27:08
Prosim o radu, jak (pokud to vubec jde)vytvorit slozeny index u TDBF? Ind=
exu
mohu vytvorit mraky, ale ja bych potreboval vytvorit trideni podle napr.
Polozka1+polozka2+polozka3. Jaka jsou omezeni TTable?
Zaplik
---
Odchoz=ED zpr=E1va neobsahuje viry.
Zkontrolov=E1no antivirov=FDm syst=E9mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.461 / Virov=E1 b=E1ze: 260 - datum vyd=E1n=ED: 10.3.2003
Jak poslat string pres UDP?
[*] Pavel Bambasek <pabam(zv)volny(tec)cz> - 14.3.2003 02:25:15
Zdravim,
snazim se udelat si takovou malou aplikaci na intranetu, ktera bude
spustena na vice pocitacich. Potrebuji aby si ty pocitace mezi sebou
povidaly, ale nikoliv pres klint/server, ale nejak jednoduseji.
Proste bych rad jen nejakou komponentu, ktera uplne primitivne umi
poslat string na IP:PORT, ktere zadam, a zaroven na stejnem portu
posloucha, jestli ji nekdo jiny neco neposila.
Nasel jsem takovou krasne jednoduchou vec, ktera to umi, ale je pro
Delphi 3 a ja to delam na Delphi 7 (kvuli WinXP) :-/
Uz to hledam na internetu dva dny, ale vsude jenom komponenty typu
klient/server...
Dekuji
Pavel Bambasek
Uvolneni pameti po TListView
[*] Ji�� Baudy� - 14.3.2003 01:35:22
Kr=E1sn=FD den :(
netu=9A=EDte n=ECko pro=E8 my po zav=F8en=ED forum s TListView resp. jeho=
netodou
View.Clear, z=F9st=E1v=E1 alokovan=E1 pam=EC=9D ? Tak=9Ee po 'st=E9m' ote=
v=F8en=ED a zav=F8en=ED je
PC (zvl=E1=9At=EC s Win98) out.
D=EDk za ka=9Edou radu
Jirka
Synapse a traceroute
[*] Raul <raul(zv)raphael(tec)cz> - 14.3.2003 00:09:33
Dobry den,
chtel bych se zeptat, neresil jste nekdo nahodou trace pomoci synapse
?
Jde me o to zjistit pres ktery routery leze muj connect podobne jako
vypisuje prikaz tracert pod windows. Staci mi ip adresy.
Zkousel jsem dodelat do PingSend definici TTL, kterou TICMPSocket ma,
ale nepodarilo se.
Priklad pouziti:
jsem na 192.168.10.2 a chci zjistit cestu na 192.168.21.2
ping 192.168.21.2 - ttl 1 -> 192.168.10.1
ping 192.168.21.2 - ttl 2 -> 192.168.20.16
ping 192.168.21.2 - ttl 3 -> 192.168.21.2
takhle nejak bych si to predstavoval, akorat nevim jak u toho ping
objektu definovat ttl a zjistit kdo zkutecne odpovedel. muj pokus
zkoncil tam ze sice muzu nastavit ttl, zkutecne neproleze az k cili
(kdyz nastavim treba 1 nebo 2), zastavi se na ty masine podle ttl, ale
uz nevim jak zjistit u koho se paket zastavil.
Poradte prosim
Raul
Synapse & Jak ziskat IP adresu?
[*] Petr Langer <langer(zv)xdom(tec)cz> - 13.3.2003 18:23:42
Diky,
prave to jsem zkousel, ale nic mi to nevratilo. Zkusim pred tim jeste to
GetSins.
pl
----- Original Message -----
From: "Lukas Gebauer" <gebylist(zv)mlp(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Thursday, March 13, 2003 6:19 PM
Subject: Re: Synapse & Jak ziskat IP adresu?> > presel jsem na Synapsi a v komponente TTCPBlockSocket nejsem schopny
> > ziskat IP adresu protejsku. V Indy to bylo
> > AThread.Connection.Binding.PeerIP, tady to nejsem schopny najit...
>
> TTCPBlockSocket.GetRemoteSinIP
>
> V nekterych pripadech je potreba tyto informace aktualizovat pomoci
> metody TTCPBlockSocket.GetSins. (tato obcasna potreba by mela byt v
> posledni vyvojove verzi jiz eliminovana...)
>
> -- Lukas Gebauer.
>
> E-mail: gebauerl(zv)mlp(tec)cz
> http://www.ararat(tec)cz/synapse/ - Synapse Delphi and Kylix TCP/IP Lib.
>
>
SynEdit pro D7
[*] Anton <tantonin(zv)cbox(tec)cz> - 13.3.2003 18:21:33
Ahoj,
Kde je (zda-li je) k mani synedit pro delphi 7 Prof. Na
http://synedit.sourceforge.net je pouze verze 1.1 pro Delphi do 6.
Dekuji za pomoc.
S pozdravem
Antonin.
Synapse & Jak ziskat IP adresu?
[*] Lukas Gebauer <gebylist(zv)mlp(tec)cz> - 13.3.2003 18:19:17
> presel jsem na Synapsi a v komponente TTCPBlockSocket nejsem schopny
> ziskat IP adresu protejsku. V Indy to bylo
> AThread.Connection.Binding.PeerIP, tady to nejsem schopny najit...
TTCPBlockSocket.GetRemoteSinIP
V nekterych pripadech je potreba tyto informace aktualizovat pomoci
metody TTCPBlockSocket.GetSins. (tato obcasna potreba by mela byt v
posledni vyvojove verzi jiz eliminovana...)
-- Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
http://www.ararat(tec)cz/synapse/ - Synapse Delphi and Kylix TCP/IP Lib.
Synapse & Jak ziskat IP adresu?
[*] Petr Langer <langer(zv)xdom(tec)cz> - 13.3.2003 18:09:33
Ahojte,
presel jsem na Synapsi a v komponente TTCPBlockSocket nejsem schopny ziskat
IP adresu protejsku. V Indy to bylo AThread.Connection.Binding.PeerIP, tady
to nejsem schopny najit...
Diky za radu,
Petr Langer
Telefoni cisla - download
[*] Ales Radikovsky <radik(zv)allstar(tec)cz> - 13.3.2003 17:17:52
Tvuj problem nevyresim, ale pokud mluvime o stejnem CDcku:=20
- vyrobce mel pomerne velkou snahu znemoznit data vytahnout
- pokud mas motivaci tak plati: "Kde je vule, je i cesta". Ja ji
nasel....
U dalsich updatech nevim.
Ales
> Mel bych jeste dotaz:
> Lze koupit cedeso Bile stranky asi za 400 Kc. Mel by na nem=20
> byt kompletni
> seznam tel.cisel. Nevite v jakym formatu? Lze z tohoto cedesa dostat
> tel.cisla v nejakym rozumnym formatu (excel, SQL,...) pro=20
> dalsi pouziti?
> Funguje pak po zakoupeni tohoto cedesa nejaky upgrade z telecomu (nova
> tel.cisla, zmena majitele,...?
Telefoni cisla - download
[*] Vlastimil Zden�k <delphi(zv)gestore(tec)cz> - 13.3.2003 17:04:07
Zdravim,
diky vsem zucastnenym za rady k DLL - UZ TO CHODI TAK JAK MAAAAAAAAAAAA!!!!
DIKY
Mel bych jeste dotaz:
Lze koupit cedeso Bile stranky asi za 400 Kc. Mel by na nem byt kompletni
seznam tel.cisel. Nevite v jakym formatu? Lze z tohoto cedesa dostat
tel.cisla v nejakym rozumnym formatu (excel, SQL,...) pro dalsi pouziti?
Funguje pak po zakoupeni tohoto cedesa nejaky upgrade z telecomu (nova
tel.cisla, zmena majitele,...?
Diky za jakoukoli informaci
Cau Vlasta
D5 Ent, WNT
DBGrid a zavreni datasetu
[*] tondrej(zv)t-online.de - 13.3.2003 16:21:24
> Ale zmenu Active datasetu ten grid zrejme vubec
> nedostane, patrne proto, ze by na ni zareagoval
> probliknutim a pak by DisableControls ztratilo
> svuj ucel.
V D7 (a v D6 asi tiez) dostane TGridDataLink v stave po DisableControls
prave ten deDisabledStateChange, ale TGridDataLink ho ignoruje. Da sa
jednoducho odvodit vlastny datalink, ktory tu udalost nejakym sposobom
spracuje, ako som to uz sem dnes poslal.
Ak je pravda, ze v D5 nie je mozne dosadit do gridu svoj vlastny
datalink, smola - v D5 riesenie toho problemu zrejme nebude take
jednoduche.
Mozno by sa dalo vytvorit si dalsi (svoj vlastny) datalink v
konstruktore dbgridu a prepisat property DataSource aby ho nastavovala
tiez.
HTH
DBGrid a zavreni datasetu
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 13.3.2003 15:53:48
> Pokousel jsem se tomu zabranit tak, ze jsem zavolal DisableControls.
> Samozrejme to pomohlo, jenze pri EnableControls se to OnClick stejne
> zavolalo.
>
> Neni to s tim DBGridem nejak podobne? Neda se to odchytit ani pri tom
> EnableControls?
Ahoj,
tohle bude neco trochu jineho. Nepochybne DBGrid pri enable controls dostane
zpravu o tom, ze doslo ke zmene v datech, aby se prekreslil. S tim asi souvisi to
OnClick, jakkoli si rovnez myslim, ze by opravu nastavat nemelo.
Ale zmenu Active datasetu ten grid zrejme vubec nedostane, patrne proto, ze by na
ni zareagoval probliknutim a pak by DisableControls ztratilo svuj ucel.
Potomek TDataSet
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 13.3.2003 15:12:27
From: "Pavel Poles" <xCony(zv)seznam(tec)cz>
> neexistuje nekde nejaky tutori�l, pripadne
> nejak literatura o vytvareni potomku TDataSet?
http://codecentral.borland.com/codecentral/ccweb.exe/listing?id=14312
http://www.neosoft.com/~startech/week1/customds1.htm
Petr Vones
Potomek TDataSet
[*] tondrej(zv)t-online.de - 13.3.2003 14:36:58
> neexistuje nekde nejaky tutorial, pripadne
> nejak literatura o vytvareni potomku TDataSet?
http://www.gexperts.com/delphi.html
HTH
TWebBroker na bazi ISAPI ztraci data pri POST vets
[*] Petr Fejfar <development(zv)callnet(tec)cz> - 13.3.2003 14:11:38
Hi all,
mam nasledujici problem na W2K(CZ/EN) SP3, D6.02prof
1. Je klient, ktery pomoci Synapse r29 posila vetsi
XML dokument (>48 kB) na HTTP server metodou POST
Jako Content-Type jsem zkousel Text/Plain,
Text/XML, Application/octet-stream -> zadny
rozdil
2. Je HTTP server na bazi ISAPI.DLL
3. Kdyz na serveru zjistim, ze
length(Content)<ContentLength (typicky kdyz
jsou data vetsi ne $C000), tak jdu cist
zbytek pomoci cyklu s ReadClient().
Cteni konci po time-outu, protoze se nemuzu
dopocitat deklarovane/prectene velikosti dat.
4. Vysledkem je, ze ztracim radove desitky kB (!)
z dat, ktera nasleduji za Request.Content tj.
ta, ktera bych mel nacist prvnim volanim
ReadClient() Zde je priklad z trace logu
po ukonceni cyklu:
- Initially has been read 49152 B,
- ReadClient() read 106586 B,
- together 155738 B, should be 168506 B,
- difference 12768 B
5. zkousel jsem dump toho XML souboru uploadnout
normalne z <FORM> v beznem HTML dokumentu
pomoci MSIE 6 - ten to posila jako
multipart/form-data a vysledek je obdobny
***
Nenapada prosim nekoho, co delam spatne?
Ten XML je generovan pomoci DOM a neobsahuje netistitelne znaky. Jedina
anomalie je nekolik hodne dlouhych radku (desitky kB) zakodovanych v Base64.
Nepomohlo by to treba rozlamat na radky rekneme
po 72 znacich jako v MIME?
***
Uz jsem prolezl na internetu kde co, konzultoval to
s kde kym a stale na nic nemuzeme prijit.
Diky za kazdou podnetnou myslenku
Thx, pf
DBGrid a zavreni datasetu
[*] Jan Sebel�k <honza(zv)haes(tec)cz> - 13.3.2003 12:56:07
Ja jsem mel problem trochu jiny, ale mozna to souvisi:
Kdyz se v DataSetu zmeni programove boolean field, vyvola se udalost =
OnClick na pripojenem TDBChecBox. Podle me to je spatne, co ma probihat =
nejake OnClick, ale proste je to tak (D5).
Pokousel jsem se tomu zabranit tak, ze jsem zavolal DisableControls. =
Samozrejme to pomohlo, jenze pri EnableControls se to OnClick stejne =
zavolalo.
Neni to s tim DBGridem nejak podobne? Neda se to odchytit ani pri tom =
EnableControls?
Honza
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
=3D HAES - RNDr. Jan Sebelik
=3D http://www.haes(tec)cz
=3D Skolici a konzultacni stredisko pro Delphi a Win32
=3D Vojtiskova 206
=3D 507 81 Lazne Belohrad
=3D tel. 493 792 931 (mobil 776 347735)
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
----------
> Odes=EDlatel: Lebeda David <david.lebeda(zv)comarr(tec)cz>
> Komu: delphi-l(zv)clexpert(tec)cz
> P=F8edm=ECt: RE: DBGrid a zavreni datasetu
> Datum: 13. b=F8ezna 2003 12:45
>=20
> > Proc ne jednoduse if dbgrid.datasource.dataset.open, ale na to bys
> > musel udelat vlastni udalost. Spis bych zkusil kontrolovat
> > OnDatachange u datasource, ktery je pro DBgrid napojen a s nejakou
> > podminkou si to zkusit vyhodnotit, nevim presne co chces sledovat.
> >=20
>=20
> Mam vlastniho potomka dbgridu a ten v sobe obsahuje TList s jistymi =
udaji tykajicimi=20
> se prave otevreneho dotazu v datasetu. Pokud dojde k refreshi =
datasetu, musim=20
> tento TList vyprazdnit, a to i v pripade, ze v datech na SQL serveru =
nenastaly zadne=20
> zmeny. Problem je v tom, ze grid se nedozvi, ze doslo k zavreni a =
novemu otevreni=20
> datasetu, bylo-li to obaleno dvojici DisableControls a EnableControls. =
Nedoslo-li ke=20
> zmene dat, v gridu se to ani nijak neprojevi (opticky apod.).
>=20
> Pohledem do zdrojaku TDataset jsem nabyl dojmu, ze ani Datasource o =
tom=20
> nedostane informaci. Nebylo-li by pouzito DisableControls, dataset sam =
rekne gridu,=20
> ze se zavira a grid podle toho zareaguje. Bylo-li pouzito, nikdo se s =
gridem nebavi.
>=20
> Metody pomoci Timeru apod. sledovat stav datasetu jsou nepouzitelne, =
uz treba=20
> kvuli nespolehlivosti - okamzik mezi zavrenim a otevrenim datasetu =
muze byt kratky=20
> a timer se do nej muze netrefit.
>=20
Potomek TDataSet
[*] Pavel Poles <xCony(zv)seznam(tec)cz> - 13.3.2003 14:18:13
Dobry den
neexistuje nekde nejaky tutori�l, pripadne
nejak literatura o vytvareni potomku TDataSet?
predem dekuji za odpovedi
Pavel Poles
Potomek TDataSet
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 13.3.2003 14:10:31
> neexistuje nekde nejaky tutori=E4l, pripadne
> nejak literatura o vytvareni potomku TDataSet?
Urcite ano, sam jsem podle toho kdysi psal svuj dataset. Zkus se
kouknout do archivu, pripadne google - hledat custom dataset apod.
Ja uz ten odkaz nemam.
DLL a PChar
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 13.3.2003 14:08:27
> Dobraaa, snazil jsem se upravi volani DLL dle vasich rad, ale porad
se mi
> nejak nedari......:((
> Muzete mi prosim poradit co je spatne a pripadne upravit tento
spatny kod?
chyby stale na tom stejnem miste:
>
> DLL:
> function FindPC(PC:PChar;MaxLen:Integer):byte; stdcall;
> var
> TempPC : String;
> begin
> Result :=3D 0;
> TempPC :=3D '##PC';
>
> FreeMem(PC,MaxLen);
! uvolnujes pamet, kterou jsi alokoval v hlavnim modulu
> GetMem(PC,MaxLen);
> StrCopy(PC,PChar(TempPC));
> end;
>
> procedure DeAloc(Ukaz:PChar;MaxLen:Integer); stdcall;
> begin
> FreeMem(Ukaz,MaxLen);
> end;
>
> APPL:
> procedure Button2Click(Sender: TObject);
> var
> MaProc : function (StrProm:PChar;Delka:Integer):byte; stdcall;
> MujStr : string;
> Neco : PChar;
> begin
> (zv)MaProc :=3D GetProcAddress(Hwnd,PChar('FindPC'));
> if ((zv)MaProc<>nil)
> then
> begin
> GetMem(Neco,254);
!alokace pameti, kterou uvolnuje DLL
> try
> if (MaProc(Neco,254)<>0)
> then
> begin
> MessageDlg('Nastala chyba poi vol=E1n=ED funkce
> "FindPC".',mtError,[mbOK],0);
> end
> else
> MujStr :=3D String(Neco); <<<<<<<<< TADY MAM V PROMENNE
MujStr
> hodnotu '+T*S' A NE '##PC'. PROC?
protoze neni parametr 'PC' v FindPC deklarovan jako VAR tak Ti 'Neco'
ukazuje na
neplatny kus pameti (protoze jsi pointer na puvodni pamet v FindPC
zneplatnil volanim FreeMem)
> finally
> (zv)MaProc :=3D GetProcAddress(Hwnd,PChar('DeAloc'));
> if ((zv)MaProc<>nil)
> then
> MaProc(Neco,254); <<<<<<<<<<< TADY PODAR PADA NA
"Invalid
> poiter operation"
> end;
> end;
> ShowMessage(MujStr);
> end;
>
> Pomozte prosim.
D. Toman
DBGrid a zavreni datasetu
[*] tondrej(zv)t-online.de - 13.3.2003 14:05:32
> mam D5E a tam se datalink prirazuje natvrdo v
> konstruktoru TCustomDBGridu.
> Takze ho jen tak snadno vymenit nemuzu, uvedena metoda
> neexistuje.
To mi je fakt luto. Ked v otazke nie je uvedena verzia, automaticky
predpokladam aktualnu verziu. Nastastie som tomu (zbytocne) venoval len
par minut.
D5 uz davno nemam, neviem Ti teda pomoct. Snad niekto iny.
DBGrid a zavreni datasetu
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 13.3.2003 13:58:11
> > mam potomka DBGridu a potreboval bych v nem zjistit, ze
> > doslo k zavreni datasetu, o ktery je opren. Na to slouzi
> > metoda LinkActive, ktera ale funguje jen tehdy, neni-li
> > dataset po DisableControls. Pokud pouziji
> >
> > Dataset.DisableControls;
> > Dataset.Close;
> > Dataset.Open;
> > Dataset.EnableControls;
> >
> > , tak se DBGrid.LinkActive vubec nevyvola. Jakym jinym
> > zpusobem se muze grid dozvedet, ze nastalo nove nacteni
> > dotazu?
>
> TCustomDBGridEx = class(TCustomDBGrid)
> protected
> function CreateDataLink: TGridDataLink; override;
> end;
Ahoj,
mam D5E a tam se datalink prirazuje natvrdo v konstruktoru TCustomDBGridu.
Takze ho jen tak snadno vymenit nemuzu, uvedena metoda neexistuje.
WriteState a ReadState
[*] Vaclav Riha - Soft Consult <vaclav_riha(zv)softconsult(tec)cz> - 13.3.2003 13:40:00
Pouzivam ukladani a nacitani vlastnich komponent odvozenych od TComponent
do streamu. To funguje perfektne, Stejne tak funguje i vkladani/vybirani ze
schranky . Ted by se mi vsak hodilo docasne ulozeni "published" vlastnosti
do stream a posleze jejich nacteni zpet. Zkousim pouzit WriteState a
nasledovne ReadState. Ulozeni probehne v poradku (soubor obsahuje vse co
ma). Nacitani vsak je ukonceno chybou pri nacitani vnorenych objektu.
Upozornuji, ze bezne ukladani/vybirani ze streamu pomoci WriteComponent a
ReadComponent funguje spravne. Neresil jste nekdo pouziti WriteState a
ReadState??
S pozdravem Vaclav Riha
DBGrid a zavreni datasetu
[*] tondrej(zv)t-online.de - 13.3.2003 13:20:35
> mam potomka DBGridu a potreboval bych v nem zjistit, ze
> doslo k zavreni datasetu, o ktery je opren. Na to slouzi
> metoda LinkActive, ktera ale funguje jen tehdy, neni-li
> dataset po DisableControls. Pokud pouziji
>
> Dataset.DisableControls;
> Dataset.Close;
> Dataset.Open;
> Dataset.EnableControls;
>
> , tak se DBGrid.LinkActive vubec nevyvola. Jakym jinym
> zpusobem se muze grid dozvedet, ze nastalo nove nacteni
> dotazu?
type
TGridDataLinkEx = class(TGridDataLink)
protected
procedure DataEvent(Event: TDataEvent; Info: Longint); override;
end;
TCustomDBGridEx = class(TCustomDBGrid)
protected
function CreateDataLink: TGridDataLink; override;
end;
{ TGridDataLinkEx }
procedure TGridDataLinkEx.DataEvent(Event: TDataEvent; Info: Integer);
begin
case Event of
deDisabledStateChange:
if Info = 0 then
ShowMessage('DataSet closed')
else
ShowMessage('DataSet opened');
end;
inherited DataEvent(Event, Info);
end;
{ TCustomDBGridEx }
function TCustomDBGridEx.CreateDataLink: TGridDataLink;
begin
Result := TGridDataLinkEx.Create(Self);
end;
HTH
DLL a PChar
[*] Vlastimil Zden�k <delphi(zv)gestore(tec)cz> - 13.3.2003 12:52:26
Dobra, snazil jsem se upravi volani DLL dle vasich rad, ale porad se mi
nejak nedari......:((
Muzete mi prosim poradit co je spatne a pripadne upravit tento spatny kod?
Diky moc Vlasta
DLL:
function FindPC(PC:PChar;MaxLen:Integer):byte; stdcall;
var
TempPC : String;
begin
Result := 0;
TempPC := '##PC';
FreeMem(PC,MaxLen);
GetMem(PC,MaxLen);
StrCopy(PC,PChar(TempPC));
end;
procedure DeAloc(Ukaz:PChar;MaxLen:Integer); stdcall;
begin
FreeMem(Ukaz,MaxLen);
end;
APPL:
procedure Button2Click(Sender: TObject);
var
MaProc : function (StrProm:PChar;Delka:Integer):byte; stdcall;
MujStr : string;
Neco : PChar;
begin
(zv)MaProc := GetProcAddress(Hwnd,PChar('FindPC'));
if ((zv)MaProc<>nil)
then
begin
GetMem(Neco,254);
try
if (MaProc(Neco,254)<>0)
then
begin
MessageDlg('Nastala chyba poi vol�n� funkce
"FindPC".',mtError,[mbOK],0);
end
else
MujStr := String(Neco); <<<<<<<<< TADY MAM V PROMENNE MujStr
hodnotu '+T*S' A NE '##PC'. PROC?
finally
(zv)MaProc := GetProcAddress(Hwnd,PChar('DeAloc'));
if ((zv)MaProc<>nil)
then
MaProc(Neco,254); <<<<<<<<<<< TADY PODAR PADA NA "Invalid
poiter operation"
end;
end;
ShowMessage(MujStr);
end;
Pomozte prosim.
Vdaka
> > Nevim, jestli je to uplne koser postup, ale my jsme to jeste resili
> tak, ze
> > funkce v DLL vracejici nejaky retezec jej sama naalokovala, vratila
> > volajicimu a ten pak zavolal metodu te DLL-ky Dispose kde ji predal
> pointer
> > a ta si ho zase sama uvolnila. DLL-ka je v C++, volane je to z
> Delphi a
> > problem jsme s tim nemeli...
>
> to je samozrejme take spravny a funkcni postup.
>
> D. Toman
>
>
>DBGrid a zavreni datasetu
[*] Roman <sw.maurice(zv)seznam(tec)cz> - 13.3.2003 13:20:04
> > > , tak se DBGrid.LinkActive vubec nevyvola. Jakym jinym zpusobem se
> > > muze
> > grid
> > > dozvedet, ze nastalo nove nacteni dotazu? Chapu, ze on to ve sve
> > > klasicke
> > podobe
> > > na nic nepotrebuje vedet, je-li Dataset po DisableControls, ale muj
> > potomek gridu by
> > > to potreboval.
> >
> > Zkusil bych vyuzit udalost AfterOpen toho grid.datasource.datasetu.
>
> Jak? Ja nepotrebuji vyresit jedno konkretni pouziti v jedne aplikaci.
Potrebuji, aby se
> potomek gridu dozvedel, ze dataset byl zavren nebo otevren. To reseni
proto musi
> byt uvnitr komponenty gridu, nikoli v datasetu.
Mno, mysleno to bylo takto: do potomka pridat kod pro obsluhu udalosti
dataset.AfterOpen, napr. FDatasetAfterOpen. Kdyz se DBGridu priradi
DataSource (Dataset), nastavi se
grid.datasource.dataset.afteropen:=self.FDatasetAfterOpen.
Roman
==============================
http://kouzelne.misto(tec)cz
DLL a PChar
[*] Vlastimil Zden�k <delphi(zv)gestore(tec)cz> - 13.3.2003 13:09:35
Dobraaa, snazil jsem se upravi volani DLL dle vasich rad, ale porad se mi
nejak nedari......:((
Muzete mi prosim poradit co je spatne a pripadne upravit tento spatny kod?
Diky moc Vlasta
DLL:
function FindPC(PC:PChar;MaxLen:Integer):byte; stdcall;
var
TempPC : String;
begin
Result := 0;
TempPC := '##PC';
FreeMem(PC,MaxLen);
GetMem(PC,MaxLen);
StrCopy(PC,PChar(TempPC));
end;
procedure DeAloc(Ukaz:PChar;MaxLen:Integer); stdcall;
begin
FreeMem(Ukaz,MaxLen);
end;
APPL:
procedure Button2Click(Sender: TObject);
var
MaProc : function (StrProm:PChar;Delka:Integer):byte; stdcall;
MujStr : string;
Neco : PChar;
begin
(zv)MaProc := GetProcAddress(Hwnd,PChar('FindPC'));
if ((zv)MaProc<>nil)
then
begin
GetMem(Neco,254);
try
if (MaProc(Neco,254)<>0)
then
begin
MessageDlg('Nastala chyba poi vol�n� funkce
"FindPC".',mtError,[mbOK],0);
end
else
MujStr := String(Neco); <<<<<<<<< TADY MAM V PROMENNE MujStr
hodnotu '+T*S' A NE '##PC'. PROC?
finally
(zv)MaProc := GetProcAddress(Hwnd,PChar('DeAloc'));
if ((zv)MaProc<>nil)
then
MaProc(Neco,254); <<<<<<<<<<< TADY PODAR PADA NA "Invalid
poiter operation"
end;
end;
ShowMessage(MujStr);
end;
Pomozte prosim.
Vdaka
> > Nevim, jestli je to uplne koser postup, ale my jsme to jeste resili
> tak, ze
> > funkce v DLL vracejici nejaky retezec jej sama naalokovala, vratila
> > volajicimu a ten pak zavolal metodu te DLL-ky Dispose kde ji predal
> pointer
> > a ta si ho zase sama uvolnila. DLL-ka je v C++, volane je to z
> Delphi a
> > problem jsme s tim nemeli...
>
> to je samozrejme take spravny a funkcni postup.
>
> D. Toman
>
>
>
DBGrid a zavreni datasetu
[*] Marek Dostal <konf(zv)agnis(tec)cz> - 13.3.2003 12:57:53
> to me napada... jedni .. udelat si potomka z TDataSourceru a posilat
> zpravy do DBGRidu a ty pak svym OnChangeState vyhodnocovat ..
Presne takhle to mam udelane ja a funguje to OK.=20
DBGrid a zavreni datasetu
[*] Jiri Virt <virt(zv)volny(tec)cz> - 13.3.2003 12:54:18
to me napada... jedni .. udelat si potomka z TDataSourceru a posilat
zpravy do DBGRidu a ty pak svym OnChangeState vyhodnocovat ..
Jirka
----- Original Message -----
From: "Lebeda David" <david.lebeda(zv)comarr(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Thursday, March 13, 2003 12:50 PM
Subject: Re: DBGrid a zavreni datasetu
> > > , tak se DBGrid.LinkActive vubec nevyvola. Jakym jinym zpusobem se
> > > muze
> > grid
> > > dozvedet, ze nastalo nove nacteni dotazu? Chapu, ze on to ve sve
> > > klasicke
> > podobe
> > > na nic nepotrebuje vedet, je-li Dataset po DisableControls, ale muj
> > potomek gridu by
> > > to potreboval.
> >
> > Zkusil bych vyuzit udalost AfterOpen toho grid.datasource.datasetu.
>
> Jak? Ja nepotrebuji vyresit jedno konkretni pouziti v jedne aplikaci.
Potrebuji, aby se
> potomek gridu dozvedel, ze dataset byl zavren nebo otevren. To reseni
proto musi
> byt uvnitr komponenty gridu, nikoli v datasetu.
>
> David Lebeda
>
DBGrid a zavreni datasetu
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 13.3.2003 12:50:14
> > , tak se DBGrid.LinkActive vubec nevyvola. Jakym jinym zpusobem se
> > muze
> grid
> > dozvedet, ze nastalo nove nacteni dotazu? Chapu, ze on to ve sve
> > klasicke
> podobe
> > na nic nepotrebuje vedet, je-li Dataset po DisableControls, ale muj
> potomek gridu by
> > to potreboval.
>
> Zkusil bych vyuzit udalost AfterOpen toho grid.datasource.datasetu.
Jak? Ja nepotrebuji vyresit jedno konkretni pouziti v jedne aplikaci. Potrebuji, aby se
potomek gridu dozvedel, ze dataset byl zavren nebo otevren. To reseni proto musi
byt uvnitr komponenty gridu, nikoli v datasetu.
DBGrid a zavreni datasetu
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 13.3.2003 12:45:58
> Proc ne jednoduse if dbgrid.datasource.dataset.open, ale na to bys
> musel udelat vlastni udalost. Spis bych zkusil kontrolovat
> OnDatachange u datasource, ktery je pro DBgrid napojen a s nejakou
> podminkou si to zkusit vyhodnotit, nevim presne co chces sledovat.
>
Mam vlastniho potomka dbgridu a ten v sobe obsahuje TList s jistymi udaji tykajicimi
se prave otevreneho dotazu v datasetu. Pokud dojde k refreshi datasetu, musim
tento TList vyprazdnit, a to i v pripade, ze v datech na SQL serveru nenastaly zadne
zmeny. Problem je v tom, ze grid se nedozvi, ze doslo k zavreni a novemu otevreni
datasetu, bylo-li to obaleno dvojici DisableControls a EnableControls. Nedoslo-li ke
zmene dat, v gridu se to ani nijak neprojevi (opticky apod.).
Pohledem do zdrojaku TDataset jsem nabyl dojmu, ze ani Datasource o tom
nedostane informaci. Nebylo-li by pouzito DisableControls, dataset sam rekne gridu,
ze se zavira a grid podle toho zareaguje. Bylo-li pouzito, nikdo se s gridem nebavi.
Metody pomoci Timeru apod. sledovat stav datasetu jsou nepouzitelne, uz treba
kvuli nespolehlivosti - okamzik mezi zavrenim a otevrenim datasetu muze byt kratky
a timer se do nej muze netrefit.
DBGrid a zavreni datasetu
[*] Roman <sw.maurice(zv)seznam(tec)cz> - 13.3.2003 12:41:36
> Ahoj,
>
> mam potomka DBGridu a potreboval bych v nem zjistit, ze doslo k zavreni
datasetu,
> o ktery je opren. Na to slouzi metoda LinkActive, ktera ale funguje jen
tehdy, neni-li
> dataset po DisableControls. Pokud pouziji
>
> Dataset.DisableControls;
> Dataset.Close;
> Dataset.Open;
> Dataset.EnableControls;
>
> , tak se DBGrid.LinkActive vubec nevyvola. Jakym jinym zpusobem se muze
grid
> dozvedet, ze nastalo nove nacteni dotazu? Chapu, ze on to ve sve klasicke
podobe
> na nic nepotrebuje vedet, je-li Dataset po DisableControls, ale muj
potomek gridu by
> to potreboval.
Zkusil bych vyuzit udalost AfterOpen toho grid.datasource.datasetu.
Roman
==============================
http://kouzelne.misto(tec)cz
DBGrid a zavreni datasetu
[*] Michal Kolisek <michal.kolisek(zv)asei(tec)cz> - 13.3.2003 12:31:41
Proc ne jednoduse if dbgrid.datasource.dataset.open, ale na to bys musel
udelat vlastni udalost.
Spis bych zkusil kontrolovat OnDatachange u datasource, ktery je pro DBgrid
napojen a s nejakou podminkou si to zkusit vyhodnotit, nevim presne co chces
sledovat.
M.Kolisek
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
Behalf Of Lebeda David
Sent: Thursday, March 13, 2003 12:09 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: DBGrid a zavreni datasetu
Ahoj,
mam potomka DBGridu a potreboval bych v nem zjistit, ze doslo k zavreni
datasetu,
o ktery je opren. Na to slouzi metoda LinkActive, ktera ale funguje jen
tehdy, neni-li
dataset po DisableControls. Pokud pouziji
Dataset.DisableControls;
Dataset.Close;
Dataset.Open;
Dataset.EnableControls;
, tak se DBGrid.LinkActive vubec nevyvola. Jakym jinym zpusobem se muze grid
dozvedet, ze nastalo nove nacteni dotazu? Chapu, ze on to ve sve klasicke
podobe
na nic nepotrebuje vedet, je-li Dataset po DisableControls, ale muj potomek
gridu by
to potreboval.
Diky
David Lebeda
DBGrid a zavreni datasetu
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 13.3.2003 12:08:56
Ahoj,
mam potomka DBGridu a potreboval bych v nem zjistit, ze doslo k zavreni datasetu,
o ktery je opren. Na to slouzi metoda LinkActive, ktera ale funguje jen tehdy, neni-li
dataset po DisableControls. Pokud pouziji
Dataset.DisableControls;
Dataset.Close;
Dataset.Open;
Dataset.EnableControls;
, tak se DBGrid.LinkActive vubec nevyvola. Jakym jinym zpusobem se muze grid
dozvedet, ze nastalo nove nacteni dotazu? Chapu, ze on to ve sve klasicke podobe
na nic nepotrebuje vedet, je-li Dataset po DisableControls, ale muj potomek gridu by
to potreboval.
Diky
Dalsi vyvoj FlashFiler-u ?
[*] bleak <bleak(zv)mvesely(tec)com> - 13.3.2003 11:41:31
ja jsem to tam stahl a nejde mi to nainstalovat, D6P hlasi pri instalaci .dpk : "nebyla nalezena
jedna z knihoven, potrebnych pro spusteni programu". Tak ted nevim, je to chyba FF, nebo W98?
bleak
----- Original Message -----
From: "Petr Zahradnik" <clexpert(zv)clexpert(tec)cz>
Treba na www.turbopower.com si to muzes precist. Tady si to stahni:
http://sourceforge.net/projects/tpflashfiler/DLL a PChar
[*] Pavel Gazda <pavel_gazda(zv)dataint(tec)cz> - 13.3.2003 10:37:08
> DLL:
> function FindPC(PC:PChar):byte; stdcall;
>
> DelkaPC := Length(TempPC);
1)
Zjisteni delky nemusi fungovat, (alespon mi nefungovalo)
2)
Pouzivej radeji
function FindPC(PC:PChar;MaxLen:Integer):byte; stdcall;
dalsi pripominky ohledne alokovani v DLL jsi jiz dostal.
Pavel
placeny amater
Rozdilna definice struktury DCB v Delphi a MSDN (W
[*] Jan Harman <harman(zv)volny(tec)cz> - 13.3.03 11:07:17
Ta definice z Win32 helpu ti rika jak jsou bity umistene a kolik
bitu je dany flag v DWORDu. Ta struktura neni rozdilna, jen je
jinak napsana. Vsechny parametry zacinajici na f, jsou vlastne
jenom bity jednoho DWORDu (v delphi Flags)
typedef struct _DCB {
DWORD DCBlength;
DWORD BaudRate;
DWORD fBinary: 1; Bit 0
DWORD fParity: 1; Bit 1
DWORD fOutxCtsFlow:1; Bit 2
DWORD fOutxDsrFlow:1; Bit 3
DWORD fDtrControl:2; Bit4 a 5
DWORD fDsrSensitivity:1; Bit 6
DWORD fTXContinueOnXoff:1; Bit 7
DWORD fOutX: 1; Bit 8
DWORD fInX: 1; Bit 9
DWORD fErrorChar: 1; Bit 10
DWORD fNull: 1; Bit 11
DWORD fRtsControl:2; Bit 12 a 13
DWORD fAbortOnError:1; Bit 14
DWORD fDummy2:17; Bit 15 a 16, zbytek DWORDu je nevyuzito
WORD wReserved;
WORD XonLim;
WORD XoffLim;
BYTE ByteSize;
BYTE Parity;
BYTE StopBits;
char XonChar;
char XoffChar;
char ErrorChar;
char EofChar;
char EvtChar;
WORD wReserved1;
} DCB; > Karel Klimes
>
>
> WinXP CZ b2600, D6Proff. UPD2
>
>
--
Ziskejte kvalitu, kterou si zasluhujete. Za minimalni mesicni
poplatek vam nabizime Antivir, Antispam nebo dalsi kapacitu pro
vas Mailbox. Vice na: http://sluzby.volny(tec)cz/product/mailpaid/
Rozdilna definice struktury DCB v Delphi a MSDN (W
[*] Delphin <delphin(zv)post(tec)cz> - 13.3.2003 11:03:29
oprava polozka v menu je Windows SDK, ten soubor se jmenuje win32.hlp
----- Original Message -----
From: "Delphin" <delphin(zv)post(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Thursday, March 13, 2003 10:58 AM
Subject: Re: Rozdilna definice struktury DCB v Delphi a MSDN (Win32 helpu)> v Delphi v Menu Help-polozka WIN32, rejstrik a napsat DCB
>
> ----- Original Message -----
> From: "Karel Klimes" <klimes(zv)unicontrols-tramex(tec)cz>
> To: <delphi-l(zv)clexpert(tec)cz>
> Sent: Thursday, March 13, 2003 10:58 AM
> Subject: Rozdilna definice struktury DCB v Delphi a MSDN (Win32 helpu)
>
> ahoj,
>
> pracuju se seriovym portem a potrebuju nastavit parametry DCB struktury
> (GetCommState, SetCommState).
> Konkretne potrebuju nastavit parametr fRTSControl, ale definice struktury
v
> Delphi ma jen element Flags : LongInt, jehoz bitova skladba neni nikde
> posana.
>
> Definice struktury DCB v MSDN (i ve Win32 helpu):
>
> typedef struct _DCB {
> DWORD DCBlength;
> DWORD BaudRate;
> DWORD fBinary: 1;
> DWORD fParity: 1;
> DWORD fOutxCtsFlow:1;
> DWORD fOutxDsrFlow:1;
> DWORD fDtrControl:2;
> DWORD fDsrSensitivity:1;
> DWORD fTXContinueOnXoff:1;
> DWORD fOutX: 1;
> DWORD fInX: 1;
> DWORD fErrorChar: 1;
> DWORD fNull: 1;
> DWORD fRtsControl:2;
> DWORD fAbortOnError:1;
> DWORD fDummy2:17;
> WORD wReserved;
> WORD XonLim;
> WORD XoffLim;
> BYTE ByteSize;
> BYTE Parity;
> BYTE StopBits;
> char XonChar;
> char XoffChar;
> char ErrorChar;
> char EofChar;
> char EvtChar;
> WORD wReserved1;
> } DCB;
>
>
> Definice struktury DCB v Delphi (jednotka Windows.pas):
>
> _DCB = packed record
> DCBlength: DWORD;
> BaudRate: DWORD;
> Flags: Longint;
> wReserved: Word;
> XonLim: Word;
> XoffLim: Word;
> ByteSize: Byte;
> Parity: Byte;
> StopBits: Byte;
> XonChar: CHAR;
> XoffChar: CHAR;
> ErrorChar: CHAR;
> EofChar: CHAR;
> EvtChar: CHAR;
> wReserved1: Word;
> end;
>
> Vite o tom nekdo neco blizsiho?
>
> Karel Klimes
>
>
> WinXP CZ b2600, D6Proff. UPD2
>
>
>
Rozdilna definice struktury DCB v Delphi a MSDN (W
[*] Delphin <delphin(zv)post(tec)cz> - 13.3.2003 10:58:04
v Delphi v Menu Help-polozka WIN32, rejstrik a napsat DCB
----- Original Message -----
From: "Karel Klimes" <klimes(zv)unicontrols-tramex(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Thursday, March 13, 2003 10:58 AM
Subject: Rozdilna definice struktury DCB v Delphi a MSDN (Win32 helpu)
ahoj,
pracuju se seriovym portem a potrebuju nastavit parametry DCB struktury
(GetCommState, SetCommState).
Konkretne potrebuju nastavit parametr fRTSControl, ale definice struktury v
Delphi ma jen element Flags : LongInt, jehoz bitova skladba neni nikde
posana.
Definice struktury DCB v MSDN (i ve Win32 helpu):
typedef struct _DCB {
DWORD DCBlength;
DWORD BaudRate;
DWORD fBinary: 1;
DWORD fParity: 1;
DWORD fOutxCtsFlow:1;
DWORD fOutxDsrFlow:1;
DWORD fDtrControl:2;
DWORD fDsrSensitivity:1;
DWORD fTXContinueOnXoff:1;
DWORD fOutX: 1;
DWORD fInX: 1;
DWORD fErrorChar: 1;
DWORD fNull: 1;
DWORD fRtsControl:2;
DWORD fAbortOnError:1;
DWORD fDummy2:17;
WORD wReserved;
WORD XonLim;
WORD XoffLim;
BYTE ByteSize;
BYTE Parity;
BYTE StopBits;
char XonChar;
char XoffChar;
char ErrorChar;
char EofChar;
char EvtChar;
WORD wReserved1;
} DCB;
Definice struktury DCB v Delphi (jednotka Windows.pas):
_DCB = packed record
DCBlength: DWORD;
BaudRate: DWORD;
Flags: Longint;
wReserved: Word;
XonLim: Word;
XoffLim: Word;
ByteSize: Byte;
Parity: Byte;
StopBits: Byte;
XonChar: CHAR;
XoffChar: CHAR;
ErrorChar: CHAR;
EofChar: CHAR;
EvtChar: CHAR;
wReserved1: Word;
end;
Vite o tom nekdo neco blizsiho?
Karel Klimes
WinXP CZ b2600, D6Proff. UPD2
Rozdilna definice struktury DCB v Delphi a MSDN (W
[*] Karel Klimes <klimes(zv)unicontrols-tramex(tec)cz> - 13.3.2003 10:58:00
ahoj,=0D
=0D
pracuju se seriovym portem a potrebuju nastavit parametry DCB struktury
(GetCommState, SetCommState).=0D
Konkretne potrebuju nastavit parametr fRTSControl, ale definice struktury=
v
Delphi ma jen element Flags : LongInt, jehoz bitova skladba neni nikde
posana.=0D
=0D
=0D
Definice struktury DCB v MSDN (i ve Win32 helpu):=0D
=0D
typedef struct _DCB { =0D
DWORD DCBlength; =0D
DWORD BaudRate; =0D
DWORD fBinary: 1; =0D
DWORD fParity: 1; =0D
DWORD fOutxCtsFlow:1; =0D
DWORD fOutxDsrFlow:1; =0D
DWORD fDtrControl:2; =0D
DWORD fDsrSensitivity:1; =0D
DWORD fTXContinueOnXoff:1; =0D
DWORD fOutX: 1; =0D
DWORD fInX: 1; =0D
DWORD fErrorChar: 1; =0D
DWORD fNull: 1; =0D
DWORD fRtsControl:2; =0D
DWORD fAbortOnError:1; =0D
DWORD fDummy2:17; =0D
WORD wReserved; =0D
WORD XonLim; =0D
WORD XoffLim; =0D
BYTE ByteSize; =0D
BYTE Parity; =0D
BYTE StopBits; =0D
char XonChar; =0D
char XoffChar; =0D
char ErrorChar; =0D
char EofChar; =0D
char EvtChar; =0D
WORD wReserved1; =0D
} DCB;=0D
=0D
=0D
=0D
Definice struktury DCB v Delphi (jednotka Windows.pas): =0D
=0D
_DCB =3D packed record=0D
DCBlength: DWORD;=0D
BaudRate: DWORD;=0D
Flags: Longint;=0D
wReserved: Word;=0D
XonLim: Word;=0D
XoffLim: Word;=0D
ByteSize: Byte;=0D
Parity: Byte;=0D
StopBits: Byte;=0D
XonChar: CHAR;=0D
XoffChar: CHAR;=0D
ErrorChar: CHAR;=0D
EofChar: CHAR;=0D
EvtChar: CHAR;=0D
wReserved1: Word;=0D
end;=0D
=0D
=0D
Vite o tom nekdo neco blizsiho?=0D
=0D
=0D
Karel Klimes=0D
=0D
=0D
WinXP CZ b2600, D6Proff. UPD2
DLL a PChar
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 13.3.2003 10:37:38
> Nevim, jestli je to uplne koser postup, ale my jsme to jeste resili
tak, ze
> funkce v DLL vracejici nejaky retezec jej sama naalokovala, vratila
> volajicimu a ten pak zavolal metodu te DLL-ky Dispose kde ji predal
pointer
> a ta si ho zase sama uvolnila. DLL-ka je v C++, volane je to z
Delphi a
> problem jsme s tim nemeli...
to je samozrejme take spravny a funkcni postup.
D. Toman
Dalsi vyvoj FlashFiler-u ?
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 13.3.2003 10:36:27
Puvodni zprava, kterou napsal Ji=F8=ED Baudy=B9 dne 13 Mar 2003:
> Omlouvam se za trochu OT, ale kde jste vy=E8et, =BEe je FF OpenSource, p=
op=F8.
> kde je ke sta=BEen=ED ?
Treba na www.turbopower.com si to muzes precist. Tady si to stahni:
http://sourceforge.net/projects/tpflashfiler/
S pozdravem
Petr Zahradnik, pocitacovy expert
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D
Petr Zahradnik, Computer Laboratory
Obvodova 740/14, P.O. Box 15, 400 07 Usti nad Labem
Telefony: 475 500 610, 475 501 627, 475 511 337
Mobilni telefon: 602 409 601, Fax: 475 511 338
WWW: http://www.clexpert(tec)cz, http://www.zahradnik(tec)cz
E-Mail: clexpert(zv)clexpert(tec)cz, petr(zv)zahradnik(tec)cz
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D
DLL a PChar
[*] Petr Langer <langer(zv)xdom(tec)cz> - 13.3.2003 10:32:19
Nevim, jestli je to uplne koser postup, ale my jsme to jeste resili tak, ze
funkce v DLL vracejici nejaky retezec jej sama naalokovala, vratila
volajicimu a ten pak zavolal metodu te DLL-ky Dispose kde ji predal pointer
a ta si ho zase sama uvolnila. DLL-ka je v C++, volane je to z Delphi a
problem jsme s tim nemeli...
HTH
Petr Langer
----- Original Message -----
From: "Dalibor Toman" <dtoman(zv)fortech(tec)cz>
pri praci s DLL plati - pamet uvolnuje ten kdo ji alokuje. Cili
potrebujes-li
aby DLL vratila nejakej retezec o nezname delce musis to resit tak ze:
1) funkce dostane dopredu alokovanej buffer o dostatecne delce. Funkce
v
DLL pak nic nealokuje - jen kopiruje do toho bufferu. Nesmi se
zapomenout
kontrolovat delku bufferu aby DLL neprepisovalo pamet za bufferem
2) obdoba 1) s tim, ze DLL dostane nejakej buffer, zkontroluje jeho
velikost a
pokud neni dostatecna vrati nejaky chybovy kod a zaroven vrati
pozadovanou velikost bufferu. Aplikace v tom pripade uvolni buffer a
alokuje novy vetsi
a volani opakuje.
D. Toman
Re[2]: Slozeny versus jednoduchy PK
[*] Skopalik Slavomir <skopalik(zv)hlubocky.del(tec)cz> - 13.3.2003 10:24:01
Jo je, presne je to od -2 147 483 648 do 2 147 483 647.
Slavek
> > Odes=EDlatel: Skopalik Slavomir <skopalik(zv)hlubocky.del(tec)cz>
> > Int je cca +-2e^9, takze by stacil na 4 mil zaznamu (1000 pobocek),
>=20
> Nevim, ale INTEGER je snad na 32 bitu, ne?
>=20
> Honza
> =
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
> =3D HAES - RNDr. Jan Sebelik
> =3D http://www.haes(tec)cz
> =3D Skolici a konzultacni stredisko pro Delphi a Win32
> =3D Vojtiskova 206
> =3D 507 81 Lazne Belohrad
> =3D tel. 493 792 931 (mobil 776 347735)
> =
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
Re[2]: Slozeny versus jednoduchy PK
[*] Jan Sebel�k <honza(zv)haes(tec)cz> - 13.3.2003 09:29:06
> Odes=EDlatel: Skopalik Slavomir <skopalik(zv)hlubocky.del(tec)cz>
> Int je cca +-2e^9, takze by stacil na 4 mil zaznamu (1000 pobocek),
Nevim, ale INTEGER je snad na 32 bitu, ne?
Honza
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
=3D HAES - RNDr. Jan Sebelik
=3D http://www.haes(tec)cz
=3D Skolici a konzultacni stredisko pro Delphi a Win32
=3D Vojtiskova 206
=3D 507 81 Lazne Belohrad
=3D tel. 493 792 931 (mobil 776 347735)
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
DLL a PChar
[*] Petr Brant <brant(zv)dcomm(tec)cz> - 13.3.2003 09:57:39
Mel bys nejdrive udelat poradek v alokovani/dealokovani pameti. Neni =
vhodne
v DLL dealokovat a zase alokovat pamet pro promennou PC, lepsi by bylo =
mit
konstantni delku (array [0..255] of char apod) a mit ji tak velkou, aby
nemohlo dojit k preteceni. V API je to zhusta delane take tak. Vyhnes =
se tim
alokovani/dealokovani pameti v DLL, ktere patrne tyto problemy =
zpusobuje.
Zdravim a preji uspech
RNDr. Petr Brant [brant(zv)dcomm(tec)cz]=20
http://web.redbox(tec)cz/petr.brant
D&COMM s.r.o.
Korunova=E8n=ED 6
Praha 7
tel. +420724007234
prosil bych o radu s DLL:
DLL:
function FindPC(PC:PChar):byte; stdcall;
var
DelkaPC : Cardinal;
TempPC : String;
begin
TempPC :=3D '##PC';
DelkaPC :=3D Length(TempPC);
FreeMem(PC,StrLen(PC)+1);
GetMem(PC,DelkaPC+1);
StrCopy(PC,PChar(TempPC));
end;
Exports
FindPC;
APPL:
procedure VolejDLL(Sender: TObject);
var
MaProc : function (Stanice:PChar):byte; stdcall;
MujStr : string;
Neco : PChar;
begin
(zv)MaProc :=3D GetProcAddress(Hwnd,PChar('FindPC'));
if ((zv)MaProc<>nil)
then
begin
GetMem(Neco,1);
try
if (MaProc(Neco)<>0)
then
begin
MessageDlg('Nastala chyba poi vol=E1n=ED funkce
"FindPC".',mtError,[mbOK],0);
end
else
MujStr :=3D Neco;
finally
FreeMem(Neco,StrLen(Neco)+1); <<<<<<< tady to lehne
end;
end;
ShowMessage(MujStr);
end;
A aplikaci nemuzu vydolovat z DLL ten zatracenej retezec. Dokonce to
pada
pri ulozneni pameti na"Invalid pointer operation" !
DLL a PChar
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 13.3.2003 09:54:40
> Zdravim,
> prosil bych o radu s DLL:
Nepouzivas-li sdileny borlandi pametovy maneger, jde o ukazku toho jak
by funkce v DLL napsana byt nemela.> DLL:
> function FindPC(PC:PChar):byte; stdcall;
> var
> DelkaPC : Cardinal;
> TempPC : String;
> begin
> TempPC :=3D '##PC';
>
> DelkaPC :=3D Length(TempPC);
> FreeMem(PC,StrLen(PC)+1);
uvolnovani pameti, ktera zrejme byla alokovana mimo DLL. Protoze
normalne DLL a aplikace kazdy
pouzivaji vlastni kopii spravce pameti dojde tady k problemum.
> GetMem(PC,DelkaPC+1);
> StrCopy(PC,PChar(TempPC));
> end;
> APPL:
> procedure VolejDLL(Sender: TObject);
> var
> MaProc : function (Stanice:PChar):byte; stdcall;
> MujStr : string;
> Neco : PChar;
> begin
> (zv)MaProc :=3D GetProcAddress(Hwnd,PChar('FindPC'));
> if ((zv)MaProc<>nil)
> then
> begin
> GetMem(Neco,1);
alokace pameti, kterou zkousis dealokovat v DLL - k tomu nesmi
dochazet
> try
> if (MaProc(Neco)<>0)
> then
> begin
> MessageDlg('Nastala chyba poi vol=E1n=ED funkce
> "FindPC".',mtError,[mbOK],0);
> end
> else
> MujStr :=3D Neco;
> finally
> FreeMem(Neco,StrLen(Neco)+1); <<<<<<< tady to lehne
dealokace pameti, kterou jsi alokoval v DLL. Pamet musi vzdy uvolnit
ten kdo ji alokoval
> end;
> end;
> ShowMessage(MujStr);
> end;
>
> A aplikaci nemuzu vydolovat z DLL ten zatracenej retezec. Dokonce to
pada
> pri ulozneni pameti na"Invalid pointer operation" !
> Muzete mi nekdo poradit, co je tam blbe?
pri praci s DLL plati - pamet uvolnuje ten kdo ji alokuje. Cili
potrebujes-li
aby DLL vratila nejakej retezec o nezname delce musis to resit tak ze:
1) funkce dostane dopredu alokovanej buffer o dostatecne delce. Funkce
v
DLL pak nic nealokuje - jen kopiruje do toho bufferu. Nesmi se
zapomenout
kontrolovat delku bufferu aby DLL neprepisovalo pamet za bufferem
2) obdoba 1) s tim, ze DLL dostane nejakej buffer, zkontroluje jeho
velikost a
pokud neni dostatecna vrati nejaky chybovy kod a zaroven vrati
pozadovanou velikost bufferu. Aplikace v tom pripade uvolni buffer a
alokuje novy vetsi
a volani opakuje.
D. Toman
Dalsi vyvoj FlashFiler-u ?
[*] Ji�� Baudy� - 13.3.2003 09:51:40
Omlouvam se za trochu OT, ale kde jste vy=E8et, =BEe je FF OpenSource, po=
p=F8. kde
je ke sta=BEen=ED ?
Jirka
----
Nevim, jestli je neco lepsiho, ale FF je dobrej. Stabilni i pri vetsi
zatezi v siti, moznost jednoho exe pri single aplikaci a snadna distribuc=
e
serveru. S BDE se neda srovnavat.
S pozdravem Vaclav Riha
----
Netusite nekdo jaka je budoucnost FF kdyz ted presel do OpenSource? Bude
nekdo pokracovat ve vyvoji? Je opravdu tak dokonalej jak vsichni pisete?
Zatim se trapim s BDE a rad bych par let setrval u neceho lepsiho a nerad
bych pri prvnim problemu zjistil, =BEe veskera podpora je ta-tam. Jedna s=
e mi
pouze o lokalni a velice jednoduche Client-Server aplikace.
dik Zaplik
kde najit chybeji komponenty?
[*] Ji�� Baudy� - 13.3.2003 09:13:09
nalezne=B9 na adrese http://www.netmastersllc.com/Home/
Jirka
RE:
Cetl jsem navod na program pro komunikaci po internetu s pouzitim kompone=
nty
FastNet, tu jesem vsak ve sv=E9m Delphi nenasel. Muze do b=FDt t=EDm ze m=
=E1m delphi
6 personal? pokud ano kde bych si tuto komponentu mohl opatrit?
Dalsi vyvoj FlashFiler-u ?
[*] Vaclav Riha - Soft Consult <vaclav_riha(zv)softconsult(tec)cz> - 13.3.2003 07:00:57
Nevim, jestli je neco lepsiho, ale FF je dobrej. Stabilni i pri vetsi=20
zatezi v siti, moznost jednoho exe pri single aplikaci a snadna =
distribuce=20
serveru. S BDE se neda srovnavat.
S pozdravem Vaclav Riha
Netusite nekdo jaka je budoucnost FF kdyz ted presel do OpenSource? Bude
nekdo pokracovat ve vyvoji? Je opravdu tak dokonalej jak vsichni pisete?
Zatim se trapim s BDE a rad bych par let setrval u neceho lepsiho a =
nerad
bych pri prvnim problemu zjistil, =BEe veskera podpora je ta-tam. Jedna =
se mi
pouze o lokalni a velice jednoduche Client-Server aplikace.
dik Zaplik
---
Odchoz=ED zpr=E1va neobsahuje viry.
Zkontrolov=E1no antivirov=FDm syst=E9mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.461 / Virov=E1 b=E1ze: 260 - datum vyd=E1n=ED: 10.3.2003
Znakovy tisk v Sinee
[*] Vaclav Krmela <krmela(zv)ustinadorlici(tec)cz> - 13.3.2003 08:15:45
> From: Lebeda David
>
> > > mam sestavu, kterou bych rad tisk ve znakovem rezimu. Podle
> > > navodu jsem sestavu vyrobil ve znakovem rastru, pouzil vyhradne
> > > pismo Roman17cpi a zkusil vytisknout na jehlickove tiskarne.
> >
> > Nestaci jenom udelat predlohu pro znakovy tisk.
> > Take se musi pouzit znakovy ovladac tiskarny,
> > tedy tiskarna Obecna nebo textova, Generic text only.
>
> Aha - a neexistuje nejaka moznost, jak se obejit bez
> znakoveho ovladace?
> Neco jako copy textoveho souboru na tiskarnu?
Ano, existuje.
Sinea ma vedle metody Print take metodu WriteToFile.
Parametrem teto metody je nazev souboru,
ktery muze byt take 'PRN', 'LPT1', 'LPT2', ..., 'COM1', ...
Zatim takto nelze posilat ridici kody tiskarny,
tiskarna musi byt predem nastavena na condensed.
Kodovani tiskarny se nastavuje pomoci ExportLanguage.
Vaclav Krmela
DLL a PChar
[*] Vlastimil Zden�k <delphi(zv)gestore(tec)cz> - 13.3.2003 08:12:08
Zdravim,
prosil bych o radu s DLL:
DLL:
function FindPC(PC:PChar):byte; stdcall;
var
DelkaPC : Cardinal;
TempPC : String;
begin
TempPC := '##PC';
DelkaPC := Length(TempPC);
FreeMem(PC,StrLen(PC)+1);
GetMem(PC,DelkaPC+1);
StrCopy(PC,PChar(TempPC));
end;
Exports
FindPC;
APPL:
procedure VolejDLL(Sender: TObject);
var
MaProc : function (Stanice:PChar):byte; stdcall;
MujStr : string;
Neco : PChar;
begin
(zv)MaProc := GetProcAddress(Hwnd,PChar('FindPC'));
if ((zv)MaProc<>nil)
then
begin
GetMem(Neco,1);
try
if (MaProc(Neco)<>0)
then
begin
MessageDlg('Nastala chyba poi vol�n� funkce
"FindPC".',mtError,[mbOK],0);
end
else
MujStr := Neco;
finally
FreeMem(Neco,StrLen(Neco)+1); <<<<<<< tady to lehne
end;
end;
ShowMessage(MujStr);
end;
A aplikaci nemuzu vydolovat z DLL ten zatracenej retezec. Dokonce to pada
pri ulozneni pameti na"Invalid pointer operation" !
Muzete mi nekdo poradit, co je tam blbe?
Dekuji
Vlasta
D5 Ent, WNT
Znakovy tisk v Sinee
[*] Lauko Stefan <laukosw(zv)naex.sk> - 13.3.2003 07:51:05
----- Original Message -----
From: "Lebeda David" <david.lebeda(zv)comarr(tec)cz>
> > > mam sestavu, kterou bych rad tisk ve znakovem rezimu. Podle
> > > navodu jsem sestavu vyrobil ve znakovem rastru, pouzil vyhradne
> > > pismo Roman17cpi a zkusil vytisknout na jehlickove tiskarne.
> >
> > Nestaci jenom udelat predlohu pro znakovy tisk.
> > Take se musi pouzit znakovy ovladac tiskarny,
> > tedy tiskarna Obecna nebo textova, Generic text only.
> >
> > Pokud se znakova sestava posle na grafickou tiskarnu,
> > tiskne se zase graficky.
>
> Aha - a neexistuje nejaka moznost, jak se obejit bez znakoveho ovladace?
Neco
> jako copy textoveho souboru na tiskarnu? Jenze pokud se budu snazit
opravdu o
> copy souboru na tiskarnu, tak budu muset resit, kam to tisknout - tiskarny
> lokalni/sitove, navic jsem zjistil, ze na jednom portu muze byt vice
tiskaren - jak pak
> urcim, kterou mam na mysli atd. V teto oblasti mam nulove zkusenosti.
Nechci ale
> nutit uzivatele, aby si kvuli memu programu museli instalovat obecny
ovladac
> tiskarny, kdyz tam uz funkcni tiskarnu nainstalovanu maji i s jejim
(grafickym)
> ovladacem.
>
> Jak poslat znaky na tiskarnu urcenou pomoci PrinterIndex, aniz bych musel
resit
> vyse popsane technicke zalezitosti?
>
> Zkusim znovu prohledat archiv, ale pokud byste nekdo vedel...diky
>
> David Lebeda
Hladaj na DSP RawPrint.
Lauko.
Znakovy tisk v Sinee
[*] Karel Rys <delphi(zv)zas-me(tec)cz> - 13.3.2003 07:46:33
Lebeda David dne 13 Mar 2003 v 7:35:
> Aha - a neexistuje nejaka moznost, jak se obejit bez znakoveho
> ovladace? Neco jako copy textoveho souboru na tiskarnu? Jenze pokud se
> budu snazit opravdu o copy souboru na tiskarnu, tak budu muset resit,
> kam to tisknout - tiskarny lokalni/sitove, navic jsem zjistil, ze na
> jednom portu muze byt vice tiskaren - jak pak urcim, kterou mam na
> mysli atd. V teto oblasti mam nulove zkusenosti. Nechci ale nutit
> uzivatele, aby si kvuli memu programu museli instalovat obecny ovladac
> tiskarny, kdyz tam uz funkcni tiskarnu nainstalovanu maji i s jejim
> (grafickym) ovladacem.
>
> Jak poslat znaky na tiskarnu urcenou pomoci PrinterIndex, aniz bych
> musel resit vyse popsane technicke zalezitosti?
>
> Zkusim znovu prohledat archiv, ale pokud byste nekdo vedel...diky
Ahoj,
dokonale to asi neni, ale treba Ti to pomuze...
Karel Rys
-----
unit RawPrinter;
interface
uses SysUtils, Windows, WinSpool;
type tRawPrinter=3Dclass(tObject)
protected
handle:tHandle;
printing:boolean;
public
constructor Create(const JobName,PrinterName,port:string);
procedure WriteString(const s:string);
procedure WriteBuffer(Data:pointer; Size:integer);
procedure EndJob;
procedure AbortJob;
destructor Destroy; override;
end;
eRawPrinter=3Dclass(Exception);
implementation
resourcestring
xxChybaTiskarny=3D'Chyba p=F8i komunikaci s tisk=E1rnou (%d)';
constructor tRawPrinter.Create(const JobName,PrinterName,port:string);
var DocInfo1: TDocInfo1;
begin
if not OpenPrinter(PChar(PrinterName), Handle, nil)
then raise eRawPrinter.Create(Format(xxChybaTiskarny,[GetLastError]));
with DocInfo1 do begin
pDocName:=3DPChar(JobName);
pOutputFile:=3Dnil;
pDataType:=3D'RAW';
end;
StartDocPrinter(Handle, 1, (zv)DocInfo1);
StartPagePrinter(Handle);
printing:=3Dtrue;
end;
procedure tRawPrinter.WriteString(const s:string);
var n:cardinal;
begin
if not WritePrinter(Handle, PChar(S), Length(S), n)
then raise eRawPrinter.Create(Format(xxChybaTiskarny,[GetLastError]));
end;
procedure tRawPrinter.WriteBuffer(Data:pointer; Size:integer);
var n:cardinal;
begin
if not WritePrinter(Handle, Data, Size, n)
then raise eRawPrinter.Create(Format(xxChybaTiskarny,[GetLastError]));
end;
procedure tRawPrinter.EndJob;
begin
EndPagePrinter(Handle);
EndDocPrinter(Handle);
printing:=3Dfalse;
end;
procedure tRawPrinter.AbortJob;
begin
AbortPrinter(handle);
printing:=3Dfalse;
end;
destructor tRawPrinter.Destroy;
begin
try
if printing then EndJob;
ClosePrinter(handle);
finally
inherited;
end;
end;
end.
Znakovy tisk v Sinee
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 13.3.2003 07:35:24
> > mam sestavu, kterou bych rad tisk ve znakovem rezimu. Podle
> > navodu jsem sestavu vyrobil ve znakovem rastru, pouzil vyhradne
> > pismo Roman17cpi a zkusil vytisknout na jehlickove tiskarne.
>
> Nestaci jenom udelat predlohu pro znakovy tisk.
> Take se musi pouzit znakovy ovladac tiskarny,
> tedy tiskarna Obecna nebo textova, Generic text only.
>
> Pokud se znakova sestava posle na grafickou tiskarnu,
> tiskne se zase graficky.
Aha - a neexistuje nejaka moznost, jak se obejit bez znakoveho ovladace? Neco
jako copy textoveho souboru na tiskarnu? Jenze pokud se budu snazit opravdu o
copy souboru na tiskarnu, tak budu muset resit, kam to tisknout - tiskarny
lokalni/sitove, navic jsem zjistil, ze na jednom portu muze byt vice tiskaren - jak pak
urcim, kterou mam na mysli atd. V teto oblasti mam nulove zkusenosti. Nechci ale
nutit uzivatele, aby si kvuli memu programu museli instalovat obecny ovladac
tiskarny, kdyz tam uz funkcni tiskarnu nainstalovanu maji i s jejim (grafickym)
ovladacem.
Jak poslat znaky na tiskarnu urcenou pomoci PrinterIndex, aniz bych musel resit
vyse popsane technicke zalezitosti?
Zkusim znovu prohledat archiv, ale pokud byste nekdo vedel...diky
Slozeny versus jednoduchy PK
[*] Miroslav Evjak <me.delphi(zv)seznam(tec)cz> - 13.3.2003 07:02:20
Jeste pro upresneni:
> jsme slozeny klic ID z generatoru + ID konkretniho gdb souboru a to
Co je ID gdb souboru? Tusim spravne, ze je to identifikace databaze uloze=
na
v nekde v systemovych tabulkach? Nuti se mi RDB$DATABASE -> RDB$RELATION_=
ID,
ale nejsem si jisty a hlavne hodnota 153 v pripade moji databaze je
podezrele jednoducha ;-).
Dik za dalsi informace.
Mirecek
Ing.Miroslav Evj=E1k
mailto:miroslav.evjak(zv)seznam(tec)cz
+420 607 875748
---
Odchoz=ED zpr=E1va neobsahuje viry.
Zkontrolov=E1no antivirov=FDm syst=E9mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.459 / Virov=E1 b=E1ze: 258 - datum vyd=E1n=ED: 25.02.2003
Prenos dat z jednoho serveru na jiny (MySQL)
[*] Tom=?ISO-8859-2?Q?=E1=9A_H=E1?=jek <delphi(zv)autonaprodej(tec)cz> - 12.3.2003 23:41:58
Ahoj,
=F8e=9A=EDm probl=E9m s jednosm=ECrn=FDm p=F8enosem datab=E1ze ve form=
=E1tu MySQL z jednoho serveru na druh=FD (nejsou propojeny v s=EDti).
Nutn=E1 podm=EDnka: na obou serverech jsou stejn=E9 datab=E1ze se stejn=FDm=
i tabulkami ale rozd=EDln=FDmi daty a m=FDm =FAkolem je data z jednoho serv=
eru p=F8en=E9st do druh=E9ho serveru (p=F8idat je k existuj=EDc=EDm z=E1zna=
m=F9m). Tabulky v datab=E1zi maj=ED mezi sebou vazby, tzn. indexy se musej=
=ED zachovat.
Nem=F9=9Eu pou=9E=EDt DUMP proto=9Ee t=EDm bych si p=F8epsal data z=E1znamy=
v datab=E1zi, kam m=E1m data p=F8id=E1vat.
M=F9=9Eete m=EC pros=EDm nav=E9st na spr=E1vnou cestu?
D=ECkuji
Tom=E1=9A H=E1jek
Knihovna GraphicEx prechazi do Open Source
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 12.3.2003 23:32:49
Ahoj,
knihovna GraphicEx pro praci s grafickymi formaty presla do Open Source pod
MPL licenci: http://www.delphi-gems.com/Graphics.php
Petr Vones
kde najit chybeji komponenty?
[*] Honza <honza.klu(zv)atlas(tec)cz> - 12.3.2003 19:50:22
Cetl jsem navod na program pro komunikaci po internetu s pouzitim kompone=
nty
FastNet, tu jesem vsak ve sv=E9m Delphi nenasel. Muze do b=FDt t=EDm ze m=
=E1m delphi
6 personal? pokud ano kde bych si tuto komponentu mohl opatrit?
vizualni komponenty s anchorem jdou "za roh" formu
[*] Petr Langer <langer(zv)xdom(tec)cz> - 12.3.2003 18:53:52
Recht, mohl jsem to uvest uz pred tim - system je W2K Server, program je v
D5 Ent.
Petr Langer
----- Original Message -----
From: "Jakub Dusek" <jdev(zv)seznam(tec)cz>> No ja jsem mel hrozne problemy pri pouziti Anchors na Windows XP. Jaky
> to je system?
>
> Jakub Dusek
>
V TreeView se samovolne meni ikonky
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 12.3.2003 18:25:15
From: "David Janko" <djanko(zv)wizards(tec)cz>
> Kdyz kliknu ale na polozku v TreeView, zmeni se mi v nem ikonka pro polozku
> na kterou jsem kliknul - jeste predtim nez nabehne prislusne OnMouseDown() s
viz napoveda k TTreeNode.SelectedIndex
Petr Vones
V TreeView se samovolne meni ikonky
[*] David Janko <djanko(zv)wizards(tec)cz> - 12.3.2003 18:23:00
Zdravim vsechny,
mam ImageList s ikonkami (od zakladnich cut, copy - az po sve pro jednotlive
agendy). Ten je pripojen do MainMenu, ToolBaru a TreeView, kde jsou tyto
agendy take (property Images).
Kdyz kliknu ale na polozku v TreeView, zmeni se mi v nem ikonka pro polozku
na kterou jsem kliknul - jeste predtim nez nabehne prislusne OnMouseDown() s
moji obsluhou, pokud muzu verit debuggeru ...
Jinde zustane ok, a pokud si pro dany Node v obsluze necham vypsat
ImageIndex, tak je take ok ...
Nesetkal se s tim jiz nekdo ?
Diky
---
Best Regards,
David Janko
programmer & Linux system administrator
djanko(zv)infoware(tec)cz
+420 777 233 530
vizualni komponenty s anchorem jdou "za roh" formu
[*] Jakub Dusek <jdev(zv)seznam(tec)cz> - 12.3.2003 18:21:03
No ja jsem mel hrozne problemy pri pouziti Anchors na Windows XP. Jaky
to je system?
Jakub Dusek
-------------------------------
Homepage : http://dusek.webz(tec)cz
Phone : +420604615795
Icq : 86063232
Apps : Sms GateKeeper
-------------------------------
Wednesday, March 12, 2003, 6:13:55 PM, you wrote:
PL> Ahojte,
PL> mam problem, ze na jednom pocitaci u zakaznika mam aplikaci, na ktere je
PL> ListView a nejake buttonky. ListView ma nastaveny anchor na top, left,
PL> bottom, right a buttony na top, right, pripadne na bottom, right. Pri
PL> spusteni se ale zobrazi formular v puvodne nadefinovane velikosti, ostatni
PL> komponenty jsou ale prilis roztahle, takze je to ujete "za roh". Pokud ten
PL> form roztahnu, roztahujou se i controly, takze se nikdy nedoberu toho, abych
PL> videl cely obsah.
PL> Je zvlastni, ze to dela jenom na jednom pocitaci, zkouseli jsme nainstalovat
PL> nejnovejsi DLL-ka od MS, ale nepomohlo to. Nemate nekdo nejaky tip?
PL> Diky
PL> Petr Langer
vizualni komponenty s anchorem jdou "za roh" formu
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 12.3.2003 18:17:31
From: "Petr Langer" <langer(zv)xdom(tec)cz>
> mam problem, ze na jednom pocitaci u zakaznika mam aplikaci, na ktere je
> ListView a nejake buttonky. ListView ma nastaveny anchor na top, left,
> bottom, right a buttony na top, right, pripadne na bottom, right. Pri
> spusteni se ale zobrazi formular v puvodne nadefinovane velikosti, ostatni
> komponenty jsou ale prilis roztahle, takze je to ujete "za roh". Pokud ten
Nema uzivatel nastavene "velke fonty" - 120 dpi ? Druha moznost je ze ma moc
male rozliseni a okno formulare se zmensi/posune pred zobrazenim, oproti
puvodnimu navrhu v Delphi designeru.
Petr Vones
vizualni komponenty s anchorem jdou "za roh" formu
[*] Petr Langer <langer(zv)xdom(tec)cz> - 12.3.2003 18:13:55
Ahojte,
mam problem, ze na jednom pocitaci u zakaznika mam aplikaci, na ktere je
ListView a nejake buttonky. ListView ma nastaveny anchor na top, left,
bottom, right a buttony na top, right, pripadne na bottom, right. Pri
spusteni se ale zobrazi formular v puvodne nadefinovane velikosti, ostatni
komponenty jsou ale prilis roztahle, takze je to ujete "za roh". Pokud ten
form roztahnu, roztahujou se i controly, takze se nikdy nedoberu toho, abych
videl cely obsah.
Je zvlastni, ze to dela jenom na jednom pocitaci, zkouseli jsme nainstalovat
nejnovejsi DLL-ka od MS, ale nepomohlo to. Nemate nekdo nejaky tip?
Diky
Petr Langer
Znakovy tisk v Sinee
[*] Vaclav Krmela <krmela(zv)ustinadorlici(tec)cz> - 12.3.2003 16:42:22
> From: Lebeda David
>
> mam sestavu, kterou bych rad tisk ve znakovem rezimu. Podle
> navodu jsem sestavu vyrobil ve znakovem rastru, pouzil vyhradne
> pismo Roman17cpi a zkusil vytisknout na jehlickove tiskarne.
Nestaci jenom udelat predlohu pro znakovy tisk.
Take se musi pouzit znakovy ovladac tiskarny,
tedy tiskarna Obecna nebo textova, Generic text only.
Pokud se znakova sestava posle na grafickou tiskarnu,
tiskne se zase graficky.
Vaclav Krmela
Dalsi vyvoj FlashFiler-u ?
[*] Zaplik <zaplik(zv)volny(tec)cz> - 12.3.2003 15:00:46
Netusite nekdo jaka je budoucnost FF kdyz ted presel do OpenSource? Bude
nekdo pokracovat ve vyvoji? Je opravdu tak dokonalej jak vsichni pisete?
Zatim se trapim s BDE a rad bych par let setrval u neceho lepsiho a nerad
bych pri prvnim problemu zjistil, =BEe veskera podpora je ta-tam. Jedna s=
e mi
pouze o lokalni a velice jednoduche Client-Server aplikace.
dik Zaplik
---
Odchoz=ED zpr=E1va neobsahuje viry.
Zkontrolov=E1no antivirov=FDm syst=E9mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.461 / Virov=E1 b=E1ze: 260 - datum vyd=E1n=ED: 10.3.2003
IB/FB - jak na zakazane znaky v uzivatelsky zadava
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 12.3.2003 16:01:10
> Jenom ... Params.ByName(... je u IBQuery? Tipl
> bych ze jo, ale nemam tady Delphi a doma me bude
> stvat, ze jsem se nezeptal.
Ahoj,
je to i IBDatasetu, ale u query bude urcite taky (ted nevim). Pokud
ne, tak tam bude misto toho ParamByName jako funkce. Rozhodne
mechanismus jako takovy tam urcite je.
Znakovy tisk v Sinee
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 12.3.2003 15:59:11
Ahoj,
mam sestavu, kterou bych rad tisk ve znakovem rezimu. Podle
navodu jsem sestavu vyrobil ve znakovem rastru, pouzil vyhradne
pismo Roman17cpi a zkusil vytisknout na jehlickove tiskarne.
Uprimne receno ale nejsem schopen rozeznat, jestli tisk probiha v
grafice nebo ne. Tisk stranky z Excelu se tiskne podobne rychle jako
moje sestava. Zkusil jsem proto pouzit funkci PrintToFile, tam ale
svuj text nevidim. Tak nevim. Tiskarna FX880. Poradime mi nekdo
zpusob, jak to overit? Nebo je pravda, ze tisk v pismu Roman 17cpi
uz tiskarna neumi udelat svizneji nez beznou grafiku?
Dik
Re[2]: Slozeny versus jednoduchy PK
[*] Skopalik Slavomir <skopalik(zv)hlubocky.del(tec)cz> - 12.3.2003 15:38:32
Int je cca +-2e^9, takze by stacil na 4 mil zaznamu (1000 pobocek),
jeste muzes pouzit int64 (FB1.5 by ho mel umet)
* New BIGINT datatype (SF #446206).
Allow native SQL usage of 64-bit exact numerics.
Note:
Available in dialect 3 only.
Contributor(s):
Dmitry Yemanov <yemanov(zv)yandex.ru>
Slavek
> POZOR: Pri tomto rieseni pridelovania ID musite mysliet na to aby ste
> nenavrhli ID field ako Integer, lebo si rapidne znizujete rozsah
> cisiel. Ja som pouzil Numeric(18,0) a to my dufam dokial pojdem do
> dochodku bude stacit (pozn. dnes mam 26 a oni cca.150000recs.). :-)))
Re[2]: Slozeny versus jednoduchy PK
[*] Roland Turcan <rolo(zv)sedas.sk> - 12.3.2003 14:30:00
Ja som spravil projekt, kde bola poziadavka (OFF-LINE) replikacii po
internete. Pouzil som to taktiku pridelovania ID systemom:
NEW.ID=GEN_ID(GEN_TABLE,1)*1000+NEW.POBOCKA;
T.j. ak chcem oddelit riadky konkretnej pobocky od inych pouzijem
where POBOCKA=:POBOCKA a jedinecnost kluca je zarucena.
To *1000 sa musis Ti rozhodnut ze ci ti saci 1000 pobociek,...
POZOR: Pri tomto rieseni pridelovania ID musite mysliet na to aby ste
nenavrhli ID field ako Integer, lebo si rapidne znizujete rozsah
cisiel. Ja som pouzil Numeric(18,0) a to my dufam dokial pojdem do
dochodku bude stacit (pozn. dnes mam 26 a oni cca.150000recs.). :-)))
--
Best regards, TRoland
Jak hledat soubor i v podadresarich?
[*] Bronislav Klu�ka <Bronislav.Klucka(zv)seznam(tec)cz> - 12.3.2003 15:11:33
*************** zkus tohle ***************
function TreeSearch(FileName:string;var Path:string):boolean;
var fFile:TSearchRec;
found:integer;
OldPath:string;
begin
result:=false;
if FileExists(Path+'\'+FileName) then
begin
result:=true;
exit;
end;
try
found:=FindFirst(Path+'\*.*',faAnyFile,fFile);
while found=0 do
begin
if (fFile.name<>'.') and (fFile.name<>'..') and ((fFile.attr and
faDirectory)=faDirectory) then
begin
OldPath:=Path;
Path:=Path+'\'+fFile.Name;
result:=TreeSearch(FileName,Path);
if result then exit;
Path:=OldPath;
end;
found:=FindNext(fFile);
end;
finally
FindClose(fFIle);
end;
end;
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var dir:string;
begin
dir:='C:\Install';
if TreeSearch('balloon.bmp',dir) then ShowMessage(dir)
else ShowMessage('not found');
end;**********************************
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
Behalf Of little_bobes(zv)centrum(tec)cz
Sent: Wednesday, March 12, 2003 2:14 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: Jak hledat soubor i v podadresarich?
Zdravim,
mam funkci
function Hledej_Soubor(jmeno_souboru: string; adresare: tstrings): string
var a: string;
begin
result := '';
...
for loop := 0 to adresare.count - 1 do
begin
a := adresare[loop] + '\' + jmeno_souboru;
if fileexists(a) then // tady to potrebuji zmenit, ale nevim jak
begin
result := a;
exit;
end;
end;
...
end;
kde v parametru "adresare" predavam nekolik ruznych adresaru na ruznych
discich.
Nyni ale chci, aby mi funkce kontrolovala i vsechny podslozky v
"adresarich", zda se nahodou soubor nenachazi tam.
Resil jste nekdo tento problem?
Diky Bob
(D4 c/s)
IB/FB - jak na zakazane znaky v uzivatelsky zadava
[*] <js-delphi(zv)quick(tec)cz> - 12.3.2003 14:52:18
> SelectSQL.Text := 'insert into
> pokus(sloupec) values(:par)';
> Params.ByName('par').AsString := Memo1.Text;
>
> A je to. Nebo jsem neco nepochopil?
>
> David Lebeda
Myslim, ze je to 100% to, co jsem chtel
slyset. :) Jak primitivni, ale jak ucinne! ;o)
Jenom ... Params.ByName(... je u IBQuery? Tipl
bych ze jo, ale nemam tady Delphi a doma me bude
stvat, ze jsem se nezeptal.
Diky za radu
Jirka