Archív konference Delphi
Zpět na výběr roku archívu nebo přejít na fulltextové vyhledávání v konferenci.
Rozsireni kontextove nabidky
[*] Dalibor Faltynek <dalibor.faltynek(zv)orgrez(tec)cz> - 9.6.2005 10:53:51
Ahoj,
mam takovy dotaz: Rad bych nejak doplnil popup nabidku pri kliknuti pravym
tlacitkem mysi na DBGridu. Predstavuji si to tak, ze mimo standardniho
kopiruj a vloz, vymaz by jeste pod carou bylo treba oznac, zmena barvy atd.
Jde to nejak jednoduse pridat do nabidky, nebo je lepsi udelat specialni
nabidku pro ten konkretni grid?
Dekuji za rady
Dalibor Faltynek
Orgrez, a. s.
tel: +420 541 613 312
fax: +420 541 613 299
e-mail: dalibor.faltynek(zv)orgrez(tec)cz
ftpclient synapse
[*] Lukas Gebauer <gebylist(zv)mlp(tec)cz> - 9.6.2005 10:09:48
> ahoj dlouho jsem nedelal se synapsi, a konkretne s ftpsend jsem nedelal
> nikdy, muzete me nekdo nakopnout jak poslu nejaky prikaz na ftp, konkretne
> list atd. vidim tam jen soubor prijmout a odeslat.
Existuje dokumentace, ba i samotne zdrojaky obsahuji kompletni
dokumentaci! Kdyz vidis jak soubor prijmout a odeslat, tak nechapou, ze
nevidis i vsechny ty ostatni veci, ktere jsou hned vedle?
Treba List se dela metodou List. ;-) Podivej se do zdrojaku, kazdy
standardni FTP prikaz ma svoji metodu, kterou jej muzes vyvolat. Metody
jako ChangeWorkingDir, DeleteDir,...> Jak je to s active a passive rezimem?
Boolean property nazvana PassiveMode...
Lidi, to je fakt tak tezke se pokusit nejdriv najit odpoved v
dokumentaci?
Kdyby se mne kazdy z tisicu uzivatelu Synapse ptal na takovehle veci, tak
cele dny nedelam nic jineho nez sedim u e-mailu.... ;-(
--
Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
WEB: http://www.ararat(tec)cz/synapse - Synapse Delphi and Kylix TCP/IP
Library
ftpclient synapse
[*] Ales Pavel <aldik(zv)quick(tec)cz> - 9.6.2005 09:51:46
ahoj dlouho jsem nedelal se synapsi, a konkretne s ftpsend jsem nedelal
nikdy, muzete me nekdo nakopnout jak poslu nejaky prikaz na ftp,
konkretne list atd. vidim tam jen soubor prijmout a odeslat. Jak je to s
active a passive rezimem?
diky moc
Aldik
Volani RFC SAPu z Delphi
[*] Milan Lucka <mlucka(zv)foxconn(tec)cz> - 9.6.2005 09:11:43
Zdravim,
len poznamocku:
aj prve riesenie je u mna funkcne, rozdiel a problem by som mozno videl v:
lc := TSAPLogonControl.Create(nil);
conn := lc.NewConnection as _CSAPLogonConnection;
versus
FConnection : variant;
FSAPLogon:= TSAPLogonControl.Create(self);
FConnection:= FSAPLogon.newConnection;
Milan Lucka
Chyba DB Firebird
[*] petr palicka <palicka.petr(zv)seznam(tec)cz> - 9.6.2005 08:55:42
Ahoj,
neni tam nainstalovanej nejakej antivirus? Nam se v posledni dobe
parkrat stalo, ze databaze byla "najednou" prazdna. Blbe se to chyta,
protoze lidi nam casto volaji, az kdyz odkliknou hlasku.
Peca
Volani RFC SAPu z Delphi
[*] Petr Langer <langer(zv)xdom(tec)cz> - 9.6.2005 08:49:41
Super, diky, zda se, ze druhe reseni vede k cili...
Tak jak je to v prvnim pripade jsem to mel, dokonce to i funguje, odladili
jsme vstupni a vystupni paramtetry toho RFC a dostaval jsem data.
Ja ale potrebuju tuto funkcionalitu zabalit do DLL ktera je volana z naseho
multithreadoveho servriku.
V podstate to havarovalo na tomto:
> if FConnection.LogOn(0, TRUE) then
> begin
> FfncSAP.Connection:= FConnection; // tady
> end;
Druhe reseni s CreateOLEObject ale, zda se, funguje spravne, uvidime jeste
kdyz se na to pusti vetsi zatez.
Diky, MOC mi to pomohlo.
Petr Langer
----- Original Message -----
From: "Milan Lucka" <mlucka(zv)foxconn(tec)cz>
Subject: Re: Volani RFC SAPu z Delphi
> Zdravim,
>
> nejake skusenosti mam, tu su tak utrzkovite casti chodiaceho kodu:
>
> 1. tak ako sa to snazite vy (pomocou ActiveX, samozrejme ak ich vlozite na
> Form pocas navrhu, netreba ich vytvarat pocas behu):
>
> FConnection : variant;
> FSAPLogon: TSAPLogonControl;
> FfncSAP: TSAPFunctions;
>
> FSAPLogon:= TSAPLogonControl.Create(self);
> FfncSAP:= TSAPFunctions.Create(self);
>
> prihlasenie:
>
> FConnection:= FSAPLogon.newConnection;
> FConnection.User:= ...;
> FConnection.Password:= ..;
> FConnection.ApplicationServer := ...;
> FConnection.System:= ...;
> FConnection.Client:= ...;
> FConnection.SystemNumber:= ...;
> FConnection.Language:= ...;
>
> if FConnection.LogOn(0, TRUE) then
> begin
> FfncSAP.Connection:= FConnection;
> end;
>
> pouzitie funkcie:
>
> aFunction: variant;
> aFunction:= FfncSAP.add(<meno SAP funkcie>);
>
> aFunction.exports(<meno vstupneho parametra>).value:= <hodnota vstupneho
> parametra>;
> if aFunction.call then
> ...
>
> FfncSAP.RemoveAll;
> FConnection.LogOff;
>
> a vycistenie vsetkych variantov...
>
> 2. alebo ine riesenie (pouziva len potrebne dll a nie naimportovane
> ActiveX):
>
> fncRFC: variant;
> objSAP: variant;
> ...
> objSAP:= CreateOLEObject('SAP.Functions');
> if not VarIsEmpty(objSAP) then
> begin
> objSAP.Connection.User := ...;
> objSAP.Connection.ApplicationServer := ...;
> objSAP.Connection.Client :=...;
> objSAP.Connection.Password := ...;
> objSAP.Connection.Language := ...;
> objSAP.Connection.SystemNumber := ...;
> Result:= objSAP.Connection.Logon(0, True);
> end;
> ...
> aReturn: variant;
> tblHeader: variant;
>
> fncRFC:= objSAP.Add(<meno SAP funkcie>);
> fncRFC.exports(<meno vstupneho parametra>).value:= <hodnota vstupneho
> parametra>;
> if fncRFC.Call then
> begin
> aReturn:= fncRFC.imports(<meno vystupneho parametra>);
> tblHeader:= fncRFC.Tables.Item(<meno vytupnej tabulky>);
> ...
> objSAP.RemoveAll;
> objSAP.Connection.Logoff;
>
> a vycistenie vsetkych variantov...
>
> take uvodne info napr (aj ja som z neho niekedy vychadzal).:
> http://www.jdroest.homepage.t-online.de/bapi2.htm
>
> Ale nie je to jednoducha problematika tak, ako naznacuju jednoduche
> priklady. Problemy vznikaju pri odladovani konkretnej funkcie, kde mozu
> byt rozne typy vstupnych parametrov, ktore pripad od pripadu treba rozne
> povinne naplnit a vysledok byva tiez v roznych formach, z ktorych je
> potrebne pozadovane vycucat. Prihlasenie je ten najmensi problem :-)
> Chce to obrnit sa nesmiernou trpezlivostou...
> Potrebne ActiveX a Dll instaluje SAP klient.
>
> Dufam, ze pomohlo :-)
>
> S pozdravom
>
> Milan Lucka
>
>
>> -----Original Message-----
>> From: delphi-l-owner(zv)clexpert(tec)cz
>> Subject: Volani RFC SAPu z Delphi
>>
>>
>> Ahojte,
>> neresili jste uz nekdo %subject% ?
>> Pokud ano, pouzili jste ActiveX, nebo nejakou DLL-ku?
>> Snazim se pouzit ActiveX, ale mam problem v multithreadu, kdy
>> mi nastaveni
>> connection u TSAPFunctions hlasi "The application called an
>> interface that
>> was marshalled for a different thread", pritom to resim takto:
>>
>> lc := TSAPLogonControl.Create(nil);
>> conn := lc.NewConnection as _CSAPLogonConnection;
>> ...
>> conn.Logon(0, true);
>>
>> SF := TSAPFunctions.Create(nil);
>> SF.AutoLogon := false;
>> SF.Connection := conn; // tady to vyhuci...
>>
>>
>> Diky,
>> Petr Langer
Chyba DB Firebird
[*] Dalibor <dalibor(zv)torola(tec)cz> - 9.6.2005 08:17:37
Nejzajimavejsi na tom je to, ze ta DB je prazdna. Proste se vytvori
klasickymi SQL dotazy a potom se ani nepouziva, nic se z ni necte ani se do
ni nic nezapisuje.
A po nejake dobe, kdyz se clovek k ni pripoji, tak to napise tu chybu.
> Mozna, ale rozhodne si tim nejsem jisty, ze k tomu napomaha, kdyz je
nastaveno velke mnozstvi
> cache stranek na serveru. Protoze se drive tvrdilo, ze limit je 10.000,
pouzival jsem 10.000, ale
> prave po nejake takovehle chybe jsem to snizil tusim na 7.000 a od te doby
se to nestalo.
>
> Karel Rys
Chyba DB Firebird
[*] Pavel Cisar <pcb(zv)atlas(tec)cz> - 9.6.2005 08:13:36
Haj hou!
Dalibor wrote:
> Nevite nekdo co znamena chyba "internal gds software consistency check
> (cannot find tip page (165))", a jak takove chybe predejit?
> Stalo se nam to uz na druhem PC behem tydne. Firebird 1.5.2, WinXP.
Chyba znamena, ze server nemohl najit stranku obsahujici stavy
transakci. To je docela vazny problem, a v takove situaci bych moc
neveril spravnosti dat v databazi, a to i kdyz gfix jinak nenahlasi
zadne chyby. Bez znalosti stavu transakci server nedokaze spravne
posoudit platnost jednotlivych verzi radku. Doporucuji proverit
integritu dat.
Chyby tohoto typu se normalne nevyskytuji, pouze po tvrdem padu serveru
s Forced Writes OFF, pripadne pri "zesilevsi" UDF (pripadne aplikaci nad
embedded verzi). Pokud je to db vytvorena pod 1.5.2 (ne ze zalohy!), pak
by mela mit FW zapnute, u db prevedene ze starsi verze nebo z Linuxu to
tak byt nemusi. Doporucuji proverit.
S pozdravem
Pavel Cisar
IBPhoenix
CF .NET a vyvoj pro PocketPC v. NET
[*] Marek Dostal <konf(zv)agnis(tec)cz> - 9.6.2005 08:11:36
> No mam ju ale az taka vyhra to nie je, je priliz obecne napisana a o
> CF.Net
> tam nie je ani stvrtina knihy. Ale v podstate pre zaciatok to staci:).
Vsak ja to take myslel "pro zacatek". Delal jsem v Delphi Win32 aplikace a
najednou jsem potreboval udelat aplikaci pro PDA ve VisualStudiu na CF .NET
a bez te knihy bych se v tom placal mnohem mnohem dele. Jak jsem se dostal
pres ty uplne zacatky, uz jsem zacal informace hledat i z dalsich zdroju.
Jelikoz CF.NET je podmnozina plneho frameworku, ke kteremu je dostupnych
dostatek informaci, tak jsem vetsinu odpovedi na me problemy nasel. A jak
uz se tu nekdo zminoval v napovede ve Visual Studiu je u kazde metody
informace, zda je nebo neni dostupna v CF.
Marek Dostal
D7Prof, WinXP, FireBird 1.0, 1.5 Chyba DB Firebird
[*] Karel Rys <delphi(zv)zas-me(tec)cz> - 9.6.2005 07:59:34
Dalibor dne 9 Jun 2005 v 7:15:
> Nevite nekdo co znamena chyba "internal gds software consistency check
> (cannot find tip page (165))", a jak takove chybe predejit? Stalo se
> nam to uz na druhem PC behem tydne. Firebird 1.5.2, WinXP.
Mozna, ale rozhodne si tim nejsem jisty, ze k tomu napomaha, kdyz je nastaveno velke mnozstvi
cache stranek na serveru. Protoze se drive tvrdilo, ze limit je 10.000, pouzival jsem 10.000, ale
prave po nejake takovehle chybe jsem to snizil tusim na 7.000 a od te doby se to nestalo.
Karel Rys
Chyba DB Firebird
[*] Dalibor <dalibor(zv)torola(tec)cz> - 9.6.2005 07:15:31
Nevite nekdo co znamena chyba "internal gds software consistency check
(cannot find tip page (165))", a jak takove chybe predejit?
Stalo se nam to uz na druhem PC behem tydne. Firebird 1.5.2, WinXP.
Diky
Dalibor
componenty pro vyvolani dialup
[*] Ales Pavel <aldik(zv)quick(tec)cz> - 8.6.2005 22:26:56
ale potrebuji taky vyhledat existujici dialup spojeni...to to udela taky?
nejak na to neumim prijit:-D
Aldik
Jiri Cincura napsal(a):
>Ales Pavel wrote (on Wednesday, June 08, 2005 10:05 PM):
>
>
>>ahoj potrebuji volat skryte a automaticky dialup a pripadne vyhledat
>>mozna pripojeni a pripojit se aniz by to obtezovalo uzivatele. Nevite
>>nekdo jak na to? Hlavne to musi byt jak pro W95/--XP Diky moc
>>
>>Aldik
>>
>>
>
>Vytacet se da za pomoci rasdial prikazu z cmd (dobre ve spojeni s unitou
>TDosCommand).
>
>
>
componenty pro vyvolani dialup
[*] Jiri Cincura <diskuze(zv)cincura(tec)net> - 8.6.2005 22:14:55
Ales Pavel wrote (on Wednesday, June 08, 2005 10:05 PM):
> ahoj potrebuji volat skryte a automaticky dialup a pripadne vyhledat
> mozna pripojeni a pripojit se aniz by to obtezovalo uzivatele. Nevite
> nekdo jak na to? Hlavne to musi byt jak pro W95/--XP Diky moc
>
> Aldik
Vytacet se da za pomoci rasdial prikazu z cmd (dobre ve spojeni s unitou
TDosCommand).
--
Jiri Cincura
http://ID3renamer.cincura.net/
ICQ: 314711544; Yahoo!: x2develop
http://photo.cincura.net/componenty pro vyvolani dialup
[*] Ales Pavel <aldik(zv)quick(tec)cz> - 8.6.2005 22:04:54
ahoj potrebuji volat skryte a automaticky dialup a pripadne vyhledat
mozna pripojeni a pripojit se aniz by to obtezovalo uzivatele. Nevite
nekdo jak na to? Hlavne to musi byt jak pro W95/--XP
Diky moc
Aldik
Volani RFC SAPu z Delphi
[*] Milan Lucka <mlucka(zv)foxconn(tec)cz> - 8.6.2005 20:46:48
Zdravim,
nejake skusenosti mam, tu su tak utrzkovite casti chodiaceho kodu:
1. tak ako sa to snazite vy (pomocou ActiveX, samozrejme ak ich vlozite na Form pocas navrhu, netreba ich vytvarat pocas behu):
FConnection : variant;
FSAPLogon: TSAPLogonControl;
FfncSAP: TSAPFunctions;
FSAPLogon:= TSAPLogonControl.Create(self);
FfncSAP:= TSAPFunctions.Create(self);
prihlasenie:
FConnection:= FSAPLogon.newConnection;
FConnection.User:= ...;
FConnection.Password:= ..;
FConnection.ApplicationServer := ...;
FConnection.System:= ...;
FConnection.Client:= ...;
FConnection.SystemNumber:= ...;
FConnection.Language:= ...;
if FConnection.LogOn(0, TRUE) then
begin
FfncSAP.Connection:= FConnection;
end;
pouzitie funkcie:
aFunction: variant;
aFunction:= FfncSAP.add(<meno SAP funkcie>);
aFunction.exports(<meno vstupneho parametra>).value:= <hodnota vstupneho parametra>;
if aFunction.call then
...
FfncSAP.RemoveAll;
FConnection.LogOff;
a vycistenie vsetkych variantov...
2. alebo ine riesenie (pouziva len potrebne dll a nie naimportovane ActiveX):
fncRFC: variant;
objSAP: variant;
...
objSAP:= CreateOLEObject('SAP.Functions');
if not VarIsEmpty(objSAP) then
begin
objSAP.Connection.User := ...;
objSAP.Connection.ApplicationServer := ...;
objSAP.Connection.Client :=...;
objSAP.Connection.Password := ...;
objSAP.Connection.Language := ...;
objSAP.Connection.SystemNumber := ...;
Result:= objSAP.Connection.Logon(0, True);
end;
...
aReturn: variant;
tblHeader: variant;
fncRFC:= objSAP.Add(<meno SAP funkcie>);
fncRFC.exports(<meno vstupneho parametra>).value:= <hodnota vstupneho parametra>;
if fncRFC.Call then
begin
aReturn:= fncRFC.imports(<meno vystupneho parametra>);
tblHeader:= fncRFC.Tables.Item(<meno vytupnej tabulky>);
...
objSAP.RemoveAll;
objSAP.Connection.Logoff;
a vycistenie vsetkych variantov...
take uvodne info napr (aj ja som z neho niekedy vychadzal).:
http://www.jdroest.homepage.t-online.de/bapi2.htm
Ale nie je to jednoducha problematika tak, ako naznacuju jednoduche priklady. Problemy vznikaju pri odladovani konkretnej funkcie, kde mozu byt rozne typy vstupnych parametrov, ktore pripad od pripadu treba rozne povinne naplnit a vysledok byva tiez v roznych formach, z ktorych je potrebne pozadovane vycucat. Prihlasenie je ten najmensi problem :-)
Chce to obrnit sa nesmiernou trpezlivostou...
Potrebne ActiveX a Dll instaluje SAP klient.
Dufam, ze pomohlo :-)
S pozdravom
Milan Lucka
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz
> [mailto:delphi-l-owner(zv)clexpert(tec)cz]On Behalf Of Petr Langer
> Sent: Wednesday, June 08, 2005 6:45 PM
> To: delphi-l(zv)clexpert(tec)cz
> Subject: Volani RFC SAPu z Delphi
>
>
> Ahojte,
> neresili jste uz nekdo %subject% ?
> Pokud ano, pouzili jste ActiveX, nebo nejakou DLL-ku?
> Snazim se pouzit ActiveX, ale mam problem v multithreadu, kdy
> mi nastaveni
> connection u TSAPFunctions hlasi "The application called an
> interface that
> was marshalled for a different thread", pritom to resim takto:
>
> lc := TSAPLogonControl.Create(nil);
> conn := lc.NewConnection as _CSAPLogonConnection;
> ...
> conn.Logon(0, true);
>
> SF := TSAPFunctions.Create(nil);
> SF.AutoLogon := false;
> SF.Connection := conn; // tady to vyhuci...
>
>
> Diky,
> Petr Langer
>
>
>
>
>
CF .NET a vyvoj pro PocketPC v. NET
[*] Vlko II. <vlko(zv)zilina(tec)net> - 8.6.2005 20:22:46
On Wed, 08 Jun 2005 16:06:20 +0200, Marek Dostal <konf(zv)agnis(tec)cz> wrote:
> Pokud se rozhodnes pro Visual Studio, tak je vyborna knizka Programujeme
> mobilni aplikace ve Visual Studiu .NET, autor Lubomir Lacko, vydal
> Computer
> Press.
No mam ju ale az taka vyhra to nie je, je priliz obecne napisana a o CF.Net
tam nie je ani stvrtina knihy. Ale v podstate pre zaciatok to staci:).
vlko
--
--------------
mail: vlko(zv)zilina.net
web: http://vlko.zilina.net
Volani RFC SAPu z Delphi
[*] Petr Langer <langer(zv)xdom(tec)cz> - 8.6.2005 18:44:38
Ahojte,
neresili jste uz nekdo %subject% ?
Pokud ano, pouzili jste ActiveX, nebo nejakou DLL-ku?
Snazim se pouzit ActiveX, ale mam problem v multithreadu, kdy mi nastaveni
connection u TSAPFunctions hlasi "The application called an interface that
was marshalled for a different thread", pritom to resim takto:
lc := TSAPLogonControl.Create(nil);
conn := lc.NewConnection as _CSAPLogonConnection;
...
conn.Logon(0, true);
SF := TSAPFunctions.Create(nil);
SF.AutoLogon := false;
SF.Connection := conn; // tady to vyhuci...
Diky,
Petr Langer
CF .NET a vyvoj pro PocketPC v. NET
[*] Marek Dostal <konf(zv)agnis(tec)cz> - 8.6.2005 16:06:20
Pokud se rozhodnes pro Visual Studio, tak je vyborna knizka Programujeme
mobilni aplikace ve Visual Studiu .NET, autor Lubomir Lacko, vydal Computer
Press.
Marek Dostal
D7Prof, WinXP, FireBird 1.0, 1.5 FireBird - jak vlozit #13 pomoci SQL skriptu?
[*] Ondrej Kelle <o.kelle(zv)digitalpublishing.de> - 8.6.2005 15:12:16
> v triggerech kupodivu funguje to, ze proste opravdu odradkujes a
> prikaz dopises na novem radku. Coz sice vypada podivne a je vhodne
> to okomentovat, ale je to jedno z moznych reseni.
Bral by som to radsej opatrne, pretoze na roznych operacnych systemoch moze
odsadenie riadku predstavovat rozne znaky/kombinacie znakov.
Nemam to overene.
HTH
TOndrej
FireBird - jak vlozit #13 pomoci SQL skriptu?
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 8.6.2005 14:08:05
> insert into zbozi (Kod, Nazev1, Popis)
> values (1, 'test', 'aaaaaaaaa' || chr(13) || 'bbbbbbbbbbbb')
>
Ahoj,
v triggerech kupodivu funguje to, ze proste opravdu odradkujes a
prikaz dopises na novem radku. Coz sice vypada podivne a je vhodne
to okomentovat, ale je to jedno z moznych reseni.
David Lebeda
Interbase 6 pomale prvni pripojeni
[*] Martin Nedopil <martin.nedopil(zv)hon(tec)cz> - 8.6.2005 14:08:05
Nemas nahodou starsiho klienta?
----- Original Message -----
>> mam problem s prvnim pripojenim k DB Interbase 6, ktere trva nekdy
>> velmi dlouho (radove i minuty). Dalsi pripojeni jsou uz v pohode.
>> Kdosi mi tvrdi, ze je to zpusobeno tim, ze Interbase dela nejake
>> self-consistence testy pri navazani prvniho pripojeni a to ze pry
>> zpusobuje tento problem - coz se mi osobne moc nezda.
>>
>> I. Existuji nejake "self-consistence" testy pri prvnim pripojeni ?
>> popr. jak to s nimi je (kdy, za jakych podminek) II. Pomale prvni
>> pripojeni - s cim to muze souviset
>
> Takhle se nam chovala IB na Win XP. Nainstalovali jsme FireBird 1.5,
> soubor databaze ma priponu
> .fdb misto .gdb a problemy jiz nejsou. Samotna zmena pripony u IB 6
> nepomohla.
>
> Karel Rys
>
>
>
TClientDataset.RefreshRecord z vice tabulek
[*] viktordoubek(zv)volny(tec)cz - 8.6.2005 14:38:14
Mam klasickou kombinaci SQLQuery-DSProvider-ClientDataset,
postavenou nad SQL prikazem s outer joiny z vice tabulek. Po
ApplyUpdates volam RefreshRecord, ale Provider je schopen
automaticky natahnout record pouze z jedne tabulky. Stale jsem
nenasel zpusob, jak mu vnutit muj SQL dotaz.
Z dokumentace a zdrojaku mi pripada, ze to vubec takovou moznost
nepripousti.. tak jsem chtel udelat potomka TDataSetProvider a
prepsat mu metodu InternalRowRequest, ale netusim, jak mu naplnit
ten variant.
function InternalRowRequest(const Row: OleVariant; Options:
TFetchOptions): OleVariant; override;
Nevedel by prosim nekdo, nebo nema to nekdo dokonce nejak
elegantneji vyreseno? Google mi nasel hodne stejnych dotazu v
ruznych jazycich, ale odpoved nikde :o(
Predem diky moc. VD.
D7Prof.,FB 1.5.2
CF .NET a vyvoj pro PocketPC v. NET
[*] Radek Cervinka <radek.cervinka(zv)technodat(tec)cz> - 8.6.2005 14:36:13
Tyslic Jiri wrote:
>>Zdravim vespolek,
>>
>>sam asi trochu najivni (soude podle toho, ze na predvadece
>>delphi 2005 v tom snad delal jeden clovek :-o), ale doufam ze
>>je tu par lidi co s tim jiz maji nejakou zkusenost.
>>
>>Mnel bych par dotazu:
>>1. Vyvoj v Delphi. Nevi nekdo, kdy to bude v Delphi ?
>>Respektive ma to vubec smysl uvozovat o necem jinem nez ze to
>>budu delat ve Visual Studiu ?
http://blogs.borland.com/davidi/
uz je kompilator a brzy bude pro majitele D2005 ke stazeni preview
R.FireBird - jak vlozit #13 pomoci SQL skriptu?
[*] Karel Pecinka <k.pecinka(zv)seznam(tec)cz> - 8.6.2005 14:02:04
Zdar,
proc to neudelas natvrdo takhle:
insert into zbozi (Kod, Nazev1, Popis)
values (1, 'test', 'aaaaaaaaa
druhy radek
bbbbbbbbbbbb')
pouzivam a je to plne funkcni.
Karel
> > lze ve skriptu pro FireBird 1.5.2 nejak vlozit znak #13? Neco jako
> >
> > insert into zbozi (Kod, Nazev1, Popis)
> > values (1, 'test', 'aaaaaaaaa' || chr(13) || 'bbbbbbbbbbbb')
>
> Mozes pouzit nejaku UDF (User Defined Function).
> Kniznica IB_UDF, ktora je sucastou instalacie
> Interbase/Firebird, obsahuje funkciu ASCII_CHAR. V Interbase
> 6 bola ale zle deklarovana, vo Firebirde je to uz opravene.
> Spravna deklaracia je:
>
> DECLARE EXTERNAL FUNCTION ascii_char
> INTEGER
> RETURNS CSTRING(1) FREE_IT
> ENTRY_POINT 'IB_UDF_ascii_char' MODULE_NAME 'ib_udf';
> CF .NET a vyvoj pro PocketPC v. NET
[*] Vlko II. <vlko(zv)zilina(tec)net> - 8.6.2005 14:10:06
On Wed, 08 Jun 2005 13:38:02 +0200, Vaclav Halik <spravasd(zv)suz.cvut(tec)cz>
wrote:
> Mnel bych par dotazu:
> 1. Vyvoj v Delphi. Nevi nekdo, kdy to bude v Delphi ?
> Respektive ma to vubec smysl uvozovat o necem jinem nez
> ze to budu delat ve Visual Studiu ?
Nevidel som delphi 2005, a nejak uz ani nepotrebujem, ale visual
studio by bola na cf.net asi najlepsia volba.
> 2. Jake Visual Studio potrebuju ? Jde mi o to jakou edici bych
> k vyvoji v CF .NETu potreboval. To ze musim nainstalovat SDK,
> je mi celkem jasne.
Vyvyjat pre cf.net je mozne vo visual studiu od verzie profesional
(vratane:)
staci iba nainstalovat, nic viac nie je potrebne, pri zalozeni projektu
sa vie pripojit na zariadenie a navrh je ako normalna winform aplikacia
aj s designerom.
> 3. Jake je omezeni u CF ? Predpokladam ze je jina cast pro
> rozhrani. Tedy nejaka zjednodusena Windows.Forms.
> Ale jsou ostatni casti stejne, nebo je vetsina veci oskubana.
Ja by som povedal ze asi len zjednodusena windows.forms, keby bolo na mne
tak by som odporucil si pockat na cf.net 2, teda visual studio 2005.
cf.net 1 na mna stale posoby nedokoncenym dojmom, ale pouzivat sa da, len
si treba zvyknut na urcite obmedzenia
- nemoznost tvorit vlastne controly, tie len cez invoke
- zahadna chyba velkosti konstruktora max 64KB, a pretoze to je
po kompilacii tak je potrebne robit co najmensie formulare, niekedy staci
pridat jeden label a aplikaci padne na null exception, ktory nie je mozne
nijak zachytit
> 4. Jak moc je pouzitelny MS SQL CE Server ? Ma to alespon
> to co ma treba MySQL ?
podla mna je omnoho lepsi ako mysql, nema sice transakcie, cize je mozne sa
na databazu pripojit iba jednou aplikaciou, ale inac ma skoro vsetko ako
ms sql server. Opat jednu zaujimavu chybu: ak sa robi inner select napr
select * from table1 where id in (select id from table2) a neda sa where
podmienka mssql ce server padne.
> 5.Kde zacit hledat zdroje ? Docela dost je toho i na MSDN,
> ale neni jeste neco jineho ?
Najdolezitejsie je si stiahnut Smart Device Framework z
http://www.opennetcf.org,
kde je kopec uzitocnych komponent, precitat si
http://wiki.opennetcf.org/ow.asp?CompactFrameworkFAQ
dalsie odkazy su priamo na http://www.opennetcf.org
> 6.Petr Zahradnik provozuje alespon podle webu take konferu o
> .NETu. Zije to tam ? Je nekde archiv ?
konferencia bezi, ale moc ludi tam neprispieva:(
> 7. Prochazel jsem konferu na ENWACu. Ale tam toho moc o CF
> neni. Neznate neco lepsiho pro CF . NET.
Mozno nejake anglicke konferencie u nas nic take neexistuje:(
ale napr na emwacu staci spytat a vatsinou vzdy niekto poradi:)
vlko
--
--------------
mail: vlko(zv)zilina.net
web: http://vlko.zilina.net
CF .NET a vyvoj pro PocketPC v. NET
[*] Tyslic Jiri <jiri.tyslic(zv)opp.tbggroup(tec)com> - 8.6.2005 14:06:04
> Zdravim vespolek,
>
> sam asi trochu najivni (soude podle toho, ze na predvadece
> delphi 2005 v tom snad delal jeden clovek :-o), ale doufam ze
> je tu par lidi co s tim jiz maji nejakou zkusenost.
>
> Mnel bych par dotazu:
> 1. Vyvoj v Delphi. Nevi nekdo, kdy to bude v Delphi ?
> Respektive ma to vubec smysl uvozovat o necem jinem nez ze to
> budu delat ve Visual Studiu ?
>
> 2. Jake Visual Studio potrebuju ? Jde mi o to jakou edici
> bych k vyvoji v CF .NETu potreboval. To ze musim nainstalovat
> SDK, je mi celkem jasne.
>
> 3. Jake je omezeni u CF ? Predpokladam ze je jina cast pro
> rozhrani. Tedy nejaka zjednodusena Windows.Forms. Ale jsou
> ostatni casti stejne, nebo je vetsina veci oskubana.
>
> 4. Jak moc je pouzitelny MS SQL CE Server ? Ma to alespon
> to co ma treba MySQL ?
>
> 5.Kde zacit hledat zdroje ? Docela dost je toho i na MSDN,
> ale neni jeste neco jineho ?
>
> 6.Petr Zahradnik provozuje alespon podle webu take konferu o
> .NETu. Zije to tam ? Je nekde archiv ?
>
> 7. Prochazel jsem konferu na ENWACu. Ale tam toho moc o CF
> neni. Neznate neco lepsiho pro CF . NET.
>
> Budu vdecen za kazde nakopnuti.
>
> S pozdravem Vaclav Halik
Nejake odkazy jsem nasel na http://www.windowsfordevices.com/ ,ale asi nejlepsi je pri konkretnim problemu zkusit google.
Jinak jsem si zplacal programek pro zkouseni slovicek do telefonu (Smartphone) a pouzil jsem k tomu VisualStudio 2005 Beta2. Na vyzkouseni je to dobre. V dodavanem MSDN je I popis jak zacit psat aplikace pro CF Framework. Vyhodou .NET je, ze pokud Ti nejdou nejake konstrukce, tak si je odladis na klasicke WinForm aplikaci a potom pouzijes v CF. Samozdrejme, ze CF je oklestene, ale v helpu k objektum vzdy vidis, jestli to muzes pouzit nebo ne. (coz ale neni take tak uplne pravda...) Soucasti VS2005 je take emulator pro PocketPC a Smartphone.
Preji hodne trpelivosti :-)
Jirka
e-mail s prilohou dojde "bez prilohy"
[*] Vlko II. <vlko(zv)zilina(tec)net> - 8.6.2005 13:52:03
On Wed, 08 Jun 2005 13:26:01 +0200, Zdenek Brejsa <prog(zv)hjsoft(tec)cz> wrote:> obsahuji, ale hlavicka prilohy je:
> Content-Type: application/ms-tnef; <-- misto application/pdf
> name="winmail.dat" <-- misto name="priloha.pdf"
>
> vo co GO?
No pokial ja viem, tak JclSimpleSendMail pouziva na posielanie suborov
MAPI, ktore zastresuje nejaky ten mail klient. Takze chyba bude jedine
v tom mail klientovi (podozrieval by som Outlook:).
Mal som raz takyto mail, vytah z hlavicky:
X-Mailer: Microsoft Office Outlook, Build 11.0.5510
X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2900.2180
a najlepsie na tom je, ze winmail.dat su normalne mime data:) ktore
si vie spojit iba outlook aj to iba od urcitej verzie.
vlko
--
--------------
mail: vlko(zv)zilina.net
web: http://vlko.zilina.net
OT: CF .NET a vyvoj pro PocketPC v. NET
[*] Vaclav Halik <spravasd(zv)suz.cvut(tec)cz> - 8.6.2005 13:38:02
Zdravim vespolek,
sam asi trochu najivni (soude podle toho, ze na predvadece
delphi 2005 v tom snad delal jeden clovek :-o), ale doufam ze
je tu par lidi co s tim jiz maji nejakou zkusenost.
Mnel bych par dotazu:
1. Vyvoj v Delphi. Nevi nekdo, kdy to bude v Delphi ?
Respektive ma to vubec smysl uvozovat o necem jinem nez
ze to budu delat ve Visual Studiu ?
2. Jake Visual Studio potrebuju ? Jde mi o to jakou edici bych
k vyvoji v CF .NETu potreboval. To ze musim nainstalovat SDK,
je mi celkem jasne.
3. Jake je omezeni u CF ? Predpokladam ze je jina cast pro
rozhrani. Tedy nejaka zjednodusena Windows.Forms.
Ale jsou ostatni casti stejne, nebo je vetsina veci oskubana.
4. Jak moc je pouzitelny MS SQL CE Server ? Ma to alespon
to co ma treba MySQL ?
5.Kde zacit hledat zdroje ? Docela dost je toho i na MSDN,
ale neni jeste neco jineho ?
6.Petr Zahradnik provozuje alespon podle webu take konferu o
.NETu. Zije to tam ? Je nekde archiv ?
7. Prochazel jsem konferu na ENWACu. Ale tam toho moc o CF
neni. Neznate neco lepsiho pro CF . NET.
Budu vdecen za kazde nakopnuti.
S pozdravem Vaclav Halik
TSMTPCli by Francois PIETTE not connect
[*] Venca Zaruba <zaruba(zv)elastoform(tec)cz> - 8.6.2005 13:32:01
Ahoj
Chtel jsem pouzit svou milovanou komponentu TSMTPcli (ICS - Internet Component Suite od FPIETTE) a nejednou jsem zjistil, ze se nechce pripojit. Bohuzel mam ji v mnoha app. na odeslani emailu. Ted jen cekam, kde prestene take chodit. Nevim, snad to zpusobylo to, ze provider zacal vyzadovat overovani [ignum] (testoval jsem i na jiny srv [volny], ale se stejnym uspechem). Nevim, mozna nejaka XP zaplata zalepila fci... Take presne netusim, co nastavit do Authentication a jestli to na to nebude mit vliv. Vyzkousel jsem komponentu TSmtp2000 se stejnym vysledkem.
"ESocketException: Error 10053 in function Connect"
PLS: Nevite nekdo o nejake komponentce SMTP, ktera chodi (XPpro - D7pro), abych mohl rychle prekompilovat app.
PS: Pop3 jde jako fik.
Prijemny zbytek dne
Vasek Zaruba
8^)
e-mail s prilohou dojde "bez prilohy"
[*] Zdenek Brejsa <prog(zv)hjsoft(tec)cz> - 8.6.2005 13:26:01
Hi all,
ze sveho programu posilam e-mail pres MAPI (konkretne Jedi funkci
JclSimpleSendMail) a to s prilohou. Zpravy odeslane z nekterych PC, ale
dojdou jakoby bez prilohy. Prozkoumani surovych dat jsem zjistil, ze prilohu
obsahuji, ale hlavicka prilohy je:
Content-Type: application/ms-tnef; <-- misto application/pdf
name="winmail.dat" <-- misto name="priloha.pdf"
vo co GO?
prosim, poradte ...
Zdenek Brejsa - programator HJ-SOFT
465325097, 465321096, 465322889, 603833124, 724185948
primy: 469813131
ICQ: 47636291
Skype: brejsaz
FireBird - jak vlozit #13 pomoci SQL skriptu?
[*] Tomas Krejzek <tomas.krejzek(zv)kpsys(tec)cz> - 8.6.2005 13:02:05
Pouzij UDF-ko ASCII_CHAR ze standardni knihovny ib_udf.dll
DECLARE EXTERNAL FUNCTION ASCII_CHAR
INTEGER
RETURNS CSTRING(1) FREE_IT
ENTRY_POINT 'IB_UDF_ascii_char' MODULE_NAME 'ib_udf'
Tom
Karel Rys napsal(a):
> Pekne odpoledne,
>
> lze ve skriptu pro FireBird 1.5.2 nejak vlozit znak #13? Neco jako
>
> insert into zbozi (Kod, Nazev1, Popis)
> values (1, 'test', 'aaaaaaaaa' || chr(13) || 'bbbbbbbbbbbb')
>
> Az na to, ze tohle mi nefunguje... A potrebuju to opravdu ve skriptu....
>
> Diky,
>
> Karel Rys
>
>
>
>
>
>
>
>
FireBird - jak vlozit #13 pomoci SQL skriptu?
[*] Vlko II. <vlko(zv)zilina(tec)net> - 8.6.2005 12:56:04
On Wed, 08 Jun 2005 12:22:01 +0200, Karel Rys <delphi(zv)zas-me(tec)cz> wrote:
> Pekne odpoledne,
>
> lze ve skriptu pro FireBird 1.5.2 nejak vlozit znak #13? Neco jako
>
> insert into zbozi (Kod, Nazev1, Popis)
> values (1, 'test', 'aaaaaaaaa' || chr(13) || 'bbbbbbbbbbbb')
>
> Az na to, ze tohle mi nefunguje... A potrebuju to opravdu ve skriptu....
No ak je FireBird naprogramovany v cecku mozno pomoze \n
values (1, 'test', 'aaaaaaaaa\nbbbbbbbbbbbb')
vlko
--
--------------
mail: vlko(zv)zilina.net
web: http://vlko.zilina.net
FireBird - jak vlozit #13 pomoci SQL skriptu?
[*] Ondrej Kelle <o.kelle(zv)digitalpublishing.de> - 8.6.2005 12:46:03
> lze ve skriptu pro FireBird 1.5.2 nejak vlozit znak #13? Neco jako
>
> insert into zbozi (Kod, Nazev1, Popis)
> values (1, 'test', 'aaaaaaaaa' || chr(13) || 'bbbbbbbbbbbb')
Mozes pouzit nejaku UDF (User Defined Function).
Kniznica IB_UDF, ktora je sucastou instalacie Interbase/Firebird, obsahuje
funkciu ASCII_CHAR.
V Interbase 6 bola ale zle deklarovana, vo Firebirde je to uz opravene.
Spravna deklaracia je:
DECLARE EXTERNAL FUNCTION ascii_char
INTEGER
RETURNS CSTRING(1) FREE_IT
ENTRY_POINT 'IB_UDF_ascii_char' MODULE_NAME 'ib_udf';
Pripadne si mozes najst nejaku inu UDF. Napriklad Free UDF Library obsahuje
funkciu F_CHARACTER.
http://www.cvalde.net/misc/packages_and_utilities.htm
HTH
TOndrej
Interbase 6 pomale prvni pripojeni
[*] Slavomir Skopalik <skopalik(zv)elektlabs(tec)cz> - 8.6.2005 12:44:03
Jeste je otazka, kolik SOUCASNYCH TCP klientu se pokousi navazat
spojeni.
IB6 ma "vlastnost", ze kazdy dalsi prichozi ceka 1 sec. Pokud jsou dva
soucasne, tak se ceka 2 sec a tak dale.
Pokud y jich bylo 60 tak se bude cekat minutu.
Slavek
> Problemy s GDB soubory na windows XP (System restore feature)
> jsem slysel, nicmene to problem nevyresilo. :( Na FireBird
> jednoduse prejit nelze.
>
> Kazdopadne diky. Interbase 6 pomale prvni pripojeni
[*] Radek Cervinka <radek.cervinka(zv)technodat(tec)cz> - 8.6.2005 12:34:02
Jirus Zdenek wrote:
> Problemy s GDB soubory na windows XP (System restore feature) jsem slysel, nicmene to problem nevyresilo. :(
> Na FireBird jednoduse prejit nelze.
tak pouzij
http://www.sysinternals.com/Utilities/Filemon.html
a
http://www.sysinternals.com/Utilities/TdiMon.html
aby jsi vedel co se deje (www.sysinternals.com).
R.
FireBird - jak vlozit #13 pomoci SQL skriptu?
[*] Karel Rys <delphi(zv)zas-me(tec)cz> - 8.6.2005 12:22:01
Pekne odpoledne,
lze ve skriptu pro FireBird 1.5.2 nejak vlozit znak #13? Neco jako
insert into zbozi (Kod, Nazev1, Popis)
values (1, 'test', 'aaaaaaaaa' || chr(13) || 'bbbbbbbbbbbb')
Az na to, ze tohle mi nefunguje... A potrebuju to opravdu ve skriptu....
Diky,
Karel Rys
IP kamera
[*] Daniel Jirasek - InterSHOP <inter-shop(zv)inter-shop(tec)cz> - 8.6.2005 11:01:53
Zdarvim,
nemate nekdo zkusenosti s pripojenim IP kamery do vlastni aplikace? Nemam s
tim zatim zadne zkusenosti,
potrebuji vedet, zda pro ladeni je jedno jaka to je IP kamera, nebo ma na to
nejaky vliv typ, pripadne
verze FW v kamere...
Diky za radu
Daniel Jirasek - InterSHOP
InterSHOP
Mirove namesti 9
56201 Usti nad Orlici
tel./fax: +420 465527194
info mobil: +420 608028839
e-mail: inter-shop(zv)inter-shop(tec)cz
ICQ: 136733756
Prehravac na DIVX, XVID videa
[*] mstevlik(zv)gamo.sk - 8.6.2005 11:33:56
Hi all,
Potrebujem nejaku komponentu resp kniznice na prehratie DivX or XVid videa
v Delphi 5
Problem je, ze potrebujem vnom mat nejaku eventu, kt. sa mi vyvola po
kazdom frame resp kazdej sekunde
Potrebujem v priebehu sledovania videa, zobrazovat nejaku cinnost (pohyb
auticka po trase)
Stevlik Marian
ISYS programator
GAMO a.s.
Kyjevske nam. 6
974 04 Banska Bystrica
mail: mstevlik(zv)gamo.sk
tel: +421 48 4137935, 4372111
ip-tel: 421 48 4372098
mobil: +421 905 462010
icq: 38493645
Interbase 6 pomale prvni pripojeni
[*] Ondrej Kelle <o.kelle(zv)digitalpublishing.de> - 8.6.2005 11:01:53
> mam problem s prvnim pripojenim k DB Interbase 6, ktere trva
> nekdy velmi dlouho (radove i minuty). Dalsi pripojeni jsou uz
> v pohode.
Mne tusim raz pomohlo vypnut hyperthreading.
HTH
TOndrej
Synchro mdb Access prez GPRS
[*] Ludek <konference(zv)sales(tec)cz> - 8.6.2005 11:27:55
----- Original Message -----
From: "Venca Zaruba" <zaruba(zv)elastoform(tec)cz>
Ahoj
> 1. Jaky zvolit prenos, aby pri zapisu na stanici cca 5 vet/den a na
zakaldne 10vet / mesic bylo co mozna nejmin prenesenych dat (e-mail,
ftp,(prime pripojeni na SQL server si myslim, ze je delo na mravence))?
Pokud neni problem s tim aby na serveru (nebo na siti v niz je server)
bezelo www rozhrani, tak bych zvolil upload pres https jinak mailem. Prime
propojeni do DB je pri tehle objemech opravdu nesmysl, ma to nizsi
bezpecnost a vetsi rezii. GPRS se plati za objem dat (v obou predchozich
pripadech muzes pohodlne komprimovat a i sifrovat).> 2. Jak zajistit zachovani ID vazeb mezi tabulkami? (Co jine nez access?)
GUID nebo autoincrement zkombinovany s cislem stanice.
Pokud bys zvolil jna serveru https rozhrani a php, pak treba databazi MySQL
nebo v pripade ASP MSDE.
Ani ten acces neni pro takovehle kousky k zahozeni, ale nesmi se ti to
rozrust.
Ludek
Interbase 6 pomale prvni pripojeni
[*] Jirus Zdenek <zdenek.jirus(zv)logos(tec)cz> - 8.6.2005 10:53:52
Problemy s GDB soubory na windows XP (System restore feature) jsem slysel, nicmene to problem nevyresilo. :(
Na FireBird jednoduse prejit nelze.
Kazdopadne diky.
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz] On Behalf Of Libor Junek, Medisoft International
Sent: Wednesday, June 08, 2005 10:28 AM
To: delphi-l(zv)clexpert(tec)cz
Subject: Re: Interbase 6 pomale prvni pripojeni
Nebezi ta IB6 na WinXP? Pokud ano, tak doporucuji (pokud to lze) prejit na Firebird 1.5 a prejmenovat soubor na *.fdb.
Libor
----- Original Message -----
From: "Jirus Zdenek" <zdenek.jirus(zv)logos(tec)cz>
Sent: Wednesday, June 08, 2005 10:05 AM
> mam problem s prvnim pripojenim k DB Interbase 6, ktere trva nekdy velmi
> dlouho (radove i minuty). Dalsi pripojeni jsou uz v pohode.
Interbase 6 pomale prvni pripojeni
[*] Jirka <jw-delphi(zv)seznam(tec)cz> - 8.6.2005 10:49:52
Ahoj,
a neni to tim ze WinXP zalohuje gdb soubor?
Zkus vypnout tu funkci obnoveni.
Jirka
Jirus Zdenek napsal(a):
> Zdravim,
>
> mam problem s prvnim pripojenim k DB Interbase 6, ktere trva nekdy velmi dlouho (radove i minuty). Dalsi pripojeni jsou uz v pohode.
> Kdosi mi tvrdi, ze je to zpusobeno tim, ze Interbase dela nejake self-consistence testy pri navazani prvniho pripojeni a to ze pry zpusobuje tento problem - coz se mi osobne moc nezda.
>
> I. Existuji nejake "self-consistence" testy pri prvnim pripojeni ? popr. jak to s nimi je (kdy, za jakych podminek)
> II. Pomale prvni pripojeni - s cim to muze souviset
>
> Diky za radu.
>
>
> Zdenek Jirus
> Development manager
> Microsoft Certified Solution Developer .NET
> mailto:zdenek.jirus(zv)logos(tec)cz
>
> ----------------------------------------------------------
> Logos a.s.
> Podebradska 55/88, 198 00 Praha 9
> Czech Republic
> tel.: +420 225 281 811
> fax: +420 225 281 899
> http://www.logos(tec)cz
> mailto:info(zv)logos(tec)cz
>
> ----------------------------------------------------------
> Logos je partnerem Nadace Narodni galerie
> http://www.nng(tec)cz
>
>
>
>
> Interbase 6 pomale prvni pripojeni
[*] Karel Rys <delphi(zv)zas-me(tec)cz> - 8.6.2005 10:43:51
Jirus Zdenek dne 8 Jun 2005 v 10:05:
> Zdravim,
>
> mam problem s prvnim pripojenim k DB Interbase 6, ktere trva nekdy
> velmi dlouho (radove i minuty). Dalsi pripojeni jsou uz v pohode.
> Kdosi mi tvrdi, ze je to zpusobeno tim, ze Interbase dela nejake
> self-consistence testy pri navazani prvniho pripojeni a to ze pry
> zpusobuje tento problem - coz se mi osobne moc nezda.
>
> I. Existuji nejake "self-consistence" testy pri prvnim pripojeni ?
> popr. jak to s nimi je (kdy, za jakych podminek) II. Pomale prvni
> pripojeni - s cim to muze souviset
Takhle se nam chovala IB na Win XP. Nainstalovali jsme FireBird 1.5, soubor databaze ma priponu
.fdb misto .gdb a problemy jiz nejsou. Samotna zmena pripony u IB 6 nepomohla.
Karel Rys
Interbase 6 pomale prvni pripojeni
[*] Marek Dostal <konf(zv)agnis(tec)cz> - 8.6.2005 10:37:50
> mam problem s prvnim pripojenim k DB Interbase 6, ktere trva nekdy velmi
> dlouho (radove i minuty).
> Dalsi pripojeni jsou uz v pohode.
Obdobny problem jsme meli s FB 1.0 na Windows serveru 2003, pomohl prechod
na FB1.5.
Marek Dostal
D7Prof, WinXP, FireBird 1.0, 1.5 Interbase 6 pomale prvni pripojeni
[*] Slavomir Skopalik <skopalik(zv)elektlabs(tec)cz> - 8.6.2005 10:31:50
1. pouzij tcpipview a zkontroluj, jak probiha navazani spojeni
(predpokladam, ze pouzivas TCP).
2. Pouzij FB, nebo aktualni verzi IB (zase jen predpoklad, ale
asi pouzivas IB6 open edition ktere je prolezla chybama).
3. Popis toho co dela CPU a sit by se taky hodil.
Slavek
> mam problem s prvnim pripojenim k DB Interbase 6, ktere trva
> nekdy velmi dlouho (radove i minuty). Dalsi pripojeni jsou uz
> v pohode.
> Kdosi mi tvrdi, ze je to zpusobeno tim, ze Interbase dela
> nejake self-consistence testy pri navazani prvniho pripojeni
> a to ze pry zpusobuje tento problem - coz se mi osobne moc nezda. Interbase 6 pomale prvni pripojeni
[*] Libor Junek, Medisoft International <libor.junek(zv)medisoft(tec)cz> - 8.6.2005 10:27:49
Nebezi ta IB6 na WinXP? Pokud ano, tak doporucuji (pokud to lze) prejit na
Firebird 1.5 a prejmenovat soubor na *.fdb.
Libor
----- Original Message -----
From: "Jirus Zdenek" <zdenek.jirus(zv)logos(tec)cz>
Sent: Wednesday, June 08, 2005 10:05 AM
> mam problem s prvnim pripojenim k DB Interbase 6, ktere trva nekdy velmi
> dlouho (radove i minuty). Dalsi pripojeni jsou uz v pohode. Interbase 6 pomale prvni pripojeni
[*] Jirus Zdenek <zdenek.jirus(zv)logos(tec)cz> - 8.6.2005 10:05:47
Zdravim,
mam problem s prvnim pripojenim k DB Interbase 6, ktere trva nekdy velmi dlouho (radove i minuty). Dalsi pripojeni jsou uz v pohode.
Kdosi mi tvrdi, ze je to zpusobeno tim, ze Interbase dela nejake self-consistence testy pri navazani prvniho pripojeni a to ze pry zpusobuje tento problem - coz se mi osobne moc nezda.
I. Existuji nejake "self-consistence" testy pri prvnim pripojeni ? popr. jak to s nimi je (kdy, za jakych podminek)
II. Pomale prvni pripojeni - s cim to muze souviset
Diky za radu.
Zdenek Jirus
Development manager
Microsoft Certified Solution Developer .NET
mailto:zdenek.jirus(zv)logos(tec)cz
----------------------------------------------------------
Logos a.s.
Podebradska 55/88, 198 00 Praha 9
Czech Republic
tel.: +420 225 281 811
fax: +420 225 281 899
http://www.logos(tec)cz
mailto:info(zv)logos(tec)cz
----------------------------------------------------------
Logos je partnerem Nadace Narodni galerie
http://www.nng(tec)cz
Generovani formulare filtru z datasetu
[*] Martin Burle <mburle2(zv)volny(tec)cz> - 8.6.2005 08:25:38
Ahoj, neco takoveho je napr v baliku SM od Mika Skholnika, tusim ze
www.scalabium.com, je to vcetne cestiny. Nicmene mam dojem, ze pro vetsinu
uzivatelu je filtrovani timto zpusobem slozite, a nepohodlne, proto ja
osobne preferuji "predpripravene filtry", kde uzivateli staci zaklikat
kriteria ci doplnit napr. text obsazeny v poli apod.
MB
----- Original Message -----
From: <delphak(zv)centrum(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Wednesday, June 08, 2005 8:09 AM
Subject: Generovani formulare filtru z datasetu
> Dobry den,
> neznate nekdo pripadne nevytvarel jste formular ci komponentu (free),
ktera na zaklade zadaneho datasetu dynamicky vygeneruje formular filtru (tj.
uzivatel vybere field, zada relaci (rovno, ruzne, vetsi, mensi, podobne
...), zada hodnotu a urci, zda se to k ostatnim podminkam pripoji OR nebo
AND). A na zaklade takto zadanych podminek bude vygenerovana WHERE kaluzule
pro SQL?
> Neni to prilis slozite udelat, ale myslim si ze uz to nekdo musel delat
tak proc se s tim zdrazovat ...
>
> Dekuji za radu
>
>
>Generovani formulare filtru z datasetu
[*] delphak(zv)centrum(tec)cz - 8.6.2005 08:09:37
Dobry den,
neznate nekdo pripadne nevytvarel jste formular ci komponentu (free), ktera na zaklade zadaneho datasetu dynamicky vygeneruje formular filtru (tj. uzivatel vybere field, zada relaci (rovno, ruzne, vetsi, mensi, podobne ...), zada hodnotu a urci, zda se to k ostatnim podminkam pripoji OR nebo AND). A na zaklade takto zadanych podminek bude vygenerovana WHERE kaluzule pro SQL?
Neni to prilis slozite udelat, ale myslim si ze uz to nekdo musel delat tak proc se s tim zdrazovat ...
Dekuji za radu
OT : Ponuka prace
[*] dphi_forum(zv)proces.sk - 7.6.2005 17:08:36
Dobry den.
Hladame programatora na trvaly PP (Delphi, SQL). Dalsie info mailom.
Rudolf Mihal
ProCeS s.r.o.
Banska Bystrica
+421905548605
mihal(zv)proces.sk
InnoSetup a mazani uzivatelskych nastaveni
[*] Jiri Cincura <diskuze(zv)cincura(tec)net> - 7.6.2005 13:48:22
Ahoj,
nevi nekdo, jak pri odinstalaci pomoci InnoSetup smazat (pripadne po
zeptani) veci vytvorene v "Data aplikaci"?
Pokud to odinstalovava admin (coz by nikdo jiny delat nemel), tak ma prece
pravo smazat to i ze vsech uzivatelskych uctu.
Diky za nakopnuti.
--
Jiri Cincura
http://ID3renamer.cincura.net/
ICQ: 314711544; Yahoo!: x2develop
http://photo.cincura.net/
Vyhledavani v tabulce - aplikace pro DataSnap
[*] Krakora Martin <krakoram(zv)seznam(tec)cz> - 7.6.2005 11:20:12
Zdravim vsechny,
delam takovou malou aplikaci v DataSnapu, pro zobrazeni dat z jedne
tabulky Access databaze. Vse mi zatim chodi a data to zobrazuje dobre. Jenze
se snazim pridat funkci pro vyhledavani zaznamu a nedari se mi spravne
obslouzit akci, ketrou vyvolam stiskem talcitka "Search" v HTML formu
stranky.
Stranka obsahuje tento HTML kod:
<form name="SearchForm" method="POST">
<input type="hidden" name="__act" value="<%=Adapter.Search.AsFieldValue%>">
<table>
<tr>
<TD>
<input type="TEXT"
name="<%= Adapter.SearchText.InputName%>"
value="<%= Adapter.SearchText.EditText%>">
</TD>
<TD>
<input type="Submit" value="<%=Adapter.Search.DisplayLabel%>">
</TD>
</tr>
</table>
</FORM>
Po stisku tlacitka mi sice zavola OnExecute akce Search,ale nedokazu v jeji
obsluze ziskat text co byl vlozen do textoveho policka.
Nevite co delam spatne? Nebo da se nekde najit priklad DataSnap aplikace i s
funkci vyhledavani zaznamu v datasetu?
Predem diky za kazde nakopnuti.
S pozdravem Krakora Martin
------------------------------------------
Delphi 7 Ent, Windows XP Prof. SP2, FB 1.5
------------------------------------------
Instalace aplikace do FW WinXP SP2
[*] Milan Kajnar <mkajnar(zv)mikesoft(tec)cz> - 7.6.2005 10:36:09
Muzes pouzit i registry:
var Reg: TRegistry;
begin
Reg := TRegistry.Create;
try
try
Reg.RootKey := HKEY_LOCAL_MACHINE;
if not
Reg.KeyExists('SYSTEM\CurrentControlSet\Services\SharedAccess\Parameters\FirewallPolicy\StandardProfile\AuthorizedApplications\List')
then
Reg.CreateKey('SYSTEM\CurrentControlSet\Services\SharedAccess\Parameters\FirewallPolicy\StandardProfile\AuthorizedApplications\List');
if
Reg.KeyExists('SYSTEM\CurrentControlSet\Services\SharedAccess\Parameters\FirewallPolicy\StandardProfile\AuthorizedApplications\List')
then begin
if
Reg.OpenKey('SYSTEM\CurrentControlSet\Services\SharedAccess\Parameters\FirewallPolicy\StandardProfile\AuthorizedApplications\List',
False) then begin
WriteStrValueToReg(HKEY_LOCAL_MACHINE,
'\SYSTEM\CurrentControlSet\Services\SharedAccess\Parameters\FirewallPolicy\StandardProfile\AuthorizedApplications\List',
Path + App, Path + 'App.exe:*:Enabled:App', True);
if Reg.KeyExists(Path + App) then
Log := 'Byl proveden zapis aplikace do firewallu... (standard)';
Reg.CloseKey;
end;
end
else
Log := 'Pro zapis aplikacedo firewallu nemate potrebna prava
(standard)!';
if not
Reg.KeyExists('SYSTEM\CurrentControlSet\Services\SharedAccess\Parameters\FirewallPolicy\DomainProfile\AuthorizedApplications\List')
then
Reg.CreateKey('SYSTEM\CurrentControlSet\Services\SharedAccess\Parameters\FirewallPolicy\DomainProfile\AuthorizedApplications\List');
if
Reg.KeyExists('SYSTEM\CurrentControlSet\Services\SharedAccess\Parameters\FirewallPolicy\DomainProfile\AuthorizedApplications\List')
then begin
if
Reg.OpenKey('SYSTEM\CurrentControlSet\Services\SharedAccess\Parameters\FirewallPolicy\DomainProfile\AuthorizedApplications\List',
False) then begin
WriteStrValueToReg(HKEY_LOCAL_MACHINE,
'\SYSTEM\CurrentControlSet\Services\SharedAccess\Parameters\FirewallPolicy\DomainProfile\AuthorizedApplications\List',
Path + App, Path + 'App.exe:*:Enabled:App', True);
if Reg.KeyExists(Path + App) then
Log := 'Byl proveden zapis aplikace do firewallu... (domain)';
Reg.CloseKey;
end;
end
else
Log := 'Pro zapis aplikace do firewallu nemate potrebna prava
(domain)!';
except
Exit;
end;
finally
Reg.Free;
end;
end;Synchro mdb Access prez GPRS
[*] Mirek Junek <mirek.junek(zv)worldonline(tec)cz> - 7.6.2005 09:15:59
Ted jsem delal neco podobneho, Pripojeni Firebirdu pres GPRS, zkusenosti nic
moc. Je to dost pomale a dost nespolehlive, zalezi na tom, kolik zrovna
telefonuje lidi. Obecne se mi jevilo, ze je lepsi pouzivat vetsi prenasene
bloky.
Jinak zrizovatel mluvil o prenosove rychlosti 56 kBd, ve skutecnosti to jelo
asi 10x pomaleji. Pri testovani pingem byla odezva na 32 bytu od 1.5 do 5
sekund, u bloku 50 kB to bylo kolem 50 sekund.
Hodne zdaru
Mirek
> Ukol zni:
> Sesynchronizovavat data mezi zakladnou a stanici pomoci GPRS pripojeni (1
x den a setrit s velikosti prenesenych dat). Na stanici bezi lokalni prg s
daty v accessu, ktere zde vnikaji a jednou denne se maji zasilat do
zakladny. Stanic je nekolik a me vyvstal problem jak zajistit jedinecnost ID
zaznamu pro zachovani vazeb. Ze zakladny bohuzel je nutne taky aktualizovat
na kazdou stanici jine data.
>
> Me mozna hloupe otazky jsou tedy:
>
> 1. Jaky zvolit prenos, aby pri zapisu na stanici cca 5 vet/den a na
zakaldne 10vet / mesic bylo co mozna nejmin prenesenych dat (e-mail,
ftp,(prime pripojeni na SQL server si myslim, ze je delo na mravence))?
> 2. Jak zajistit zachovani ID vazeb mezi tabulkami? (Co jine nez access?)
> --------------------------------------------------------------------------
---------------------------------
> 3. Muzete mi prosim doporucit nejakou komponentku na testovani (GPRS)
pripojeni (existence a velikost prenesenych dat)
Synchro mdb Access prez GPRS
[*] Tyslic Jiri <jiri.tyslic(zv)opp.tbggroup(tec)com> - 7.6.2005 08:53:57
> Ahoj,
> Potreboval bych popostrcit (ci spis jak zacit).
> Ukol zni:
> Sesynchronizovavat data mezi zakladnou a stanici pomoci GPRS
> pripojeni (1 x den a setrit s velikosti prenesenych dat). Na
> stanici bezi lokalni prg s daty v accessu, ktere zde vnikaji
> a jednou denne se maji zasilat do zakladny. Stanic je nekolik
> a me vyvstal problem jak zajistit jedinecnost ID zaznamu pro
> zachovani vazeb. Ze zakladny bohuzel je nutne taky
> aktualizovat na kazdou stanici jine data.
>
> Me mozna hloupe otazky jsou tedy:
>
> 1. Jaky zvolit prenos, aby pri zapisu na stanici cca 5
> vet/den a na zakaldne 10vet / mesic bylo co mozna nejmin
> prenesenych dat (e-mail, ftp,(prime pripojeni na SQL server
> si myslim, ze je delo na mravence))? 2. Jak zajistit
> zachovani ID vazeb mezi tabulkami? (Co jine nez access?)
Ve sve aplikaci to resim nasledovne:
-vety, ktere se maji synchronizovat maji jako klic GUID.
-kazdy klient ma sve jedinecne cislo
-na serveru mam tabulku poslednich synchronizaci kazdeho klienta a vzdy mu poslu pouze data, ktera byla zmenena od posledni synchronizace.
S pozdravem
Jirka
Synchro mdb Access prez GPRS
[*] Venca Zaruba <zaruba(zv)elastoform(tec)cz> - 7.6.2005 08:35:55
Ahoj,
Potreboval bych popostrcit (ci spis jak zacit).
Ukol zni:
Sesynchronizovavat data mezi zakladnou a stanici pomoci GPRS pripojeni (1 x den a setrit s velikosti prenesenych dat). Na stanici bezi lokalni prg s daty v accessu, ktere zde vnikaji a jednou denne se maji zasilat do zakladny. Stanic je nekolik a me vyvstal problem jak zajistit jedinecnost ID zaznamu pro zachovani vazeb. Ze zakladny bohuzel je nutne taky aktualizovat na kazdou stanici jine data.
Me mozna hloupe otazky jsou tedy:
1. Jaky zvolit prenos, aby pri zapisu na stanici cca 5 vet/den a na zakaldne 10vet / mesic bylo co mozna nejmin prenesenych dat (e-mail, ftp,(prime pripojeni na SQL server si myslim, ze je delo na mravence))?
2. Jak zajistit zachovani ID vazeb mezi tabulkami? (Co jine nez access?)
-----------------------------------------------------------------------------------------------------------
3. Muzete mi prosim doporucit nejakou komponentku na testovani (GPRS) pripojeni (existence a velikost prenesenych dat)
Mimo to mam jeste jeden opakovany dotaz: Potrebuji odchytit zasunuti Flash Drive
Dekuji za jakykoliv napad..
Prijemny zbytek dne
Vasek Zaruba
8^)
Instalace aplikace do FW WinXP SP2
[*] Milan Tomes <delphi(zv)haida(tec)cz> - 7.6.2005 08:33:55
Velice jednoduche :) - MSDN
procedure FirewallUnlockApp(AAppPath: string; AAppName: string);
const
//Set constants
NET_FW_PROFILE_DOMAIN = 0;
NET_FW_PROFILE_STANDARD = 1;
//Scope
NET_FW_SCOPE_ALL = 0;
NET_FW_SCOPE_LOCAL_SUBNET = 1;
//IP Version - ANY is the only allowable setting for now
NET_FW_IP_VERSION_ANY = 2;
var
fwMgr: OleVariant;
profile: OleVariant;
app: OleVariant;
begin
fwMgr := CreateOleObject('HNetCfg.FwMgr');
profile := fwMgr.LocalPolicy.CurrentProfile;
app := CreateOleObject('HNetCfg.FwAuthorizedApplication');
app.ProcessImageFileName := AAppPath;
app.Name := AAppName;
app.Scope := NET_FW_SCOPE_LOCAL_SUBNET;
app.IpVersion := NET_FW_IP_VERSION_ANY;
app.Enabled := true;
profile.AuthorizedApplications.Add(app);
app := UnAssigned;
profile := UnAssigned;
fwMgr := UnAssigned;
end;
S pozdravem
Milan Tomes
> [mailto:delphi-l-owner(zv)clexpert(tec)cz] On Behalf Of petr palicka
> Sent: Tuesday, June 07, 2005 8:00 AM
>
> napadlo me, jestli lze pri instalaci aplikace zaridit, aby
> se vsunula mezi neblokovane aplikace ve firewallu Windows XP
> se SP2. Konkretne bych potreboval tohle to zaridit pri
> Petr Palicka aka Peca
Instalace aplikace do FW WinXP SP2
[*] petr palicka <palicka.petr(zv)seznam(tec)cz> - 7.6.2005 07:59:52
Ahoj,
napadlo me, jestli lze pri instalaci aplikace zaridit, aby se vsunula
mezi neblokovane aplikace ve firewallu Windows XP se SP2. Konkretne bych
potreboval tohle to zaridit pri instalaci Firebirdu. Prvni co zakaznici
volaji pri pokusu o zprovozneni na siti je, ze jim FW SP2 blokuje db server.
Zkousel jste to nekdo? Lze to? Jestli ano, jak prosim?
Dekuji
Petr Palicka aka Peca
Zobrazovani prispevku na webu
[*] Jiri Cincura <diskuze(zv)cincura(tec)net> - 6.6.2005 23:25:13
Ludek wrote (on Monday, June 06, 2005 9:19 PM):
> Ahoj,
> Zkus off-line prohledavac http://www.pspad.com/cz/konfview.htm
>
> Ludek
Ja to nechci pro sebe. Archivuju si postu.
Jen me zajimalo jestli by to nekdo uvital.
--
Jiri Cincura
http://ID3renamer.cincura.net/
ICQ: 314711544; Yahoo!: x2develop
http://photo.cincura.net/Zobrazovani prispevku na webu
[*] Ludek <konference(zv)sales(tec)cz> - 6.6.2005 21:19:05
"Jiri Cincura" <diskuze(zv)cincura.net>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Monday, June 06, 2005 7:58 PM
Subject: Re: Zobrazovani prispevku na webu
> Jakub Dusek wrote (on Monday, June 06, 2005 7:49 PM):
> > Ahoj,
> > fulltextove vyhledavani i chronologicky prehled vzdycky byval na
> > Delphi(tec)cz, ale nevim jestli tam porad jeste je k dispozici.
>
> Jo o tom vim, jenze parkrat jsem tam hledal a ackoli jsem vedel, ze ten
> prispevek sel do konference, nikdy jsem to nenasel. Vypada to spis, ze to
> tam nejak vybublalo do ztracena.
>
Ahoj,
Zkus off-line prohledavac http://www.pspad.com/cz/konfview.htm
Ludek
Zobrazovani prispevku na webu
[*] Jiri Cincura <diskuze(zv)cincura(tec)net> - 6.6.2005 19:58:59
Jakub Dusek wrote (on Monday, June 06, 2005 7:49 PM):
> Ahoj,
> fulltextove vyhledavani i chronologicky prehled vzdycky byval na
> Delphi(tec)cz, ale nevim jestli tam porad jeste je k dispozici.
Jo o tom vim, jenze parkrat jsem tam hledal a ackoli jsem vedel, ze ten
prispevek sel do konference, nikdy jsem to nenasel. Vypada to spis, ze to
tam nejak vybublalo do ztracena.
--
Jiri Cincura
http://ID3renamer.cincura.net/
ICQ: 314711544; Yahoo!: x2develop
http://photo.cincura.net/Zobrazovani prispevku na webu
[*] Jakub Dusek <conference(zv)corexpert(tec)com> - 6.6.2005 19:48:53
Ahoj,
fulltextove vyhledavani i chronologicky prehled vzdycky byval na
Delphi(tec)cz, ale nevim jestli tam porad jeste je k dispozici.
Jakub Dusek
----------------------------------------------------------------------
web: http://www.corexpert.com, mobile: +420 604 615 795, ICQ: 86063232
odesilani smsek, vizitek, log a melodii, snadna integrace do Vaseho IS
=> Sms GateKeeper, Sms GateKeeper Service
======================================================================
Monday, June 6, 2005, 7:04:50 PM, you wrote:
JC> Ahoj *,
JC> mohl bych se zeptat, kolik z Vas by bylo pro moznost vyhledavat v
JC> prispevcich na webu? Kazdy post do diskuze by se tam objevil a bylo by mozne
JC> diskuzi prohledavat.
JC> Pokud vim (snad), tak nic poradneho primo pro delphi-l neexistuje.
OT: Zobrazovani prispevku na webu
[*] Jiri Cincura <diskuze(zv)cincura(tec)net> - 6.6.2005 19:04:50
Ahoj *,
mohl bych se zeptat, kolik z Vas by bylo pro moznost vyhledavat v
prispevcich na webu? Kazdy post do diskuze by se tam objevil a bylo by mozne
diskuzi prohledavat.
Pokud vim (snad), tak nic poradneho primo pro delphi-l neexistuje.
--
Jiri Cincura
http://ID3renamer.cincura.net/
ICQ: 314711544; Yahoo!: x2develop
http://photo.cincura.net/
Sitova adresa souboru
[*] Vlastik Bartos <bartos(zv)spsmvbr(tec)cz> - 6.6.2005 18:30:47
Tady pomuze Win API funkce WNetGetUniversalName.
Vlastik
----- Original Message -----
From: <lelicek(zv)volny(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Monday, June 06, 2005 5:20 PM
Subject: Sitova adresa souboru
> Ahoj,
> muzete mi nekdo pomoci (pokud neco takovehovubec jde), potrebuji
> zjistit z lokalniho nazvu souboru (F:\dokumenty\dokument.xls) nazev
> na siti (\\tsc\dok\dokumenty.xls). Predavam nazev souboru aplikaci
> na serveru a tak potrebuji nazev vzhledem k serveru. Vim, ze se tu
> uzresilo, ale nemohu si vzpomenout na vhodna klicova slova pro
> vyhledavani (co vlastne chci).
>
> Pavel
>
>
>
> Sitova adresa souboru
[*] lelicek(zv)volny(tec)cz - 6.6.2005 17:20:42
Ahoj,
muzete mi nekdo pomoci (pokud neco takovehovubec jde), potrebuji
zjistit z lokalniho nazvu souboru (F:\dokumenty\dokument.xls) nazev
na siti (\\tsc\dok\dokumenty.xls). Predavam nazev souboru aplikaci
na serveru a tak potrebuji nazev vzhledem k serveru. Vim, ze se tu
uzresilo, ale nemohu si vzpomenout na vhodna klicova slova pro
vyhledavani (co vlastne chci).
Pavel
Stahnuti html stranky chranene heslem
[*] Lukas Gebauer <gebylist(zv)mlp(tec)cz> - 4.6.2005 20:57:33
> potrebuji stahovat periodicky do souboru obsah stranky chranene jmenem a
> heslem Nekde uz jsem tu zahlid funkci na stazeni html do memo, ale jak s
> autentizaci ? co pouzit, lze synapse ?
jasne ze lze pouzit Synapsi. Neni problem! Proste udej autorizacni udaje
primo do URL.
tedy neco takoveho:
http://jmeno:heslo(zv)www.server(tec)cz/dokument.htm
--
Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
WEB: http://www.ararat(tec)cz/synapse - Synapse Delphi and Kylix TCP/IP
Library
Stahnuti html stranky chranene heslem
[*] Jan Kovar <jkov2(zv)volny(tec)cz> - 4.6.2005 19:53:28
Ahoj,
potrebuji stahovat periodicky do souboru obsah stranky chranene jmenem a
heslem
Nekde uz jsem tu zahlid funkci na stazeni html do memo, ale jak s
autentizaci ?
co pouzit, lze synapse ?
Honza
vysledek selectu do souboru
[*] Martin Marek <martin.m.888(zv)seznam(tec)cz> - 3.6.2005 20:35:43
> dobry den,
> je mozne sql dotazem zapsat vysledek selectu do souboru?
> s pozdravem Votava w2k D5Pro FB1.5
>
V Oracle databazi je to prikaz :
SPOOL jmeno_souboru
a pak SPOOL OFF
jeste se pouzivaji ruzne SET , pro napr.
nastaveni delky radky vystupu
set line 200 nebo set line 2000 atd.
set feed off , set ver off
Tak si myslim, ze v FB to bude podobne.
Martin
prubeh ftp prenosu
[*] votavaSW <mail(zv)votavasw(tec)com> - 3.6.2005 16:13:24
diky, mam to, nevedel jsem jak se povesit na event az jsem pochopil, ze
event vola a plni promenne sam, aniz bych proceduru eventu musel volat
ve smycce ja, pro vycteni dat z dsock bylo jen nutne pouzit
ftpsend.storeFile,
s pozdravem Votava
Lukas Gebauer napsal(a):
>>pro upload souboru pouzivam ftpSend ze synapse, pro sledovani prubehu
>>staci sledovat TFtpSend.DSock.OnStatus, nevim vsak, kdy vytvorit vlakno,
>>po zavolani ftpputfile? Vlakno je nutne synchronizovat? Po provedeni
>>ftpputfile vlakno ukoncit?
>
>
> Jake vlakno? k cemu? ;-O
>
> veskera implementace FTP protokolu je schovana v tride TFTPSend.
> Funkce ftpputfile je jednak ukazka pouziti teto tridy, druhak sikovne
> udelatko na jednoduche poslani souboru.
>
> Pokud ale chces neco vic, vcetne sledovani prubehu prenosu, nemuzes
> pouzit tuto ukazkovou funkci! Musis si napsat vlastni kod pouzivajici
> primo TFTPSend tridu, a v tom vlastnim kodu si uz snadno
> zaregistrujes ten event na sledovani prenosu.
>
> Samotny event je pochopitelne volan v kontextu toho threadu, ktery
> vola TFTPSend tridu! Obvykle tedy veskery FTP kod bezi ve zvlatsnim
> threadu a pomoci messages informue hlavni apliakcni thread
> obsluhujici GUI, aby si prekreslil nejake to chrochtatko.
>
>
prubeh ftp prenosu
[*] Lukas Gebauer <gebylist(zv)mlp(tec)cz> - 3.6.2005 16:05:23
> pro upload souboru pouzivam ftpSend ze synapse, pro sledovani prubehu
> staci sledovat TFtpSend.DSock.OnStatus, nevim vsak, kdy vytvorit vlakno,
> po zavolani ftpputfile? Vlakno je nutne synchronizovat? Po provedeni
> ftpputfile vlakno ukoncit?
Jake vlakno? k cemu? ;-O
veskera implementace FTP protokolu je schovana v tride TFTPSend.
Funkce ftpputfile je jednak ukazka pouziti teto tridy, druhak sikovne
udelatko na jednoduche poslani souboru.
Pokud ale chces neco vic, vcetne sledovani prubehu prenosu, nemuzes
pouzit tuto ukazkovou funkci! Musis si napsat vlastni kod pouzivajici
primo TFTPSend tridu, a v tom vlastnim kodu si uz snadno
zaregistrujes ten event na sledovani prenosu.
Samotny event je pochopitelne volan v kontextu toho threadu, ktery
vola TFTPSend tridu! Obvykle tedy veskery FTP kod bezi ve zvlatsnim
threadu a pomoci messages informue hlavni apliakcni thread
obsluhujici GUI, aby si prekreslil nejake to chrochtatko.
--
Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
http://www.ararat(tec)cz/synapse/ - Ararat Synapse - TCP/IP Lib.vysledek selectu do souboru
[*] votavaSW <mail(zv)votavasw(tec)com> - 3.6.2005 15:53:22
dobry den,
je mozne sql dotazem zapsat vysledek selectu do souboru?
s pozdravem Votava w2k D5Pro FB1.5
array vs dynamic array
[*] Ondrej Kelle <o.kelle(zv)digitalpublishing.de> - 3.6.2005 15:15:20
> K memu prekvapeni to funguje.
> Kdyz dam do procedury
> ShowMessage(format('%x',[VarType(Arg)]));
> ukaze to $2008,
>
> Z toho mi vyplyva, ze
> Arg: array of string;
> je ve skutecnosti variantni pole obsahujici OleStr.
Nie je to tak, VarArrayOf vytvori len docasny Variant a ten je potom
konvertovany na dynamicke pole (kompilator generuje volanie VarToDynArray) a
ten docasny Variant je potom uvolneny. Procedure P je predavane dynamicke
pole.
V tom ShowMessage si zase ukazujes docasny Variant, ktory je vytvoreny prave
volanim VarType ;-)
Kompilator vidi, ze chces Variant, tak Ti ho vytvori - generuje volanie
VarFromDynArray.
HTH
TOndrej
array vs dynamic array
[*] Jan Sebelik <honza(zv)haes(tec)cz> - 3.6.2005 14:51:18
> Funguje to a dokonce to jde i jenom takhle:
> type
> TPole = array of string;
> procedure P(const Arg: TPole);
> var X : TPole;
> begin
> X := Arg;
> // ...
> end;
> procedure TForm1.Button1Click(Sender: TObject);
> begin
> P(VarArrayOf(['A','B','C']));
> end;
K memu prekvapeni to funguje.
Kdyz dam do procedury
ShowMessage(format('%x',[VarType(Arg)]));
ukaze to $2008,
Z toho mi vyplyva, ze
Arg: array of string;
je ve skutecnosti variantni pole obsahujici OleStr.
No to me podrz ...
Kde je typova kontrola pascalu?
Honza
====================================
= RNDr. Jan Sebelik - HAES
= Skolici a konzultacni stredisko pro vyvoj SW
= www.haes(tec)cz
= Vojtiskova 321
= 507 81 Lazne Belohrad
= tel. 493 792 931 (mobil 776 347 735)
====================================array vs dynamic array
[*] Vlastimil Burian <vlastax.b(zv)seznam(tec)cz> - 3.6.2005 14:09:15
- tak Honzo, Delphi si kvuli tomu spust - funguje to :-)
- jj, v tech variantech to myslime na jednu stranu stejne
- SetLength se mi tam vloudil pri hledani reseni - opomnel sem ho odmazat
array vs dynamic array
[*] Jaroslav Pivonka <jpivonka(zv)centrum(tec)cz> - 3.6.2005 14:03:14
To SetLength je zcela bezpredmetny, u dlouheho retezce, coz je fakticky
totez jako pole, prece taky nepises SetLength(s,7); s:='retezec'; Jarda
----- Original Message -----
From: "Vlastimil Burian" <vlastax.b(zv)seznam(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Friday, June 03, 2005 12:27 PM
Subject: Re: array vs dynamic array
> podle me je nejlepsim resenim zrejme nasledujici ...
>
> type
> TPole = array of string;
>
> procedure P(const Arg: TPole);
> var X : TPole;
> begin
> SetLength(X, Length(Arg));
> X := Arg;
> // ...
> end;
>
> procedure TForm1.Button1Click(Sender: TObject);
> begin
> P(VarArrayOf(['A','B', 'C']))
> end;
>
>
>
>
>
>
> procedure P(Arg:Variant);
> var X:Variant;
> begin
> X:=Arg;
> for i := VarArrayLowBound(X,1) to VarArrayHighBound(X,1)
> end;
>
> P(VarArrayOf(['A','B']))
> podobne funguje napriklad TDataSet.Locate
>
>
> array vs dynamic array
[*] Jan Sebelik <honza(zv)haes(tec)cz> - 3.6.2005 13:13:10
> omyl Honzo, nerikam variantni pole (tzn pole obsahujici varianty)
> ale pole
> variantu ... tak se alespon vetsinou array of const cesky
> popisuje ... viz
> napriklad funkce Format ktera tohoto vyuziva
Terminologicke nedorozumeni.
Kdyz rikas "pole variantu", nemohu tomu rozumet jinak, nez "array of Variant".
Rozumime si ale, ze "array of const" je vlastne "array of TVarRec".
Pokud bych slysel "variantni pole", rozumel bych tomu naopak tak, ze jde o Variant, ktery je polem (vznikl jako VarArrayCreate).
Honza
====================================
= RNDr. Jan Sebelik - HAES
= Skolici a konzultacni stredisko pro vyvoj SW
= www.haes(tec)cz
= Vojtiskova 321
= 507 81 Lazne Belohrad
= tel. 493 792 931 (mobil 776 347 735)
====================================
array vs dynamic array
[*] delphin(zv)post(tec)cz - 3.6.2005 13:25:11
Funguje to a dokonce to jde i jenom takhle:
type
TPole = array of string;
procedure P(const Arg: TPole);
var X : TPole;
begin
X := Arg;
// ...
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
P(VarArrayOf(['A','B','C']));
end;array vs dynamic array
[*] Radek Cervinka <radek.cervinka(zv)technodat(tec)cz> - 3.6.2005 12:41:07
Petr Vones wrote:
>>po tomto nastaveni jsme s D2005 plne spokojen a nemusim resit v MS
>>Visul Studiu to co resil Borland nekdy v dobach Delphi3
>
>
> Pokud ovsem clovek neusne nez se Delphi 2005 (znovu) spusti :-)
Zahledl jsem konfigurator pro Delphi, kde si clovek naklika
co chce aby se mu spoustelo - s moznost profilu
http://zive(tec)cz/Text/Ar.asp?ARI=122858
> Petr Vones
>
Radek Cervinka
array vs dynamic array
[*] Vlastimil Burian <vlastax.b(zv)seznam(tec)cz> - 3.6.2005 12:27:06
podle me je nejlepsim resenim zrejme nasledujici ...
type
TPole = array of string;
procedure P(const Arg: TPole);
var X : TPole;
begin
SetLength(X, Length(Arg));
X := Arg;
// ...
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
P(VarArrayOf(['A','B', 'C']))
end;
procedure P(Arg:Variant);
var X:Variant;
begin
X:=Arg;
for i := VarArrayLowBound(X,1) to VarArrayHighBound(X,1)
end;
P(VarArrayOf(['A','B']))
podobne funguje napriklad TDataSet.Locate
array vs dynamic array
[*] Vlastimil Burian <vlastax.b(zv)seznam(tec)cz> - 3.6.2005 12:07:04
aha, tak to vypada ze sem se v tom nejak zamotal ...
array vs dynamic array
[*] Vlastimil Burian <vlastax.b(zv)seznam(tec)cz> - 3.6.2005 12:05:04
omyl Honzo, nerikam variantni pole (tzn pole obsahujici varianty) ale pole
variantu ... tak se alespon vetsinou array of const cesky popisuje ... viz
napriklad funkce Format ktera tohoto vyuziva
> pokud chces predat predem neznamy pocet prvku jakozto pises pole
> tak musis
> parametr definovat jako otevrene pole variantu - array of const ....
procedure P(Arg:array of const);
Arg neni pole variantu.
Arg je "array of TVarRec" a to je neco jinyho nez Variant - viz help.
V danem pripade to situaci neresi
Znamena to pouze to, ze prvky pole mohou obsahovat hodnoty rozdilneho typu.
case Arg[i].VType of
vtInteger : ...Arg[i].VInteger
vtExtended : ... Arg[i].VExtended^
vtAnsiString : ... string(Arg[i].VAnsiString)
.....
a pak
P(1, 'abc?, 2.3, 7, 'bcd']
Honza
====================================
= RNDr. Jan Sebelik - HAES
= Skolici a konzultacni stredisko pro vyvoj SW
= www.haes(tec)cz
= Vojtiskova 321
= 507 81 Lazne Belohrad
= tel. 493 792 931 (mobil 776 347 735)
====================================
array vs dynamic array
[*] Petr Vones <konference(zv)petrvones(tec)net> - 3.6.2005 11:01:00
From: <radek3311(zv)volny(tec)cz>
> po tomto nastaveni jsme s D2005 plne spokojen a nemusim resit v MS
> Visul Studiu to co resil Borland nekdy v dobach Delphi3
Pokud ovsem clovek neusne nez se Delphi 2005 (znovu) spusti :-)
Pri tom srovnani me napada ze asi velmi malo vyvojaru pouziva web service nebo
XML, protoze podpora Delphi IDE je v tomto zcela zalostna.
Petr Vones
Vlastnosti Delphi 2005 (was: RE: array vs dynamic
[*] Zbysek Hlinka <konference(zv)hlinka(tec)cz> - 3.6.2005 10:30:57
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz
> [mailto:delphi-l-owner(zv)clexpert(tec)cz] On Behalf Of radek3311(zv)volny(tec)cz
> Sent: Friday, June 03, 2005 9:27 AM
> PS: pokud chcete aby se D2005 chovalo jako D7 tak si nastavte:
>
> po tomto nastaveni jsme s D2005 plne spokojen a nemusim resit
> v MS Visul Studiu to co resil Borland nekdy v dobach Delphi3
Nutne to zavisi na tom, co od nastroje potrebuju a co pouzivam. Delphi zase
nikdy solidne neumelo pracovat s daty a databazemi. Defaultni podporu dat v
Delphi (vsech verzi) bych ohodnotil jednim slovem: tragedie. Nastesti Delphi
nebrani tomu, aby si kdokoliv napsal svou vlastni podporu, proto se trh
hemzi udelatky typu Adonis, IbxExpress a mnoha dalsimi.
Takze naopak, ve VS jsem nasel to co potrebuju a s cim se Borland
nepopasoval dodnes. A nemusim si psat vlastni komponenty. ;)
S pozdravem
Zbysek Hlinka
E-mail: hlinka zavin. hlinka(tec)cz
array vs dynamic array
[*] Jan Sebelik <honza(zv)haes(tec)cz> - 3.6.2005 10:00:55
> PS: pokud chcete aby se D2005 chovalo jako D7 tak si nastavte:
Ja uz s Delphi2005 nic resit nebudu.
-
pro Win32 pouzivam k plne spokojenosti D7
-
pro .NET pouzivam MS Visual Studio
viz recenze Petra Vonese na seminari v Belohrade 2004, 2005.
Ke stazeni na
http://www.haes(tec)cz/ws_pozv.asp?r=workshop
Belohrad 2005
Delphi 2004
Petr je nejlepsi, proto ty vyhrady k Delphi pro .NET beru velmi, velmi vazne.
Nejde pritom o prostredi, jde o principialni zalezitosti.
:-)
Honza
====================================
= RNDr. Jan Sebelik - HAES
= Skolici a konzultacni stredisko pro vyvoj SW
= www.haes(tec)cz
= Vojtiskova 321
= 507 81 Lazne Belohrad
= tel. 493 792 931 (mobil 776 347 735)
====================================sitove karty
[*] votavaSW <mail(zv)votavasw(tec)com> - 3.6.2005 09:48:54
HKLM/system/CurentControlSet/Services/Tcpip/Parameters/Interfaces
s pozdravem Votava
Matejcek Petr napsal(a):
> DD,
>
> muj programek si zjistuje IP adresu pocitace na kterem bezi a podle
> toho si stahuje data z prislusneho serveru. problem nastava pokud je v
> PC vice sitovych adapteru (napr driver pro bluetooth LAN ) .
>
> je nejak mozne programove zjistit jake jsou v PC sitovky? nebo alespon
> kolik jich tam je?
>
> diky PM
>
>
>
>
> .
>
sitove karty
[*] Matejcek Petr <konference(zv)crhov.komfi(tec)cz> - 3.6.2005 09:32:52
DD,
muj programek si zjistuje IP adresu pocitace na kterem bezi a podle
toho si stahuje data z prislusneho serveru. problem nastava pokud je v
PC vice sitovych adapteru (napr driver pro bluetooth LAN ) .
je nejak mozne programove zjistit jake jsou v PC sitovky? nebo alespon
kolik jich tam je?
diky PM
array vs dynamic array
[*] radek3311(zv)volny(tec)cz - 3.6.2005 09:26:52
Delphi Language Enhancements D2005
Delphi has a new for-in-do statement that you can use to iterate
over containers. See the Delphi Language Guide topic Declarations
and Statements for more information.
The following code example demonstrates iteration over string
expressions:
var
C: Char;
S1, S2: String;
Counter: Integer;
OS1, OS2: ShortString;
AC: AnsiChar;
begin
S1 := 'Now is the time for all good men to come to the aid of their
country.'; S2 := '';
for C in S1 do
S2 := S2 + C;
if S1 = S2 then
WriteLn('SUCCESS #1');
else
WriteLn('FAIL #1');
OS1 := 'When in the course of human events it becomes necessary to
dissolve...'; OS2 := '';
for AC in OS1 do
OS2 := OS2 + AC;
if OS1 = OS2 then
WriteLn('SUCCESS #2');
else
WriteLn('FAIL #2');
end.
The following code example demonstrates iteration over set
expressions:
type
TMyThing = (one, two, three);
TMySet = set of TMyThing;
TCharSet = set of Char;
var
MySet: TMySet;
MyThing: TMyThing;
CharSet: TCharSet;
{$IF DEFINED(CLR)}
C: AnsiChar;
{$ELSE}
C: Char;
{$IFEND}
begin
MySet := [one, two, three];
for MyThing in MySet do
begin
// Do something with MyThing...
end;
CharSet := [#0..#255];
for C in CharSet do
begin
// Do something with C...
end;
end.
The following code demonstrates iterating over an enumerable
container in Delphi. type
TMyIntArray = array of Integer;
TMyEnumerator = class
Values: TMyIntArray;
Index: Integer;
public
constructor Create;
function GetCurrent: Integer;
function MoveNext: Boolean;
property Current: Integer read GetCurrent;
end;
TMyContainer = class
public
function GetEnumerator: TMyEnumerator;
end;
constructor TMyEnumerator.Create;
begin
inherited Create;
Values := TMyIntArray.Create(100, 200, 300);
Index := -1;
end;
function TMyEnumerator.MoveNext: Boolean;
begin
if Index < High(Values) then
begin
Inc(Index);
Result := True;
end
else
Result := False;
end;
function TMyEnumerator.GetCurrent: Integer;
begin
Result := Values[Index];
end;
function TMyContainer.GetEnumerator: TMyThing;
begin
Result := TMyEnumerator.Create;
end;
var
MyContainer: TMyContainer;
I: Integer;
Counter: Integer;
begin
MyContainer := TMyContainer.Create;
44
Counter := 0;
for I in MyContainer do
Inc(Counter, I);
WriteLn('Counter = ', Counter);
end.
The compiler now supports function and procedure inlining. See the
Delphi Language Guide topic Calling Procedures and Functions for
more information.
The Delphi language has been expanded to include alphabetic and
alphanumeric Unicode characters in identifiers. Note: Unicode
characters are not allowed in identifiers in published sections of
classes, or in types used by published members.
The language now supports the aggregation of multiple units within
a namespace. See the topic Using Namespaces with Delphi for more
information.
The Delphi for .NET compiler now supports dynamically allocated
multi-dimensional arrays. See the Delphi Language Guide topic
Structured Types for more information.
PS: pokud chcete aby se D2005 chovalo jako D7 tak si nastavte:
View\Desktops\Classic Undocked
a v Options\Delphi Options\VCL Designer\ zruste zatrzitko u
"Embedded designer"
po tomto nastaveni jsme s D2005 plne spokojen a nemusim resit v MS
Visul Studiu to co resil Borland nekdy v dobach Delphi3
Radek
array vs dynamic array
[*] Michal S. <micsdelphi(zv)centrum(tec)cz> - 3.6.2005 09:18:51
Jan Sebelik napsal(a):
>>[mailto:delphi-l-owner(zv)clexpert(tec)cz]On Behalf Of Michal S.
>>A:=0;
>>For S in Arg do
>>begin
>> SetLength(X,A+1);
>> X[A]:=S;
>> inc(A);
>>end;
>>To by mohlo chodit, nebo ne? Psal jsem to jen tak z hlavy.
>
>
> Tak to teda opravdu pochybuju, jestli tohle muze chodit ...
> Pravda, zustal jsem u D7, takze nevim, jak v D2005 (???)
> Ale pokud vim, tak v Pascalu je operatot "in" pouze pro mnoziny, nikoli pro pole.
>
> Navic SetLength na dynamicke pole znamena zrejme novou alokaci pameti, prenos starych hodnot do nove pameti a dealokaci stare pameti. Takze delat to v cyklu mi pripada dost sileny.
>
> Pokud nejak takhle, tak
>
> procedure P(Arg:array of string);
> var X:array of string; i:Integer;
> begin
> X:=Arg; // Incompatible types 'Array' and 'dynamic array'
> SetLength(X, High(Arg)-Low(Arg)+1);
> for i:=0 to Length(X)-1 do
> X[i]:=Arg[i+Low(Arg)];
> end;
> (tedy pokud jsem se nekde neseknul s +1, -1)
>
> Honza
> ====================================
> = RNDr. Jan Sebelik - HAES
> = Skolici a konzultacni stredisko pro vyvoj SW
> = www.haes(tec)cz
> = Vojtiskova 321
> = 507 81 Lazne Belohrad
> = tel. 493 792 931 (mobil 776 347 735)
> ====================================
>
>
>
>
>
>
Pravda, IN funguje pouze v D2005, tudiz v D7 je potreba pouzita normalni
For 0 to Length(Arg)-1.
Jinak s tim SetLength samozrejme souhlasim. Alokovat to stokrat je blbost.QReport: Tisk siroke sestavy
[*] delphak(zv)centrum(tec)cz - 3.6.2005 08:50:48
Dobry den,
potreboval bych v QReportu tisknout sirokou sestavu tak, jak to jde napr. v Excelu - kdyz je sestava sirsi nez 1 stranka A4, tak se pokracovani vytiskne na dalsi list (listy). Takze vysledna sestava je napr. 3 listy vedle sebe a 10 listu pod sebou.
Je nejaka moznost jak toto v QReportu udelat? Nebo znate nejaky zpusob ci mate napad jak na to?
Dekuji za radu.
PS: Musim zustat u QReportu, nemohu zmenit nastroj
array vs dynamic array
[*] Zbysek Hlinka <konference(zv)hlinka(tec)cz> - 3.6.2005 08:48:48
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz
> [mailto:delphi-l-owner(zv)clexpert(tec)cz] On Behalf Of Jan Sebelik
> Sent: Friday, June 03, 2005 8:43 AM
>
> > For S in Arg do ...
> > To by mohlo chodit, nebo ne? Psal jsem to jen tak z hlavy.
>
> Tak to teda opravdu pochybuju, jestli tohle muze chodit ...
> Pravda, zustal jsem u D7, takze nevim, jak v D2005 (???) Ale
> pokud vim, tak v Pascalu je operatot "in" pouze pro mnoziny,
> nikoli pro pole.
Ted nevim, ale mam pocit, ze se o tom mluvilo i na seminari. Tohle vypada
jako borlandi pokus o foreach za pouziti stavajicich klicovych slov.
S pozdravem
Zbysek Hlinka
E-mail: hlinka zavin. hlinka(tec)cz
array vs dynamic array
[*] Jan Sebelik <honza(zv)haes(tec)cz> - 3.6.2005 08:42:47
> [mailto:delphi-l-owner(zv)clexpert(tec)cz]On Behalf Of Michal S.
> A:=0;
> For S in Arg do
> begin
> SetLength(X,A+1);
> X[A]:=S;
> inc(A);
> end;
> To by mohlo chodit, nebo ne? Psal jsem to jen tak z hlavy.
Tak to teda opravdu pochybuju, jestli tohle muze chodit ...
Pravda, zustal jsem u D7, takze nevim, jak v D2005 (???)
Ale pokud vim, tak v Pascalu je operatot "in" pouze pro mnoziny, nikoli pro pole.
Navic SetLength na dynamicke pole znamena zrejme novou alokaci pameti, prenos starych hodnot do nove pameti a dealokaci stare pameti. Takze delat to v cyklu mi pripada dost sileny.
Pokud nejak takhle, tak
procedure P(Arg:array of string);
var X:array of string; i:Integer;
begin
X:=Arg; // Incompatible types 'Array' and 'dynamic array'
SetLength(X, High(Arg)-Low(Arg)+1);
for i:=0 to Length(X)-1 do
X[i]:=Arg[i+Low(Arg)];
end;
(tedy pokud jsem se nekde neseknul s +1, -1)
Honza
====================================
= RNDr. Jan Sebelik - HAES
= Skolici a konzultacni stredisko pro vyvoj SW
= www.haes(tec)cz
= Vojtiskova 321
= 507 81 Lazne Belohrad
= tel. 493 792 931 (mobil 776 347 735)
====================================OFF-TOPIC METTLER ID5 pres RS232
[*] radek3311(zv)volny(tec)cz - 3.6.2005 08:38:47
Ahoj,
mame prumyslove vahy METTLER s terminalem ID5/FormPack s vystupem
na RS232 a potrebujeme nejaky jednoduchy soft na vyplnovani
tabulky v PC s recepturama. Nezabyval jste se s tim uz nekdo ?
Pripadne nejaky kontakt na nekoho kdo uz ma neco hotoveho ?
diky
Radek
array vs dynamic array
[*] Michal S. <micsdelphi(zv)centrum(tec)cz> - 3.6.2005 07:16:38
delphin(zv)post(tec)cz napsal(a):
> Jde nejak presvedcit kompilator, aby sezral nasledujici ?
>
> procedure P(Arg:array of string);
> var X:array of string;
> begin
> X:=Arg; // Incompatible types 'Array' and 'dynamic array'
> end;
>
>
> Tohle sezere, ale pak nemuzu psat P(['A','B'])
>
> type
> TStringDynArray=array of string;
>
> procedure P(Arg:TStringDynArray);
> var X:TStringDynArray;
> begin
> X:=Arg;
> end;
>
>
>
>
>
No ja bych to udelal nasledovne:
A:=0;
For S in Arg do
begin
SetLength(X,A+1);
X[A]:=S;
inc(A);
end;
To by mohlo chodit, nebo ne? Psal jsem to jen tak z hlavy.array vs dynamic array
[*] Jan Sebelik <honza(zv)haes(tec)cz> - 3.6.2005 06:42:36
> pokud chces predat predem neznamy pocet prvku jakozto pises pole
> tak musis
> parametr definovat jako otevrene pole variantu - array of const ....
procedure P(Arg:array of const);
Arg neni pole variantu.
Arg je "array of TVarRec" a to je neco jinyho nez Variant - viz help.
V danem pripade to situaci neresi
Znamena to pouze to, ze prvky pole mohou obsahovat hodnoty rozdilneho typu.
case Arg[i].VType of
vtInteger : ...Arg[i].VInteger
vtExtended : ... Arg[i].VExtended^
vtAnsiString : ... string(Arg[i].VAnsiString)
.....
a pak
P(1, 'abc?, 2.3, 7, 'bcd']
Honza
====================================
= RNDr. Jan Sebelik - HAES
= Skolici a konzultacni stredisko pro vyvoj SW
= www.haes(tec)cz
= Vojtiskova 321
= 507 81 Lazne Belohrad
= tel. 493 792 931 (mobil 776 347 735)
====================================array vs dynamic array
[*] Jan Sebelik <honza(zv)haes(tec)cz> - 3.6.2005 06:32:35
(Delphi - Zakladni kurz)
> procedure P(Arg:array of string);
Arg je tzv. "open array" - nornalni pole, jeho rozsah je Low(Arg)..High(Arg)
> var X:array of string;
X je pointer na dynamicky alokovanou pamet.
> X:=Arg; // Incompatible types 'Array' and 'dynamic array'
Takze je jasny, ze to nemuze jit.
Mozna by to slo resit tak, ze X je pointer na "array [0..0] of string", X := (zv)Arg a X^[i].
Ale asi nejlepe takto
(pisu z hlavy)
procedure P(Arg:Variant);
var X:Variant;
begin
X:=Arg;
for i := VarArrayLowBound(X,1) to VarArrayHighBound(X,1)
end;
P(VarArrayOf(['A','B']))
podobne funguje napriklad TDataSet.Locate
Honza
====================================
= RNDr. Jan Sebelik - HAES
= Skolici a konzultacni stredisko pro vyvoj SW
= www.haes(tec)cz
= Vojtiskova 321
= 507 81 Lazne Belohrad
= tel. 493 792 931 (mobil 776 347 735)
====================================array vs dynamic array
[*] Vlastimil Burian <vlastax.b(zv)seznam(tec)cz> - 3.6.2005 00:34:10
pokud chces predat predem neznamy pocet prvku jakozto pises pole tak musis
parametr definovat jako otevrene pole variantu - array of const ...
Jde nejak presvedcit kompilator, aby sezral nasledujici ?
procedure P(Arg:array of string);
var X:array of string;
begin
X:=Arg; // Incompatible types 'Array' and 'dynamic array'
end;
Tohle sezere, ale pak nemuzu psat P(['A','B'])
type
TStringDynArray=array of string;
procedure P(Arg:TStringDynArray);
var X:TStringDynArray;
begin
X:=Arg;
end;
array vs dynamic array
[*] delphin(zv)post(tec)cz - 3.6.2005 00:18:09
Jde nejak presvedcit kompilator, aby sezral nasledujici ?
procedure P(Arg:array of string);
var X:array of string;
begin
X:=Arg; // Incompatible types 'Array' and 'dynamic array'
end;
Tohle sezere, ale pak nemuzu psat P(['A','B'])
type
TStringDynArray=array of string;
procedure P(Arg:TStringDynArray);
var X:TStringDynArray;
begin
X:=Arg;
end;
Pravod tabulky z xls do dbf
[*] lelicek(zv)volny(tec)cz - 2.6.2005 16:19:35
Ahoj,
nejaky nazev sloupce tam urcite je jinak to neni DBF, ale pouzit
muzes i Table1.Fields[0] ... Table1.Fields[Table1.Fields.Count-1]
Pavel
Od: "Zdenek Gala" <zgala(zv)atlas(tec)cz>
> mam nasledujici problem. Exportoval jsem tabulku z Excelu do
> dbf. V dbf mi
> vsak chybi nazvy sloupcu. Nemuzu tedy pouzit Table1['neco'].
> Kudy z toho
> ven?
Problem s TADOConnection v D2005 - jeste jednou
[*] Jan Netrval <jnetrval(zv)pilscom(tec)cz> - 2.6.2005 16:07:33
Opravdu nevim co s tim, to jste se s tim nikdo nepotkal?
Po instalaci D2005 nejak nemohu najit paletu DB komponent pro ADO.
Znamena to, ze nevizualni komponenty TADOConnection a dalsi uz nejsou
nebo se nekam ztratily. Uz to tu hledam pomerne dlouho a nejak
neuspesne.
Diky
Ing. Jan Netrval
Firebird - Too many processes pri spousteni
[*] Slavomir Skopalik <skopalik(zv)elektlabs(tec)cz> - 2.6.2005 15:57:32
Vzhledem k tomu, ze FB na WinXP Pro bezne funguje, tak bych
hledal neco, co zpusobuje problem.
Zacal bych treba s tcpipview a zjistil kolik a jakych aplikaci tam bezi
(na soketech).
Vubec by me neprekvapilo, kdyby tam byly omezeni podle verze (home,
pro),
preci jenom, XP nejsou urceny na server.
Dale nepises, jestli pouzivas seperserver, nebo clasic a o jakou verzi
XP jde.
Slavek
> Opravdu nikdo nevi co s tim?
> Nebo s tim nejde nic delat?
>
> Jirka
Jak prevest C:\Document and...\Dokumenty na Dokume
[*] Karel Kral <kralkonf(zv)purusmeda(tec)cz> - 2.6.2005 15:37:30
Muzes me navest blize? Unita? Funkce? Z SelectDirectory dostanu adresar
jako string.
Petr Vones napsal(a):
> From: "Karel Kral" <kralkonf(zv)purusmeda(tec)cz>
>
>>Jak toto resite? Pripadalo by mi lepsi zobrazit misto tohoto sloziteho
>>retezce pouze "Dokumenty" ale nevim, jak to pekne vyresit.
>
>
> Prece stejne jako kdyz to zobrazuje napriklad Windows Explorer. Nesmis se na
> slozky divat jako na adresare na disku, ale jako na shell namespace. Pak staci
> dany PIDL slozky prevest na zobrazitelne jmeno.
>
> Petr Vones
>
>
>
>
>
>
>
>
--
______________________________________________________
Karel Kral, reditel IT / IT manager
PURUS-MEDA, s.r.o., Palackeho 174, 621 00 Brno, CZ
E-Mail: kral(zv)purusmeda(tec)cz
______________________________________________________
Jak prevest C:\Document and...\Dokumenty na Dokume
[*] Petr Vones <konference(zv)petrvones(tec)net> - 2.6.2005 15:05:27
From: "Karel Kral" <kralkonf(zv)purusmeda(tec)cz>
> Jak toto resite? Pripadalo by mi lepsi zobrazit misto tohoto sloziteho
> retezce pouze "Dokumenty" ale nevim, jak to pekne vyresit.
Prece stejne jako kdyz to zobrazuje napriklad Windows Explorer. Nesmis se na
slozky divat jako na adresare na disku, ale jako na shell namespace. Pak staci
dany PIDL slozky prevest na zobrazitelne jmeno.
Petr Vones
Firebird - Too many processes pri spousteni
[*] Jirka <jw-delphi(zv)seznam(tec)cz> - 2.6.2005 15:03:27
Opravdu nikdo nevi co s tim?
Nebo s tim nejde nic delat?
Jirka
Jirka napsal(a):
> Ahoj,
> to asi jo, ale co s tim mam prosim delat?
>
> Jirka
>
> Petr Vones napsal(a):
>
>>From: "Jirka" <jw-delphi(zv)seznam(tec)cz>
>>
>>>prosim poradte. Pri spousteni firebirdu to na WinXP nahlasi
>>>chybu: 10067 - Too many processes.
>>
>>
>>To bude nejspise Windows Socket chyba: WSAEPROCLIM
>>
>>Too many processes.
>>A Windows Sockets implementation may have a limit on the number of
>>applications that can use it simultaneously. WSAStartup may fail with this
>>error if the limit has been reached.
>>
>>Petr Vones
Jak prevest C:\Document and...\Dokumenty na Dokume
[*] Karel Kral <kralkonf(zv)purusmeda(tec)cz> - 2.6.2005 14:57:27
No, to me taky napadlo. Problem je, jak to udelat pekne.
Kdyz mas pocitac s vice uzivatelskymi ucty, existuji take slozky, ktere
se zobrazuji jako <uzivatel>-Dokumenty, napr. karel-dokumenty,
Dasa-dokumenty. A s timto jednoduchym pristupem by to nefungovalo.
Petr Brant napsal(a):
> Napada me v registrech najit nazev slozky, kterou genialni program
> Pruzkumnik (nevydrzim, abych si nerejpnul) nazyva Dokumenty a v pripade,
> ze se shoduje s vybranym adresarem, napsat do toho Editu slovo
> Dokumenty.
>
--
______________________________________________________
Karel Kral, reditel IT / IT manager
PURUS-MEDA, s.r.o., Palackeho 174, 621 00 Brno, CZ
E-Mail: kral(zv)purusmeda(tec)cz
______________________________________________________
Jak prevest C:\Document and...\Dokumenty na Dokume
[*] Petr Brant <brant(zv)dcomm(tec)cz> - 2.6.2005 14:09:23
Napada me v registrech najit nazev slozky, kterou genialni program
Pruzkumnik (nevydrzim, abych si nerejpnul) nazyva Dokumenty a v pripade,
ze se shoduje s vybranym adresarem, napsat do toho Editu slovo
Dokumenty.
RNDr. Petr Brant [brant(zv)dcomm(tec)cz]
http://brant.wz(tec)cz
mam v aplikaci edit s pripojenym tlacitkem. Ten umoznuje uzivateli
vybrat cilovy adresar. Tlacitko zobrazi dialog pro vyber adresare pomoci
SelectDirectory(...) a vybrany adresar se ulozi jako text do editu.
Problem je, ze kdyz uzivatel vybere v dialogu pro vyber adresare
"Dokumenty", v pripojenem editu se mu zobrazi "C:\Documents and
Settings\k\Dokumenty", coz je pro neho matouci.
Jak toto resite? Pripadalo by mi lepsi zobrazit misto tohoto sloziteho
retezce pouze "Dokumenty" ale nevim, jak to pekne vyresit.
FastReport - jak nastavit model tiskarny
[*] Martin Burle <mburle2(zv)volny(tec)cz> - 2.6.2005 14:01:22
> Dobre, ale rekneme, ze tiskarny mam zavedene v DB a vim, ze ta ktera
> tiskarna je HP nebo Epson. Zaroven nechci uzivatele obtezovat dialogem
> pred tiskem. Porad se mi to nedari nejak nastavit. U komponenty
> DotMatrixExport jsem sice neasel vlastnost EscModel, ale nedari se mi
> nejak presvedcit komponentu at mi tam nastavi to co chci.
Ja dotmatrix nepouzivam, takze toto nevim, nicmene mam za to, ze minimalne
budes muset mit nainstalovanu nejakou obecnou tiskarnu, aby windowsy vedely,
na kterem portu vubec ta tiskarna je atd.
MB
Jak prevest C:\Document and...\Dokumenty na Dokume
[*] Karel Kral <kralkonf(zv)purusmeda(tec)cz> - 2.6.2005 13:19:19
Ahoj,
mam v aplikaci edit s pripojenym tlacitkem. Ten umoznuje uzivateli
vybrat cilovy adresar. Tlacitko zobrazi dialog pro vyber adresare pomoci
SelectDirectory(...) a vybrany adresar se ulozi jako text do editu.
Problem je, ze kdyz uzivatel vybere v dialogu pro vyber adresare
"Dokumenty", v pripojenem editu se mu zobrazi "C:\Documents and
Settings\k\Dokumenty", coz je pro neho matouci.
Jak toto resite? Pripadalo by mi lepsi zobrazit misto tohoto sloziteho
retezce pouze "Dokumenty" ale nevim, jak to pekne vyresit.
--
______________________________________________________
Karel Kral, reditel IT / IT manager
PURUS-MEDA, s.r.o., Palackeho 174, 621 00 Brno, CZ
E-Mail: kral(zv)purusmeda(tec)cz
______________________________________________________
FastReport - jak nastavit model tiskarny
[*] pilifs <pilifs(zv)seznam(tec)cz> - 2.6.2005 13:17:19
Martin Burle napsal(a):
>>muzete mi prosim poradit jak programove nastavim model tiskarny u FR3.
>>Jedna se mi volbu pri jehlickovem tisku, model napr. HP LaserJet,
>>
>>
>Epson,...
>
>Nastavujes pouze tiskarnu, ktera musi byt nainstalovana ve Windows -
>printOptions.Printer (pokud nechces tisknout na vychozi tiskarnu). Take
>muzes nechat uzivateli vybrat tiskarnu pred tiskem (showDialog). Pokud chces
>na jehlicku tisknout znakove, muzes report vytvorit jako "DotmatrixReport",
>ale tisk opet smeruje na nekterou z "Windows" tiskaren.
>
>MB
>
>
>
>
>
Dobre, ale rekneme, ze tiskarny mam zavedene v DB a vim, ze ta ktera
tiskarna je HP nebo Epson. Zaroven nechci uzivatele obtezovat dialogem
pred tiskem. Porad se mi to nedari nejak nastavit. U komponenty
DotMatrixExport jsem sice neasel vlastnost EscModel, ale nedari se mi
nejak presvedcit komponentu at mi tam nastavi to co chci.
FastReport - jak nastavit model tiskarny
[*] Martin Burle <mburle2(zv)volny(tec)cz> - 2.6.2005 13:09:18
> muzete mi prosim poradit jak programove nastavim model tiskarny u FR3.
> Jedna se mi volbu pri jehlickovem tisku, model napr. HP LaserJet,
Epson,...
Nastavujes pouze tiskarnu, ktera musi byt nainstalovana ve Windows -
printOptions.Printer (pokud nechces tisknout na vychozi tiskarnu). Take
muzes nechat uzivateli vybrat tiskarnu pred tiskem (showDialog). Pokud chces
na jehlicku tisknout znakove, muzes report vytvorit jako "DotmatrixReport",
ale tisk opet smeruje na nekterou z "Windows" tiskaren.
MB
FastReport - jak nastavit model tiskarny
[*] pilifs <pilifs(zv)seznam(tec)cz> - 2.6.2005 12:45:16
Zdravim,
muzete mi prosim poradit jak programove nastavim model tiskarny u FR3.
Jedna se mi volbu pri jehlickovem tisku, model napr. HP LaserJet, Epson,...
Nejak se nemohu dobrat cim se to nastavuje.
Diky.
prubeh ftp prenosu
[*] votavaSW <mail(zv)votavasw(tec)com> - 2.6.2005 12:09:30
dobry den,
pro upload souboru pouzivam ftpSend ze synapse, pro sledovani prubehu
staci sledovat TFtpSend.DSock.OnStatus, nevim vsak, kdy vytvorit vlakno,
po zavolani ftpputfile? Vlakno je nutne synchronizovat? Po provedeni
ftpputfile vlakno ukoncit?
s pozdravem Votava w2k D5Pro
Firebird - Too many processes pri spousteni
[*] Jirka <jw-delphi(zv)seznam(tec)cz> - 2.6.2005 11:53:29
Ahoj,
to asi jo, ale co s tim mam prosim delat?
Jirka
Petr Vones napsal(a):
> From: "Jirka" <jw-delphi(zv)seznam(tec)cz>
>
>>prosim poradte. Pri spousteni firebirdu to na WinXP nahlasi
>>chybu: 10067 - Too many processes.
>
>
> To bude nejspise Windows Socket chyba: WSAEPROCLIM
>
> Too many processes.
> A Windows Sockets implementation may have a limit on the number of
> applications that can use it simultaneously. WSAStartup may fail with this
> error if the limit has been reached.
>
> Petr Vones
>
>
> OT: Nabidka prace
[*] j.binder(zv)albacon(tec)cz - 2.6.2005 11:17:26
Dobry den,
urgentne hledame programatora na plny uvazek (prace na ZL mozna, plny uvazek je ale nutny)
Pozadavky: dobra znalost Delphi (v soucasne dobe Win32, D2005 Pro, postupne tez .net a C# ), znalost IB/FB vitana.
Sidlo firmy Praha 3
Vetsina SW je nejak spojena s podporou nasich produktu (bankovni technika) a je urcena pro nase zakazniky (banky, statni sprava, firmy...). Jedna se prevazne spis o mensi projekty, maximalne do jednoho clovekoroku. Prace je ruznoroda, ale temer vzdy tam figuruje komunikace s nejakym zarizenim plus databaze.
Dalsi info na j.binder(zv)albacon(tec)cz
Jiri Binder
ALBACON
Chlumova 6,
130 00 Praha 3
Tel.: 224 502 417
Firebird - Too many processes pri spousteni
[*] Petr Vones <konference(zv)petrvones(tec)net> - 2.6.2005 11:07:25
From: "Jirka" <jw-delphi(zv)seznam(tec)cz>
> prosim poradte. Pri spousteni firebirdu to na WinXP nahlasi
> chybu: 10067 - Too many processes.
To bude nejspise Windows Socket chyba: WSAEPROCLIM
Too many processes.
A Windows Sockets implementation may have a limit on the number of
applications that can use it simultaneously. WSAStartup may fail with this
error if the limit has been reached.
Petr Vones
Firebird - Too many processes pri spousteni
[*] Jirka <jw-delphi(zv)seznam(tec)cz> - 2.6.2005 11:01:24
Ahoj,
prosim poradte. Pri spousteni firebirdu to na WinXP nahlasi
chybu: 10067 - Too many processes.
Prosim poradte co s tim
Uz jsem z toho zoufalej.
Jirka
jpeg ulozeny Photoshopem
[*] votavaSW <mail(zv)votavasw(tec)com> - 2.6.2005 10:57:24
dobry den,
nemohu nacist do Image jpeg ulozeny v Photoshopu, velikost ma 1300 x
2000px, otevru-li ho napr. v IrfanView a nasledne ulozim, pak ho nactu i
do Image, orig. obrazek ma velikost 570kB, nekompr. 7.5MB, ovsem obrazek
ulozeny v irfanu je velky 1MB, nekompr. 7.5MB, setkal jste se s tim nekdo?
S pozdravem Votava w2k D5Pro
Problem s TADOConnection v D2005
[*] Petr Vones <konference(zv)petrvones(tec)net> - 2.6.2005 10:31:22
From: "Jan Netrval" <jnetrval(zv)pilscom(tec)cz>
> Po instalaci D2005 nejak nemohu najit paletu DB komponent pro ADO.
V D2005 jsou na palete "dbGo", dalsi marketingovy tah Borlandu ;-)
Petr Vones
OT: koupim D7 Profi
[*] Zapletal Martin <zapletal(zv)inoma(tec)cz> - 2.6.2005 08:15:12
Nemate nekdo na prodej D7 Profi? Nabidky na soukr. mail:
m.zaplik(zv)volny(tec)cz
Martin Problem s TADOConnection v D2005
[*] Jan Netrval <jnetrval(zv)pilscom(tec)cz> - 2.6.2005 08:01:11
Po instalaci D2005 nejak nemohu najit paletu DB komponent pro ADO. Znamena to, ze nevizualni komponenty TADOConnection a dalsi uz nejsou nebo se nekam ztratily. Uz to tu hledam pomerne dlouho a nejak neuspesne.
Diky
Ing. Jan Netrval
RunTime Error 216 at ....
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 1.6.2005 16:48:09
Ing. Petr Sikola <developer(zv)efg(tec)cz> wrote:
> Zdravim konferenci,
> lze z chyby "RunTime Error 216 at 000030DC" zjistit neco blizsiho?
> dela mi to aplikace ihned pri startu, nekdy pri ukoncovani. Je to
> naprosto nahodny, deje se to tak na 5% instalacich.
> Jsem bezradny.
> Dekuji
> V aplikaci mam pouzity JCLDebug, ten ale tuto chybu nechyti.
podle adresy k chybe dojde nekde v "low-level" kodu - na takhle
nizkych adresach bude nejspis neco z Borlandich systemovych knihoven
(system.pas, sysutils.pas atd). Tvuj kod zrejme vola nejakou borlandi
fci s parametry ktere vedeou k chybe. Zkus se podivat do MAP filu
jestli v nem o tom rozsahu nahodou neni nejaka zminka. Minimalne bys
podle MAP file mel zjisti, ve ktere knihovne/souboru je kod, kde doslo
k chybe.
>PS: pokud mam to stesti a aplikace mi padne na vzvojovem pc, tak to
>hodi
>cpuwindow, lze se tam nejak dopatrat, kde je chyba?
samozrejme - jednak vidis kus ASM vypisu, podle kteryho se da
lokalizovat puvodni zdrojak (bud vidis jmena fci/promennych a ty
dohledas, nebo z ASM listingu poznas co je to za kod - v nejhorsim
pripade muzes opsat par byty (!ve spravnem poradi a nesmis si vybrat
instrukce, ktere se relokuji) z hexa dumpu prislusneho kodu a nechat
je hledat v binarnich TPU. Pokud ovsem pouzijes debug TPU (=mas-li
zdrojaky k borlandim TPU) pak bude jednak CPU okno obsahovat vice
informaci a IDE zobrazi i borlandi zdrojak...
Vetsinou chybky tohoto typu mivaji neco spolecneho s
alokaci/inicializaci pameti. Zamysli se nad tim, kde v Tvem kodu se
alokuje.dealokuje pamet, kde se prepisuje nejaka pamet a snaz se
zjistit, zda nemuze nastat situace, kdy se pameti uvolni a znovu
nenaalokuje pred dalsim pouzitim, kde se muze psat za konec
alokovaneho bufferu atd. Obcas pomuze i prohnat program memproofem.
Zdravi
Dalibor Toman
Postoupeni zpravy Parentu
[*] Jan Harman <jharman(zv)volny(tec)cz> - 1.6.2005 16:42:09
Zdravim,
hledal jsem v archivu, protoze vim ze to tam nekde bylo, ale nic,
tak se s prosbou obracim na vas.
Mam na formu komponenty odvozene od TGraphicControl, potreboval
bych aby na zpravu MouseDown (nebo nejakou jinou mys) na grafice se
obslouzila udalost na grafice a pak to postoupila formu, tak jako by
tam grafika nebyla. To znamena, aby se formu zaslala taky zprava o
akci mysi. Snad to je srozumitelne.
Dekuji.
Honza
RunTime Error 216 at ....
[*] Ing. Petr Sikola <developer(zv)efg(tec)cz> - 1.6.2005 16:10:07
Zdravim konferenci,
lze z chyby "RunTime Error 216 at 000030DC" zjistit neco blizsiho?
dela mi to aplikace ihned pri startu, nekdy pri ukoncovani. Je to naprosto
nahodny, deje se to tak na 5% instalacich.
Jsem bezradny.
Dekuji
V aplikaci mam pouzity JCLDebug, ten ale tuto chybu nechyti.
D5, Win XP
Petr Sikola
PS: pokud mam to stesti a aplikace mi padne na vzvojovem pc, tak to hodi
cpuwindow, lze se tam nejak dopatrat, kde je chyba?
Protected Metody - oprava zdroje
[*] milan.tomes(zv)radom-cz(tec)cz - 1.6.2005 15:46:04
Jan Harman napsal(a):
>Unit A;
>Taaa = class
>Protected
>Procedure ppp(cmp: Taaa); virtual;
>end;
>
>Unit B;
>Tbbb = class (Taaa)
>instA: Taaa;
>Private
>Procedure xxx;
>Protected
>Procedure ppp(cmp: Taaa); override;
>end;
>
>Tbbb.xxx;
>begin
>instA.ppp(self); // tady je chyba "Udeclared identifier: 'ppp'"
>end;
>
>Chtel jsem to sestrucnit, aby to nebylo tak slozite jak ve
>skutecnosti a udelal jsem chybu. Omlouvam se, dekuji.
>Honza
>
>
>
Ja jsem tedy jiny milan tomes nez ti odpovidal minule, ale snad ti poradim:)
1) budto chces volat metodu ppp ve tride Tbbb:
Tbbb.xxx;
begin
ppp(self);
end;
2) nebo chces volat metodu ppp ve tride Taaa
Tbbb.xxx;
begin
inherited ppp(self);
end;
3) kdyz vytvoris instanci instA a chces pouzivat ppp musela by byt public nebot ji volas mimo vlastni tridu i unitu. Nebo bys ji volal ve vlastni tride, coz je ti nanic.
Diky "protected" metodu ppp videla i trida Tbbb kdyz jsi pouzil override, ne ze budes videt i instA.ppp.
No snad jsem ti pomohl, pokud kecam opravte me:)
Milan tomes
PNGImage
[*] Sula Milos <milos.sula(zv)musumperk(tec)cz> - 1.6.2005 14:01:57
Ahoj ,
mam nainstalovanou komponentu TPNGImage a zkousim konvertovat TBitmap do png souboru.
PNG := TPNGObject.Create;
try
PNG.Assign(Image); //Convert TBitmap data into png
PNG.CompressionLevel:=quality;
PNG.SaveToFile(filename);
finally
PNG.Free;
end;
objekt TBitmap obsahuje obrazek , ktery ma PixelFormat pfDevice ( ve skutecnosti to je obrazek s odstiny sedi 256 barev-grayscale ). TPNG v Assign priradi sice spravnou barevnou hloubku tj. 8bit, ale ColorType nastavi na COLOR_RGB, pritom se jedna o grayscale > tim padem je obrazek vetsi. Nevite kde se to v PNGObject da korektne nastavit ? Taky nechapu jak PNGObject predurcuje jestli je TBitmap grayscale ???
Milos
TabOrder
[*] Suky <suky(zv)atlas(tec)cz> - 1.6.2005 10:41:43
Ahoj,
toto je odpoved na zpravu ze dne: 1. cervna 2005, 10:07:40:
Nejak ti nerozumim, je potrebuji jednoduchou prostou vec. Mam MDIForm, do tohoto formu taham MDIChild z DLL knihoven a v techto MDIChild formularich vytvarim TEdit a chci jen aby se dalo preskakovat v techto editech pomoci klavesy Tab, tak jak je to normalni. Co jsem zatim stacil zjistit je fakt, ze MDIForm ma pravdepodobne zaregistrovanou klavesu Tab jako ShortCut a tak ji mohu odchytit v udalosti OnShortCut, ale v MDIChild ji vubec nezachytim a ani se tam nedostane a tak mi nefunguje preskakovani z policka do policka. puvodni zprava:
> A proc ti vadi, ze klavesu Tab zachytava primo formular? To je preci
> normalni chovani Windows a nemel by byt duvod to menit.
> Ladislav Stary
TabOrder
[*] Ladislav Stary <stary(zv)ekodat(tec)cz> - 1.6.2005 10:07:40
A proc ti vadi, ze klavesu Tab zachytava primo formular? To je preci
normalni chovani Windows a nemel by byt duvod to menit.
Ladislav Stary
Suky napsal(a):
>Ahoj,
>
> toto je odpoved na zpravu ze dne: 1. cervna 2005, 7:51:29:
>
> Ano jedna se o Child okno, uz mi to vcera vecer trklo. Bohuzel stejne nevim jak zaridit aby klavesu Tab nezachytavalo hlavni okno.
>
> puvodni zprava:
>
>
>TabOrder
[*] Suky <suky(zv)atlas(tec)cz> - 1.6.2005 08:49:33
Ahoj,
toto je odpoved na zpravu ze dne: 1. cervna 2005, 7:51:29:
Ano jedna se o Child okno, uz mi to vcera vecer trklo. Bohuzel stejne nevim jak zaridit aby klavesu Tab nezachytavalo hlavni okno. puvodni zprava:
> Ahoj,
> tohle normalne funguje samo od sebe - TabStop je implicitne True a
> taky to opravdu funguje. Takze bez toho, abys nabidl nejake dalsi
> informace, se neda moc radit. Jen tak od boku me napada:
> 1) Je vubec kam skocit, tj. existuje jina komponenta, ktera muze
> prijmout Focus? To sice vypada divne, ale treba muze skoro vsechno
> lezet na disablovanem panelu apod.
> 2) Nejde o child okno?
> 3) Nemuze se komponenta, na kterou chces odskocit, branit prijeti
> focusu nekde v OnEnter apod.?
> David Lebeda
Program pro snimani obrazovky?
[*] Tomas Rosa <trosa(zv)seznam(tec)cz> - 1.6.2005 08:11:31
http://sourceforge.net/projects/camstudio/
ma dokonce i vlastni kodek, ktery nedela "prechody". A umi dokonce z
vysledneho videa udelat i Flash na web :-)
>Ahoj vespolek, nemate prosim nekdo %subj%, ale free? Zkousel jsem
>Macromedia Captivate, ale to je drahe. Jde o to, ze bych chtel udelat
>demonstraci ovladani jednoho programu a nechci do toho investovat.
>
>Veskere odezvy prosim na soukromy mail.
myslim ze to muze zajimat vice lidi :-)
S pozdravem
Tomas Rosa
------------------------=[ pinknet on every screen]=-----------------------
Tomas Rosa
Tomas.Rosa(zv)PinkNet(tec)cz http://www.pnws.org
+420 602 860 704
PinkNet Web Server for Win32 - FREEWARE www.pnws.org
---------------------------------------------------------------------------
TabOrder
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 1.6.2005 07:51:29
> vytvarim TEdit tzv. za provozu a potrebuji mezi nima
> skakat tabulatory. Nastavim TabStop na true a TabOrder a
> presto se neda pomoci tabulatoru z TEdit preskocit
> jinam.
Ahoj,
tohle normalne funguje samo od sebe - TabStop je implicitne True a
taky to opravdu funguje. Takze bez toho, abys nabidl nejake dalsi
informace, se neda moc radit. Jen tak od boku me napada:
1) Je vubec kam skocit, tj. existuje jina komponenta, ktera muze
prijmout Focus? To sice vypada divne, ale treba muze skoro vsechno
lezet na disablovanem panelu apod.
2) Nejde o child okno?
3) Nemuze se komponenta, na kterou chces odskocit, branit prijeti
focusu nekde v OnEnter apod.?
David Lebeda
Program pro snimani obrazovky?
[*] John Bricklayer <bricklayer(zv)seznam(tec)cz> - 31.5.2005 23:48:53
No.. Myslim ze docela FREE je funkce "PrintScreen", kterou mame kazdy na klavesnici
a programek "Malovani", ktery je v kazdych WINDOWS :-))>Ahoj vespolek, nemate prosim nekdo %subj%, ale free? Zkousel jsem
>Macromedia Captivate, ale to je drahe. Jde o to, ze bych chtel udelat
>demonstraci ovladani jednoho programu a nechci do toho investovat.
>
>Veskere odezvy prosim na soukromy mail.
>
>RNDr. Petr Brant [brant(zv)dcomm(tec)cz]
>http://brant.wz(tec)cz
>
>
>
>__________ NOD32 1.1117 (20050531) Information __________
>
>This message was checked by NOD32 antivirus system.
>http://www.nod32.com
>
>
zaslani zpravy na ICQ
[*] Radek Cervinka <radek.cervinka(zv)technodat(tec)cz> - 31.5.2005 21:18:42
Jiri Cincura wrote:
> Radek Cervinka wrote (on Tuesday, May 31, 2005 3:15 PM):
>
>>Zdravim,
>>
>>da se v soucasnosti nejak zaslat zprava na ICQ?
>>> Na sourceforge.net je Ticq trida, ktera zapouzdruje ICQ protokol pro delphi.
vypada nadejne zkusim diky, pro ostatni
http://sourceforge.net/projects/ticqlib/
Radek
Refresh potomka TCustomTreeView
[*] Radek Cervinka <radek.cervinka(zv)technodat(tec)cz> - 31.5.2005 21:08:42
Jiri Bouchala wrote:
> Jedine co mi programove zpusobi automaticke vyvolani OnAdvancedCustomDrawItem pro strom nodu a tim potrebnou aktualizaci je volani BeginUpdate..EndUpdate. Vi jeste nekdo jiny postup?
>
> Jak donutit potomka TCustomTreeView k prekresleni, aby probehly udalosti OnAdvancedCustomDrawItem?
> Potrebuji ho aktualizovat po zmenach dat v bufferu do ktereho ukazuji property Data jednotlivych nodu nikoli jen po rozbaleni nodu nebo pouziti scrollbaru atd. Nejlepe priklad.
> Diky
pouzij VirtualTreeView, divim se ze ti to jeste nikdo neporadil, zvlaste
kdyz ma ulozena data timto zpusobem. VT tohle presne umi a umoznuje ridit
vykreslovani, muzes presne rict ktere node ma prekreslit.
Nebudes litovat a usetris si nervy.
Radek
Program pro snimani obrazovky?
[*] Jiri Cincura <diskuze(zv)cincura(tec)net> - 31.5.2005 20:22:38
Petr Brant wrote (on Tuesday, May 31, 2005 7:47 PM):
> Ahoj vespolek, nemate prosim nekdo %subj%, ale free? Zkousel jsem
> Macromedia Captivate, ale to je drahe. Jde o to, ze bych chtel udelat
> demonstraci ovladani jednoho programu a nechci do toho investovat.
Microsoft Media Encoder (9) umi snimat obrazovku.
--
Jiri Cincura
http://ID3renamer.cincura.net/
ICQ: 314711544; Yahoo!: x2develop
http://photo.cincura.net/TabOrder
[*] Suky <suky(zv)atlas(tec)cz> - 31.5.2005 20:06:37
Ahoj,
toto je odpoved na zpravu ze dne: 31. kvetna 2005, 17:01:38:
s tim tedy moc nesouhlasim, jelikoz k tomuto ucelu preci slouzi TEdit.TabOrder := x;
S pozdravem,
Michal Soukup
http://hobitin.blogspot.com/ (Blog Bilba Pytlika z Kraje)
puvodni zprava:
LS> Suky napsal(a):
>> Diky, ale to mi vubec nepomohlo. Ja nepotrebuji vedet jak vytvorit
>> TEdit, ale jak ho donutit k akceptovani preskakovani pomoci klavesy Tab. Nebo
>> jsem neco prehledl?
>>
LS> Asi hloupa otazka, ale prece. Zkusil sis vubec ten priklad, co poslal Pavel?
LS> Ja jo a funguje, takze nevim, kde by si mohl mit problem.
LS> Pokud ti teda neusel tento radek:
LS> a[i].tag := i; //vhodne pro setFocus
LS> cimz si nastavujes, v jakem poradi skace program pomoci Tab z jednoho editu na dalsi.
LS> Ladislav Stary
Pravod tabulky z xls do dbf
[*] Zdenek Gala <zgala(zv)atlas(tec)cz> - 31.5.2005 19:54:36
Dobry den,
mam nasledujici problem. Exportoval jsem tabulku z Excelu do dbf. V dbf mi
vsak chybi nazvy sloupcu. Nemuzu tedy pouzit Table1['neco']. Kudy z toho
ven?
Dekuji, DZDZD.OT: Program pro snimani obrazovky?
[*] Petr Brant <brant(zv)dcomm(tec)cz> - 31.5.2005 19:46:35
Ahoj vespolek, nemate prosim nekdo %subj%, ale free? Zkousel jsem
Macromedia Captivate, ale to je drahe. Jde o to, ze bych chtel udelat
demonstraci ovladani jednoho programu a nechci do toho investovat.
Veskere odezvy prosim na soukromy mail.
RNDr. Petr Brant [brant(zv)dcomm(tec)cz]
http://brant.wz(tec)cz
TabOrder
[*] Ladislav Stary <stary(zv)ekodat(tec)cz> - 31.5.2005 17:15:39
Sorry, omlouvam se za placani nesmyslu. Nejak jsem si to popletl.
Nic to ale nemeni na tom, ze mi ten priklad funguje. Takze otazka je,
jestli tam nemas nejake speciality,
ktere potlacuji zakladni chovani klavesy Tab.
Ladislav Stary
>Asi hloupa otazka, ale prece. Zkusil sis vubec ten priklad, co poslal Pavel?
>
>Ja jo a funguje, takze nevim, kde by si mohl mit problem.
>Pokud ti teda neusel tento radek:
>
> a[i].tag := i; //vhodne pro setFocus
>
>cimz si nastavujes, v jakem poradi skace program pomoci Tab z jednoho editu na dalsi.
>
>Ladislav Stary
>
>
>TabOrder
[*] Ladislav Stary <stary(zv)ekodat(tec)cz> - 31.5.2005 17:01:38
Suky napsal(a):
> Diky, ale to mi vubec nepomohlo. Ja nepotrebuji vedet jak vytvorit TEdit, ale jak ho donutit k akceptovani preskakovani pomoci klavesy Tab. Nebo jsem neco prehledl?
>
>
>
Asi hloupa otazka, ale prece. Zkusil sis vubec ten priklad, co poslal Pavel?
Ja jo a funguje, takze nevim, kde by si mohl mit problem.
Pokud ti teda neusel tento radek:
a[i].tag := i; //vhodne pro setFocus
cimz si nastavujes, v jakem poradi skace program pomoci Tab z jednoho editu na dalsi.
Ladislav Stary
TabOrder
[*] Suky <suky(zv)atlas(tec)cz> - 31.5.2005 16:43:36
Ahoj,
toto je odpoved na zpravu ze dne: 31. kvetna 2005, 16:15:33:
Diky, ale to mi vubec nepomohlo. Ja nepotrebuji vedet jak vytvorit TEdit, ale jak ho donutit k akceptovani preskakovani pomoci klavesy Tab. Nebo jsem neco prehledl?
S pozdravem,
Michal Soukup
http://hobitin.blogspot.com/ (Blog Bilba Pytlika z Kraje)
puvodni zprava:
dkc> Zdravim,
dkc> nevim jak vytvaris TEdit za provozu, pro se zkus podivat, jak to delam ja
dkc> Pavel ZIDEK
dkc> type
dkc> TForm1 = class(TForm)
dkc> ...
dkc> private
dkc> a : Array of TEdit; // Dynamicka deklarace pole, prace s timto, je
dkc> stejna jako s jakymkoliv polem...
dkc> end;
dkc> procedure TForm1.FormActivate(Sender: TObject);
dkc> var
dkc> i: integer;
dkc> begin
dkc> a := nil; //radeji dyn. pole vynulujeme
dkc> for i := 0 to 5 do
dkc> begin
dkc> SetLength(a, high(a) + 2); // Vytvori dynamicke pole
dkc> a[i] := TEdit.create(form1); // Vytvori Edit, dale se na ni budete
dkc> odkazovat a[i]
dkc> // a[i] := TEdit.create(self); // to same, ale vytvoreni na aktualnim
dkc> Formu
dkc> a[i].parent := form1; // kam se ma Edit vytvorit ...
dkc> a[i].top := i * 21; //
dkc> a[i].tag := i; //vhodne pro setFocus
dkc> a[i].left := 4; // umisteni na formu
dkc> a[i].width := 120;
dkc> a[i].height := 21;
dkc> a[i].visible := true; //aby TEdit sel vydet...
dkc> a[i].OnExit := EditExit; // a zde se prideli nejaka udalost pro vsechny
dkc> Edity
dkc> a[i].OnEnter := EditEnter;
dkc> end;
dkc> end;
dkc> procedure TForm1.FormDestroy(Sender: TObject);
dkc> var
dkc> i: integer;
dkc> begin
dkc> for i:=0 to high(a) do a[i].Free; //uvolneni komponent Edit
dkc> a := nil; //uvolneni a vyprazdneni pole
dkc> end;>> vytvarim TEdit tzv. za provozu a potrebuji mezi nima skakat tabulatory.
>> Nastavim TabStop na true a TabOrder a presto se neda pomoci tabulatoru z
>> TEdit preskocit jinam.
zaslani zpravy na ICQ
[*] Skalsky Milan <skalsky(zv)komercpoj(tec)cz> - 31.5.2005 16:21:34
Nevim, jestli jsem to dobre pochopil, ale pokud by ti stacilo pripojit se na nejake sve ICQ UIN, poslat nekomu zpravu a zas se odpojit, tak by to slo realizovat pres ICQkomponentu a nejakeho primitivniho ICQklienta, co spichnes v delphinech za chvili. Pak uz by nemel byt problem odchytit spravny connect do site a poslat zpravu na dane UIN nekomu jinemu ...
...tu komponentu s prikladama muzu klidne poslat, funguje to docela dobre, zkousel jsem to taky :)
Milan
P.S.
samozrejme nerikam, ze je to nejlepsi reseni, ale dokud to funguje a nenajdes jinou cestu, mohlo by to pomoct ...
-----Original Message-----
Zdravim,
da se v soucasnosti nejak zaslat zprava na ICQ?
Pomoci
'http://wwp.icq.com/scripts/WWPMsg.dll?from=' + PFrom +
'&fromemail=' + Pfromemail + '&subject=' + Psubject + '&body=' +
Pbody + '&to=' + Ptoicqnumber + '&submit=send';
to nejde, je tam obrazek s cislem (ani se nedivim).
sifrovani a desifrovani retezcu
[*] Jaroslav Pivonka <jpivonka(zv)centrum(tec)cz> - 31.5.2005 16:21:34
function Sifruj(s:string;soubor:string;offset:integer):string;
var Buf:string; i,len:Integer;
begin
with tFileStream.Create(soubor,fmOpenRead+fmShareDenyWrite) do try
Seek(16384,soFromBeginning); // u JPG souboru preskakat zacatek
Seek(offset,soFromCurrent);
len:=Length(s);
SetLength(Buf,Len);
Read(Buf[1],Len);
for i:=1 to len do Buf[i]:=chr(Ord(s[i]) xor Ord(Buf[i]));
finally
free
end;
result:=Buf
end;
----- Original Message -----
From: "Frantisek Mlcoch" <frantisek.mlcoch(zv)vsb(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Tuesday, May 31, 2005 1:45 PM
Subject: sifrovani a desifrovani retezcu
> Zdravim,
>
> potreboval bych sifrovat a desifrovat retezce a to tak, aby je mohl
> desifrovat jen nekdo, kdo bude mit k desifrovani spravny klic. Mohl by mi
> nekdo poradit, co za timto ucelem nejlepe vyuzit. Zvladne takove veci i
> Synapse? Prosim o nejaky ukazkovy priklad nebo alespon podrobny navod.
>
> Diky F.
>
>
>
> TabOrder
[*] Jan Rizek <jan_rizek(zv)centrum(tec)cz> - 31.5.2005 16:29:35
Zkus debugovat - odchytit si udalost stisku tabulatoru a krokovat to - teda
jestli se v tom vyznas - muze to byt pekny maglajz.. :-)
Suky wrote:
> Ahoj,
>
> vytvarim TEdit tzv. za provozu a potrebuji mezi nima skakat
> tabulatory. Nastavim TabStop na true a TabOrder a presto se neda
> pomoci tabulatoru z TEdit preskocit jinam.
--
I am using the free version of SPAMfighter for private users.
It has removed 562 spam emails to date.
Paying users do not have this message in their emails.
Try www.SPAMfighter.com for free now!zaslani zpravy na ICQ
[*] Martin Pisarik <martin.pisarik(zv)seznam(tec)cz> - 31.5.2005 16:25:34
Nez to budes delat, tak se ujisti, zda to neni zakazano. Rekl bych, ze kdyz
se to snazi ztizit pomoci toho obrazku, tak to mozna bude pro nektere ucely
(spamming apod) zakazano. Jiste maji nekde nejaky podminky a mozna i nejake
reseni pro zabudovani do vlastniho programu.> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz
> [mailto:delphi-l-owner(zv)clexpert(tec)cz]On Behalf Of Tomsik Radek
> Sent: Tuesday, May 31, 2005 4:12 PM
> To: delphi-l(zv)clexpert(tec)cz
> Subject: Re: zaslani zpravy na ICQ
>
>
> .... jo, napsat si vlastni OCR a ten obrazek rozlustit a doplnit
> pozadovane
> udaje .. :o))) ... funguje to, videl jsem podobnym zpusobem reseny
> program na posilani sms pres free branu Eurotelu a Oskara ... bohuzel si
> ted nevzpomenu jak se jmenuje, ale az dojdu domu podivam se po nem, nebo
> zkus hledat na internetu, treba google najde ... bylo to psano v delphi a
> fungovalo to velice dobre ... mozna, ze kdyz kontaktujes autora,
> podeli se
> s tebou o informace ...
>
> Radek
>
>
>
>
> "Radek Cervinka" <radek.cervinka(zv)technodat(tec)cz>
> Odeslal: delphi-l-owner(zv)clexpert(tec)cz
> 31.05.2005 15:15
> Odpovezte prosim uzivateli delphi-l
>
>
> Komu: delphi-l(zv)clexpert(tec)cz
> Kopie:
> Predmet: zaslani zpravy na ICQ
>
>
> Zdravim,
>
> da se v soucasnosti nejak zaslat zprava na ICQ?
>
> Pomoci
> 'http://wwp.icq.com/scripts/WWPMsg.dll?from=' + PFrom +
> '&fromemail=' + Pfromemail + '&subject=' + Psubject + '&body=' +
> Pbody + '&to=' + Ptoicqnumber + '&submit=send';
>
> to nejde, je tam obrazek s cislem (ani se nedivim).
>
> Nejaky napad?
>
> Radek
>
>
>
>
>
>
TabOrder
[*] delphi(zv)kopr(tec)cz - 31.5.2005 16:15:33
Zdravim,
nevim jak vytvaris TEdit za provozu, pro se zkus podivat, jak to delam ja
Pavel ZIDEK
type
TForm1 = class(TForm)
...
private
a : Array of TEdit; // Dynamicka deklarace pole, prace s timto, je
stejna jako s jakymkoliv polem...
end;
procedure TForm1.FormActivate(Sender: TObject);
var
i: integer;
begin
a := nil; //radeji dyn. pole vynulujeme
for i := 0 to 5 do
begin
SetLength(a, high(a) + 2); // Vytvori dynamicke pole
a[i] := TEdit.create(form1); // Vytvori Edit, dale se na ni budete
odkazovat a[i]
// a[i] := TEdit.create(self); // to same, ale vytvoreni na aktualnim
Formu
a[i].parent := form1; // kam se ma Edit vytvorit ...
a[i].top := i * 21; //
a[i].tag := i; //vhodne pro setFocus
a[i].left := 4; // umisteni na formu
a[i].width := 120;
a[i].height := 21;
a[i].visible := true; //aby TEdit sel vydet...
a[i].OnExit := EditExit; // a zde se prideli nejaka udalost pro vsechny
Edity
a[i].OnEnter := EditEnter;
end;
end;
procedure TForm1.FormDestroy(Sender: TObject);
var
i: integer;
begin
for i:=0 to high(a) do a[i].Free; //uvolneni komponent Edit
a := nil; //uvolneni a vyprazdneni pole
end;
>
> vytvarim TEdit tzv. za provozu a potrebuji mezi nima skakat tabulatory.
> Nastavim TabStop na true a TabOrder a presto se neda pomoci tabulatoru z
> TEdit preskocit jinam.
>zaslani zpravy na ICQ
[*] Tomsik Radek <tomsir1.edu(zv)mail.cez(tec)cz> - 31.5.2005 16:11:33
.... jo, napsat si vlastni OCR a ten obrazek rozlustit a doplnit pozadovane
udaje .. :o))) ... funguje to, videl jsem podobnym zpusobem reseny
program na posilani sms pres free branu Eurotelu a Oskara ... bohuzel si
ted nevzpomenu jak se jmenuje, ale az dojdu domu podivam se po nem, nebo
zkus hledat na internetu, treba google najde ... bylo to psano v delphi a
fungovalo to velice dobre ... mozna, ze kdyz kontaktujes autora, podeli se
s tebou o informace ...
Radek
"Radek Cervinka" <radek.cervinka(zv)technodat(tec)cz>
Odeslal: delphi-l-owner(zv)clexpert(tec)cz
31.05.2005 15:15
Odpovezte prosim uzivateli delphi-l
Komu: delphi-l(zv)clexpert(tec)cz
Kopie:
Predmet: zaslani zpravy na ICQ
Zdravim,
da se v soucasnosti nejak zaslat zprava na ICQ?
Pomoci
'http://wwp.icq.com/scripts/WWPMsg.dll?from=' + PFrom +
'&fromemail=' + Pfromemail + '&subject=' + Psubject + '&body=' +
Pbody + '&to=' + Ptoicqnumber + '&submit=send';
to nejde, je tam obrazek s cislem (ani se nedivim).
Nejaky napad?
Radek
sifrovani a desifrovani retezcu
[*] Jaroslav Pivonka <jpivonka(zv)centrum(tec)cz> - 31.5.2005 15:41:30
Takhle neee... Linearni generatory jsou pro Hurvnika. V dnesni dobe, kdy na
nejakem gigabajtu nezalezi a disky jsou plne souboru s nizkou redundanci
(ZIP,RAR,JPG,MP3,CAB), je nejjednodussi pouzivat XOR pres nejaky takovy
soubor. Do nejakeho retezce (Klic) si nacti kus dat z takoveho souboru,
dlouhy jako to, co chces sifrovat. Ne od zacatku, ale az nekde zprostredka.
Takze klice budou dva: Za prve ten soubor sam, druhy pak offset, odkud
zrovna beres data. A pak jen for i:=1 to length(OtevrenyText) do
SifrovanyText[i]:=OtevrenyText[i]^Klic[i]; zpatky uplne stejne. Jako klic ti
poslouzi libovolna fotka nebo pisnicka, kterou mas jak ty tak adresat. Tuto
sifru nelze rozbit ani teoreticky, pokud zadny klic (resp jednou pouzity
kus) nepouzijes podruhe. Prijemnou zabavu. Jarda
----- Original Message -----
From: "Petr Brant" <brant(zv)dcomm(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Tuesday, May 31, 2005 2:13 PM
Subject: Re: sifrovani a desifrovani retezcu
> Nekde jsem nasel toto, neni to sice nic bezpecneho, nicmene to funguje.
> Princip je v tom, ze se pouzije RandSeed pro inicializaci generatoru
> nahodnych cisel ... zaslani zpravy na ICQ
[*] Jiri Cincura <diskuze(zv)cincura(tec)net> - 31.5.2005 15:41:30
Radek Cervinka wrote (on Tuesday, May 31, 2005 3:15 PM):
> Zdravim,
>
> da se v soucasnosti nejak zaslat zprava na ICQ?
>
> Pomoci
> 'http://wwp.icq.com/scripts/WWPMsg.dll?from=' + PFrom +
> '&fromemail=' + Pfromemail + '&subject=' + Psubject + '&body=' + Pbody
> + '&to=' + Ptoicqnumber + '&submit=send';
>
> to nejde, je tam obrazek s cislem (ani se nedivim).
>
> Nejaky napad?
>
> Radek
Na sourceforge.net je Ticq trida, ktera zapouzdruje ICQ protokol pro delphi.
--
Jiri Cincura
http://ID3renamer.cincura.net/
ICQ: 314711544; Yahoo!: x2develop
http://photo.cincura.net/Refresh potomka TCustomTreeView
[*] Jiri Bouchala <bouchala(zv)starmon(tec)cz> - 31.5.2005 15:47:31
Jedine co mi programove zpusobi automaticke vyvolani OnAdvancedCustomDrawItem pro strom nodu a tim potrebnou aktualizaci je volani BeginUpdate..EndUpdate. Vi jeste nekdo jiny postup?
Jak donutit potomka TCustomTreeView k prekresleni, aby probehly udalosti OnAdvancedCustomDrawItem?
Potrebuji ho aktualizovat po zmenach dat v bufferu do ktereho ukazuji property Data jednotlivych nodu nikoli jen po rozbaleni nodu nebo pouziti scrollbaru atd. Nejlepe priklad.
Diky
TabOrder
[*] Suky <suky(zv)atlas(tec)cz> - 31.5.2005 15:43:30
Ahoj,
vytvarim TEdit tzv. za provozu a potrebuji mezi nima skakat tabulatory. Nastavim TabStop na true a TabOrder a presto se neda pomoci tabulatoru z TEdit preskocit jinam.
--
S pozdravem,
Michal Soukup
http://hobitin.blogspot.com/ (Blog Bilba Pytlika z Kraje)
Protected Metody - oprava zdroje
[*] Jan Harman <jharman(zv)volny(tec)cz> - 31.5.2005 15:15:28
Unit A;
Taaa = class
Protected
Procedure ppp(cmp: Taaa); virtual;
end;
Unit B;
Tbbb = class (Taaa)
instA: Taaa;
Private
Procedure xxx;
Protected
Procedure ppp(cmp: Taaa); override;
end;
Tbbb.xxx;
begin
instA.ppp(self); // tady je chyba "Udeclared identifier: 'ppp'"
end;
Chtel jsem to sestrucnit, aby to nebylo tak slozite jak ve
skutecnosti a udelal jsem chybu. Omlouvam se, dekuji.
Honza