Archív konference Delphi
Zpět na výběr roku archívu nebo přejít na fulltextové vyhledávání v konferenci.
Graf do ISAPI
[*] Jiri Virt <virt(zv)volny(tec)cz> - 16.4.2004 08:26:29
Ahoj,
chci se zeptat,
jak strcit graf do ISAPI aplikace? Jde to nebo to musim delat pres object
ActiveX?
Diky
Jirka Virt
Proxy a ruzne autorizace
[*] Ludek ZITA <konference(zv)sales(tec)cz> - 15.4.2004 21:38:19
On Behalf Of Lebeda David
> ..... Dokazali jsme do
> aplikace doplnit
> podporu NTLM autorizace,
Ahoj.
Muzu poprosit o priklad ?
Ludek
OT kombinacni pocet
[*] Ing. Keder Vladimir <vkeder(zv)iol.sk> - 15.4.2004 20:30:09
Ahoj
Ak chces urobit rozlosovanie turnaja, skus sa pozriet na
http://avr-sr.host.sk/pravidla/sestkovy/Berger.html Jedna sa o bergerove
tabulky a podla tohoto kluca sa losuje futbalova liga. Na Slovesnku a iste
aj v Cechach to plati pre vsetky aj regionalne ligy na celu sezonu - jesenna
aj jarna cast.
Vlado
> neni to sice primo o programovani, ale potrebuju to pro program v Delphi.
>
> Trapim se uz nejakou dobu s timto problemem:
> Jako rychlou kontrolu splnitelnosti vstupnich podminek pro jeden program v
Delphi
> (rozlosovani turnaje) potrebuju spocitat pocet k-tic (bez ohledu na
poradi, k>2) z n-
> prvkove mnoziny (n>k) za nasledujici omezujici podminky:
OT kombinacni pocet
[*] martin kolos <xkoky(zv)atlas(tec)cz> - 15.4.2004 15:53:50
ahoj
ja jich nasel sest
napr:
1 2 3 4
2 5 6 7
6 8 9 10
10 11 12 1
3 5 8 11
4 7 9 12
martin kolos
>
>>> Tj. pokud vybiram napr. ctverice (k=4) z 12ti prvkove mnoziny
>>> (n=12), a jedna ctverice je (1,2,3,4), pak uz nesmi byt
>>> ctverice, kde by se vyskytovala libovolna dvojice z teto
>>> ctverice. Takze napr. (1,4,8,10) nebo (2,3,4,5) je spatne.
>
>>On 15 Apr 2004 at 13:13, ivan.holubec(zv)hella.com wrote:
>> A nie je to pre tento pipad 12 / 4 = 3 ?
>>
>Pro tento pripad (n=12. k=4) asi ano, ale bude to platit obecne pro
>Pavel Zichovsky (zichovsky(zv)trul(tec)cz)
Proxy a ruzne autorizace
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 15.4.2004 15:45:49
Ahoj,
delam takovou sondaz, co pouzit k programovani aplikace, ktera prenasi soubory pres
internet. Stavajici reseni pouziva komponenty F. Pietteho (ICS), ale jako problem se
ukazuji ruzne autorizace u proxy serveru (basic, ntlm, kerberos...). Nevite nekdo o
komponente (objektu, knihovne apod.), ktera by podporovala HTTP protokol i s proxy a
mela by v sobe jiz zabudovanou podporu ruznych zpusobu autorizace, aby to clovek
nemusel nejak amatersky dolepovat na kolene? Dokazali jsme do aplikace doplnit
podporu NTLM autorizace, ale uvitali bychom, kdyby bylo jiz hotove reseni s co
nejvetsim poctem tech autorizaci. Nemusi byt free.
Diky
David Lebeda
pocet Timer-u v Delphi (win)
[*] Petr Vones <pvones(zv)vol(tec)cz> - 15.4.2004 15:05:45
From: "Jan Rizek" <abxsw(zv)centrum(tec)cz>
> Je nejak omezen pocet Timeru ve win popr. v Delphi?
>
> Neco jako maximalni hodnota 1024 v celem systemu?
Pocet timer je omezen systemem, tusim na cca 1000. Nicmene neni duvod mit vice
jak jeden timer v cele aplikaci jako "casovou zakladnu" a z neho pak generovat
udalosti pomoci vlastnich counteru.
Petr Vones
FB trigger - jmeno tabulky
[*] Jan Rizek <abxsw(zv)centrum(tec)cz> - 15.4.2004 15:01:45
lze zjistit v trigeru jmeno tabulky, ktere tento triger nalezi?
Chtel bych udelat jeden obecny triger pro vsechny tabulky..
JR
Odeslani udalosti
[*] Bronislav Klucka <bronislav.klucka(zv)pro2-soft(tec)com> - 15.4.2004 14:55:44
Oprava kodu z meho 3. mailu
type
TForm1
procedure VytvorLabelButtonClick(Sender:TObject);
procedure VytvorImageButtonClick(Sender:TObject);
protected
procedure MyOnLabelClick(Sender:TObject);
function
CoLeziPodemnou(Komponenta:TComponent;MysX,MysY:integer):TComponent;
procedure ProvedComponentClick(komponenta:TComponent);
end;
implementation
procedure TForm1.VytvorLabelButtonClick(Sender:TObject);
var Label:TLabel;
begin
Label:=TLabel.Create(Self);
InsertControl(label);
Label.OnClick:=MyOnLabelClick;
end;
procedure TForm1.VytvorImageButtonClick(Sender:TObject);
var image:TImage;
begin
image:=TImage.Create(Self);
InsertControl(image);
image.OnClick:=MyOnLabelClick;
end;
procedure TForm1.MyOnLabelClick(Sender:TObject);
var komponenta:TComponent;
begin
if (Sender is TImage) then
komponenta:=CoLeziPodemnou(TComponent(Sender),Mouse.X,Mouse.Y) else
komponenta:=TComponent(Sender);
ProvedComponentClick(komponenta);
end;
function
TForm1.CoLeziPodemnou(Komponenta:TComponent;MysX,MysY:integer):TComponent;
begin {pomoci fce MouseToScreen, nebo ClientToStreen, nebo tak nejak prevadis
pozice krysy na nejake lepe pouzitelne hodnoty} end;
procedure TForm1.ProvedComponentClick(komponenta:TComponent);
begin
Komponenta.color:=clWhite;
....
end;
Odeslani udalosti
[*] Bronislav Klucka <bronislav.klucka(zv)pro2-soft(tec)com> - 15.4.2004 14:49:42
No, myslim, ze pozice jednotlivych prvku na formulari znas, kam si klik
mysi na formular take zjistis, co ti potom brani zjistit, ktera komponenta
lezi na miste kliknuti? velmi zjednodusene asi takto:
bytvoris obecnou methodu pro event kliku (napr.)
procedure OnComponentClick(Sender:TObject);
tuto methodu priradis kaznemu prvku, ktery vytvoris, (viz. nize), i tomu
image. na OnClick zjistis, zda si to sama komponenta (Label) osetri, nebo
to je image a zjistis, kam si klikl a lezi pod nim zjistis, zjistis, co
tam lezi za komponentu (napr. button3) a zavolas:
ProvedComponentClick(Button3);
Tzn:podrobneji (nemam ted u sebe delphi, takze spousta method se bude
jenovat jinak, ale snad Ti bude jasne, co tim chci rici).
type
TForm1
procedure VytvorLabelButtonClick(Sender:TObject);
procedure VytvorImageButtonClick(Sender:TObject);
protected
Label:TLabel;
procedure MyOnLabelClick(Sender:TObject);
function
CoLeziPodemnou(Komponenta:TComponent;MysX,MysY:integer):TComponent; end;
implementation
procedure TForm1.VytvorLabelButtonClick(Sender:TObject);
var Label:TLabel;
begin
Label:=TLabel.Create(Self);
InsertControl(label);
Label.OnClick:=MyOnLabelClick;
end;
procedure TForm1.VytvorImageButtonClick(Sender:TObject);
var image:TImage;
begin
image:=TImage.Create(Self);
InsertControl(image);
image.OnClick:=MyOnLabelClick;
end;
procedure TForm1.MyOnLabelClick(Sender:TObject);
var komponenta:TComponent;
begin
if (Sender is TImage) then
komponenta:=CoLeziPodemnou(TComponent(Sender),Mouse.X,Mouse.Y) else komponenta:=TComponent(Sender);
MyOnLabelClick(komponenta);
end;
function
TForm1.CoLeziPodemnou(Komponenta:TComponent;MysX,MysY:integer):TComponent; begin
{pomoci fce MouseToScreen, nebo ClientToStreen, nebo tak nejak prevadis
pozice krysy na nejake lepe pouzitelne hodnoty} end;
procedure TForm1.MyOnLabelClick(Sender:TObject);
var komponenta:TComponent;
begin
komponenta:=TComponent(Sender);
Komponenta.color:=clWhite;
....
end;
Trosku si s tim samozrejme jeste pohraj ::). Snad jsem alespon trosku
pomohl. A hodilo by se pred pretypovanim se pro jistotu ujistit, zda jsou
skutecne parametry daneho typu.
Brona
> Tedy aby to bylo jasnejsi, mam graficky program kde se vytvareji
> komponenty na formulari dynamicky (jsou tam vrstvy..neco jako
> photoshop), je jich tam vice a kdyz na objekt kliknu oznaci se,
> presouvam ho, upravuju... ale potreboval bych jeste nakreslit 2x kruh
> nad nimi (presah pri tisku), umistim-li nad ne image tak pak snimi nic
> neudelam. Tvoje reseni je supr ale pouze pro jeden objekt pod image
> jestli ho dobre chapu. Myslel jsem ze bo to mohlo udelat nejake
> odchyceni udalosti na image1 a odeslat pod nej, nevim ale jestli to je
> vibec technicky mozne...
>
> Radek Szurman
>
>> 1/
>> type
>> TForm1
>> procedure FormCreate(Sender:TObject);
>> protected
>> Label:TLabel;
>> procedure MyOnLabelClick(Sender:TObject);
>> end;
>>
>> implementation
>>
>> procedure FormCreate(Sender:TObject);
>> begin
>> Label:=TLabel.Create(Self);
>> InsertControl(label);
>> Label.OnClick:=MyOnLabelClick;
>> end;
>>
>> P.S. s tim "neco, co by tam bylo, jako by to tam nebylo" bud
>> kontretnejsi. POpis svuj problem, abych Ti mohl lepe poradit
>> Brona
>>
>>
>> > Jo, napad je to dobry, ale neni to uplne ono protoze problem je ze
>> > ten label1 je tvoren dynamicky a bylo by to hodne komplikovanejsi
>> > (neznam jeho nazev, misto...), potreboval bych neco jako
>> > transparentni udalosti, nebo neco na co muzu kreslit a neslo to
>> > prekryt jinym objektem ale udalosti by zustaly jako kdyby tam nic
>> > nebylo.
>> >
>> > Radek Szurman
>> >
>> >
>> >> procedure TForm1.Image1MouseDown;
>> >> begin
>> >> Label1MouseDown(Label1);
>> >> end;
>> >>
>> >>
>> >> to by mohlo pomoci :)
>> >>
>> >> Brona
>> >>
>> >> > Cau, nevite nekdo jak predat udalosti kliku a pohybu mysi objektu
>> >> > ktery pod Image1 ? tj. kdyz kliknu na misto v pruhlednem image1
>> >> > kde je pod nim Label1 aby se provedla jeho udalost onMouseDown...
>> >> >
>> >> > Radek Szurman
OT kombinacni pocet
[*] Erik Salaj, Winsoft <winsoft(zv)netkosice.sk> - 15.4.2004 14:43:39
> =comb(n,k) * comb (n-k,k) * comb(n-2k,k) .... / ((n/k)!)
>
> kde comb (a,b) je odpovidajici kombinacni cislo
>
> Vyberu 1. k-tici, ze zbytku 2. k-tici a tak dal.K-tice vsak mohu
> prohazovat, coz na rozdeleni do skupin nema vliv, proto to deleni.
nezda sa mi to. Napr. pre k = 4, n >= 7 mas tam aj taku moznost (1, 2, 3, 4)
(1, 5, 6, 7)?
Pokial naozaj treba kontrolovat vstupne udaje na danu podmienku, tak sa
mi zda najjednoduchsie rovno ich kontrolovat, namiesto pocitania nejakych
kombinacii - ich spravny pocet mi predsa negarantuje, ze tie udaje su ok.
Erik
pocet Timer-u v Delphi (win)
[*] Jan Rizek <abxsw(zv)centrum(tec)cz> - 15.4.2004 14:41:37
Je nejak omezen pocet Timeru ve win popr. v Delphi?
Neco jako maximalni hodnota 1024 v celem systemu?
Netusite nekdo?
JR
OT kombinacni pocet
[*] Jaromir Cermak <cermak(zv)procom(tec)cz> - 15.4.2004 14:09:34
Predpokladam n-prvkovou mnozinu a chci zni vybirat k prvkove podmnoziny, pak pocet takovych podmnozin spocitam jako
n!/((n-k)!k!)
je to logicke. chci li spocitat kolika ruznych [poradi muzu vytvorit z n prvku pouziju n! (n-faktorial), mne ale nezalezi na poslednich n-k prvcich a tak to vydelim (n-k)! a nakonec, protoze mi nezalezi na poradi prvku staci to videlit k!. Snad je to srozumitelne. Jinak to jde zapsat pro dvojice napr takto n.(n-1)/2.
Jaromir Cermak
-----Original Message-----
From: Slavomir Skopalik [mailto:skopalik(zv)elektlabs(tec)cz]
> Trapim se uz nejakou dobu s timto problemem:
> Jako rychlou kontrolu splnitelnosti vstupnich podminek pro
> jeden program v Delphi (rozlosovani turnaje) potrebuju
> spocitat pocet k-tic (bez ohledu na poradi, k>2) z n- prvkove
> mnoziny (n>k) za nasledujici omezujici podminky: Libovolne
> dva prvky z mnoziny N muzou byt spolu maximalne v jedne k-tici.
>
> Tj. pokud vybiram napr. ctverice (k=4) z 12ti prvkove mnoziny
> (n=12), a jedna ctverice je (1,2,3,4), pak uz nesmi byt
> ctverice, kde by se vyskytovala libovolna dvojice z teto
> ctverice. Takze napr. (1,4,8,10) nebo (2,3,4,5) je spatne.
>
> Nedari se mi vymyslet postup, jak spocitat pocet platnych
> k-tic. Dokazu spocitat pocet vsech moznych k-tic (jako
> kombinace k z n) ale uz nevim, jak spocitat pocet
> "neplatnych" k-tic (s "opakujicimi se" dvojicemi).Obnova DOS aplikace z listy
[*] Frantisek Bohac <bohacf(zv)vnol(tec)cz> - 15.4.2004 14:01:33
Je potreba presunou aplikaci do popredi:
procedure SwitchToThisWindow(h1: hWnd; x: bool); stdcall;
external user32 Name 'SwitchToThisWindow';
{x = false: Size unchanged, x = true: normal size}
procedure TForm1.Button1Click(Sender: TObject);
var i: integer;
begin
i := FindWindow(Nil,'c:\winnt\system32\edit.com'); // zjisti handle okna
SwitchToThisWindow(i, True); // presune aplikaci do popredi
end;
S pozdravem
Frantisek Bohac
Petr Dedecek napsal(a):
>Nevite jak vratit DOS aplikaci na celou plochu ?
>
>
OT kombinacni pocet
[*] Pavel Zichovsky <zichovsky(zv)trul(tec)cz> - 15.4.2004 13:43:31
Zdravim,
On 15 Apr 2004 at 13:13, ivan.holubec(zv)hella.com wrote:
> A nie je to pre tento pipad 12 / 4 = 3 ?
>
> Tj. pokud vybiram napr. ctverice (k=4) z 12ti prvkove mnoziny (n=12), a
> jedna
Pro tento pripad (n=12. k=4) asi ano, ale bude to platit obecne pro jakekoliv n>k>2?
To se obavam, ze ne... uz pro n=16 a k=4 mam vic vyhovujicich ctveric nez 4 (jen
tak zkusmo jich mam 9 a to urcite nebudou vsechny)....
S pozdravem
Pavel Zichovsky (zichovsky(zv)trul(tec)cz)OT kombinacni pocet
[*] Pavel Zichovsky <zichovsky(zv)trul(tec)cz> - 15.4.2004 13:49:32
Zdravim,
On 15 Apr 2004 at 13:25, Slavomir Skopalik wrote:
> Me se na tom neco nezda, jelikoz podle toho co ctu by pri
> n=5 a k=4 byla jen jedna kombinace.
> a to sice liovolna, ale jen jedna. Je to v poradku ?
Ano, to je naprosto v poradku, pri tomto zadani opravdu nemuzu sestavit vice nez
jednu vyhovujici ctverici. Sice muze byt sestavena 5ti ruznymi zpusoby (to uz pro
zadani neni podstatne), ale at ji sestavim jakkoliv, zadna dalsi uz podmince
vyhovovat nebude.
S pozdravem
Pavel Zichovsky (zichovsky(zv)trul(tec)cz)OT kombinacni pocet
[*] Frantisek Mlcoch <frantisek.mlcoch(zv)vsb(tec)cz> - 15.4.2004 13:39:30
Jde o kombinace bez opakovani. Vzorec jsem ti poslal na soukromy email.
F.
Zapis do promenne formulare z RemoteDatamodulu
[*] Krakora Martin <krakoram(zv)seznam(tec)cz> - 15.4.2004 13:29:28
Zdravim,
udelal jsem si COM server (out-of-proc), kde mam i RemoteDataModul. V
AfterConstruction tohoto modulu jsem chtel zapsat nejakou hodnotu do labelu
na formulari tohoto serveru.
napr.:
procedure TPeAlarmData.AfterConstruction;
begin
inherited;
Inc(RefCnt);
Form1.Label1.Caption := IntToStr(RefCnt);
..
kde RefCnt je globalne definovana promenna typu Integer. Jenze kdyz dojde
k zapisu do labelu, cely server vytuhne. Kde delam chybu? Jsem pouze amater,
takze jsem se mozna dopustil zavazne chyby,kterou nedokazu odhalit. Pomuze
mi s tim nekdo, prosim?
Mimochodem ten objekt ma Threading model typu apartment, ale nevim jestli
to s tim muze souviset.
Predem moc diky, Krakora Martin
OT kombinacni pocet
[*] Slavomir Skopalik <skopalik(zv)elektlabs(tec)cz> - 15.4.2004 13:25:27
Me se na tom neco nezda, jelikoz podle toho co ctu by pri
n=5 a k=4 byla jen jedna kombinace.
a to sice liovolna, ale jen jedna. Je to v poradku ?
Slavek
>
> Trapim se uz nejakou dobu s timto problemem:
> Jako rychlou kontrolu splnitelnosti vstupnich podminek pro
> jeden program v Delphi (rozlosovani turnaje) potrebuju
> spocitat pocet k-tic (bez ohledu na poradi, k>2) z n- prvkove
> mnoziny (n>k) za nasledujici omezujici podminky: Libovolne
> dva prvky z mnoziny N muzou byt spolu maximalne v jedne k-tici.
>
> Tj. pokud vybiram napr. ctverice (k=4) z 12ti prvkove mnoziny
> (n=12), a jedna ctverice je (1,2,3,4), pak uz nesmi byt
> ctverice, kde by se vyskytovala libovolna dvojice z teto
> ctverice. Takze napr. (1,4,8,10) nebo (2,3,4,5) je spatne.
>
> Nedari se mi vymyslet postup, jak spocitat pocet platnych
> k-tic. Dokazu spocitat pocet vsech moznych k-tic (jako
> kombinace k z n) ale uz nevim, jak spocitat pocet
> "neplatnych" k-tic (s "opakujicimi se" dvojicemi).OT kombinacni pocet
[*] Lukas Barton <look_as(zv)cnawr(tec)cz> - 15.4.2004 13:19:25
Ahoj,
=comb(n,k) * comb (n-k,k) * comb(n-2k,k) .... / ((n/k)!)
kde comb (a,b) je odpovidajici kombinacni cislo
Vyberu 1. k-tici, ze zbytku 2. k-tici a tak dal.K-tice vsak mohu
prohazovat, coz na rozdeleni do skupin nema vliv, proto to deleni.
Lukas
> Dobry den,
>
> neni to sice primo o programovani, ale potrebuju to pro program v Delphi.
>
> Trapim se uz nejakou dobu s timto problemem:
> Jako rychlou kontrolu splnitelnosti vstupnich podminek pro jeden program v
Delphi
> (rozlosovani turnaje) potrebuju spocitat pocet k-tic (bez ohledu na
poradi, k>2) z n-
> prvkove mnoziny (n>k) za nasledujici omezujici podminky:
> Libovolne dva prvky z mnoziny N muzou byt spolu maximalne v jedne k-tici.
>
> Tj. pokud vybiram napr. ctverice (k=4) z 12ti prvkove mnoziny (n=12), a
jedna
> ctverice je (1,2,3,4), pak uz nesmi byt ctverice, kde by se vyskytovala
libovolna
> dvojice z teto ctverice. Takze napr. (1,4,8,10) nebo (2,3,4,5) je spatne.
>
> Nedari se mi vymyslet postup, jak spocitat pocet platnych k-tic.
> Dokazu spocitat pocet vsech moznych k-tic (jako kombinace k z n) ale uz
nevim, jak
> spocitat pocet "neplatnych" k-tic (s "opakujicimi se" dvojicemi).
>
> Nenasel by se nejaky matematik, ktery by mi s tim pomohl?
> Mohl bych si sice programove udelat vypis vsech moznych k-tic a pak
postupne
> "vyskrtavat" neplatne, ale se zvysujicim se poctem n a k by to trvalo
hrozne dlouho,
> takze kdyby to slo spocitat "vzoreckem", bylo by to jednodussi.
>OT kombinacni pocet
[*] ivan.holubec(zv)hella(tec)com - 15.4.2004 13:13:24
A nie je to pre tento pipad 12 / 4 = 3 ?
Tj. pokud vybiram napr. ctverice (k=4) z 12ti prvkove mnoziny (n=12), a
jedna
ctverice je (1,2,3,4), pak uz nesmi byt ctverice, kde by se vyskytovala
libovolna
dvojice z teto ctverice. Takze napr. (1,4,8,10) nebo (2,3,4,5) je spatne.
Nedari se mi vymyslet postup, jak spocitat pocet platnych k-tic.
Dokazu spocitat pocet vsech moznych k-tic (jako kombinace k z n) ale uz
nevim, jak
spocitat pocet "neplatnych" k-tic (s "opakujicimi se" dvojicemi).
OT kombinacni pocet
[*] Pavel Zichovsky <zichovsky(zv)trul(tec)cz> - 15.4.2004 12:39:21
Zdravim,
On 15 Apr 2004 at 12:13, Fitz Ladislav wrote:
> pri pouzeti nejake kombiace treba (1,2,3,4) si zapsat do matice ze pole
> [1,2][1,3][1,4][2,1][2,3][2,4][3,1][3,2][3,4][4,1][4,2][4,3] jiz byla
> pouzita a pri sestavovani nove si toto testovat akorat by to mohlo byt
No to je prave to, cemu se chci vyhnout. Nepotrebuju vytvaret vsechny platne
kombinace, pouze potrebuju spocitat jejich pocet.
S pozdravem
Pavel Zichovsky (zichovsky(zv)trul(tec)cz)OT kombinacni pocet
[*] Fitz Ladislav <ladislav.fitz(zv)kodytek(tec)cz> - 15.4.2004 12:13:19
no nejsem matematik, ale mozna by to slo takhle matice booleanu n krat n a
pri pouzeti nejake kombiace treba (1,2,3,4) si zapsat do matice ze pole
[1,2][1,3][1,4][2,1][2,3][2,4][3,1][3,2][3,4][4,1][4,2][4,3] jiz byla
pouzita a pri sestavovani nove si toto testovat akorat by to mohlo byt
narocne na pamet a pak bych asi sel pres nastavovani bitu
OT kombinacni pocet
[*] Pavel Zichovsky <zichovsky(zv)trul(tec)cz> - 15.4.2004 11:57:17
Dobry den,
neni to sice primo o programovani, ale potrebuju to pro program v Delphi.
Trapim se uz nejakou dobu s timto problemem:
Jako rychlou kontrolu splnitelnosti vstupnich podminek pro jeden program v Delphi
(rozlosovani turnaje) potrebuju spocitat pocet k-tic (bez ohledu na poradi, k>2) z n-
prvkove mnoziny (n>k) za nasledujici omezujici podminky:
Libovolne dva prvky z mnoziny N muzou byt spolu maximalne v jedne k-tici.
Tj. pokud vybiram napr. ctverice (k=4) z 12ti prvkove mnoziny (n=12), a jedna
ctverice je (1,2,3,4), pak uz nesmi byt ctverice, kde by se vyskytovala libovolna
dvojice z teto ctverice. Takze napr. (1,4,8,10) nebo (2,3,4,5) je spatne.
Nedari se mi vymyslet postup, jak spocitat pocet platnych k-tic.
Dokazu spocitat pocet vsech moznych k-tic (jako kombinace k z n) ale uz nevim, jak
spocitat pocet "neplatnych" k-tic (s "opakujicimi se" dvojicemi).
Nenasel by se nejaky matematik, ktery by mi s tim pomohl?
Mohl bych si sice programove udelat vypis vsech moznych k-tic a pak postupne
"vyskrtavat" neplatne, ale se zvysujicim se poctem n a k by to trvalo hrozne dlouho,
takze kdyby to slo spocitat "vzoreckem", bylo by to jednodussi.
Diky za vsechny napady
S pozdravem
Pavel Zichovsky (zichovsky(zv)trul(tec)cz)Lokalizator AddTransl.pas
[*] Zbysek Hlinka <hlinka(zv)hlinka(tec)cz> - 15.4.2004 11:41:15
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz
> [mailto:delphi-l-owner(zv)clexpert(tec)cz] On Behalf Of Lahoda Radek
> Sent: Thursday, April 15, 2004 9:27 AM
>
> zdravim,
> jak se s timto pracuje, aby slo prepinat jazyk za behu?
Je tu Heinisch Jiri, ze by to vysvetlitl?
Ja bych ti snaze poradil s Transl.pas (dela v podstate totez), ale tam je i
prikladek.
S pozdravem
Zbysek Hlinka
E-mail: hlinka zavin. hlinka(tec)cz
Odeslani udalosti
[*] Radek Szurman <surad(zv)digijoe(tec)com> - 15.4.2004 11:09:12
Tedy aby to bylo jasnejsi, mam graficky program kde se vytvareji komponenty
na formulari dynamicky (jsou tam vrstvy..neco jako photoshop), je jich tam
vice a kdyz na objekt kliknu oznaci se, presouvam ho, upravuju... ale
potreboval bych jeste nakreslit 2x kruh nad nimi (presah pri tisku),
umistim-li nad ne image tak pak snimi nic neudelam. Tvoje reseni je supr ale
pouze pro jeden objekt pod image jestli ho dobre chapu. Myslel jsem ze bo to
mohlo udelat nejake odchyceni udalosti na image1 a odeslat pod nej, nevim
ale jestli to je vibec technicky mozne...
Radek Szurman
> 1/
> type
> TForm1
> procedure FormCreate(Sender:TObject);
> protected
> Label:TLabel;
> procedure MyOnLabelClick(Sender:TObject);
> end;
>
> implementation
>
> procedure FormCreate(Sender:TObject);
> begin
> Label:=TLabel.Create(Self);
> InsertControl(label);
> Label.OnClick:=MyOnLabelClick;
> end;
>
> P.S. s tim "neco, co by tam bylo, jako by to tam nebylo" bud kontretnejsi.
> POpis svuj problem, abych Ti mohl lepe poradit
> Brona
>
>
> > Jo, napad je to dobry, ale neni to uplne ono protoze problem je ze ten
> > label1 je tvoren dynamicky a bylo by to hodne komplikovanejsi (neznam
> > jeho nazev, misto...), potreboval bych neco jako transparentni
> > udalosti, nebo neco na co muzu kreslit a neslo to prekryt jinym
> > objektem ale udalosti by zustaly jako kdyby tam nic nebylo.
> >
> > Radek Szurman
> >
> >
> >> procedure TForm1.Image1MouseDown;
> >> begin
> >> Label1MouseDown(Label1);
> >> end;
> >>
> >>
> >> to by mohlo pomoci :)
> >>
> >> Brona
> >>
> >> > Cau, nevite nekdo jak predat udalosti kliku a pohybu mysi objektu
> >> > ktery pod Image1 ? tj. kdyz kliknu na misto v pruhlednem image1 kde
> >> > je pod nim Label1 aby se provedla jeho udalost onMouseDown...
> >> >
> >> > Radek Szurman
>
>
>
>
>Odeslani udalosti
[*] Bronislav Klucka <bronislav.klucka(zv)pro2-soft(tec)com> - 15.4.2004 10:45:10
1/
type
TForm1
procedure FormCreate(Sender:TObject);
protected
Label:TLabel;
procedure MyOnLabelClick(Sender:TObject);
end;
implementation
procedure FormCreate(Sender:TObject);
begin
Label:=TLabel.Create(Self);
InsertControl(label);
Label.OnClick:=MyOnLabelClick;
end;
P.S. s tim "neco, co by tam bylo, jako by to tam nebylo" bud kontretnejsi.
POpis svuj problem, abych Ti mohl lepe poradit
Brona
> Jo, napad je to dobry, ale neni to uplne ono protoze problem je ze ten
> label1 je tvoren dynamicky a bylo by to hodne komplikovanejsi (neznam
> jeho nazev, misto...), potreboval bych neco jako transparentni
> udalosti, nebo neco na co muzu kreslit a neslo to prekryt jinym
> objektem ale udalosti by zustaly jako kdyby tam nic nebylo.
>
> Radek Szurman
>
>
>> procedure TForm1.Image1MouseDown;
>> begin
>> Label1MouseDown(Label1);
>> end;
>>
>>
>> to by mohlo pomoci :)
>>
>> Brona
>>
>> > Cau, nevite nekdo jak predat udalosti kliku a pohybu mysi objektu
>> > ktery pod Image1 ? tj. kdyz kliknu na misto v pruhlednem image1 kde
>> > je pod nim Label1 aby se provedla jeho udalost onMouseDown...
>> >
>> > Radek Szurman
POP3 a SMTP cez LAN a DSL
[*] Kamil Baranek <baranek(zv)sterk-olomouc(tec)cz> - 15.4.2004 10:33:08
Pokud se nepletu, musis na Notebooku nastavit proxy s IP adresou tve masiny
pripojene k DSL.
Kamil Baranek
IT specialista
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
Behalf Of Jaroslav Popluhar
Sent: Tuesday, April 13, 2004 1:45 AM
To: delphi-l(zv)clexpert(tec)cz
Subject: OT: POP3 a SMTP cez LAN a DSL
Ahojte, najma vsetci sietari:-)
mam, verim, ze trivialny problem:
- mam LAN, kde existuje PC s pripojenim na DSL (Inet),
toto ma v ramci LAN pevne IP: 192.168.10.4
- na PC bezi soft Proxy+
- mam notebook pripojeny do LAN (DHCP)
potrebujem nakonfigurovat (vseto co s tym suvisi) tak,
aby som mohol na notebooku stahovat pripadne z neho posielat
postu cez DSL (TheBAT!).
Zatial som vylaboroval toto:
- na NB som nastavil Gateway a DNS na PC (192.168.10.4)
- DNS forwarder na Proxy+
OS WinXP, vsade.
Pozeram sa na to cez SS-Ethreal a vidim, ze konverzia mien
serverov na IP prebehne OK, ale ziadna posta sa nestiahne
ako by sa postovy klient ani nepripojil. Uz nevien, kam zatat.
Ak ex. poslite link, na dobru sietovu konferu.
--
Best regards,
Jaroslav mailto:delphi1(zv)acc.sk
Odeslani udalosti
[*] Radek Szurman <surad(zv)digijoe(tec)com> - 15.4.2004 10:11:06
Jo, napad je to dobry, ale neni to uplne ono protoze problem je ze ten
label1 je tvoren dynamicky a bylo by to hodne komplikovanejsi (neznam jeho
nazev, misto...), potreboval bych neco jako transparentni udalosti, nebo
neco na co muzu kreslit a neslo to prekryt jinym objektem ale udalosti by
zustaly jako kdyby tam nic nebylo.
Radek Szurman
> procedure TForm1.Image1MouseDown;
> begin
> Label1MouseDown(Label1);
> end;
>
> to by mohlo pomoci :)
>
> Brona
>
> > Cau, nevite nekdo jak predat udalosti kliku a pohybu mysi objektu ktery
> > pod Image1 ? tj. kdyz kliknu na misto v pruhlednem image1 kde je pod
> > nim Label1 aby se provedla jeho udalost onMouseDown...
> >
> > Radek Szurman
Odeslani udalosti
[*] Bronislav Klucka <bronislav.klucka(zv)pro2-soft(tec)com> - 15.4.2004 09:53:00
procedure TForm1.Image1MouseDown;
begin
Label1MouseDown(Label1);
end;
to by mohlo pomoci :)
Brona
> Cau, nevite nekdo jak predat udalosti kliku a pohybu mysi objektu ktery
> pod Image1 ? tj. kdyz kliknu na misto v pruhlednem image1 kde je pod
> nim Label1 aby se provedla jeho udalost onMouseDown...
>
> Radek Szurman
Odeslani udalosti
[*] Radek Szurman <surad(zv)digijoe(tec)com> - 15.4.2004 09:40:56
Cau, nevite nekdo jak predat udalosti kliku a pohybu mysi objektu ktery pod
Image1 ? tj. kdyz kliknu na misto v pruhlednem image1 kde je pod nim Label1
aby se provedla jeho udalost onMouseDown...
Radek Szurman
Lokalizator AddTransl.pas
[*] Lahoda Radek <lahodar(zv)uniplet(tec)cz> - 15.4.2004 09:26:51
zdravim,
jak se s timto pracuje, aby slo prepinat jazyk za behu?
Radek Lahoda
Jak programove zmenit kurzor na animovany?
[*] vacuv3as(zv)vsmie(tec)cz - 14.4.2004 20:11:59
Zdravim konferenci,
nevite nekdo, prosim, jestli je mozne programove zmenit standartni kurzor v me
aplikaci za vlastni animovany. Pokud ano, rad bych vedel, jakym zpusobem a jak
tuto zmenu vratit zpet. Lze pripojit vlastni animovany kurzor k aplikaci pomoci
resource souboru?
Diky za pripadnou pomoc - Vit.Problem s uvolnovanim pameti - chybove hlaseni - o
[*] Martin Schayna <mschayna(zv)aktis(tec)cz> - 14.4.2004 16:21:43
Petr Fejfar <development(zv)callnet(tec)cz> wrote:
> js-delphi(zv)quick(tec)cz wrote:
>> Diky za Vase rady. Ocenim jakekoliv Vase zkusenosti - zkuste mi
>> napsat jake jste delali chyby ve svych zacatcich - treba se jich taky
>> dopoustim a jeste to ani neumim spravne popsat!
>
> Za meho mladi jsme takove chyby proste nedelali,
> protoze nez nas nekdo pustil k pocitaci, tak jsme
> museli nastudovat radu script a manualu
> - byli jsme tudiz teoreticky slusne pripraveni <g>
<G>. Mas naprostou pravdu. I kdyz tenkrat jsme se
to ucili s "opravdovymi" pointery a rucnim alokovanim
pameti GetMem/FreeMem resp. New/Dispose, coz
je zaklad o ktery je mozno se oprit pri hledani problemu
s alokaci i v dobe "opravdovych" objektu.
Ovsem co si budeme povidat, takova garbage collection
je pro programatora pozehnani...
Martin Schayna
Listview a hint
[*] Robert <rpvp(zv)vagnerplast(tec)cz> - 14.4.2004 14:37:35
Zdravim profici...
Mam seznam lidi v listview a pod nim TEdit do ktereho
pisu hledane jmeno. Jak pisu, tak v OnChange editu
prohledavam v ListView a selectuju Item, kterou najdu.
Potreboval bych take prinutit listview aby mi zobrazilo
hint (tedy OnInfoTip kde zobrazuji podrobnosti o osobe).
Jde to nejak udelat primo s tim ListView?
Dik za radu a pekny zbytek dne
Robert Plzak
Posun v TListView
[*] Martin Cajbik <cajbik(zv)sct.sk> - 14.4.2004 14:35:34
Zdravim,
ja to robim vytvorenim novej polozky, priradenim obsahu (pomocou Assign) a
zmazanim povodnej.
Martin Cajbik
> Dobry den, muzete mi poradit, kterak programove posouvat polozky v
TListView nahoru a dolu? Zobrazuji tam udaje o souborech, podobne jako v
pruzkumniku detailni zobrazeni - tj. jeden radek je tvoreny vice polozkama
(Item + subitem)
> Dik.TListView - check
[*] Martin Cajbik <cajbik(zv)sct.sk> - 14.4.2004 14:17:32
Zdravim,
ja na to pouzivam tento kod
type TForm1 = class(TForm)
...
public
OldIt: TListItem;
CheckIt: Boolean;
....
end;
procedure TForm1.ListView1Changing(Sender: TObject;
Item: TListItem; Change: TItemChange; var AllowChange: Boolean);
begin
OldIt:= Item; // odlozenie povodneho Itemu a jeho stavu
CheckIt:= Item.Checked;
end;
procedure TForm1.ListView1Change(Sender: TObject; Item: TListItem;
Change: TItemChange);
begin
if (Item = OldIt) and (Item.Checked <> CheckIt) then
... // kod obsluhy zmeny zaskrtnutia
end;
Martin Cajbik
> To je sice pravda, ze CheckListBox ma tu spravnou udalost, ale zase neumi
zobrazovat informace ve vice sloupeckach (s uzivatelsky menitelnou sirkou,
scrollbarama ....)
> V.
>
> > Ahoj, u TListView mam nastaveno CheckBoxes := True a tak se mi tam
> zobrazuji zaskrtavatka. Jak muzu odchytnout zmenu zasrtnuti? Udalost pro
to
> zadna neni - OnChange se vola i pri jinych prilezitostech. Je nejaka jina
> moznost, nez si nekam ulozit stav vsech polozek a porovnavat si to sam?
> >
>
> Zkuste CheckListBox - tam je udalost onClickCheck
IB/FIB - dynamicky SQL
[*] Pavel Cisar <pcb(zv)atlas(tec)cz> - 14.4.2004 13:23:27
Haj hou!
On 14 Apr 2004 at 12:55, pilifs wrote:
> Asi jsem to nepochopil:
> .....
> DECLARE VARIABLE cmd VARCHAR(500);
> ....
> cmd = 'SELECT * FROM Tabluka';
> EXECUTE cmd;
> .....
> -------------------------------------
> Takhle asi ne, ze? Porad se mi to nedari.
> Nejaky exampl by nebyl?
Coz takhle precist si Release Notes k v1.5 ? :-))
CREATE PROCEDURE DynamicSampleOne (Pname VARCHAR(100))
AS
DECLARE VARIABLE Sql VARCHAR(1024);
DECLARE VARIABLE Par INT;
BEGIN
SELECT MIN(SomeField) FROM SomeTable INTO :Par;
Sql = ?EXECUTE PROCEDURE ? || Pname || ?(?;
Sql = Sql || CAST(Par AS VARCHAR(20)) || ?)?;
EXECUTE STATEMENT Sql;
END
nebo
CREATE PROCEDURE DynamicSampleTwo (TableName VARCHAR(100))
AS
DECLARE VARIABLE Par INT;
BEGIN
EXECUTE STATEMENT ?SELECT MAX(CheckField) FROM ? || TableName INTO
:Par;
IF (Par > 100) THEN
EXCEPTION Ex_Overflow ?Overflow in ? || TableName;
END
nebo
CREATE PROCEDURE DynamicSampleThree (
TextField VARCHAR(100),
TableName VARCHAR(100))
RETURNING_VALUES (Line VARCHAR(32000))
AS
DECLARE VARIABLE OneLine VARCHAR(100);
BEGIN
Line = ??;
FOR EXECUTE STATEMENT
?SELECT ? || TextField || ? FROM ? || TableName INTO :OneLine
DO
IF (OneLine IS NOT NULL) THEN
Line = Line || OneLine || ? ?;
SUSPEND;
END
S pozdravem
Pavel Cisar (ICQ: 89017288)
Mobil: 724 281429
http://www.ibphoenix(tec)cz
Vse co potrebujete pro Firebird a InterBase
Obnova DOS aplikace z listy
[*] Petr Dedecek <petrd(zv)omega-lbc(tec)cz> - 14.4.2004 13:15:25
Ahoj,
mam pod XP spustenu DOS aplikaci na cele plose. Delphi aplikace je
trvale spustena. DOS aplikace posle Delphi aplikaci textak, ktery se
zpracuje a zobrazi, potom Delphi aplikace spadne do tray zony. Ale
nedari se mi zpet automaticky obnovit DOS aplikaci, ktera mezitim spadla
na listu. Nevite jak vratit DOS aplikaci na celou plochu ?
Dik za radu.
Petrd
IB/FIB - dynamicky SQL
[*] pilifs <pilifs(zv)seznam(tec)cz> - 14.4.2004 12:55:23
Asi jsem to nepochopil:
.....
DECLARE VARIABLE cmd VARCHAR(500);
....
cmd = 'SELECT * FROM Tabluka';
EXECUTE cmd;
.....
-------------------------------------
Takhle asi ne, ze? Porad se mi to nedari.
Nejaky exampl by nebyl?
Diky.
L. Filip,
>
> Haj hou1
>
> On 14 Apr 2004 at 12:29, pilifs wrote:
>
> > lze udelat v IB/FIB procedure neco takoveho (prepsano z MSSQL):
> > .....
> >
> > declare (zv)cmd varchar(500)
> > set (zv)cmd = 'SELECT * FROM Tabulka'
> > exec ((zv)cmd)
>
> Pouze Firebird 1.5, prikaz EXECUTE STATEMENT
> Problem s uvolnovanim pameti - chybove hlaseni - o
[*] Petr Vones <pvones(zv)vol(tec)cz> - 14.4.2004 12:53:22
From: <js-delphi(zv)quick(tec)cz>
> Je teda spravne, ze jsem temer vsude misto "L.free" nasekal FreeAndNil(L).
Neni. Je treba nejdrive pochopit jak vubec sprava pameti funguje. Pak nebudes
(ve vetsine pripadu :-) delat chyby ktere povedou k takovym problemum. Anebo
prejdi na .NET kde tyto problemy z principu neexistuji, ale zase jsou tam
jine.
> function Funkce01;
> begin
> result:=TStringList.Create;
> result.add('a');
> result.add('b');
> result.add('c');
> end;
Jestlize funkce vraci jako result nejaky objekt tak by to melo obecne vypadat
spise takto, protoze v pripade ze dojde k vyjimce pri volani nekterych metod
toho objektu je nutne objekt v dane funkci explicitne uvolnit pred vyvolanim
vyjimky:
function Funkce01: TStringList;
begin
Result := TStringList.Create;
try
// zde muze dojit k nejake vyjimce
Result.Add('a');
Result.Add('b');
Result.Add('c');
except
Result.Free;
raise;
end;
end;
Samozrejme zalezi na navrhu, objekt se muze v konstruktoru sam pridat do
nejakeho seznamu ktery jej pozdeji uvolni apod. Jako dalsi reseni se nabizi
pouzit interface, pak se o uvolnovani nemusis starat, ale ma to zase jine
nevyhody.
Petr Vones
IB/FIB - dynamicky SQL
[*] Pavel Cisar <pcb(zv)atlas(tec)cz> - 14.4.2004 12:35:20
Haj hou1
On 14 Apr 2004 at 12:29, pilifs wrote:
> lze udelat v IB/FIB procedure neco takoveho (prepsano z MSSQL):
> .....
>
> declare (zv)cmd varchar(500)
> set (zv)cmd = 'SELECT * FROM Tabulka'
> exec ((zv)cmd)
Pouze Firebird 1.5, prikaz EXECUTE STATEMENT
S pozdravem
Pavel Cisar (ICQ: 89017288)
Mobil: 724 281429
http://www.ibphoenix(tec)cz
Vse co potrebujete pro Firebird a InterBase
Problem s uvolnovanim pameti - chybove hlaseni - o
[*] jsdelphi(zv)creatix(tec)cz - 14.4.2004 12:31:17
>Jak spravne uvolnim takovouhle pamet?
>procedure Neco;
>var
>L:TStringList;
>begin
> ...
> L:=Funkce01;
>end;
>function Funkce01;
>begin
> result:=TStringList.Create;
> result.add('a');
> result.add('b');
> result.add('c');
>end;
Ja bych pouzil konstrukci:
procedure Neco;
var
L: TStringList;
begin
...
L := Funkce01;
try
...
finally
FreeAndNil(L);
end;
end;
function Funkce01;
begin
result := TStringList.Create;
result.add('a');
result.add('b');
result.add('c');
end;
Jan Skopovy
IB/FIB - dynamicky SQL
[*] pilifs <pilifs(zv)seznam(tec)cz> - 14.4.2004 12:29:17
Zdravim,
lze udelat v IB/FIB procedure neco takoveho (prepsano z MSSQL):
.....
declare (zv)cmd varchar(500)
set (zv)cmd = 'SELECT * FROM Tabulka'
exec ((zv)cmd)
.....
------------------------------------------------------
Procedura nyni vrati dataset.
L. Filip
SQL dotaz
[*] Ing. Pavel Zilinec <zilinec(zv)psinfos(tec)cz> - 14.4.2004 12:09:15
:-) Asi neodpovim na otazku, ale budiz :-))
Dejme tomu, ze dana skupina je v PoleSkup
select a.*
from Tabule a
join (
select pom.PoleSkup, max(pom.Datum)
from Tabule pom
group by pom.PoleSkup) b on a.PoleSkup = b.PoleSkup and a.Datum = b.Datum
order by a.PoleSkup
nebo stejny vysledek jinym zapisem
select a.*
from Tabule a
where a.Datum = (select max(b.Datum) from Tabule b where a.PoleSkup = b.PoleSkup)
order by a.PoleSkup
--
ing. Pavel Zilinec
MailTo:zilinec(zv)email(tec)cz
Prog-Soft s.r.o. Plzen
Informacni system pro vyrobce
a distributory napoju
Friday, April 9, 2004, 8:07:39 PM, bylo napsano:
LZ> On Behalf Of Dalibor
>> Ahoj,
>> potrebuji zjistit jednu vetu z kazde skupiny ze vsemi sloupci
>> s nejnovejsim casem pro dany datum
>>
>> Da se to nejak?
LZ> Ahoj.
LZ> Mozna ano.
LZ> Ludek
LZ> P.S. Pokud by se ti moje odpoved nezdala dostatecna tak je to proto, ze
LZ> odpovida Tvemu "zadani":))))
LZ> Takze asi nam budes muset prozradit datovou strukturu a typ SQL serveru.
LZ> Jinak Ti nikdo nepomuze.
LZ> __________ Informace od NOD32 1.716 (20040413) __________
LZ> Tato zprava byla proverena antivirovym systemem NOD32.
LZ> http://www.nod32(tec)cz
Fullscreen v DELPHI
[*] Jan Rizek <jan_rizek(zv)centrum(tec)cz> - 14.4.2004 11:07:10
Pouzij DelphiX komponenty - to je DirectX na internetu je spousta tutorialu
a navodu jak na to
je tam nejaka komponenta neco jako plocha, ktery nastavis nejakou vlastnost
na true a je to - aspon tak si to matne pamatuju,,
hledej serial od upira Krejciho - psal to myslim na Builder(tec)cz - je to tam
popsany
----- Original Message -----
From: "J. Vita" <delphi(zv)obecpohori(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Wednesday, April 14, 2004 1:03 AM
Subject: Fullscreen v DELPHI
> Pekny vecer,
> nemate prosim nekdo nejakou funkci, ktera by dokazala prepnout aplikaci do
> fullscreenu 800x600x16 a zase zpet?
>
> Jde to urcite pred DirectX, ale nevim, kde zacit.
>
> Diky
>
> ViJu
>
>
>
>Lookup v gridu
[*] Martin Pisarik <martin.pisarik(zv)seznam(tec)cz> - 14.4.2004 10:41:07
Zdravim *,
mam dbGrid problem :-) Mam tabulky Zbozi(oznaceni,nazev) 10 zaznamu,
Barva(oznaceni,nazev) 10 zaznamu a tvorim program realizujici objednavku.
Uzivatel si vybere zbozi, barvu, mnozstvi a je to. Ke konkretnimu zbozi jsou
k dispozici jen nektere barvy a proto jsem vytvoril tabulku povolenych
kombinaci ZboziBarva(ID, oznaceniZbozi, oznaceniBarvy) 50 zaznamu a tabulku
Objednavka(ZboziBarvaID, mnozstvi, ...). Do gridu propojeneho na Objednavka
jsem dal jeste 2 Lookup fieldy, ktere podle hodnoty ZboziBarvaID a propojeni
do tabulky ZboziBarva zobrazuji oznaceniBarvy a oznaceniZbozi. Potud je to
proste. A ted ten problem. Pokud rozbalim lookup field pro vyber oznaceni
zbozi, tak se v tom listboxu zobrazi seznam opakujicich se oznaceni zbozi
(50 polozek) - je to logicke je to propojeno na tabulku ZboziBarva, ktera ma
50 polozek, ale ja bych potreboval aby se mi zobrazilo jen 10 oznaceni
zbozi. A pak bych potreboval az bude chtit vybrat barvu aby se mi v tom
seznamu zobrazilo jen tech nekolik pripustnych barev (cca 5) a ne zase 50.
Zkousel jsem pridat jeste lookup feldy propojene na tabulky Zbozi a Barva
pomoci hodnot tech predchozich 2 lookup fieldu (oznaceni), ale to uz
nefungovalo vubec a nerozbalovalo se to.
Da se to nejak udelat?
Poznamka: Pocty zaznamu v tabulkach jsou jen ilustracni, ve skutecnosti jej
jich vic, stejne tak jsou v tabulkach jeste nejake nepodstatne fieldy. A
jeste jedna vec, je nutne dodrzet pozadavek vyberu oznaceni zbozi a oznaceni
barvy promo z gridu objednavky!
Dik moc za rady.
Problem s uvolnovanim pameti - chybove hlaseni - o
[*] Petr Fejfar <development(zv)callnet(tec)cz> - 14.4.2004 09:59:04
js-delphi(zv)quick(tec)cz wrote:
> Diky za Vase rady. Ocenim jakekoliv Vase zkusenosti - zkuste mi
> napsat jake jste delali chyby ve svych zacatcich - treba se jich taky
> dopoustim a jeste to ani neumim spravne popsat!
Za meho mladi jsme takove chyby proste nedelali,
protoze nez nas nekdo pustil k pocitaci, tak jsme
museli nastudovat radu script a manualu
- byli jsme tudiz teoreticky slusne pripraveni <g>
Vazne - chce to teoretickou prupravu - pokud si nebudes
na Tebou kladene otazky schopen odpovedet sam,
tak se IMHO s tim memory managementem nikdy
nevyporadas a vysledkem bude jen nejaky vice ci mene
nahodily slepenec a ne aplikace, nad kterou mas kontrolu.
Alespon si precti v helpu kapitoly
- Object Pascal Reference | Memory management
- Object Pascal Reference | Program control
a taky si projdi popis metod basalni tridy TObject - doporucuji spojit
s nahlizenim do zdrojovek RTL dodavanych s Delphi.
HTH, pf
Problem s uvolnovanim pameti - chybove hlaseni - o
[*] Karel Rys <delphi(zv)zas-me(tec)cz> - 14.4.2004 09:33:01
js-delphi(zv)quick(tec)cz dne 14 Apr 2004 v 9:02:
> No a jak se to spravne otestuje? Kdy mam pouzit:
> if Asssigned(L) then FreeAndNil(L);
> a kdy
> if L <> nil then FreeAndNil(L);
> Je teda spravne, ze jsem temer vsude misto "L.free" nasekal
> FreeAndNil(L). Pak mi neni jasne, proc to zlobi cim dal vic...
Rekl bych, ze FreeAndNil si to testuje samo - pokud je predavany objekt nil, neudela nic; pokud
neni nil, uvolni ho volanim objekt.Free a nastavi ho na nil (takze se pri pristim volani
FreeAndNil uz nestane nic).
> Jeste jeden dotaz:
> Jak spravne uvolnim takovouhle pamet?
> procedure Neco;
> var
> L:TStringList;
> begin
> ...
> L:=Funkce01;
> end;
>
> function Funkce01;
> begin
> result:=TStringList.Create;
> result.add('a');
> result.add('b');
> result.add('c');
> end;
Spis bych zvazil, zda pouzivat takovyhle zpusob vytvareni objektu. Napsal bych to radeji nejak
takto:
procedure Neco;
var
L:TStringList;
begin
L:=tStringList.Create;
try
Fuknce01(L);
...
finally
FreeAndNil(L); // nebo L.Free;
end;
end;
procedure Funkce01(Cil:tStringList);
begin
Cil.add('a');
Cil.add('b');
Cil.add('c');
end;
> Diky za Vase rady. Ocenim jakekoliv Vase zkusenosti - zkuste mi napsat
> jake jste delali chyby ve svych zacatcich - treba se jich taky
> dopoustim a jeste to ani neumim spravne popsat!
Rekl bych, ze chybam se da slusne predchazet v pripade, ze alokaci i uvolneni muzes dat do jedne
casti kodu, tj. klasicke:
L:=tNeco.Create;
try
.....
finally
L.Free; // nebo FreeAndNil
end;
Karel Rys
drag drop
[*] Jan Fiala <jan.fiala(zv)wo(tec)cz> - 14.4.2004 09:29:00
14.4.2004 mato:
> zdravim,
> mam aplikaciu a v nej pole edit kde musim zadat meno suboru s cestou. Ako
> urobit aby som mohol prehodit subor rovno s WindowsComandera ?
> D7
Osetrit si zpravu WM_DROPFILES
private
procedure WMDropFiles(var Msg: TMessage); message WM_DROPFILES;
implementation
procedure TForm1.WMDropFiles(var Msg: TMessage);
var
szPathName: array[0..260] of char;
iNumberDropped, i: Integer;
rect: TRect;
begin
try
iNumberDropped := DragQueryFile(THandle(Msg.wParam), Cardinal(-1), nil, 0);
for i := 0 to iNumberDropped - 1 do
begin
DragQueryFile(THandle(Msg.wParam), i, szPathName, SizeOf(szPathName));
if szPathName = '' then
Break
else
Edit1.Text := szPathName;
end;
finally
Msg.Result := 0;
DragFinish(THandle(Msg.wParam));
end;
end;
--
Jan Fiala
mailto:jan.fiala(zv)wo(tec)cz
drag drop
[*] mato <mato.tino(zv)inmail.sk> - 14.4.2004 09:18:59
zdravim,
mam aplikaciu a v nej pole edit kde musim zadat meno suboru s cestou. Ako
urobit aby som mohol prehodit subor rovno s WindowsComandera ?
D7
Problem s uvolnovanim pameti - chybove hlaseni - o
[*] js-delphi(zv)quick(tec)cz - 14.4.2004 09:02:57
Odesilatel: Karel Rys <delphi(zv)zas-me(tec)cz>
> > (3) MemProof mi hlasi chyby typu "Pokus o uvolneni
> > neexistujiciho zdroje" - muzete mi nekdo priblizit co asi tak
> > delam/aplikace za chybu?
>
> To je prave problem - znamena to, ze se napr. udelalo Objekt.Free
> a potom se nekde znovu vola
> Objekt.Free - pokousi se to uvolnit podruhe. Nebo se vola FreeMem
> a preda se promenna, do ktere se
> predtim pamet nealokovala...
No a jak se to spravne otestuje? Kdy mam pouzit:
if Asssigned(L) then FreeAndNil(L);
a kdy
if L <> nil then FreeAndNil(L);
Je teda spravne, ze jsem temer vsude misto "L.free" nasekal FreeAndNil(L). Pak mi neni jasne, proc to zlobi cim dal vic...
Jeste jeden dotaz:
Jak spravne uvolnim takovouhle pamet?
procedure Neco;
var
L:TStringList;
begin
...
L:=Funkce01;
end;
function Funkce01;
begin
result:=TStringList.Create;
result.add('a');
result.add('b');
result.add('c');
end;
Z niceho nic mi aplikace zacala padat na jakykoliv pokus o uvolneni pameti - vsechno konci s chybou (FreeAndNil(L), L.Free) JAK TO??? Testoval jsem to pred tim uvolnenim:
if L <> nil then FreeAndNil(L);
ale to stejne konci vyjimkou...
Diky za Vase rady. Ocenim jakekoliv Vase zkusenosti - zkuste mi napsat jake jste delali chyby ve svych zacatcich - treba se jich taky dopoustim a jeste to ani neumim spravne popsat!
Jirka
--------------------------------------------------
Ing. Jiri Sokol; jiri.sokol(zv)seznam(tec)cz; 972 231 187
D6Prof+SP3; WinXPProf+SP1; FB 1.0.3
programator amater
TListView - check
[*] Petr Fejfar <development(zv)callnet(tec)cz> - 14.4.2004 08:58:56
delphak(zv)centrum(tec)cz wrote:
> To je sice pravda, ze CheckListBox ma tu spravnou udalost, ale zase
> neumi zobrazovat informace ve vice sloupeckach (s uzivatelsky
> menitelnou sirkou, scrollbarama ....) V.
Jestli uvazujes o zmene komponenty a chces mit jednou pro vzdy vyreseny
problemy s Tree/ListViews, tak pouzij Lischkeho Virtual tree view
http://www.soft-gems.net/VirtualTreeview/VT.php
HTH, pf
TListView - check
[*] delphak(zv)centrum(tec)cz - 14.4.2004 08:06:52
To je sice pravda, ze CheckListBox ma tu spravnou udalost, ale zase neumi zobrazovat informace ve vice sloupeckach (s uzivatelsky menitelnou sirkou, scrollbarama ....)
V.
> Ahoj, u TListView mam nastaveno CheckBoxes := True a tak se mi tam
zobrazuji zaskrtavatka. Jak muzu odchytnout zmenu zasrtnuti? Udalost pro to
zadna neni - OnChange se vola i pri jinych prilezitostech. Je nejaka jina
moznost, nez si nekam ulozit stav vsech polozek a porovnavat si to sam?
>
Zkuste CheckListBox - tam je udalost onClickCheck
Problem s uvolnovanim pameti - chybove hlaseni - o
[*] Karel Rys <delphi(zv)zas-me(tec)cz> - 14.4.2004 07:54:51
js-delphi(zv)quick(tec)cz dne 14 Apr 2004 v 5:20:
> (3) MemProof mi hlasi chyby typu "Pokus o uvolneni
> neexistujiciho zdroje" - muzete mi nekdo priblizit co asi tak
> delam/aplikace za chybu?
To je prave problem - znamena to, ze se napr. udelalo Objekt.Free a potom se nekde znovu vola
Objekt.Free - pokousi se to uvolnit podruhe. Nebo se vola FreeMem a preda se promenna, do ktere se
predtim pamet nealokovala...
Karel Rys
Problem s uvolnovanim pameti - chybove hlaseni - o
[*] Petr Daricek <petr.daricek(zv)seznam(tec)cz> - 14.4.2004 07:44:50
> (1) Stahl jsem si MemProof, ale vubec se v nem neorientuji. Nemohl byste me nekdo navest co kde mam videt a co kdyz vidim, tak mi to rekne? (kdyz to bude jak pro blbe, bude to nejlepsi :) )
> (2) muzete mi nekdo vysvetlit kdy a jak se uvolnuji ktere promenne, tridy, objekty? Je treba rucne uvolnovat vsechno? Delam chybu, kdyz vsechno co vytvarim (napr. L:=TStrings.Create;) pak uvolnuju vzdy pres FreeAndNil? Ja jsem si vsiml ve zdrojovych kodech Delphi, ze to neni pouzivano tak casto jak bcyh cekal a tak nevim, jestli postupuju spravne. Musim uvolnovat i stringy? Jak?
> (3) MemProof mi hlasi chyby typu "Pokus o uvolneni neexistujiciho zdroje" - muzete mi nekdo priblizit co asi tak delam/aplikace za chybu?
>
> Predem vsem moc diky!
> Jirka
1) Koukni se na http://users.pandora.be/stefancr/Delphi%20-%20MemProof.htm
2) FreeandNil rozhodne neni chyba. Pri free se uvolni pamet, ale ukazatel stale nekam ukazuje a tak neni poznat jestli neukazuje na platne data. Prirazenim nilu se tohle osetri. Stringy uvolnovat nemusis. Uvolnuji se jen dynamicke promenne a objekty(ty jsou take dynamicke). String nevytvaris pred pouzitim pres zadny create ani new.
Petr Daricek
Problem s uvolnovanim pameti - chybove hlaseni - o
[*] js-delphi(zv)quick(tec)cz - 14.4.2004 05:20:39
Ahoj panove.
Mam dost velky problem. Aplikace, kterou jsem prevzal se chova velice nestandardne a ja si s ni uz nevim rady.
Nektere "f-ce" (nemyslim function) se daji opakovat nekolikrat a pak zacnou zpusobovat vyjimky. Pokud ladim kod primo v Delphi, tak mi to skace do pro me nezvykleho okna CPU s hlasenim jako:
"Project ...\Project.exe raised too many consecutive exceptions: 'access violation at 0x0000000000 read of addres 0x0000000000'. Process Stopped. Use Step or Run to continue."
nebo
"... faulted with message: 'access violation at ...' ..."
Domnivam se tedy, ze ta aplikace a jeji knihovny spatne zachazeji s pameti - souhlasite se mnou?
No a ted moje otazky.
(1) Stahl jsem si MemProof, ale vubec se v nem neorientuji. Nemohl byste me nekdo navest co kde mam videt a co kdyz vidim, tak mi to rekne? (kdyz to bude jak pro blbe, bude to nejlepsi :) )
(2) muzete mi nekdo vysvetlit kdy a jak se uvolnuji ktere promenne, tridy, objekty? Je treba rucne uvolnovat vsechno? Delam chybu, kdyz vsechno co vytvarim (napr. L:=TStrings.Create;) pak uvolnuju vzdy pres FreeAndNil? Ja jsem si vsiml ve zdrojovych kodech Delphi, ze to neni pouzivano tak casto jak bcyh cekal a tak nevim, jestli postupuju spravne. Musim uvolnovat i stringy? Jak?
(3) MemProof mi hlasi chyby typu "Pokus o uvolneni neexistujiciho zdroje" - muzete mi nekdo priblizit co asi tak delam/aplikace za chybu?
Predem vsem moc diky!
Jirka
--------------------------------------------------
Ing. Jiri Sokol; jiri.sokol(zv)seznam(tec)cz; 972 231 187
D6Prof+SP3; WinXPProf+SP1; FB 1.0.3
programator amater
Fullscreen v DELPHI
[*] J. Vita <delphi(zv)obecpohori(tec)cz> - 14.4.2004 01:03:24
Pekny vecer,
nemate prosim nekdo nejakou funkci, ktera by dokazala prepnout aplikaci do
fullscreenu 800x600x16 a zase zpet?
Jde to urcite pred DirectX, ale nevim, kde zacit.
Diky
ViJu
Lazarus
[*] Slavomir Skopalik <skopalik(zv)elektlabs(tec)cz> - 14.4.2004 00:21:16
Nadavno vysla recenze nastroje, ktery dost pripomina delphi na rootu
(www.root(tec)cz),
http://www.lazarus.freepascal.org/
Trochu jsem to zkousel, je to asi tak na urovni delphi 1.0, ale ma to
jednu
krasnou vlastnost, ze to umi generovat jak pro win32, tak pro Linux v
jednom IDE
(na rozdil od borlandu neni treba mit dva nastroje na to same).
Kolega linuxak si stim zacal hrat, takze jsem zvedav.
Slavek
Ing. Slavomir Skopalik
Jednatel spolecnosti
Elekt Labs s.r.o.
Chaloupky 158
783 72 Velky Tynec
Czech Republic
--------------------------------------------
Mobil: 724 207 851
e-mail:skopalik(zv)elektlabs(tec)cz
http://www.elektlabs(tec)cz
tisk formu na winXP
[*] Karel Plechacek <karel.plechacek(zv)seznam(tec)cz> - 13.4.2004 22:08:59
zdravim,
mam problem s tiskem formulare na windows XP. pouzivam metodu Tform.Print. problem je v tom ze kdyz zavolam tuto metodu pro formular tak se poprve formular vytiskne spravne, ale podruhe uz ne. musim program restartovat a pak muzu zase tisknout. tento problem se vyskytuje jen na WinXP, na 98 a Win2000 vse funguje korektne. pouzivam delphi 5 enterprise (co jsem se dival tak v delphi5 a delphi7 je telo metody Tform.Print stejne)
mohli byste mi prosim treba poradit jak mam tisknout z delphi jinak nez vise zminenou metodou? treba jak vytisknout komponentu TImage, nebo nejakou bitmapu - to by mi taky pomohlo.
diky
Karel
procedure Tmain_f.TiskPrehledu;
var FormImage : TBitmap;
form : THistogramPrint_f;
lCanvas : TCanvas;
begin
Application.CreateForm( THistogramPrint_f, form );
FormImage := GetFormImage;
lCanvas := form.PrintCanvas;
lCanvas.Draw( 2, 2, FormImage );
form.ShowModal; // tady uz pak zavolam jen self.Print. na tomto formu je komponenta TImage
form.Free;
FormImage.Free;
end;TListView - checked
[*] Jan Rizek <abxsw(zv)centrum(tec)cz> - 13.4.2004 17:56:26
> Ahoj, u TListView mam nastaveno CheckBoxes := True a tak se mi tam
zobrazuji zaskrtavatka. Jak muzu odchytnout zmenu zasrtnuti? Udalost pro to
zadna neni - OnChange se vola i pri jinych prilezitostech. Je nejaka jina
moznost, nez si nekam ulozit stav vsech polozek a porovnavat si to sam?
>
Zkuste CheckListBox - tam je udalost onClickCheck
Firebird a cestina
[*] Pavel Hora <phofficial(zv)centrum(tec)cz> - 13.4.2004 14:16:10
Hm, tak jsem napsal k varchar collate cs_cz a furt mam ch pred h. Napisi ukazku co delam (v isql).
set names iso8859_2;
create database ... default character set 8859_2;
create table neco (text varchar(30) collate cs_cz,...);
vlozim tam par dat a ch je stale pred h. Cim tot ?OT: Jak zjistit ktera session patri kteremu uzivat
[*] Jaromir Tomecek <jaromir.tomecek(zv)usmd(tec)cz> - 13.4.2004 12:02:01
dobry den,
rad bych se zjistil u Apache, kteremu prihlasenemu uzivateli patri ktera
session a kdy byla zapocata...
Jde to nejak?
Dekuji.
Jak ochytit pohyb v DBGridu (pozice v tabulce)
[*] Ing. Igor Vodicka <vodicka(zv)sagit(tec)cz> - 13.4.2004 11:21:57
Ahoj!
Mozna je to uz s krizkem po funuse, ale ja to resim nasledovne:
Vertikalni pohyb po gridu osetruji udalosti BeforeScroll nebo AfterScroll u
pripojeneho datasetu.
Horizontalni pohyb po bunkach gridu resim udalostmi ColEnter nebo ColExit, V
udalosti pracuji s vlastnosti DBGrid.SelectedIndex.
S pozdravem
Ing. Igor Vodicka
informacni systemy
Nakladatelstvi Sagit
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
>
> Problem: pohyb po zaznamech DBgrid at
> uz klavesami nebo mysi a nebo DBNavigatorem...
> Potrebuji podle pozice v tabulce neco
> najit a zobrazit.
> Jak se da odchytit, to ze DBGrid presel
> na jiny zaznam tabulky?
>
TListView - checked
[*] delphak(zv)centrum(tec)cz - 13.4.2004 11:17:56
Ahoj, u TListView mam nastaveno CheckBoxes := True a tak se mi tam zobrazuji zaskrtavatka. Jak muzu odchytnout zmenu zasrtnuti? Udalost pro to zadna neni - OnChange se vola i pri jinych prilezitostech. Je nejaka jina moznost, nez si nekam ulozit stav vsech polozek a porovnavat si to sam?Rozbaleni DBComboBoxu
[*] LUKES Vaclav <lukes(zv)ans(tec)cz> - 13.4.2004 10:47:53
Ahoj,
muzete mi prosim poradit ?
Mam DBComboBox a pomoci Add pridam do Items nejake radky. Fajn.
Ted jde ale o to, ze chci na OnExit testovat hodnotu v DBComboBoxu a v pripade, ze tam neni to, co jsem pridal predtim do Items udelat DropDown - rozbalit onen DBComboBox. Vubec se mi to nedari...
Diky
V.
Firebird a cestina
[*] Pavel Cisar <pcb(zv)atlas(tec)cz> - 13.4.2004 10:47:52
Haj hou!
On 13 Apr 2004 at 10:19, Pavel Hora wrote:
> K tomu collate : no protoze jak jsem psal jsem pouzil pouze DEFAULT
> CHARACTER SET ISO8859_2 u vytvoreni databaze tak predpokladam
> ISO8859_2. Musi se collate jeste pouzit u definovani kazde nove
> polozky var/varchar ? ja myslel, ze kdyz to neni uvedeno veme se prave
> nastaveni databaze.
Pokud nechces binarni porovnavani, tak ano :-) pro kazdy charset muze
byt hafo collate, a pokud nereknes jaky doopravdy potrebujes, tak se
pouzije collate pro binarni porovnavani v ramci charsetu (ma stejny
nazev jako charset). To by mimochodem vysvetlovalo to spatne trideni
Ch :-)
S pozdravem
Pavel Cisar (ICQ: 89017288)
Mobil: 724 281429
http://www.ibphoenix(tec)cz
Vse co potrebujete pro Firebird a InterBase
Delphi a eventlogy
[*] Ludek ZITA <konference(zv)sales(tec)cz> - 13.4.2004 10:43:51
On Behalf Of Petr Vones
> From: <david.kopecek(zv)hacktrack.com>
> > koukal jsem se pres google a tam furt neco rikaj o nejakem
> res ktery
> > bude skompilovany do DLL a ten bude obsahovat ty error
> hlasky. neda se
> > to udelat jinak ?
>
> Ne, to je standardni zpusob implementace ve Windows. Je treba
> si stahnout Platform SDK kde je MC (message compiler),
> vytvorit prislusnou DLL a zapsat do registru. Vse je popsano
> v dokumentaci.
>
Ahoj.
Ani neni treba vytvaret samostatnou DLL, Ja ty resource pridam primo do
EXE ({$R EVENTLOG.res}
Ludek
CreateProcess a aplikace do popredi
[*] delphak(zv)centrum(tec)cz - 13.4.2004 10:37:49
Ahoj.
Pomoci CreateProcess spustim aplikaci. A nekdy v budoucnu bych programove potreboval tuto aplikaci prepinat na popredi / pozadi. Poradite mi kterak na to? Nebo alespon, jak ziskat handle na hlavni nebo aktivni okno takto spustene aplikace.
Dik!Firebird a cestina
[*] Pavel Hora <phofficial(zv)centrum(tec)cz> - 13.4.2004 10:19:47
K tomu collate : no protoze jak jsem psal jsem pouzil pouze DEFAULT CHARACTER SET ISO8859_2 u vytvoreni databaze tak predpokladam ISO8859_2. Musi se collate jeste pouzit u definovani kazde nove polozky var/varchar ? ja myslel, ze kdyz to neni uvedeno veme se prave nastaveni databaze.
______________________________________________________________
> Od: "Pavel Cisar" <pcb(zv)atlas(tec)cz>
> Komu: delphi-l(zv)clexpert(tec)cz
> CC:
> Datum: Mon, 12 Apr 2004 22:14:18 +0200
> Predmet: Re: Firebird a cestina
>
> Haj hou!
>
> On 12 Apr 2004 at 19:52, Pavel Hora wrote:
>
> > Mam zalozeni databazi s DEFAULT CHARACTER SET ISO8859_2, takze uz
> > nikde u def. tabulek neuvadim kodovani. Pri zadavani dat pres isql
> > (pred pripojenim nastavim set names iso8859_2) je vse OK (krome razeni
> > zaznamu, zde se spatne radi ch - bere se jako c-h - muj 1. problem),
>
> Collate ISO8859_2 nebo CS_CZ ?
>
> > ale pokud zadavam data z jinych programu (take nastaveno iso8859_2)
> > ulozi se do databaze nesmyslne znaky - stejne nesmysli se pak i
> > prectou. Nevite v cem by to mohlo byt??
>
> Dle meho program sice deklaruje ze pouziva (nastavi klientsky
> charset) iso8859-2, ale data ktera posila na server v tomto kodovani
> ve skutecnosti nejsou.
>
> S pozdravem
> Pavel Cisar (ICQ: 89017288)
> Mobil: 724 281429
> http://www.ibphoenix(tec)cz
> Vse co potrebujete pro Firebird a InterBase
>
>
> Jak pouzit StartTransaction, Commit, Rollback
[*] Petr Svejda <petr(zv)svejda(tec)cz> - 13.4.2004 10:31:49
presne tak to pouzivam. mam dbGrid pouze pro cteni a zvlastni okno na
editaci. Na tlacitko OK chci krome zapisu do hodnot provest take Commit, ale
stale se mi nedari slozit dohromady komponenty a kod.
Muzete mi nekdo poslat ukazkovy kod (na petr(zv)svejda(tec)cz), nebo popis, jake
komponenty ze zalozky Interbase (IBX) pouzit. Hrozne to specha a ja jsem ve
sve literature nenasel nic, ceho bych se chytit. Ten commit po kazdem update
nebo insertu je nutny!!!
-----Original Message-----
> Nejak nedokazu soucasne nastavit 'zivy' Select s Insertem, Deletem a
> Modify se standartni pouzitim transakci. Jde o to, aby se Commit
> provedl vzdy po modifikaci dat, a ne az pri ukonceni programu. Pri
> vypadku proudu by uzivatel ztratil vsechnu praci.
jsem zastancem reseni, kdy DBGrid je jen pro prohlizeni a editace se provadi
v samostatnem formulari. Pak pro editaci pouzivas jiny dataset a jinou
transakci nez tu pro cteni.
Pokud bys ale trval na prime editaci v gridu, lze commitu po kazde operaci
dosahnout napr. tak, ze v AfterPost a v AfterDelete budes volat
CommitRetaining. Je ovsem otazka, zda z toho bude SQL server nadseny a zda
to nepovede k postupnemu zpomalovani prace s SQL serverem - to at posoudi
odbornici nebo viz archiv.Standard input / output
[*] Sebesta Jan <sebesta(zv)cube(tec)cz> - 13.4.2004 09:29:43
Zdravim vsechny,
Prosim o pomoc nekoho, kdo ma zkusenost se standard input/output.
Presneji:
Posilam pres consoli (generate console application) prikazy do jine
aplikace (genesis) a cekam co mi aplikace odpovi...
Do posledni verze aplikace genesis vse chodilo skvele. Bohuzel v nove verzi
je vse v prde... Vyrobce tvrdi, ze v tomto nic nezmenil a ze mam chybu nekde
ja a nechce slyset na to, ze ten stejny exe ve stare verzi jde a v nove ne.
Pokud neco poslu tak to aplikace genesis provede ale moje aplikace ztroskota
na rakdu Read(Input,A). Dojede sem a ceka a ceka ... repeat neprobiha.
Genesis by mela po vykonani prikazu vracet vysledky,ale dle meho nic
nevraci.
Takze konecne moje otazka:
Lze nejak monitorovat nebo zjistit, zda aplikace "neco" posila do console?
Jak to jinak cist nez pomoci Read(Input,A)?
Var A:Char;
COM_Status:String;
...
write(DIR_PREFIX+TEXT+chr(10));
// DIR_PREFIX='(zv)%#%(zv)' aby aplikace vedela, ze to je pro ni
// chr(10) pro ukonceni radku
Flush(Output);
// cteni vraceneho argumentu
repeat // dokud neni konec radku chr(10)
Application.ProcessMessages;
Read(Input,A);
If Ord(A)<>10 then COM_Status:=COM_Status+A;
until (Ord(A)=10);
...
Dekuji za pomoc
Jan Sebesta
Posun v TListView
[*] delphak(zv)centrum(tec)cz - 13.4.2004 08:15:37
Dobry den, muzete mi poradit, kterak programove posouvat polozky v TListView nahoru a dolu? Zobrazuji tam udaje o souborech, podobne jako v pruzkumniku detailni zobrazeni - tj. jeden radek je tvoreny vice polozkama (Item + subitem)
Dik.Jak pouzit StartTransaction, Commit, Rollback
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 13.4.2004 06:21:29
> Nejak nedokazu soucasne nastavit 'zivy' Select s Insertem, Deletem a
> Modify se standartni pouzitim transakci. Jde o to, aby se Commit
> provedl vzdy po modifikaci dat, a ne az pri ukonceni programu. Pri
> vypadku proudu by uzivatel ztratil vsechnu praci.
Ahoj,
jsem zastancem reseni, kdy DBGrid je jen pro prohlizeni a editace se provadi v
samostatnem formulari. Pak pro editaci pouzivas jiny dataset a jinou transakci nez tu
pro cteni.
Pokud bys ale trval na prime editaci v gridu, lze commitu po kazde operaci dosahnout
napr. tak, ze v AfterPost a v AfterDelete budes volat CommitRetaining. Je ovsem
otazka, zda z toho bude SQL server nadseny a zda to nepovede k postupnemu
zpomalovani prace s SQL serverem - to at posoudi odbornici nebo viz archiv.
David Lebeda
TTHread.Execute a volani rekurze
[*] Cizek Milan <cizek.milan(zv)seznam(tec)cz> - 13.4.2004 02:23:08
> From: "Cizek Milan" <cizek.milan(zv)seznam(tec)cz>
> > zasekl jsem se na nejspis trivialnim problemu. Mam thread, z jehoz
> > execute metody volam proceduru, ktera obsahuje rekurzivni volani.
> > Problem je, ze thread nefunguje jak by mel a aplikace
> "vytuhne" az do
> > dokonceni vypoctu. Navrhl jsem to spatne? Diky
>
> Asi ano. Co v tom threadu vlastne volas ?
Ahoj,
no v podstate jsem to uz asi vyresil... v ramci toho threadu jsem mel
vytvoreny TStringList. Execute metoda spustila dalsi funkci, ktera
rekurzivne volala sama sebe a pridavala polozky do stringlistu. Pote jsem
pomoci synchronize zavolal funkci, ktera udelala:
MainForm.ListBox.Items:=StringList; Predelal jsem to tak, ye kaydou polozku
pridavam primo do listboxu pomoci synchronize a zda se, ze je po problemu.
S pozdravem Milan Cizek, amatersky programator, D7 Ent
Win2k (SP3) a WinXP, cizek.milan(zv)seznam(tec)cz, ICQ: 59826637
TTHread.Execute a volani rekurze
[*] Petr Vones <pvones(zv)vol(tec)cz> - 13.4.2004 02:15:06
From: "Cizek Milan" <cizek.milan(zv)seznam(tec)cz>
> zasekl jsem se na nejspis trivialnim problemu. Mam thread, z jehoz execute
> metody volam proceduru, ktera obsahuje rekurzivni volani. Problem je, ze
> thread nefunguje jak by mel a aplikace "vytuhne" az do dokonceni vypoctu.
> Navrhl jsem to spatne? Diky
Asi ano. Co v tom threadu vlastne volas ?
Petr Vones
TTHread.Execute a volani rekurze
[*] Cizek Milan <cizek.milan(zv)seznam(tec)cz> - 13.4.2004 02:07:05
Ahoj,
zasekl jsem se na nejspis trivialnim problemu. Mam thread, z jehoz execute
metody volam proceduru, ktera obsahuje rekurzivni volani. Problem je, ze
thread nefunguje jak by mel a aplikace "vytuhne" az do dokonceni vypoctu.
Navrhl jsem to spatne? Diky
Milan, D7 Ent
OT: POP3 a SMTP cez LAN a DSL
[*] Jaroslav Popluhar <delphi1(zv)acc.sk> - 13.4.2004 01:45:00
Ahojte, najma vsetci sietari:-)
mam, verim, ze trivialny problem:
- mam LAN, kde existuje PC s pripojenim na DSL (Inet),
toto ma v ramci LAN pevne IP: 192.168.10.4
- na PC bezi soft Proxy+
- mam notebook pripojeny do LAN (DHCP)
potrebujem nakonfigurovat (vseto co s tym suvisi) tak,
aby som mohol na notebooku stahovat pripadne z neho posielat
postu cez DSL (TheBAT!).
Zatial som vylaboroval toto:
- na NB som nastavil Gateway a DNS na PC (192.168.10.4)
- DNS forwarder na Proxy+
OS WinXP, vsade.
Pozeram sa na to cez SS-Ethreal a vidim, ze konverzia mien
serverov na IP prebehne OK, ale ziadna posta sa nestiahne
ako by sa postovy klient ani nepripojil. Uz nevien, kam zatat.
Ak ex. poslite link, na dobru sietovu konferu.
--
Best regards,
Jaroslav mailto:delphi1(zv)acc.sk
Firebird a cestina
[*] Pavel Cisar <pcb(zv)atlas(tec)cz> - 12.4.2004 22:14:18
Haj hou!
On 12 Apr 2004 at 19:52, Pavel Hora wrote:
> Mam zalozeni databazi s DEFAULT CHARACTER SET ISO8859_2, takze uz
> nikde u def. tabulek neuvadim kodovani. Pri zadavani dat pres isql
> (pred pripojenim nastavim set names iso8859_2) je vse OK (krome razeni
> zaznamu, zde se spatne radi ch - bere se jako c-h - muj 1. problem),
Collate ISO8859_2 nebo CS_CZ ?
> ale pokud zadavam data z jinych programu (take nastaveno iso8859_2)
> ulozi se do databaze nesmyslne znaky - stejne nesmysli se pak i
> prectou. Nevite v cem by to mohlo byt??
Dle meho program sice deklaruje ze pouziva (nastavi klientsky
charset) iso8859-2, ale data ktera posila na server v tomto kodovani
ve skutecnosti nejsou.
S pozdravem
Pavel Cisar (ICQ: 89017288)
Mobil: 724 281429
http://www.ibphoenix(tec)cz
Vse co potrebujete pro Firebird a InterBase
Firebird a cestina
[*] Pavel Hora <phofficial(zv)centrum(tec)cz> - 12.4.2004 19:52:04
Zdravim,
vim ze se to zde jiz resilo, ale stale ne ku me spokojenosti :))
Mam zalozeni databazi s DEFAULT CHARACTER SET ISO8859_2, takze uz nikde u def. tabulek neuvadim kodovani. Pri zadavani dat pres isql (pred pripojenim nastavim set names iso8859_2) je vse OK (krome razeni zaznamu, zde se spatne radi ch - bere se jako c-h - muj 1. problem), ale pokud zadavam data z jinych programu (take nastaveno iso8859_2) ulozi se do databaze nesmyslne znaky - stejne nesmysli se pak i prectou. Nevite v cem by to mohlo byt??TWebBrowser - Kopirovanie textu
[*] Martin Kasman <martinkasman(zv)martinkasman.sk> - 12.4.2004 18:13:56
D7, Win2000
Mam offline HTML stranku na pocitaci. Ked ju normalne otvorim z
WinExplorer, tak mozem oznacit nejaky text a skopirovat ho do schranky.
Cez Delphi komponentu TWebBrowser to uz nefunguje. Stranku otvaram asi
takto:
var Flags: OLEVariant;
...
Flags:=0;
WebBrowser1.Navigate(OffLineStranka, Flags, Flags, Flags, Flags);
...
Zaujimave je, ze ked volam on line stranku (http:\\www. ....), tak tu
kopirovanie funguje.
Vdaka za kazdu radu
Delphi a eventlogy
[*] Petr Vones <pvones(zv)vol(tec)cz> - 12.4.2004 03:02:53
From: <david.kopecek(zv)hacktrack.com>
> koukal jsem se pres google a tam furt neco rikaj o nejakem res ktery
> bude skompilovany do DLL a ten bude obsahovat ty error hlasky. neda se
> to udelat jinak ?
Ne, to je standardni zpusob implementace ve Windows. Je treba si stahnout
Platform SDK kde je MC (message compiler), vytvorit prislusnou DLL a zapsat
do registru. Vse je popsano v dokumentaci.
Petr Vones
Dohledani komponenty podle jmena
[*] Petr Vones <pvones(zv)vol(tec)cz> - 12.4.2004 03:02:51
From: <delphak(zv)centrum(tec)cz>
> FindComponent - ale nevim, jak to jednoduse programve hledat v ramaci celeho
> projektu.
Globalni objekt Application je odvozen od TComponent, takze obsahuje reference
na vsechny vlastnene objekty - datamoduly.
Petr Vones
OnAfterInstall pri instalaci sluzby
[*] Petr Vones <pvones(zv)vol(tec)cz> - 12.4.2004 03:02:52
From: "Svehla Jaroslav" <svehla(zv)spelza(tec)cz>
> Ahoj, ve sve sluzbe zachytavam OnAfterInstall (a OnBeforeUninstall). Pokud
> sluzbu instaluji z prikazove radky SLUZBA /INSTALL vse funguje OK, pokud ale
> pouziji programovou instalaci pomoci CREATESERVIS() OnAfterInstall
Programova instalace spociva ve volani s parametrem /install popripade /silent
aby se nezobrazil dialog o vysledku operace.
Petr Vones
Ladeni in-process COM komponenty
[*] Petr Vones <pvones(zv)vol(tec)cz> - 12.4.2004 03:06:54
From: "Krakora Martin" <krakoram(zv)seznam(tec)cz>
> DLL). Nastavil jsem tedy debug info a Host Aplication podle helpu. Jenze mi
> to porad nechodi. Mam projekt Activex DLL, kde je vlozeny Automation
> objekt.Pokud oznacim breakpoint u nejake metody objektu, kterou vola
> aplikace klienta, tak je po spusteni breakpoint neaktivni a pri volani se na
> nem program nezastavi. Kdyz spustim projekt DLLka, tak se mi korektne spusti
Tohle je klasicky problem. Zkus nastavit "Include remote debug symbols" v
Linker options a zaroven je nutne aby cesta k DLL nebyla relativni.
Petr Vones
zjisteni poctu vlaken dane aplikace
[*] Petr Vones <pvones(zv)vol(tec)cz> - 12.4.2004 02:54:50
From: <david.kopecek(zv)hacktrack.com>
> jo ToolHelp znam ale potreboval bych to zjistit okamzite v tom danem
> procesu. Myslel jsem ze to ma funkci GetThreadCount ci co.. :) Jedna se o
> 2000.
A v cem je problem ? Vzdyt struktura PROCESSENTRY32 obsahuje primo polozku
cntThreads.
Petr Vones
Jak pouzit StartTransaction, Commit, Rollback
[*] Petr Svejda <petr(zv)svejda(tec)cz> - 10.4.2004 23:47:42
FB1.5, IBX, D7P, WXPP
na formular umistim IBDataSet, IBDatabase, IBTransaction, DataSource,
DBGrid. Vse nastavim a pouzivam. Pri uzavreni formulare se provede
automaticky Commit.
Ja bych ale potreboval, aby se provedla standardni konstrukce na tlacitko:
TBTransaction.StartTransaction;
try
TBDataSet.Edit;
TBDataSet.FieldsByName('Nazev').AsString;
TBDataSet.Post;
TBTransction.Commit;
except
TBTransction.Rollback;
end;
Nejak nedokazu soucasne nastavit 'zivy' Select s Insertem, Deletem a Modify
se standartni pouzitim transakci. Jde o to, aby se Commit provedl vzdy po
modifikaci dat, a ne az pri ukonceni programu. Pri vypadku proudu by
uzivatel ztratil vsechnu praci.
Nenasel by se nekdo, kdo by me poslal nebo popsal vzorovy priklad, jak na
to?
Diky Petr
SQL dotaz - upresneni
[*] Ludek ZITA <konference(zv)sales(tec)cz> - 10.4.2004 22:35:37
On Behalf Of Dalibor
> Mas pravdu, psal jsem to narychlo, takze jsem na podstatne
> veci zapomnel Upresneni FB 1.5, Delphi7Prof Struktura tabulky
>
> skupina, datum, cas, polozka1, polozka2, polozka3, polozka4
>
>
> Skupina muze obsahovat vice vet a ja potrebuji z kazde
> skupiny vytahnou jednu vetu s nejaktualnejsim casem,
>
Ahoj.
To bude asi ukol pro SP
Takze nejak takto
Create procedure vypis
Returns (
skupina, datum, cas, polozka1, polozka2, polozka3, polozka4)
As
Begin
Declare memskup
:memskup=0;
For Select skupina, datum, cas, polozka1, polozka2, polozka3, polozka4
from tabulka order by skupina, datum desc , cas desc
into :skupina, :datum, :cas, :polozka1, :polozka2, :polozka3,
:polozka4
do
begin
if (memskup<>:skupina) then
begin
memskup=:skupina;
suspend;
end
end
End.
Promin uz dlouho jsem pro IB/FB nice nepsal.
Princip je ten, ze vyberes vse a seradis to podle datumu a casu a pak
prijizdis a pomoci promenne memskup si vyplivnes suspendem jenom tu
privni aktualni vetu.
U MSSQL2000 by to resil asi najoinovanym subselektem ale to IB/Fb myslim
neumi.
Ludek
klavesove zkratky v Delphi
[*] Jakub Dusek <delphi(zv)corexpert(tec)com> - 10.4.2004 12:08:45
======================================================================
Friday, April 9, 2004, 12:19:34 AM, you wrote:
TG> Me zase na notebooku trapi, ze mi v D6 nefunguji nektere zkratkove
TG> klavesy, ktere bych docela rad pouzival. Napriklad nejde
TG> Ctrl+Shift+sipka nahoru ci dolu pro preskakovani mezi interface a
TG> implementation casti metod nebo Ctrl+B (BufferList). Vetsina
TG> ostatnich kombinaci funguje normalne. Mozna bude problem v tom, ze
TG> ten notebook nema pravy ctrl.
Nebo se to kope s nejakou globalni klavesovou zkratkou. Typicky mi to
kolidovalo treba s ICQ nebo s driverem na grafickou kartu.
TG> Lze zkratkove klavesy nekde jednoduse dodefinovat ?
Standardne myslim ne, ale umoznuji to GExperts. Tam jdou predefinovat
klavesove zkratky, i pridat nove pro akce, ktere je nemaji.
http://www.gexperts.org/
TG> Tomas
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
SQL dotaz - upresneni
[*] Dalibor <dalibor(zv)torola(tec)cz> - 10.4.2004 09:26:34
Mas pravdu, psal jsem to narychlo, takze jsem na podstatne veci zapomnel
Upresneni FB 1.5, Delphi7Prof
Struktura tabulky
skupina, datum, cas, polozka1, polozka2, polozka3, polozka4
Skupina muze obsahovat vice vet a ja potrebuji z kazde skupiny vytahnou
jednu vetu s nejaktualnejsim casem,
napr
1,8:00,29.4.2004, polozka1, polozka2, polozka3, polozka4
1,9:00,29.4.2004, polozka1, polozka2, polozka3, polozka4
1,10:00,29.4.2004, polozka1, polozka2, polozka3, polozka4
2,15:00,29.4.2004, polozka1, polozka2, polozka3, polozka4
2,16:00,29.4.2004, polozka1, polozka2, polozka3, polozka4
2,17:00,29.4.2004, polozka1, polozka2, polozka3, polozka4
a po selectu potrebuji dostat:
1,10:00,29.4.2004, polozka1, polozka2, polozka3, polozka4
2,17:00,29.4.2004, polozka1, polozka2, polozka3, polozka4
Dekuji za pomoc
----- Original Message -----
From: "Ludek ZITA" <konference(zv)sales(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Friday, April 09, 2004 8:07 PM
Subject: Re: SQL dotaz
> On Behalf Of Dalibor
> > Ahoj,
> > potrebuji zjistit jednu vetu z kazde skupiny ze vsemi sloupci
> > s nejnovejsim casem pro dany datum
> >
> > Da se to nejak?
>
> Ahoj.
> Mozna ano.
>
> Ludek
>
>
>
>
>
>
>
>
> P.S. Pokud by se ti moje odpoved nezdala dostatecna tak je to proto, ze
> odpovida Tvemu "zadani":))))
> Takze asi nam budes muset prozradit datovou strukturu a typ SQL serveru.
> Jinak Ti nikdo nepomuze.
>
>ADMIN: threads - zacatecnik
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 9.4.2004 23:01:52
Puvodni zprava ze dne 9.4.2004:
> potreboval bych v aplikaci zavest nove vypoctove "vlakno",
> tak, abych byl tento proces schopen zastavit tlacitkem na formulari.
> Muze mi nekdo poslat jednoduchoucky ilustrativni priklad jak na to?
> Poradi mi nekdo?
Jestli ti nikdo neodpovida, tak to znamena, ze si mas treba priklad
najit v prikladech primo v Delphi, kde je velmi nazorny priklad na
thready.
Prosim neposilej sem stejne dotazy opakovane. Prispevek prisel,
vsichni si ho mohli precist a jestli ti nikdo nechce odpovedet, tak to
nevyresis opakovanym zasilanim. Tohle je treti naprosto stejny dotaz v
kratke dobe.
Petr Zahradnik, pocitacovy expert
==========================================================
Petr Zahradnik, Computer Laboratory
web: http://www.clexpert(tec)cz, e-mail: clexpert(zv)clexpert(tec)cz
==========================================================
threads - zacatecnik
[*] Ethy Faraday <etherey(zv)centrum(tec)cz> - 9.4.2004 22:53:51
Zdravim,
potreboval bych v aplikaci zavest nove vypoctove "vlakno",
tak, abych byl tento proces schopen zastavit tlacitkem na formulari.
Muze mi nekdo poslat jednoduchoucky ilustrativni priklad jak na to? Poradi mi nekdo?
Diky, Ethy
Vlastni scroll bary u TMemo
[*] J. Vita <delphi(zv)obecpohori(tec)cz> - 9.4.2004 20:33:41
Ahoj konference,
moc bych potreboval vedet, jakym zpusobem uzivatelsky obarvit scroll bar u
tmemo.
Nechci, aby se ridil barvama ve windows, ale abych ho mel cerveno bilej a
zapadal do designu aplikace.
Delphi 4 standard
Diky moc za pomoc nebo za radu.
ViJu
SQL dotaz
[*] Ludek ZITA <konference(zv)sales(tec)cz> - 9.4.2004 20:07:39
On Behalf Of Dalibor
> Ahoj,
> potrebuji zjistit jednu vetu z kazde skupiny ze vsemi sloupci
> s nejnovejsim casem pro dany datum
>
> Da se to nejak?
Ahoj.
Mozna ano.
Ludek
P.S. Pokud by se ti moje odpoved nezdala dostatecna tak je to proto, ze
odpovida Tvemu "zadani":))))
Takze asi nam budes muset prozradit datovou strukturu a typ SQL serveru.
Jinak Ti nikdo nepomuze.SQL dotaz
[*] Dalibor <dalibor(zv)torola(tec)cz> - 9.4.2004 15:35:14
Ahoj,
potrebuji zjistit jednu vetu z kazde skupiny ze vsemi sloupci s nejnovejsim casem pro dany datum
Da se to nejak?StringGrid RowSelect a posouvani horizontalniho sc
[*] radek_456 radek_456 <radek_456(zv)seznam(tec)cz> - 9.4.2004 14:57:09
Ahoj,
mam ve StringGridu nastaveno RowSelect na true a pri posouvani mezi zaznamy (sipkama nahoru a dolu) se horizontalni scrollbar nastavi vzdy na zacatek - to je obzvlaste neprijemne pokud si uzivatel chce prohlizet nejaky sloupec ktery normalne bez posunuti scrollbaru neni videt. Nevite nekdo jak donutit StringGrid aby nic s tim scrollbarem neprovadel ? Nebo nejaka nahrada za StringGrid ?
diky Radek
FreeVCS a prihlaseni klienta
[*] jsdelphi(zv)creatix(tec)cz - 9.4.2004 14:25:06
>>> Nedari se mi prihlasit klienta k serveru
>>>
>>> Zkousim podle napovedy username a password: "sysdba"/ "admin"
>>>
>>> Ale hlasi mi to (server): [LOGIN] Access denied, Unknown user. sysdba
>Asi mam jinou dokumentaci. defaultne tam je SYDBA/masterkey
SYSDBA/masterkey
Jan Skopovy
jak dostat hodnoty z TWebModule do promenne
[*] Jiri Virt <virt(zv)volny(tec)cz> - 9.4.2004 12:12:51
prima diky .. uz jsem na to vecer s pomoci bozi a knizkama prisel :o)
nj .. ale za zadnou cenu nemuzu otevrit tabulku ... pritom jsem to uz nekdy
pred rokem zkousel a vsechno OK... nj ... musim hledat dal... zajimavy, ze
sem nerozebehnul ani ukazkovou aplikaci.pritom v navrhu tabulky normalne
otevru .... je to zahada
Ale preci jenom bych potreboval radu.
jak debugovat isapi? na netu jsem nasel navody ... vsechno mam nastaveno ..
v D pustim RUN , DLL se zavede, pohybuji se po strankach .. ale jaksi mi to
ne a ne zastavit na miste, kde si dam breakpoint. Je na miste , kterym
prochazi, to jen tak pro uplnost .. takze totalne nechapu, proc D nereaguje.
D5 profi WinXP
Jirka
jak dostat hodnoty z TWebModule do promenne
[*] Peter Ondras <peter.ondras(zv)pse.sk> - 9.4.2004 12:02:50
(*
Tu je ukazka jednej akcie, ktora nacita nejake 3 hodnoty a vypise ich. V
casti "vygenerovanie stranky" v ramci bloku try..except si mozes doplnit
akykolvek kod (nacitanie udajov z databaz, rozne vypocty a pod.). V
tejto casti su pridavanim "HTML.Add('<nejaky_html_zdrojak>');" doplnas
vizualny vystup. Mozes tu volne pouzivat CSS, tabulky, javascript a pod.
Header a footer (napr. cast <html> a </html>, resp. nejaka cela
hlavicka=zakladny dizajn) mozes nacitavat zo suborov, cim si ulahcis v
buducnosti zmenu dizajnu. Ak chces o tom viac info, tak nie je problem
sukromne
*)
procedure TIshopModule.IshopModuleAction1Action(Sender: TObject;
Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
var HTML: TStringList;
hodnota, premenna2, premenna3: String;
begin
//vynulovanie premennych
hodnota:='';
premenna1:='';
premenna2:='';
//nacitanie premennych
if Request.MethodType=mtGet then
begin
//metoda GET
hodnota:=Request.QueryFields.Values['hodnota'];
premenna1:=Request.QueryFields.Values['premenna2'];
premenna1:=Request.QueryFields.Values['premenna3'];
end
else if Request.MethodType=mtPost then
begin
//metoda POST
hodnota:=Request.ContentFields.Values['hodnota'];
premenna1:=Request.ContentFields.Values['premenna2'];
premenna2:=Request.ContentFields.Values['premenna3'];
end;
//vygenerovanie stranky
HTML:=TStringList.Create;
try
try
HTML.Clear;
HTML.Add('<html>');
HTML.Add('<body>');
HTML.Add(' <p>Premenna hodnota je: '+hodnota+'</p>');
HTML.Add('</body>');
HTML.Add('</html>');
except
//chybova stranka (v pripade, ze nastane nejaka chyba)
HTML.Clear;
HTML.Add('<html>');
HTML.Add('<body>');
HTML.Add(' <h1>Nastala chyba pri generovani stranky!</h1>');
HTML.Add('</body>');
HTML.Add('</html>');
end;
finally
//vratenie vysledku do prehliadaca
Response.Content:=HTML.Text;
HTML.Free;
end;
end;> -----Original Message-----
> Jak dostanu z tagu hodnoty do promennych?
>
> priklad:
>
> webdemo.dll/test?hodnota=12345
> Zachytavani zprav na UDP portu.
[*] Vaclav Riha - Soft Consult <vaclav_riha(zv)softconsult(tec)cz> - 9.4.2004 11:34:47
>potreboval bych zachytavat zpravy na UDP portu a zapisovat je do
souboru.
Zkus Synapsi, TUDPBlockSocket, a nenech se odradit, ze to nejsou komponenty, ale pouze "unity". Je OK.
S pozdravem Vaclav Riha
Intranet vs. Internet - stahovani souboru - rychlo
[*] js-delphi(zv)quick(tec)cz - 9.4.2004 11:10:45
Odesilatel: Fitz Ladislav <ladislav.fitz(zv)kodytek(tec)cz>
> kopirovaloneuveritelne dlouho (a to i 700MB soubor asi 30min)
> protoze byly vedle sebe
> tak jsem zkusil jen prhodit sitove kabliky a kupodivu bylo ihned
> po problemu
Ahoj.
Ten dotaz jsem tady vznesl ja a tohle me zajima. Muzes mi to vic priblizit? Treba uz na soukromy mail - uz si nejsem jisty, zda to tady patri...
Diky za zpravu
Jirka
Jinak k napovede D.Tomana, at zkontroluju sitovyk podle led diod - tak tohle jsem nahodou vedel :), ale kdyz tady padlo, ze se sitovka muze tvarit, ze jede na 100Mb/s, ale ve skutecnosti bezi na 10Mb/s, tak jsem si myslel, ze se v tom pripade neda tem ledkam verit... Ano, na obou sitovkach mi sviti led, ktera znamena 100Mb/s
Jake jsou "normalni" casy na zkopirovani 7GB?
Jirka
--------------------------------------------------
Ing. Jiri Sokol; jiri.sokol(zv)seznam(tec)cz; 972 231 187
D6Prof+SP3; WinXPProf+SP1; FB 1.0.3
programator amater
Zachytavani zprav na UDP portu.
[*] Petr Dedecek <petrd(zv)omega-lbc(tec)cz> - 9.4.2004 10:44:42
Zdravim,
potreboval bych zachytavat zpravy na UDP portu a zapisovat je do
souboru. Jsou to zpravy syslogu ze zarizeni v siti. Cim by to slo delat
? Dik za radu.
Petrd
Opendialog ?
[*] Jiri Betunak <kindrik(zv)centrum(tec)cz> - 9.4.2004 09:56:33
Zdravim konference,
resim jednou zahadu ... lze prosim vas nejak zjisti ktera applikace
otevrela savedialog ?
Potreboval bych detekovat zda ho otevrel explorer nebo nekdo jiny lze
to nejak ?
--
Best regards,
Jiri mailto:kindrik(zv)centrum(tec)cz
ICQ#: 265297587
Delphi 7;WinXP;WinME;Nastaveni vychozi vlastnosti tiskarny
[*] Fitz Ladislav <ladislav.fitz(zv)kodytek(tec)cz> - 9.4.2004 10:06:39
musis si pro kazdou tiskarnu vyclenit pamet pro jeji nastaveni a podstrcit
pri volani dialogu nastavujiciho vlastnosti (ovsem musis si udelat vlasni
vyber tiskarny s tlacitkem vlastnosti)
na adrese www.volny(tec)cz\maxi_fikus najdes unity ve kterych to vyuzivam tak si
z toho vykuchej co potrebujes
OT: Dokumentace k javascriptu
[*] Milan Tomes <delphi(zv)haida(tec)cz> - 9.4.2004 09:58:34
Zdravim vsechny,
potreboval bych kompletni dokumentaci k javascriptu (jak od Sunu tak i od
MS).
Nemate nekdo po ruce link na stazeni ???
Odpovedi prosim na soukr. mail (mailto:milan.tomes(zv)haida(tec)cz)
Diky
Milan Tomes
Services v Delphi
[*] koukal <koukal(zv)petrkoukal(tec)cz> - 9.4.2004 09:54:32
> Ahoj,
>
> potreboval bych jeden program napsat jako service (synchronizace MSSQL a
> MySQL databaze).
>
> Muzete mi prosim poradit, kde bych nasel nejake HOW-TO jak services
> spravne psat?
>
> Diky,
>
> Lukas
>
>
>
Dobry den.
File- New-ServisApplication v helpu Delphi je i priklad.
Petr Koukal
DBGrid - zmena barvy textu
[*] horky(zv)cominn(tec)cz - 9.4.2004 09:44:29
> From: Petr BRABEC [mailto:petr(zv)elra(tec)cz]
> Sent: Thursday, April 08, 2004 12:46 PM
> Potrebuji zmenit barvu fontu v DBGrid, pro kazdy radek zvlast
> dle hodnoty v sloupci.
Toto uz tu bylo mnohokrat, prohlidni si archiv konference na www.delphi(tec)cz
Dela se to pomoci uzivatelskeho vykreslovani, toto je jedno z reseni, ktere jsem odnekud vycetl, meni to barvu pozadi podle hodnoty v sloupci:
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
if not(gdSelected in State) then
case Table1.FieldByName('NumTickets').AsInteger of
0 : TDBGrid(Sender).Canvas.Brush.Color := clYellow;
1 : TDBGrid(Sender).Canvas.Brush.Color := clGray;
2 : TDBGrid(Sender).Canvas.Brush.Color := clSilver;
3 : TDBGrid(Sender).Canvas.Brush.Color := clRed;
4 : TDBGrid(Sender).Canvas.Brush.Color := clGreen;
end;
TDBGrid(Sender).DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;
--
S pozdravem Karel Horky, D7, FB 1.0.3, IBX 7.08, WXP SP1
[mailto:horky(zv)cominn(tec)cz]
Intranet vs. Internet - stahovani souboru - rychlo
[*] Fitz Ladislav <ladislav.fitz(zv)kodytek(tec)cz> - 9.4.2004 09:52:31
omlouvam se ze reaguji tak pozde (nebyl jsem pripojeny) ale mel jsem podobny
problem s notebookem, ve firemni siti mi to z nej na jiny pocitac kopirovalo
neuveritelne dlouho (a to i 700MB soubor asi 30min) protoze byly vedle sebe
tak jsem zkusil jen prhodit sitove kabliky a kupodivu bylo ihned po problemu
Generovani ascii tiskovych sestav
[*] Vaclav Krmela <krmela(zv)ustinadorlici(tec)cz> - 9.4.2004 09:06:22
> From: delphak(zv)centrum(tec)cz
> neznate nejaky generator tiskovych sestav jejich vystupem je textovy
soubor ??
Da se na to jit v podstate tremi zpusoby:
- zcela ve vlastni rezii, otevrit port tiskarny pomoci OpenFile nebo
CreateFile
a formatovany text do nej poslat
- pomoci ovladace Obecne nebo textove tiskarny, to by pak mohl zvladnout
libovolny generator sestav
- pomoci generatoru sestav, ktery ma specialni textovy rezim
a funkci WriteToFile(jmeno portu) tiskne
(existuje jeden nejmenovany cesky generator sestav, ktery to umi)
Vaclav Krmela
WinXP, prepinani uzivatelu, FB a hlaska cannot ata
[*] petr palicka <palicka.petr(zv)seznam(tec)cz> - 9.4.2004 08:58:20
Ahoj,
zakaznik ma problem :o) Nakonec nasel zpusob,
ja to obejit, ale reseni to neni uplne. Nalez:
Pokud se prihlasi na WinXP (byl jako admin), nasledne
se prepne na jineho uzivatele (bez odhlaseni prvniho),
tak presto, ze se predtim k zadne databazi nepripojoval,
se nezdari pripojeni (ani z isql) s chybovou hlaskou
"cannot atach to service manager)".
Jestlize predchoziho uzivatele klasicky odhlasi a
prihlasi se pod jinym, tak je to OK.
nepotkal ste se s timto uz nekdo?
Peca
Generovani ascii tiskovych sestav
[*] delphak(zv)centrum(tec)cz - 9.4.2004 08:16:16
Dobry den,
neznate nejaky generator tiskovych sestav (zalozenych na zaklade nejakych SQL dotazu) jejich vystupem je textovy soubor ??
Potrebuji je pro tisk rozsahlych sestav na radkovych rychlotiskarnach - graficky tisk je tudiz zcela nepouzitelny. Drive se tiskly z Informixu, ale ten jiz v soucasne dobre nepodporujeme a proto potrebuji neco do Delphi ...
Dekuji za nasmerovani ...
V.SQL dotaz
[*] Blazek Jaroslav <jaroslav.blazek(zv)access-it(tec)cz> - 9.4.2004 08:08:15
Ahoj,
> d.klodner(zv)ordis(tec)cz 9.4.2004 1:17:38 >>>
>lze sestrojit dotaz, ktery vybere vsechny odberatele, kteri NEMAJI
>objednavku?
SELECT *
FROM Odberatel od
WHERE NOT EXISTS(SELECT * FROM Objednavka ob WHERE od.IDOdberatel =
ob.IDOdberatel)
S pozdravem
Bc. Jaroslav Blazek
Access-IT Ceska Lipa
mailto:jaroslav.blazek(zv)access-it(tec)cz
http://www.access-it(tec)cz
ICQ# : 133673990
+420605/813644
QReport preview & ADOQuery
[*] Kratochvil Radomir <radomir.kratochvil(zv)mora(tec)cz> - 9.4.2004 07:44:13
Jsou to databaze MS Access 2000, zprostredkovatel je Microsoft Jet 4.0 OLE
DB provider. Pro me je to take zarazejici, jestli nedelam nekde v dotazu
chybu, ale pouhym prekopirovanim prikazu dotazu z TADOQuery do ulozene
procedury primo do ms access databaze a nastaveni linku do Delphi pres
komponentu TADOStoreProcedure a vsechno slape jak hodinky.
Kratochvil
-----Original Message-----
From: Lstiburek Pavel [mailto:lstiburek(zv)ceb(tec)cz]
Sent: Thursday, April 08, 2004 4:01 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: Re: QReport preview & ADOQuery
Celkem je to prekvapujici reseni, melo by to fungovat oboje,
nad jakou db to ado jede ?
Pavel
> From: Kratochvil Radomir [mailto:radomir.kratochvil(zv)mora(tec)cz]
> Odpovim si sam: Misto TADOQuery jsem pouzil
> TADOStoredProcedure a dotaz jsem
> vlozil primo do databaze. A svete div se uz to jede !
>
> From: Kratochvil Radomir [mailto:radomir.kratochvil(zv)mora(tec)cz]
> K vytvareni sestav pouzivam QReport, pres ktery take
> zobrazuju nahledy. Vse
> pracovalo OK, dokud jsem do projektu nedal ADOQuery. Jakmile
> spustim dotaz
> do databaze pres komponentu ADOQuery, nahled jakekoliv
> sestavy QReportu
> zamrzne a s nim i cela aplikace. Je zvlastni, ze tisk primo
> na tiskarnu bez
> nahledu jde. Kde je zakopany pes ? Pouzivam D6, WinXP, Qrep 3.5 stnd.
> Excel - zjisteni posledniho radku a sloupce tabulk
[*] Pave Gazda <pavel_gazda(zv)datasw(tec)cz> - 9.4.2004 07:12:10
> Prosim poradite nekdo, jak se da zjistit posledni radek a sloupec Excelove
tabulky, kterou se
>
> Karel Rys
>
Worksheet.UsedRange[0].Rows.Count;
Worksheet.UsedRange[0].Columns.Count;
Pavel Gazda
placeny amater
SQL dotaz
[*] petr palicka <palicka.petr(zv)seznam(tec)cz> - 9.4.2004 07:12:07
Ahoj,
ja osobne bych ten dotaz napsal takto:
select distinct
odb.nazev
from
Odberatele odb
left join Objednavky obj on obj.id_odberatele = odb.id_odberatele
no a ten obraceny takto:
select distinct
odb.nazev
from
Odberatele odb
left join Objednavky obj on obj.id_odberatele = odb.id_odberatele
where
obj.id_odberatele is null
nevim jak kde ale na FB by to melo slapat (imho na ledascem,
je to standardni left join)
peca
FreeVCS a prihlaseni klienta
[*] Stanislav PETR <stanislav.petr(zv)glux(tec)cz> - 9.4.2004 06:48:05
Dobry den,
8. dubna 2004, 12:54:19, napsal jste:
dmc> nedavno jsem to zkousel. Heslo jsem nevedel, tak jsem ho v databazi
dmc> (firebird) smazal. Je to v tabulce USER.
dmc> Karl
>> Nedari se mi prihlasit klienta k serveru
>>
>> Zkousim podle napovedy username a password: "sysdba"/ "admin"
>>
>> Ale hlasi mi to (server): [LOGIN] Access denied, Unknown user. sysdba
Asi mam jinou dokumentaci. defaultne tam je SYDBA/masterkey
--
S pozdravem,
Stanislav PETR
Network specialist
Attoservis s.r.o.
mailto:stanislav.petr(zv)glux(tec)cz
SQL dotaz
[*] Ing. Pavel Zilinec <zilinec(zv)psinfos(tec)cz> - 9.4.2004 05:17:54
Jednak Tva konstrukc zpusobi, ze kdyz bude mit odberatel vice
objednavek, tak se Ti take tolikrat vrati (melo by tam byt distinct)
:-) Jaky SQL server?
MS SQL:
select odb.nazev
from Odberatele odb
left outer join Objednavky obj on odb.id_odberatele = obj.id_odberatele
where obj.id_odberatele is null
Mnoznost pro jiny server:
select odb.nazev
from Odberatele odb
where not odb.id_odberatele in (select distinct obj.id_odberatele from Objednavky obj)
MS SQL (Tvuj puvodni dotaz)
select distinct odb.nazev
from Odberatele odb
join Objednavky obj on odb.id_odberatele = obj.id_odberatele
--
ing. Pavel Zilinec
MailTo:zilinec(zv)email(tec)cz
Prog-Soft s.r.o. Plzen
Informacni system pro vyrobce
a distributory napoju
Friday, April 9, 2004, 1:17:38 AM, bylo napsano:
DK> Zdravim,
DK> mam jednoduchy SQL dotaz, ktery vybere vsechny odberatele, kteri maji
DK> objednavku,
DK> select odb.nazev from Odberatele odb, Objednavky obj
DK> where odb.id_odberatele = obj.id_odberatele
DK> lze sestrojit dotaz, ktery vybere vsechny odberatele, kteri NEMAJI
DK> objednavku?
DK> David Klodner
Vyber tiskarny...
[*] Pavel ZIDEK <delphi(zv)kopr(tec)cz> - 9.4.2004 04:51:52
Zkus se podivat na:
uses
Printers;
//zobrazeni aktivni pripojene tiskarny
Label1.Caption := Printer.Printers.Strings[Printer.PrinterIndex];//seznam vsech pripojenych tiskaren
ComboBox1.Items := Printer.Printers;
ComboBox1.ItemIndex := Printer.PrinterIndex;
Pavel ZIDEK
Prosim o pomoc pri vyberu tiskarny pro tisk.
Jedna se o pocitac, na ktery jsou pripojeny tri tiskarny. Do ted sem
pouzival Quick Report a jednotlivym reportum sem tiskarnu prirazoval pomoci.
SQL dotaz
[*] David Klodner <d.klodner(zv)ordis(tec)cz> - 9.4.2004 01:17:38
Zdravim,
mam jednoduchy SQL dotaz, ktery vybere vsechny odberatele, kteri maji
objednavku,
select odb.nazev from Odberatele odb, Objednavky obj
where odb.id_odberatele = obj.id_odberatele
lze sestrojit dotaz, ktery vybere vsechny odberatele, kteri NEMAJI
objednavku?
David Klodner
klavesove zkratky v Delphi
[*] Tomas Grepl <delphi(zv)kapsw(tec)cz> - 9.4.2004 00:19:34
>> pls nevite nekdo kde je mozne nastavit nebo zakazat klavesove
>> zkratky v prostredi delphi ? nemuzu to nikde najit
> HKEY_CURRENT_USER\SOFTWARE\Borland\Delphi\7.0\Editor\Options
> "NoCtrlAltKeys"="1"
Me zase na notebooku trapi, ze mi v D6 nefunguji nektere zkratkove klavesy,
ktere bych docela rad pouzival.
Napriklad nejde Ctrl+Shift+sipka nahoru ci dolu pro preskakovani mezi
interface a implementation casti metod nebo Ctrl+B (BufferList). Vetsina
ostatnich kombinaci funguje normalne. Mozna bude problem v tom, ze ten
notebook nema pravy ctrl.
Lze zkratkove klavesy nekde jednoduse dodefinovat ?
Tomas
jak dostat hodnoty z TWebModule do promenne
[*] Jirka Virt <virt(zv)volny(tec)cz> - 8.4.2004 19:51:15
Ahoj,
mam ISAPI web aplikaci.
Jak dostanu z tagu hodnoty do promennych?
priklad:
webdemo.dll/test?hodnota=12345
jde mi o tu hodnotu 12345, jak ji po odeslani dostat do promennych?
Diky
Jirka
Komponenty pre FB
[*] Jaroslav Uher <jarek(zv)iuher(tec)cz> - 8.4.2004 18:03:08
On 8 Apr 2004 at 13:22, KALUS Jozef wrote:
> prosim ta, kde sa daju a za kolko kupit ?
z jejich Readme.txt:
Regional Partners and Resellers:
You can contact our partners and resellers in your
country. Please, search reseller in our Partner Area:
http://www.devrace.com/en/partners/
Jarek Uher
threads - zacatecnik
[*] Ethy Faraday <etherey(zv)centrum(tec)cz> - 8.4.2004 17:09:03
Zdravim,
potreboval bych v aplikaci zavest nove vypoctove "vlakno", tak, abych byl tento proces schopen zastavit tlacitkem na formulari.
Muze mi nekdo poslat jednoduchoucky ilustrativni priklad?
Diky, Ethy
Komponenty pre FB
[*] delphi(zv)mjsoft(tec)cz - 8.4.2004 16:22:59
> V nasem frameworku (v soucasnosti nad IBX) to mame tak, ze
> existuje jedna jedina transakce pro zapis (samozrejme se
> spousti pouze v okamziku zapisu) a pro cteni jich muze
> existovat treba tisic (i aktivnich).
v FIBPlus se daji nastavit obe transakce primo na komponente
FIBDataSet.Vyber tiskarny...
[*] Petr Daricek <petr.daricek(zv)seznam(tec)cz> - 8.4.2004 16:20:58
> Prosim o pomoc pri vyberu tiskarny pro tisk.
> Jedna se o pocitac, na ktery jsou pripojeny tri tiskarny. Do ted sem
> pouzival Quick Report a jednotlivym reportum sem tiskarnu prirazoval pomoci.
>
> procedure Tiskarna(TiskRep : tQuickRep);
> begin
> TiskRep.PrinterSettings.PrinterIndex := "indextiskarny";
> TiskRep.Prepare;
> end;
>
> Momentalne jsem si vytvoril tiskove sestavy v QR Designu (*.QR2) a nevim jak
> urcitym sestavam automaticky priradit pozadovanou tiskarnu. Vzdy to
> samozrejme vezme tiskarnu vychozi a musi se pri nahledu tiskarna vybrat.
> Diky moc za kazdou radu. Honza
Ahoj,
ja to delam pres Printer.PrinterIndex:=Index{unit Printers} pozadovane tiskarny.
Petr Daricek
QReport preview & ADOQuery
[*] Lstiburek Pavel <lstiburek(zv)ceb(tec)cz> - 8.4.2004 16:00:56
Celkem je to prekvapujici reseni, melo by to fungovat oboje,
nad jakou db to ado jede ?
Pavel
> From: Kratochvil Radomir [mailto:radomir.kratochvil(zv)mora(tec)cz]
> Odpovim si sam: Misto TADOQuery jsem pouzil
> TADOStoredProcedure a dotaz jsem
> vlozil primo do databaze. A svete div se uz to jede !
>
> From: Kratochvil Radomir [mailto:radomir.kratochvil(zv)mora(tec)cz]
> K vytvareni sestav pouzivam QReport, pres ktery take
> zobrazuju nahledy. Vse
> pracovalo OK, dokud jsem do projektu nedal ADOQuery. Jakmile
> spustim dotaz
> do databaze pres komponentu ADOQuery, nahled jakekoliv
> sestavy QReportu
> zamrzne a s nim i cela aplikace. Je zvlastni, ze tisk primo
> na tiskarnu bez
> nahledu jde. Kde je zakopany pes ? Pouzivam D6, WinXP, Qrep 3.5 stnd.
>
Excel - zjisteni posledniho radku a sloupce tabulk
[*] Karel Rys <delphi(zv)zas-me(tec)cz> - 8.4.2004 15:34:54
Prosim poradite nekdo, jak se da zjistit posledni radek a sloupec Excelove tabulky, kterou se
snazim programove importovat? Nedavno to tu probehlo, ale prispevek jsem si neulozil a archiv
konference za rok 2004 na www.delphi(tec)cz se prede mnou kdesi ukryva...
Diky,
Karel Rys
JvScheduledEvents a restart PC
[*] Michal Jiskra <jiskra(zv)eskon(tec)cz> - 8.4.2004 15:30:53
Ahoj,
jakmile pouziji na formulari komponentu JvScheduledEvents z JVCL ( staci komponentu polozit na novy Form ), nelze restartovat PC pokud tato aplikace bezi. Rucne lze tuto aplikaci ukoncit. Poradte co udelat, aby bylo mozne aplikaci automaticky ukoncit bez rucniho zasahu.
Diky
Delphi 5 Pro, JVCL verze 2.10, VCL 1.22
Stefek M.klavesove zkratky v Delphi
[*] Daniel Rott <roxton(zv)seznam(tec)cz> - 8.4.2004 15:18:51
> > > pls nevite nekdo kde je mozne nastavit nebo zakazat klavesove
> > > zkratky v prostredi delphi ? nemuzu to nikde najit
> tu polozku "NoCtrlAltKeys"="1" jste tam pridaval nebo pouze zmenil ?
Pridaval, po instalaci tam neni, typ REG_SZ tj. retezcova hodnota ...
Daniel
---------------------------------------------------------------
Scanning complete: NO intelligent life form in range.
Zaznamy nejsou hned zpetne viditelne.
[*] Andreas Bednarek <bednarek(zv)digitus(tec)cz> - 8.4.2004 15:10:50
Ahoj!
Delphi4, IBO4.2 (full), FB1.5RC8
Mam problem s tim, ze po ulozeni zaznamu do DB se casto stava, ze neni ihned
zpetne videt. Postupy jako
if Table1.FindKey([key_val]) then ...
nebo
Table1.Last;
value := Table1.FieldByName(FIELD).AsInteger;
casto ignoruji nekolik posledne vlozenych zaznamu.
Databaze je ve ForcedWrites modu, Table1.AutoCommit = True.
Pomohlo vzdy po vlozeni zaznamu zavolat
Table1.RefreshRows;
Table1.RefreshKeys;
Ale tento postup se mi nepozdava, coz se potvrdilo u tabulky kde je pres
500000 zaznamu, DRASTICKY to snizi vykon.
Nepomohlo by napr. nastavit Table1.CommitAction na jinou hodnotu nez
caInvalidateCursor? (napr. na caFetchAll, caRefresh...?).
Muzete mi prosim poradit co s tim, pripadne osvetlit property CommitAction?
V IBO helpu jsem prakticky nic nenasel.
Dekuji
Andreas
Boot WXPH a W98
[*] KALUS Jozef <jozef.kalus(zv)spordat.sk> - 8.4.2004 14:36:46
stacia iba spustacie (msdos.sys, io.sys, config.sys, autoexec.bat),
robil som naposledy jedneho Acer booka, kde su XP home, tie sa
nainstalovali priamo z nejakeho image na CD, a mne sa tam podarilo
rozbehat subezne W98 (len DOS zo spustacej diskety) a normalne som to
robil iba cez boot.ini, teda presny postup:
1. skopiroval som systemove subory zo spustacej diskety W98SE (SK) (nie
prikazom sys, iba copy) na disk C do root, t.j. tak ako maju byt
2. zeditoval som boot.ini z WXPHE
3. a vsetko hned fungovalo, nemal som s tym problem, islo o to, ze
dotycny mal este Dosovske uctovnictvo a to mu robilo problem v XP
4. teraz som si uvedomil, ze aj XP aj W98DOS bol iba na disku C, ale to
by nemal byt problem
5. myslim, ale ze C particia by mala byt nastavena ako aktivna a
bootovatelna, D nemusi byt nastavena ziadno, XP sa vedia z nej
spustit..., mozno je s tymto problem, ak si sahol FDISKom na nejaky
parameter, co mu moze teraz vadit
joka
PS: ak to nesuri skusim zistit presne boot.ini ale bolo by to az po
sviatkoch.... ale myslim, ze je to tak ako som pisal, teda problem bude
niekde inde, ale s XP to funguje, protoze som to uz uspesne rozbehol,
inak loader XP, je rovnaky ako v W2k, az na to logo XP, ale to je len
maskovanie, pochubujem, ze by ho nejak oproti W2k zmenili.... > >skus do boot.ini pridat toto:
> >c:\="W98"
>
>To je prave jedna z variant, ktera alespon v XPH nefunguje.
>Zrejme to fungovalo ve W2K, protoze v Internetu techto rad
>je spousta, ale je z nich videt, ze autori to pouze tipuji.
>Nebo to dost mozna i funguje, ale ve W98 musi byt dohrane
>nejake soubory, o kterych jiz neni nikde rec.
JvScheduledEvents a restart PC
[*] Michal Jiskra <jiskra(zv)eskon(tec)cz> - 8.4.2004 14:56:48
Services v Delphi
[*] Lukas Barton <look_as(zv)cnawr(tec)cz> - 8.4.2004 14:24:41
Ahoj,
potreboval bych jeden program napsat jako service (synchronizace MSSQL a
MySQL databaze).
Muzete mi prosim poradit, kde bych nasel nejake HOW-TO jak services
spravne psat?
Diky,
Lukas
Boot WXPH a W98
[*] Frantisek Bohac <bohacf(zv)vnol(tec)cz> - 8.4.2004 14:24:42
Kdysi jsem pouzival XOSL: http://xosl.sourceforge.net/
Vytvarel jsem si na to jednu novou partition na zacatku (na konci?)
disku ... je potreba si s tim pohrat, ale po nastaveni to chodilo dobre.
Nebo se podivat po nejake alternative bootloaderu ...
Preji hezky den
Frantisek Bohac
>Cus, nevite nekdo, jak nejjednoduseji prepinat pri startu dva OS (WXPH na
>D: a W98 na C:).
>
Vyber tiskarny...
[*] Cinda <cinda(zv)mymail(tec)cz> - 8.4.2004 14:34:45
Prosim o pomoc pri vyberu tiskarny pro tisk.
Jedna se o pocitac, na ktery jsou pripojeny tri tiskarny. Do ted sem
pouzival Quick Report a jednotlivym reportum sem tiskarnu prirazoval pomoci.
procedure Tiskarna(TiskRep : tQuickRep);
begin
TiskRep.PrinterSettings.PrinterIndex := "indextiskarny";
TiskRep.Prepare;
end;
Momentalne jsem si vytvoril tiskove sestavy v QR Designu (*.QR2) a nevim jak
urcitym sestavam automaticky priradit pozadovanou tiskarnu. Vzdy to
samozrejme vezme tiskarnu vychozi a musi se pri nahledu tiskarna vybrat.
Diky moc za kazdou radu. Honza
klavesove zkratky v Delphi
[*] Matejcek Petr <konference(zv)crhov.komfi(tec)cz> - 8.4.2004 14:28:44
bohuzel tuto hodnotu v registrech nemam (cesta tam sice je ale je tam
pouze jedna polozka - Vychozi)
tu polozku "NoCtrlAltKeys"="1" jste tam pridaval nebo pouze zmenil ?
diky za odpoved
Daniel Rott napsal(a):
>>pls nevite nekdo kde je mozne nastavit nebo zakazat klavesove
>>zkratky v prostredi delphi ? nemuzu to nikde najit
>>
>>
>
>Od Delphi5 do Delphi7 mam vyzkousene toto:
>
>HKEY_CURRENT_USER\SOFTWARE\Borland\Delphi\7.0\Editor\Options
>"NoCtrlAltKeys"="1"
>
>Vetev 5.0 odpovida prislusne verzi.
>
>Daniel
>---------------------------------------------------------------
>Scanning complete: NO intelligent life form in range.
>
>
>
>
>Ztrata promenne v TWebBrowser
[*] Karolina Nemanska <lafidek(zv)seznam(tec)cz> - 8.4.2004 14:26:43
prosim :) ale teda spletla jsem se, jde o posilani pres HTTPS, HTTP funguje
normalne...
Karolina
> Diky za nasmerovani, sem to uz nasel, je to urcite tim....
> viz
> http://support.microsoft.com/default.aspx?scid=kb;en-us;831167&Product=ie
>
> cau a diky moc
> Radek
Komponenty pre FB
[*] Milan Tomes <delphi(zv)haida(tec)cz> - 8.4.2004 14:22:40
Spadlo to na cca. 100.000 zaznamech. Ja vim moc dobre, ze delat nad
takovymto mnozstvim dat je naprosty nesmysl, ale vysvetlete zakaznikum, ze
tisknout seznam parcel za napr. cely ceskolipsky okres je nesmysl. Nema cenu
se s nimi dohadovat - oni budou trvat na svem a i kdyz je to nepouzitelne,
tak budou reklamovat zavadu v programu. Ono to totiz spadne a EOutOfMemory.
V nasem frameworku (v soucasnosti nad IBX) to mame tak, ze existuje jedna
jedina transakce pro zapis (samozrejme se spousti pouze v okamziku zapisu) a
pro cteni jich muze existovat treba tisic (i aktivnich).
S pozdravem
Milan Tomes
> [mailto:delphi-l-owner(zv)clexpert(tec)cz]On Behalf Of delphi(zv)mjsoft(tec)cz
> Sent: Thursday, April 08, 2004 1:10 PM
>
> pro zajimavost, na kolika zaznamech to spadne? Myslim ze to ale v praxi
> nenastane, tolik zaznamu najednou. Co se s takovym mnozstvim da delat
> (prohlizet)?
>
> >Dalsi vec, ktera se mi docela libi je
> > (nevim jestli to umi i FIBPlus) je to, ze dataset v IBO je
> > schopen pracovat i bez aktivni transakce.
>
> FIBPlus ma dve transakce. Jednu READ a jednu WRITE. Ta cteci bezi porad
QReport preview & ADOQuery
[*] Kratochvil Radomir <radomir.kratochvil(zv)mora(tec)cz> - 8.4.2004 14:10:39
Odpovim si sam: Misto TADOQuery jsem pouzil TADOStoredProcedure a dotaz jsem
vlozil primo do databaze. A svete div se uz to jede !
-----Original Message-----
From: Kratochvil Radomir [mailto:radomir.kratochvil(zv)mora(tec)cz]
Sent: Thursday, April 08, 2004 12:30 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: QReport preview & ADOQuery
K vytvareni sestav pouzivam QReport, pres ktery take zobrazuju nahledy. Vse
pracovalo OK, dokud jsem do projektu nedal ADOQuery. Jakmile spustim dotaz
do databaze pres komponentu ADOQuery, nahled jakekoliv sestavy QReportu
zamrzne a s nim i cela aplikace. Je zvlastni, ze tisk primo na tiskarnu bez
nahledu jde. Kde je zakopany pes ? Pouzivam D6, WinXP, Qrep 3.5 stnd.
Dekuji za jakykoliv ohlas.
R.Kratochvil
Boot WXPH a W98
[*] Vaclav Riha - Soft Consult <vaclav_riha(zv)softconsult(tec)cz> - 8.4.2004 14:10:38
>skus do boot.ini pridat toto:
>c:\="W98"
To je prave jedna z variant, ktera alespon v XPH nefunguje. Zrejme to
fungovalo ve W2K, protoze v Internetu techto rad je spousta, ale je z nich
videt, ze autori to pouze tipuji. Nebo to dost mozna i funguje, ale ve W98
musi byt dohrane nejake soubory, o kterych jiz neni nikde rec.
S pozdravem Vaclav Riha
Ztrata promenne v TWebBrowser
[*] Radek Szurman <surad(zv)digijoe(tec)com> - 8.4.2004 14:02:37
Diky za nasmerovani, sem to uz nasel, je to urcite tim....
viz
http://support.microsoft.com/default.aspx?scid=kb;en-us;831167&Product=ie
cau a diky moc
Radek
> Pokud jsou to POST promenne a posila se to pres HTTP, mohl by bit problem
v
> unorove aktualizaci MSIE, kde se tato chyba vyskytuje - vice stranky MS.
>
> Karolina
>
> ----- Original Message -----
> From: "Radek Szurman" <surad(zv)digijoe.com>
> To: <delphi-l(zv)clexpert(tec)cz>
> Sent: Wednesday, April 07, 2004 2:19 PM
> Subject: Ztrata promenne v TWebBrowser
>
>
> > Cau vsichni, mam moc velky problem !!
> > pouzivame nas udelany prohlizec stranek pomoci komponenty TWebBrowser
jako
> ActiveX ale co se nedeje a je pro mne zahadou tak se straceji pri
predavani
> ze stranky na stranku v nahodnem poradi (jednou to jede a po druhe zas ne)
> promenne, jednoduse se vyplni formular a kdys se da odeslat tak se nacte
> uvodni stranka = strati se vsechny predavane promenne. Nesetkal jste se
> nekdo uz nekdy s timhletim problemem ?
> >
> > pls, docela to hori...
> >
> > dik Radek
> >
> >
>
>
>Komponenty pre FB
[*] delphi(zv)mjsoft(tec)cz - 8.4.2004 13:56:36
> prosim ta, kde sa daju a za kolko kupit ?
>
> predpokladam, ze ich zakupenim, mozem uz chrlit aplikacie bez
> dalsich poplatkov a obmedzeni
Zdravim,
ja je kupoval na www.devshop(tec)cz. Cena 7.880,-. Po zaplaceni ti prijde
emailem heslo a odkaz na stazeni ostrych komponent. Nic dalsiho se
neplati.
Karl
Ztrata promenne v TWebBrowser
[*] Karolina Nemanska <lafidek(zv)seznam(tec)cz> - 7.4.2004 20:30:27
Pokud jsou to POST promenne a posila se to pres HTTP, mohl by bit problem v
unorove aktualizaci MSIE, kde se tato chyba vyskytuje - vice stranky MS.
Karolina
----- Original Message -----
From: "Radek Szurman" <surad(zv)digijoe.com>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Wednesday, April 07, 2004 2:19 PM
Subject: Ztrata promenne v TWebBrowser
> Cau vsichni, mam moc velky problem !!
> pouzivame nas udelany prohlizec stranek pomoci komponenty TWebBrowser jako
ActiveX ale co se nedeje a je pro mne zahadou tak se straceji pri predavani
ze stranky na stranku v nahodnem poradi (jednou to jede a po druhe zas ne)
promenne, jednoduse se vyplni formular a kdys se da odeslat tak se nacte
uvodni stranka = strati se vsechny predavane promenne. Nesetkal jste se
nekdo uz nekdy s timhletim problemem ?
>
> pls, docela to hori...
>
> dik Radek
>
>ManualDoc panelu z formulare v DLL do formulare v
[*] tondrej(zv)t-online.de - 7.4.2004 19:44:23
> Neni mozne prelozit projekt s runtime balicky, protoze mam prepsanou
> pomerne velkou databazovou cast vcl.
> Kadopadne diky, jsem vdecny za jakykoliv namet.
Mozes si spravit vlastne balicky nezavisle od standardnych balickov od
Borlandu.
Zial, iny sposob asi neexistuje.
HTH
TOndrej
Rychlost pripojeni k IB serveru - lokalni sit
[*] Jirka Virt <virt(zv)volny(tec)cz> - 7.4.2004 19:44:24
Win2003 IB 6.0 .. byla neuveritelne dlouha odezva pripojeni ...
upgradnul jsemna FB 1.5 a vse OK
Jirka Virt
Delphi 6 a Oracle 9 cez BDE
[*] Ivan Turcan <iturcan(zv)drake.sk> - 7.4.2004 18:18:17
Caves,
ma niekdo napad ako s pouzitim BDE v delphi 6 pristupit na Oracle 9 ? je to
mozne ? resp. je nejaky update na bde v delphi 6 ktory toto zabezpeci ?
vdaka
Ivan
Intranet vs. Internet - stahovani souboru - rychlo
[*] Lukas Barton <look_as(zv)cnawr(tec)cz> - 7.4.2004 17:50:14
> Pozn:. myslim, ze se 100mbps nemuzes nikdy pocitat. Cekal bych (v
> optimalnim pripade) rychlost TCP prenosu tak nekde na urovni 60mbps+.
> Googlem by se asi dala najit nejaka studie vykonu TCP na 100mbps
> ethernetu. Zvysovanim TCP Window lze ten drat zaplnit vic
>
100 Mbit v optimalnim pripade jede opravdu 100 Mbps - zkouseno denne v
praktickem provozu FTP serveru.
Potvrzovaci okenko ma promenlivou velikost, doufam ze i v implementaci TCP
ve Windows :-)
>
> windowsi sdileni pouziva standardne netbeui. pripadne muze i bezet nd
> TCP/IP (ale tusim jsou ty netbeui packety jen vlozeny do IP packetu).
>
Defautlne je zapnute NetBIOS over TCP/IP.
Zrovna ted taham 18 GB pres MS sdileni - Windows 2K <-> Windows 2K a jede to
2,5 MB/s - 4 MB/s.
Pres krizenej kabel to vzdy beha naplno, tedy tesne pod 10 MB/s.
Vykon jde rapidne dolu, kdyz jsou na jedne strane Windows 98...ManualDoc panelu z formulare v DLL do formulare v
[*] Jan Blaha <jan.blaha(zv)terminus(tec)cz> - 7.4.2004 17:34:12
Neni mozne prelozit projekt s runtime balicky, protoze mam prepsanou
pomerne velkou databazovou cast vcl.
Kadopadne diky, jsem vdecny za jakykoliv namet.
Jan Blaha
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz] On
Behalf Of Petr Vones
Sent: Wednesday, April 07, 2004 1:22 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: Re: ManualDoc panelu z formulare v DLL do formulare v EXE
From: "Jan Blaha" <jan.blaha(zv)terminus(tec)cz>
> Mam problem zobrazit panel z formulare v DLL na panelu formulare
> vytvoreneho v EXE. Zkousel jsem vsechno mozne vcetne nastavovani
> promennych Application a Screen v DLL na hodnoty z EXE ve funkci DLL,
> kam to EXE preda parametrem. Prelozeno s pouzitim ShareMem knihovny a
> Borlandmm.dll.
Musis oboje prelozit s runtime balicky a ShareMem vyhodit.
Petr Vones
Intranet vs. Internet - stahovani souboru - rychlo
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 7.4.2004 17:24:11
On Wednesday, April 07, 2004 2:19 PM [CET], js-delphi(zv)quick(tec)cz
<js-delphi(zv)quick(tec)cz> wrote:
> Odesilatel: Vaclav Halik <spravasd(zv)suz.cvut(tec)cz>
>> To se da celkem lehce spocitat:
>> FTP pres 100 Mbit cca (11 MB/s x 60) = 660 MB/minutu
>> - bezny comp to ale nestihne bud spracovat nebo ukladat takze
>> pokud budes kopirovat cca 5 GB soubor, pocitej ukladani
>> na disk cca 5 az 8 MB/s (podle vykonosti disku).
>> Tedy idealne je to 300 az 480 MB/minutu
>> -->> Tedy tvuj soubor 1 GB v idealnim pripade prekopirujes
>> za 2 az 3 minuty u FTP prenosu.
>> -->> Jak tu uz psal tusim Lukas SMB ma velkou reziji prakticky
>> se mi nikdy nepodarilo prenest vic jak 8 MB/s a to jen
diky
>> tomu ze sem to cpal na Linuxovy SMB server.
>> Kde je SMB rychlejsi (nevim proc ale je to tak)
>
> Jeee, 2 az 3 minuty na 1GB ... to by bylo idelani... doma jsem musel
> prekopirovat cca 7GB (nutna reinstalace) a trvalo to 5,5 hodiny!!!
Pozn:. myslim, ze se 100mbps nemuzes nikdy pocitat. Cekal bych (v
optimalnim pripade) rychlost TCP prenosu tak nekde na urovni 60mbps+.
Googlem by se asi dala najit nejaka studie vykonu TCP na 100mbps
ethernetu. Zvysovanim TCP Window lze ten drat zaplnit vic
>> Opravdu se jedna o stejny protokol ? V obou pripadech ?
>> Tedy predpokladam FTP ?
>
> No v prvni pripade to stahuju prostrednictvim HTTPSend (synapse) a v
> druhem pripade to nechavam ciste na oper. sys. No snad nejsem uplne
> mimo, ale domnivam se, ze oba pouzivaji TCP/IP protokol, ne?
windowsi sdileni pouziva standardne netbeui. pripadne muze i bezet nd
TCP/IP (ale tusim jsou ty netbeui packety jen vlozeny do IP packetu).
>
>> Jsi si jisty ze se ti doma propoji 100 MB/s. ?
>
> Tak na tohle se tezko odpovida... Kdyz se sitovky connect-nou, tak
mi
> obe WinXP nahlasi pripojeni k siti rychlosti 100Mb/s - jak to overit
> ... v tuhle chvili netusim
sitovky mivaji takova ta zelena svetylka vzadu....
Dulezite je jeste zda jsou ve fullduplexnim (bezkoliznim) rezimu
D. Toman
Intranet vs. Internet - stahovani souboru - rychlo
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 7.4.2004 17:14:08
On Wednesday, April 07, 2004 10:11 AM [CET], Lukas Gebauer
<gebylist(zv)mlp(tec)cz> wrote:
>> Ke stazeni z NETu pouzivam Synapsi (L.G.) a kopirovani z PC2PC
>> klasicke kopirovani souboru s tim, ze zdroj je na lokale a cil je
na
>> sitove ceste. Nevim, jestli by to melo byt mou aplikaci -
pochybuju,
>> protoze ja tam zadny kod nemam. Jak uz jsem rekl, z NETu je to
>> slusne, ale z PC2PC je to hrozne! Zkousel jsem stejny soubor
>> kopirovat napr. pomoci TotalCommanderu a vysledek naprosto stejny,
>> bohuzel...
>
> Ono to bude tim, ze ten soubor kopirujes prostredky windowsacke SMB
> site, coz je protokol, ktery ma hodne velkou svoji rezii!
ja to pochopil tak, ze o SMB prave vubec nejde. Navic na rozumnem
stroji takovou rezii mit nebude (i kdyz snek to je to jo). Zkousel
jsem z jednoho Win serveru ve firme (nic moc zelezo, 100vkova sit,
switch Catalyst2950) kopirovat ze sdileneho disku pomoci
WindowsCommanderu a rychlost byla 10mbps. Vysledek nic moc ale preci
jen nekolikrat vyssi nez drive zminovane 3mbps
> Zatimco z internetu to stahujes protokolem, ktery je vytvoren
> specielne na to, jak efektivne stahnout nejaly soubor, aniz bys
tahal
> nejaka zbytecna data navic. ;-)
Podle me ten clovek pouziva TCP stream na prenos dat mezi pocitaci.
Pak pokud je to z Internetu podstatne rychlejsi, tak si z nas bud ze
vsech strili (v tom pripade - 1. aprila uz bylo) nebo ma nekde
problem se sitovymi prvky (to uz jsem snad vysvetlil v minulem mailu).
Pri trose snahy by jej nemel byt tak velky problem najit (vymena
komponent, prenaset mezi jinymi PC atd).
Na lokalni siti mohou nastavat velmi podivne problemy zavisle na
dynamice provozu (napriklad z Internetu vzdy bude mezi packety nejaka
prodleva, kdezto na eth je mozne vygenerovat mnohem hustsi provoz,
ktery muze zpusobit ztratovost packetu a rapidni snizeni provozu -
naoriklad kdyz nejaky router/switch nestiha, nebo driver na sitovce
nestiha odebirat packety atd)
Btw: on ten standardni TCP implementovany ve Windows zrovna moc rychly
taky neni. Na to ma moc malou maximalni velikost TCP window. Teprve
dlouhe TCP window dovoli poradne vyuzit medium (mene potvrzeni na
prijata data), samozrejme za predpokladu, ze se neztraci packety...
>
> Proto ti to z internetu jede v pohode (tesi mne, ze to jede rychle
> prave s moji Synapsi :-)), zatimco kdyz to pak kopirujes mezi
> pocitaci, jede to znatelne pomaleji. Moje zkusenosti s prenosy
> vetsich souboru po Windowsacke siti se prilis nelisi od tebou
> zjistenych rychlosti. Ta rezije neni nejakych 10%, jak tu tusim
nekdo
> zminoval, toho balastu se tam taha mnohem mnohem vic, tak od pohledu
> pres 30%!
viz jakakoliv studie efektivity netbeui
> Navic kdyz tahas treba nejakym HTTP ci FTP protokolem, tak pri
> vlastnim prenosu dat tecou data intezivne jednim smerem, a zpet uz
> tece jen rezije TCP protokolu
>, coz je dosova par bytiku, a navic
nejde o to kolik to je bytiku ale o to, ze se tim cekanim na potvrzeni
ztraci cas a i rychlost. Zvlaste pak potvrzuji-li se male bloky (TCP
Window)
> tento proces je optimalizovan pro maximalni vykon prenosu.
:-)
D. Toman
Sprava verzi (CVS a jine)
[*] Martin Schayna <mschayna(zv)aktis(tec)cz> - 7.4.2004 15:23:59
Karel Kral <kralkonf(zv)purus(tec)cz> wrote:
>> Pouzivam s uspechem Microsoft SourceSafe, ale neni to free.
>
> Je to stale jeste tak, ze ke svemu chodu potrebuje sdileny adresar? To
> znamena zadny pristup pres internet?
Stale (6.0d) funguje pres sdileny adresar, ale vzhledem k tomu ze ma
SourceSafe API pristupne pres OLEAutomation, lze napsat napr webove rozhrani
ktere bude s databazi pracovat. Jsou na to i komercni produkty, viz
nasledujici FAQ z internetu. My sice SourceSafe stale pouzivame, ale chteli
bychom prejit na CVS prave kvuli vzdalenemu pristupu a licencni politice
(kdyz jsme naposledy kupovali licence, byla koncova cena za jednoho klienta
SourceSafe cca 16kKc.
SourceSafe FAQ:
How can I access VSS from a remote site over the Internet directly of via a
web portal?
- set up a VPN/RAS connection between the two locations (for additional
information about using VSS over a RAS or ISDN check out KBA Q158219 ) or
- purchase a third party product like SourceOffSite
(http://www.sourceoffsite.com).
- try DMB Consulting's free (for non-commercial use) VSS.NET which is
available at http://www.dmbcllc.com/products.htm.
- try VssConnect 1.0, similar to SourceOffSite, it allows optimized access
to a SourceSafe database using a client/architecture. Details can be found
at http://www.voxcode.com.
- try SourceWeb (http://sourceweb.sekonden.se) from Sekonden.
Martin Schayna