Archív konference Delphi
Zpět na výběr roku archívu nebo přejít na fulltextové vyhledávání v konferenci.
Lokalni promenne <C> -> <P>
[*] Blazek Jaroslav <Jaroslav.Blazek(zv)access-it(tec)cz> - 23.1.2002 07:28:40
>Cili jeji nahrazeni pravou globalni je zcela na miste - jedine o jeji
>pojmenovani se musi programator postarat sam (bohuzel bude videt i z
>dalsich rutin nez v te kde je to zadouci)
To je presne to proc jsem se ptal, cim v <P> nahradit <C> "static", abych nemusel pouzit globalni promennou. Chtel jsem lokalni statickou promennou. Je to zase vykoupeno tim, jak uz psal P.V., tak clovek si na prvni pohled predstavi, ze se jedna o konstantu a to i od toho predpoklada, jenze je to presne naopak.
S pozdravem
Bc. Jaroslav Blazek
Access-IT Ceska Lipa
jaroslav.blazek(zv)access-it(tec)cz
www.access-it(tec)cz
ICQ : 13367373990
+420605/813644
Upgrade IB database
[*] Kalhous Zdenek <zdenek.kalhous(zv)comarr(tec)cz> - 23.1.2002 07:31:17
> On 21 Jan 2002, at 15:24, ales(zv)kerner(tec)cz wrote:
> > add1: Potreboval bych poradit (pro zacatecnika), jak udelat
> > programove uprade databaze, tzn. otestovat verzi, a provest upgrade
> > databaze, ale treba i ob 2 verze.
Zrovna v poslednich dnech tady o tom byla rec - viz subj "IB -
Automaticka oprava/upgrade tabulek". V podstate odladit skripty
pro zmeny mezi verzemi a u uzivatele je spustit.
Z.Kalhous
Export do DXF; potomek tCanvas?
[*] Karel Rys <delphi(zv)zas-me(tec)cz> - 23.1.2002 08:40:30
Dobre rano,
stojim pred nasledujicim problemem. Potreboval bych ze sve aplikace exportovat ve formatu DXF. Obrazek, ktery se ma
exportovat, vznika volanim ruznych metod tCanvas (PolyLine, LineTo, Ellipse, Arc apod.). Prvni, co me napadlo, bylo napsat
potomka tCanvas a tyto metody prepsat. Coz se mi zrejme nepodari, nebot jsou definovany jako staticke.
Dalsi, co jsem zvazoval, bylo zapsat vse do tMetaFile a pak se pokusit rozlousknout jeho binarni podobu, jenze neco mi
rika, ze to nebude prave snadne...
Nenapada Vas nekoho nejaka elegantni metoda, jak to vyresit? Jde mi o to, aby kazdy z objektu, ktere v aplikaci mam,
nemusel krome jedne metody kreslici na tCanvas obsahovat jeste druhou metodu, ktera by delala v podstate totez, ale do
DXF...
Diky, Karel Rys
Lokalizace VCL60.BPL nebo Consts.pas
[*] Karel Rys <delphi(zv)zas-me(tec)cz> - 23.1.2002 08:44:01
B�in�il Tom� dne 22 Jan 2002 v 9:19:
> Nejprve jsem si zazalohoval prelozene consts a dbconsts. Potom jsem je
> smazal z knihovny. Upravil jsem zdroje consts a dbconsts a potom
> vytvoril prazdnou aplikaci, kterou jsem ulozil do stejneho adresare
> jako upravene zdroje. Tyto zdroje jsem dal do sekce "uses" v hlavnim
> programu a pouzil dialog s nejakou konstantou z consts a spustil.
> Zdroje se prelozili a nakopiroval jsem je zpet do knihovny. Ale pozor
> na pouziti runtime packages. Protoze pokud je tato volba zaskrtnuta
> jsou pouzity consts z balicku. Proto je treba projekt prekladat cely.
> Je mozne, ze postup prekladu neni presny, trochu jsem experimentoval,
> ale nejakym takovymto zpusobem jsem zprovoznil ceske dialogy. Mam tyto
> soubory castecne lokalizovane, takze pokud by se nezdarilo, mohu je
> poskytnout.
Dekuju, ale ty balicky prave potrebuju, aby si uzivatele mohli stahovat upgrade o rozumne velikosti. Prozatim jsem to
vyresil tak, ze jsem MessageDlg nahradil MessageBox (ten by mel pouzivat tlacitka windowsovska) a ostatni texty - ostatne
uzivatel by je nemel bezne vidat - necham byt.
Karel Rys
Spusteni IE s danou URL adresou
[*] jtomecek <jtomecek(zv)dezadata(tec)cz> - 23.1.2002 09:10:16
Jak mohu, prosim, spustit IE (to ani neni problem) ale s vybranou url
adresou napr. z dbgridu?
Diky.
Spusteni IE s danou URL adresou
[*] Kr�l Jirka jr. <admin(zv)printo(tec)cz> - 23.1.2002 09:11:12
>>Jak mohu, prosim, spustit IE (to ani neni problem) ale s vybranou url
adresou napr. z dbgridu?
takto :
uses shellapi;
ShellExecute(application.Handle,'open',pchar('http://www.printo(tec)cz'),'','',1
);===========================================
Ji�� Kr�l jr.
administr�tor IT
tisk�rna Printo, spol. s r.o.
http://www.printo(tec)cz
mailto:admin(zv)printo(tec)cz
ICQ#15303940
tel.: +420 (69) 693 84 00, linka 143
Spusteni IE s pozadovanou URL adresou
[*] jtomecek <jtomecek(zv)dezadata(tec)cz> - 23.1.2002 09:34:45
Prosim o radu,
jak mohu spustit IE s pozadovanou URL adresou (napr. vybranou ze dbgridu)?
Diky za odpoved.Spousteni IDE v D6
[*] Kr�l Jirka jr. <admin(zv)printo(tec)cz> - 23.1.2002 09:39:55
z niceho nic me D6 zacalo oblazovat pri startu nasledujici hlaskou:
Access violation at adr. 00417BD2 in module delphi32.exe. Read of address
0000023C.
I kdyz oteviram D6 bez projektu. Sice funguje normalne, ale znervoznuje me
to.
S cim by se melo asi posachovat?
dik
===========================================
Ji�� Kr�l jr.
administr�tor IT
tisk�rna Printo, spol. s r.o.
http://www.printo(tec)cz
mailto:admin(zv)printo(tec)cz
ICQ#15303940
tel.: +420 (69) 693 84 00, linka 143
Vlo�en�
[*] Standa <Ooman(zv)centrum(tec)cz> - 23.1.2002 09:58:51
Potrebuji vlozit do komponenty TreeView celou stromovou strukturu CD.
Vytvoril sem si na to takovou funkci ale je dost pomala, nezna nekdo nejakou
efektivni metodu.
Jo a to bohuzel neni vsechno, taky bych potreboval aby mel uzivatle prehled
o tom kolik procent uz probehlo a tady jsem uz upne bezradnej. Jediny co me
napadlo je ze by si to zjistilo velikost CD a s kazdym souborem by z toho
odebral jeho velikost, ale to je takovy .... no neni to ono.Spousteni IDE v D6
[*] Karel Rys <delphi(zv)zas-me(tec)cz> - 23.1.2002 10:04:45
Kr�l Jirka jr. dne 23 Jan 2002 v 9:39:
> z niceho nic me D6 zacalo oblazovat pri startu nasledujici hlaskou:
> Access violation at adr. 00417BD2 in module delphi32.exe. Read of
> address 0000023C.
> I kdyz oteviram D6 bez projektu. Sice funguje normalne, ale
> znervoznuje me to. S cim by se melo asi posachovat?
Nedavno me nabihalo IDE bez hlavniho okna (naskocil jen Object inspector, ale po menu ani pamatky).
V Program Files\Borland\Delphi6\Bin jsem podle datumu nasel nejnovejsi soubory, jeden z nich byl s priponou .DSK tusim
(rozvrzeni desktopu). Po jeho smazani se vse vratilo do normalu...
Karel Rys
Drag&Drop a focus
[*] Tom� Ju���ek - 23.1.2002 10:05:29
Zdravim,
potreboval bych, aby pri pretahovani souboru (pouzivam komponenty DragDrop
www.melander.dk) z me aplikace, zustalo okno, ktere nema focus, stale
nezamereno. Melo by zustat na pozadi a neprijimout focus. Pokud ho totiz
prijme, dojde k jeho vykresleni na popredi a zakryje to aplikaci, kam to
chci pretahnout.
Tomas Juricek
Cas straveny na projektu
[*] Mephisto <mephisto(zv)akvila(tec)cz> - 23.1.2002 10:06:38
Neznate nekdo nejaky plugin do delphi ktery je schopen merit %subj%.
Diky
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.317 / Virov� b�ze: 176 - datum vyd�n�: 21.01.2002
TIP 509
[*] Slavom�r �eke� - 23.1.2002 11:00:42
Zdravim ...
mam dbf databazu s indexovym suborom cdx a preklapam tuto databazu do
dbf databazy ale s indexovym suborom mdx. Spravil som si na to softik,
ALE ... pre vytvorenie novej databazy chcem pouzit TIP509, lenze som
zistil, ze pri niektorych polozkach mi neulozi do novej databazy
DataType ani Size, preco ?
cast kodu:
FieldDefs.Clear;
for i:=0 to HlOkno.Table1.FieldCount-1 do
begin
FieldDefs.AddFieldDef.Index
with FieldDefs.AddFieldDef do
begin
Name := HlOkno.Table1.FieldDefs.Items[i].Name;
DataType := HlOkno.Table1.FieldDefs.Items[i].DataType;
Size := HlOkno.Table1.FieldDefs.Items[i].Size;
end;
end;
CreateTable;
Vdaka za odpoved ..... Slavo
Cas straveny na projektu
[*] Matej Sujan <matej.sujan(zv)alcatel.de> - 23.1.2002 11:53:16
Project Time Logger na http://stonebirds.8m.com/Jak omezit DBMEMO?
[*] Bednar��k Dalibor <dalibor(zv)torola(tec)cz> - 23.1.2002 12:24:59
Potreboval bych DBMemo omezit na 16 znaku na jeden radek a celkem 32 radek.
Poradite mi nejake inteligentni reseni?
Delphi X a Dll (Ctete 2)
[*] Kaka�ka Pavol <kakacka(zv)proca(tec)cz> - 23.1.2002 12:42:54
From: Marek Vilda Jelen
>P�ece jen bych je�t� pot�eboval poradit. D� se do t�ch DLL knihoven n�jak
>zapsat, i obrazov� komponenta, t�eba aby se m� na formu tohle a tohle
>zobrazilo tady a takhle.
>P��klad : R�d bych zkusil naprogramovat takovou malinkatou hru, pod DELPHIX
>a pot�eboval bych abych na��tal n�kter� p��kazy z DLL to aby to nebylo tak
velik�,
>ale po��d se m� n�jak nevede d�t odkaz �e je to na formu 1 a atd.. Tady je
kousek
>z programu co by m�l bejt v t� DLL.
>// ==================== Zkyrt� Mapy. ( �ada.1)
>DXImageList1.Items[5].Draw(DXDraw1.Surface,250,71,0);
...
>DXImageList1.Items[5].Draw(DXDraw1.Surface,250,391,0);
>Jde n�jak vy�e�it aby se to tam zobrazilo ? M�j n�zor je asi n� co ?
>Co v�echno jde do t�ch DLL d�vat ?
1. pouzvas spatny subjekt
2. mepouzivaj HTML format mailu do konfery >:-|
Je to mozne. Musis DLL i EXE kompilovat s balickami. Priklad ako pracovat s
dll najdes i v samlpoch k Delphi.
btw:
Skus tento kod napisat efektivnejsie pomocou odkazov (ukazatelov) na objekt.
Vzhladom k tomu ze ide o hru a funkcie sa tam prevazne casto opakuju je
kazde volanie metody zdrzanim.
miesto:
>.Draw(DXDraw1.Surface,250,71,0);
radsej
var
X: DXImageNeboCo;
F: TSurfaceCiCo;
begin
X := DXImageList1.Items[5];
F := DXDraw1.Surface;
X.Draw(F,250,71,0);
X.Draw(F,251,71,0);
X.Draw(F,251,76,0);
...
Kaka�ka Pavol
KasiX(zv)atlas(tec)cz
Lokalizace VCL60.BPL nebo Consts.pas
[*] Ondrej Kelle <O.Kelle(zv)digitalpublishing.de> - 23.1.2002 13:30:39
> Dekuju, ale ty balicky prave potrebuju, aby si uzivatele
> mohli stahovat upgrade o rozumne velikosti. Prozatim jsem to
> vyresil tak, ze jsem MessageDlg nahradil MessageBox (ten by
> mel pouzivat tlacitka windowsovska) a ostatni texty - ostatne
> uzivatel by je nemel bezne vidat - necham byt.
Mozes si vytvorit vlastnu resource DLL, ktora bude obsahovat lokalizovane
resourcestringy, ktore sa nachadzaju vo vcl60.bpl. Ak tuto DLL potom nazves
vcl60.xxx (pripona podla target locale) a umiestnis do rovnakeho adresara
ako vcl60.bpl, Delphi bude automaticky pouzivat lokalizovane resources z
tejto DLL podla nastavenia systemoveho user locale, pripadne sa da v
registry zadat locale override. Je to popisane v helpe.
HTH
TOndrej
RDB$DB_KEY vo FB RC2
[*] Roland Turcan <rolo(zv)sedas.sk> - 23.1.2002 13:47:09
Ahojte!
Skuste mi prosim vysvetlit preco ak dam v IBConsole,alebo ISQL, prikaz
select rdb$db_key from table tak mi vrati:
000000A100000001
....
A ak v mojom programe tak
je to len jeden znak. Ja pozivam IBQuery, to iste vrati aj v IBTalk.
Dakujem a ostavam s pozdravom
Roland Turcan - amatersky programator
D5Pro, Firebird 1.0, IBX4.62, Win2000Pro/CZ, Win98CZSE
Grid nebo neGrid ?
[*] Marek Hradil <marekhr(zv)benefitcz(tec)cz> - 23.1.2002 14:18:43
Potrebuji natuknout.
Potrebuji zobrazit jakysi "grid" s nepevnymi sloupci.
Napriklad si predstavte problem zobrazit v gridu
rezervace pokoju v hotelu. Na ose X je cas(dny),
na druhe jsou pokoje. Ovsem komponenta by se mela
chovat jako grid. Oznacovat jednotlive rezervace
a provadet dalsi akce (v podstate odchytnout klik
na bunce, ale bynka muze byt siroka jeden nebo vice dni
a text by mel byt pres celou tuto bunku).
POtrebuji nejakou spec. komponentu nebo to jde vyresit pomoci
standardnich (preferuji) ?Export do DXF; potomek tCanvas?
[*] Martin Schayna <mschayna(zv)aktis(tec)cz> - 23.1.2002 14:26:52
----- Original Message -----
From: "Karel Rys" <delphi(zv)zas-me(tec)cz>> stojim pred nasledujicim problemem. Potreboval bych ze sve
> aplikace exportovat ve formatu DXF. Obrazek, ktery se ma
> exportovat, vznika volanim ruznych metod tCanvas (PolyLine,
> LineTo, Ellipse, Arc apod.). Prvni, co me napadlo, bylo napsat
> potomka tCanvas a tyto metody prepsat. Coz se mi zrejme
> nepodari, nebot jsou definovany jako staticke.
>
> Dalsi, co jsem zvazoval, bylo zapsat vse do tMetaFile a pak se
> pokusit rozlousknout jeho binarni podobu, jenze neco mi
> rika, ze to nebude prave snadne...
Metafile je vlastne log parametru winapi funkci, ktere zapisuji
na canvas, proto je relativne jednoduche metafile zobrazit,
protoze se proste ty funkce se zapsanymi parametry "prehraji"
znovu nad jinym canvasem. Format WMF/EMF souboru je
urcite v MSDN.
> Nenapada Vas nekoho nejaka elegantni metoda, jak to vyresit?
> Jde mi o to, aby kazdy z objektu, ktere v aplikaci mam,
> nemusel krome jedne metody kreslici na tCanvas obsahovat
> jeste druhou metodu, ktera by delala v podstate totez, ale do
> DXF...
A proc si neudelat wrapper objekt, ktery bude napodobovat
rozhrani TCanvasu a zapisovat zaroven do skutecneho canvasu
a do DXF?
Martin Schayna
Aktis a.s.
Dump from COM port to FILE
[*] Roland Turcan <rolo(zv)sedas.sk> - 23.1.2002 14:31:56
Ahojte!
Neexistuje nejaky programik ktory mi ulozi data ktore prichadzaju zo
serioveho portu a ulozi to do suboru. Ide mi o to aby som nemusel
programovat seriovu komunikaciu. Prikaz "COPY COM2 c:\file.txt" mi asi
nebude fungovat. Ake mate s tym skusenosti.
Dakujem za kazde info.
Dakujem a ostavam s pozdravom
Roland Turcan - amatersky programator
D5ProSP1, Firebird 1.0RC2, IBX4.63, Win2000Pro/CZ, Win98CZSE
Grid nebo neGrid ?
[*] Sebesta Jan <delcomseb(zv)volny(tec)cz> - 23.1.2002 14:54:34
Na to jsou dobre comp. od tms. www.tmssoftware.com
Jak gridy tak planner.
Sebesta Jan
----- Original Message -----
From: "Marek Hradil" <marekhr(zv)benefitcz(tec)cz>
To: "Delphi" <delphi-l(zv)clexpert(tec)cz>
Sent: Wednesday, January 23, 2002 2:18 PM
Subject: Grid nebo neGrid ?> Potrebuji natuknout.
>
> Potrebuji zobrazit jakysi "grid" s nepevnymi sloupci.
> Napriklad si predstavte problem zobrazit v gridu
> rezervace pokoju v hotelu. Na ose X je cas(dny),
> na druhe jsou pokoje. Ovsem komponenta by se mela
> chovat jako grid. Oznacovat jednotlive rezervace
> a provadet dalsi akce (v podstate odchytnout klik
> na bunce, ale bynka muze byt siroka jeden nebo vice dni
> a text by mel byt pres celou tuto bunku).
>
> POtrebuji nejakou spec. komponentu nebo to jde vyresit pomoci
> standardnich (preferuji) ?
> OT - KonfView "RichEdit line insertion error"
[*] Roland Turcan <rolo(zv)sedas.sk> - 23.1.2002 15:07:06
Toto mi casto hlasi, nepomoze iba ukoncit program a spustit ho znova.
Co to sposobuje ?
Roland.
Konfview 1.4.0.0 ze 24.ledna 2000
Prevod diakritiky
[*] Pavel Malinsk� <spiderland(zv)iol(tec)cz> - 23.1.2002 15:12:00
Ahoj,
onehda to tu mam dojem bylo, ale zaboha to nemuzu
najit:(.
Jakou fci prevest retezec s diakritikou na retezec
bez ni. Napr: U�ivatel� => Uzivatele ?
TO ADMIN: Sorry za hacky a carky.
S pozdravem a dikem
=====================================
> Pavel Malinsky; spiderland(zv)iol(tec)cz <
>===================================<
> ...The Truth Is Out There... <
=====================================
GSM: 0602 652 203
GetComputerName
[*] Petr Palicka <petr.palicka(zv)atlas(tec)cz> - 23.1.2002 15:21:11
DDV,
panove, nevite nekdo, o nejake
nahrade funkce GetComputerName
pro pouziti v CLX aplikaci?
nebo jinak, jakou na to mam
pouzit fci v linux verzi?
ja si to osetrim direktivou.
dekuji PeC(zv)
Prevod diakritiky
[*] brant(zv)dcomm(tec)cz - 23.1.2002 15:42:12
procedure NoAccents(var s:string); //likviduje diakritick� znam�nka v textu
function ConvertAccentChar(ch: char):char;
begin
case ch of
'�': ch:='R';
'�': ch:='r';
'�': ch:='I';
'�': ch:='i';
'�': ch:='s';
'�': ch:='S';
'�': ch:='z';
'�': ch:='Z';
'�': ch:='t';
'�': ch:='T';
'�': ch:='c';
'�': ch:='C';
'�': ch:='y';
'�': ch:='Y';
'�': ch:='u';
'�': ch:='U';
'�': ch:='n';
'�': ch:='N';
'�': ch:='u';
'�': ch:='U';
'�': ch:='e';
'�': ch:='E';
'�': ch:='D';
'�': ch:='d';
'�': ch:='a';
'�': ch:='A';
'�': ch:='e';
'�': ch:='E';
'�': ch:='o';
'�': ch:='O';
else ;
end;
Result:=ch;
end;
var i:integer;
begin
for i:=1 to Length(s) do s[i]:= ConvertAccentChar(s[i]);
end;
Ale urcite byly myslim 3 jine a kratsi metody.
RNDr. Petr Brant
********************************************
* D&COMM s.r.o. - sledov�n� vozidel *
* v re�ln�m �ase a prodej licenc� *
* v r�mci programu Microsoft Select *
* ---------------------------------------- *
* Korunova�n� 6 *
* Praha 7 *
******************************************** Jakou fci prevest retezec s diakritikou na retezec
bez ni. Napr: U�ivatel� => Uzivatele ?
> Pavel Malinsky; spiderland(zv)iol(tec)cz <Lokalni promenne <C> -> <P>
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 23.1.2002 15:47:17
From: "Blazek Jaroslav" <Jaroslav.Blazek(zv)access-it(tec)cz>
> To je presne to proc jsem se ptal, cim v <P> nahradit <C> "static", abych
> nemusel pouzit globalni promennou.
Globalni promennou v tomto pripade pouzit musis.
Petr Vones
Sdileni komponent na siti
[*] <aldik(zv)quick(tec)cz> - 23.1.2002 16:05:29
Potrebujeme sdilet komponenty neda se nejak celoplostne pro vsechny componenty
nastavit misto kam se ukladaji *.dcu? Myslim ze by to urychlilo vyvoj mame
nejakej pomalej server.
Diky
Ales Pavel
W2000 D5 Ent
umistneni externi aplikace na urcitou pozici
[*] <kuchar(zv)unicodesys(tec)cz> - 23.1.2002 16:41:01
caute,
pomoci nasledujiciho kodu se snazim spustit program klavesnice z windows2000
a umistnit ho na pozici 100,100, ale nejak to nefunguje, nevite co delam
spatne ?
DIK
----------------------------------------------------------------------------
-------------
>
>function RunApplication (const ExeName,WhereBegin, Parameters: string):
Boolean;
>begin FillChar (StartupInfo, Sizeof(StartupInfo), 0);
> StartupInfo.cb := Sizeof(StartupInfo);
> if WhereBegin = '' then BeginPath := nil
> else BeginPath := PChar (WhereBegin);
> with StartupInfo do
> begin cb:=sizeof(StartupInfo);
> lpReserved:=nil;
> lpDesktop:=nil;
> lpTitle:=nil;
> dwFlags:=STARTF_USEPOSITION;
> dwX:=100;
> dwY:=100;
> wShowWindow:=SW_SHOWDEFAULT;
> cbReserved2:=0;
> lpReserved2:=nil;
> end;
> Result := CreateProcess(nil, PChar (ExeName+''+Parameters),nil, nil,
False,
> NORMAL_PRIORITY_CLASS,nil, BeginPath,StartupInfo,
ProcessInfo);
>end;
>
>
>procedure TForm1.Button1Click(Sender: TObject);
>begin RunApplication('osk.exe','','');
>
>end;
----------------------------------------------------------------------------
-------------
QReport - vice stranek
[*] Blazek Jaroslav <Jaroslav.Blazek(zv)access-it(tec)cz> - 23.1.2002 16:51:47
Ahoj,
delam generovane reporty, takze dopredu nevim kolik mam sloupcu. (jedine co znam jsou prvni dva sloupce)
Potreboval bych nejak nakopnout.
Dokazi si dynamicky vlozit QRDBText a rozmistit je na ColumnHeader a DetailBand, vse tiskne v pohode, ale jeli jich vice, uz se zacnou smrstovat a to je nezadouci.
Jakym zpusobem zajistit jako v Excelu posloupnost tisku (prvni 2 sloupce se opakuji)
Page1(Row1,Row2,.......) -> Page11(Row1,Row2,.....)
Page2(Row1,Row2,.......) -> Page21(Row1,Row2,.....)
To by se snad i dalo zvladnout, pamatovat si, ktere jsem tisknul, a ktere ne a projet cyklus znova s tema co se netiskly, ale jak zjistit max(Width) textu jednoho sloupce, abych to mohl poskladat na Band podle podminky, if Sum(VsechSloupcuWidth)>Band.Width
potrebuji neco jako.......
Canvas.TextWidth
Nebo jestli ma nekdo jiny napad, rad ho privitam.....
Diky
S pozdravem
Bc. Jaroslav Blazek
Access-IT Ceska Lipa
jaroslav.blazek(zv)access-it(tec)cz
www.access-it(tec)cz
ICQ : 13367373990
+420605/813644
RDB$DB_KEY vo FB RC2
[*] Alex Cherednichenko <cherednichenko(zv)wo(tec)cz> - 23.1.2002 16:51:58
Hello, Roland!
You wrote :
RT> Ahojte!
RT> Skuste mi prosim vysvetlit preco ak dam v IBConsole,alebo ISQL, prikaz
RT> select rdb$db_key from table tak mi vrati:
RT> 000000A100000001
RT> ....
Protoze to je spravne ;o)
Pokud chces zjistit delku rdb$db_key, pouzyj dotaz:
SELECT RDB$DBKEY_LENGTH FROM RDB$RELATIONS
WHERE RDB$RELATION_NAME='jmeno_tabulky'
RT> A ak v mojom programe tak
RT> je to len jeden znak. Ja pozivam IBQuery, to iste vrati aj v IBTalk.
Tak to je chyba.
With best regards, Alex Cherednichenko.Systemovy cas ineho pocitaca
[*] Tomas Bozik <tomas_bozik(zv)pobox.sk> - 23.1.2002 17:34:59
ako sa da zistit programovo aktualny cas a datum ineho pocitaca v sieti??
vdaka
Tomas Bozik
____________________________________
http://www.antikvariatshop.sk Virtualny antikvariat - proza, poezia,
historia, umenie, psychologia, naucna a odborna literatura, skripta ...
Vybrane knihy ZLAVA AZ 80 % !!!RDB$DB_KEY vo FB RC2
[*] Kaka�ka Pavol <kakacka(zv)proca(tec)cz> - 23.1.2002 17:41:57
From: "Roland Turcan" <rolo(zv)sedas.sk>
> Skuste mi prosim vysvetlit preco ak dam v IBConsole,alebo ISQL, prikaz
> select rdb$db_key from table tak mi vrati:
> 000000A100000001
> A ak v mojom programe tak
> je to len jeden znak. Ja pozivam IBQuery, to iste vrati aj v IBTalk.
rdb$db_key je taka mala sranda. IBX aspon co ja viem to nezobrazia ako
string pretoze tento field je v bufferu v hexadecimalnom tvare a ani to z
uzivatelskeho pohladu neni potreba. Podporu si musis urobit (asi) sam az na
urovni PSQLVAR kde hexadecimalny buffer zkonvertujes do stringu. Mozno ze v
zdrojakoch od IBConsole bude nejaka fcia na to hotova. Hladaj nieco ako
GetHexBuffer(). {na google je priklad v cesku}.
Kaka�ka Pavol
KasiX(zv)atlas(tec)cz
Systemovy cas ineho pocitaca
[*] Daniel Rott <roxton(zv)seznam(tec)cz> - 23.1.2002 18:42:41
> ako sa da zistit programovo aktualny cas a datum ineho pocitaca v sieti??
Napriklad pomoci funkce NetRemoteTOD z NetApi
Daniel
Diakritika ve schrance
[*] David Kraina <DKx(zv)Seznam(tec)cz> - 23.1.2002 19:27:50
Potreboval bych oddiakritikovat text ve schrance. Oddiakritikovani je
primitvni, ale nevite nekdo jak dostat textovy obsah schranky do promenne a
zpet ? Dik za kazdou radu.
David Kraina, DKx
vedouc� n.v.t. MX-3
http://MX-3.w3.to
Support.MX-3(zv)Seznam(tec)cz
OT: Prosba - Federalni kriminalni ustredna patra
[*] Milan Schembera <milan(zv)missoftware(tec)cz> - 23.1.2002 20:06:35
Omlouvam se za OT, ale v noci na vcerejsek nam vykradli v Praze pobocku a
krome pocitacu se ztratily i dva monitory TFT Sony M51 15", seriova cisla
0105370135 a 0105370168.
Kdyby nekdo na tyto monitory nekde ve frcu narazil, odmena ho nemine.
Pripadne informace prosim na muj soukromy mail nebo telefon.
Diky.
S pozdravem a pranim hezkeho dne
Milan Schembera
MISSOFTWARE Lanskroun
tel. 0 776 677 776
tel. 0467 521 555
http://www.missoftware(tec)cz
mailto:info(zv)missoftware(tec)cz
Diakritika ve schrance
[*] Jakub Dusek <jdev(zv)seznam(tec)cz> - 23.1.2002 20:30:37
Clipboard.AsString z unity clipboard.
Jakub Dusek
- Contacts to me -------------------------
Name : Jakub Dusek
Homepage : http://dusek.zde(tec)cz
Email : j.dusek(zv)seznam(tec)cz
Phone : +420604615795
Sms email : jakub.dusek(zv)click(tec)cz
Icq : 86063232
- Applications----------------------------
Add/Remove Manager
Charmaper
Sms GateKeeper
------------------------------------------
----- Original Message -----
From: "David Kraina" <DKx(zv)Seznam(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Wednesday, January 23, 2002 7:27 PM
Subject: Diakritika ve schrance
> Potreboval bych oddiakritikovat text ve schrance. Oddiakritikovani je
> primitvni, ale nevite nekdo jak dostat textovy obsah schranky do promenne
a
> zpet ? Dik za kazdou radu.
>
> David Kraina, DKx
> vedouc� n.v.t. MX-3
> http://MX-3.w3.to
> Support.MX-3(zv)Seznam(tec)cz
>
>
>Prevod diakritiky
[*] David Kraina <DKx(zv)Seznam(tec)cz> - 23.1.2002 20:46:36
Nejjednoduseji si fci udelej sam. Typicky stary dobry Pascal:
If S='�' Then S:='e';
...
David Kraina, DKx
vedouc� n.v.t. MX-3
http://MX-3.w3.to
Support.MX-3(zv)Seznam(tec)cz
----- Original Message -----
> Jakou fci prevest retezec s diakritikou na retezec
> bez ni. Napr: U�ivatel� => Uzivatele ?
> > Pavel Malinsky; spiderland(zv)iol(tec)cz <
Re[2]: Vlastn� komponenta
[*] Martin Pe�ava - 23.1.2002 20:52:27
Hmm, hezky, tak jo :) Ale precijenom bych mel jeste dotaz. Chtel bych
totiz udelat komponentu pro komunikaci s IRC serverem a nejak nevim,
jak to udelat jako potomka nekteryho z tehlech existujicich... Proto
jsem to chtel udelat komplet od zakladu. Predem dik za dalsi info :)
--
> nelepsi rada je: NEDELEJ TO!
> Ohledne TCP/IP komponent existuje mnoho dobreho...
> Asynchronni (tedy zpravami rizene) komponenty - ICS
> komponenty s blokujicimi sockety - Indy
> kod (nekomponenty) s blokujicimi sockety - Synapse
> jsi si opravdu jisty,z e te zadny z tehto dlouho vyvyjenych hotovych
> knihoven neuspokoji natolik, aby sis to psal sam???
>> r�d bych si ud�lal vlastn� komponentu na komunikaci via TCP/IP
>> sockety. N�co u� jsem d�lal v progr�mc�ch p��mo pro WinAPI, tak�e jak�
>> tak� tomu rozum�m. Ale n�jak mi nen� jasn�, co m�m d�t za handle okna,
>> kter� bude dost�vat zpr�vy. R�d bych ale, aby to bylo univerz�ln�;
>> pou�iteln� i t�eba v konzolov� aplikaci, kter� ��dn� okno nem�. To si
>> m�m vytvo�it n�jak� pr�zdn�? Nebo jak na to. P�edem d�k za v�echny
>> rady.
> -- Lukas Gebauer.
> E-mail: gebauerl(zv)mlp(tec)cz
> http://www.ararat(tec)cz/synapse/ - Synapse Delphi and Kylix TCP/IP Lib.
--
Best regards,
Martin mailto:jimx(zv)volny(tec)cz
Ako na fonty
[*] Roman Toda <toda(zv)digitaldocuments.org> - 23.1.2002 21:13:25
Ahoj,
Potreboval by som nejake komponenty,kniznice alebo priklady na citanie a
pracu s fontami. Co vsetko sa da z fontu dostat ako sa s tym pracuje, ako sa
font vytvara, .... Dobra by bola aj nejaka teoria (ako sa font vytvara, co
treba dodrzat). Predstavte si, ze chcem urobit nieco ako character map.
Robil niekto nieco podobne?
Beriem akekolvek skusenosti - aj zdrojaky v C
Dakujem za tip
Roman
Prevod diakritiky
[*] Petr Fejfar <development(zv)callnet(tec)cz> - 23.1.2002 21:45:13
From: "David Kraina" <DKx(zv)Seznam(tec)cz>> Nejjednoduseji si fci udelej sam. Typicky stary dobry Pascal:
> If S='�' Then S:='e';
No ja nevim, me to spis pripomina stary shitoidni Basic ;-)
V Pascalu by se to spis psalo nejak takto:
const
s1250x1252: string = '......ABCDE....abcde....e....';
S := s1250x1252[S];
Bye, pf
Re[2]: Prevod diakritiky
[*] Martin Pe�ava - 23.1.2002 21:52:06
Sice funkcni, ale "visualne" dost divny reseni. Ja pouzivam prevod
pres tabulku:
Const CZ2NoDiak = array[0..1] of string = ('���...','acd...');
function CZ2NoDiak(s:String):String;
var p,i : Integer;
begin
for i:=1 to Length(s) do begin
p:=pos(s[i],CZ2NoDiak[0]);
if p>0 then s[i]:=CZ2NoDiak[1,p];
end;
Result:=s;
end;
Doufam, ze je to spravne ...
--
> Nejjednoduseji si fci udelej sam. Typicky stary dobry Pascal:
> If S='�' Then S:='e';
> ...
> David Kraina, DKx
> vedouc� n.v.t. MX-3
> http://MX-3.w3.to
> Support.MX-3(zv)Seznam(tec)cz
> ----- Original Message -----
>> Jakou fci prevest retezec s diakritikou na retezec
>> bez ni. Napr: U�ivatel� => Uzivatele ?
>> > Pavel Malinsky; spiderland(zv)iol(tec)cz <
--
Best regards,
Martin mailto:jimx(zv)volny(tec)cz
Vice IBQuery na jedne IBTransakci
[*] Pavel Malinsk� <spiderland(zv)iol(tec)cz> - 23.1.2002 22:58:40
Ahoj,
mam situaci kdy pro vice IBQuery a IBSQL pouzivam jednu
spolecnou transakci. Transakce je zahajena v okamziku Openu
nektere IBQuery a pro zapis dat pouzivam CommitRetaining.
Pres IBSQL si posilam ruzne pomocne dotazy na DB,
ale v pripade, ze mi v DB nekdo treba smazne zaznam, tak to
nezjistim dokud nezavru a znovu neotevru celou transakci.
Jde mi o to, ze na IBSQL udelam Exec, neco si prectu a zase
ho zavru, ale on to taha nekde z cache, protoze ackoli zaznam
uz na serveru neni tak ho najde. Ja mel za to, ze IBSQL si sahne
pro data primo server:(. Nebo lze(je nutno?) nejak refreshovat
data v kontextu cele transakce ?? Jak pri spolecne transakci
donutit IBSQL, aby mi vracelo cerstva data aniz bych ji musel
skoncit?
Snad jsem to srozumitelne...
Prosim pomozte, protoze uz me nic nenapada:(((.
S pozdravem a dikem
=====================================
> Pavel Malinsky; spiderland(zv)iol(tec)cz <
>===================================<
> ...The Truth Is Out There... <
=====================================
GSM: 0602 652 203
Dump from COM port to FILE
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 24.1.2002 01:46:36
From: "Roland Turcan" <rolo(zv)sedas.sk>
> Neexistuje nejaky programik ktory mi ulozi data ktore prichadzaju zo
> serioveho portu a ulozi to do suboru. Ide mi o to aby som nemusel
Ahoj,
napriklad HyperTerminal z Windows.
Petr Vones
Vlo�en�
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 24.1.2002 01:47:43
From: "Standa" <Ooman(zv)centrum(tec)cz>
> Potrebuji vlozit do komponenty TreeView celou stromovou strukturu CD.
> Vytvoril sem si na to takovou funkci ale je dost pomala, nezna nekdo nejakou
> efektivni metodu.
Ahoj,
vetsinou je lepsi vytvorit pouze prvni uroven a pokud uzivatel rozbali nektery
uzel tak v nem vytvorit dalsi atd.
Petr Vones
TImage a ScrollBars
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 24.1.2002 01:51:07
From: <mstevlik(zv)gamo.sk>
> Ked tam dam obrazok vacsi ako 300x300 tak mi z neho len cast
> Chcel by som nejakym sposobom (ScrollBary) aby som sa vedel v ramci obrazka
> pohnut (t.j. vidiet i pravu dolnu cast)
Ahoj,
musis pouzit TScrollBox a do neho vlozit TImage.
Petr Vones
MDI Form a menu
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 24.1.2002 01:53:12
From: <tomsir1.edu(zv)mail.cez(tec)cz>
> mam zacatecnicky dotaz :O( Jestlize vlozim na child form TMainMenu, po
> vytvoreni child okna dojde k prepsani menu parent okna. Potrebuji, aby menu
> hlavniho okna zustalo na svem miste a kazdy child mel sve menu ... jak na
> to, kopnete me please
Ahoj,
MDI rozhrani ma menu pouze v hlavnim okne. Lze to resit jedine tak, ze se
nektere child menu pripoji k hlavnimu menu, podivej se na TMenuItem.GroupIndex
Petr Vones
Mysi kursor
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 24.1.2002 01:54:17
From: "Lebeda David" <david.lebeda(zv)comarr(tec)cz>
> ve sve aplikaci potrebuji nastavit kursor mysi na crHourGlass. Kdyz
> pouziji Screen.Cursor, plati nastaveny kursor pouze nad mou
> aplikaci. Jakmile vyjedu mimo form, kursor je tam normalni. Jak
> tedy nastavim kursor viditelny i mimo oblast sve aplikace?
> Na jednu stranu chapu, ze bych tim vlastne tak trochu poprel
> viceulohovost Windows, ale presto - jde to nejak?
Ahoj,
udelat by to asi slo, ale je to naprosto nelogicke a zavadejici.
Petr Vones
Sdileni komponent na siti
[*] ing. Pavel �ilinec����)b���zf���3 - 24.1.2002 06:13:56
Muzes to nastavit v Tools -> Environment options -> Library -> DCP
output directory.
Pak, pokud nebude u dan�ho projektu nastavena v Options jin� cesta, se
pou�ije cestanastavena primo v tech Tools.
Ale pokud jsou komponenty visualni a jeste se pracuje i na techto
komponentech, tak neprelozis dany balicek, dokud bude mit kdokoli
pustene Delphi a natazene dane komponenty.
------
ing. Pavel �ilinec
mailto:zilinec(zv)email(tec)cz
23.1.2002 aldik(zv)quick(tec)cz:
> Potrebujeme sdilet komponenty neda se nejak celoplostne pro vsechny componenty
> nastavit misto kam se ukladaji *.dcu? Myslim ze by to urychlilo vyvoj mame
> nejakej pomalej server.
> Diky
> Ales Pavel
> W2000 D5 Ent
Vice IBQuery na jedne IBTransakci
[*] Jirka <W.Jirka(zv)seznam(tec)cz> - 24.1.2002 06:45:29
> data v kontextu cele transakce ?? Jak pri spolecne transakci
> donutit IBSQL, aby mi vracelo cerstva data aniz bych ji musel
> skoncit?
Ahoj
Musis mit nastavenou Transakci na ReadCommited.
Pak uvidis zmeny, ktere nekdo Commitne bez toho
abys musel ukoncovat Transakci.
Preji hodne zdaru
Jirka
Sdileni komponent na siti
[*] Jirka <W.Jirka(zv)seznam(tec)cz> - 24.1.2002 06:48:55
> Potrebujeme sdilet komponenty neda se nejak celoplostne pro vsechny componenty
> nastavit misto kam se ukladaji *.dcu? Myslim ze by to urychlilo vyvoj mame
> nejakej pomalej server.
> Diky
Ahoj
Pro to tohle je nejlepsi pouzit nejaky program pro spravu verzi napr. FreeVCS.
Preji hodne zdaru
Jirka
Mysi kursor
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 24.1.2002 06:49:09
> From: "Lebeda David" <david.lebeda(zv)comarr(tec)cz>
> > ve sve aplikaci potrebuji nastavit kursor mysi na crHourGlass. Kdyz
> > pouziji Screen.Cursor, plati nastaveny kursor pouze nad mou
> > aplikaci. Jakmile vyjedu mimo form, kursor je tam normalni. Jak tedy
> > nastavim kursor viditelny i mimo oblast sve aplikace? Na jednu
> > stranu chapu, ze bych tim vlastne tak trochu poprel viceulohovost
> > Windows, ale presto - jde to nejak?
>
> Ahoj,
>
> udelat by to asi slo, ale je to naprosto nelogicke a zavadejici.
>
OK, souhlasim, ale pokusim se vysvetlit, co mam na mysli. Moje
aplikace ma pomerne maly formular, z ktereho lze provadet ruzne
veci, ktere mohou chvili trvat. Pojmem chvile mam na mysli
nekolikasekundovou akci, behem ktere bych chtel zobrazit kurzor
crHourGlass. Jenze uzivatel obvykle mysi neni najety nad ten maly
formularik a tak zmeneny kurzor mysi nevidi.
Co by mi ale prislo rozumne, a co bych chtel zkusit, je
takoveto chovani: Pokud je moje aplikace aktivni (tj. uzivatel s ni
pracoval a pak se neprepnul do jine ulohy), at je kurzor mysi
crHourGlass na cele obrazovce. Pokud se uzivatel prepne do jine
aplikace, kurzor mysi bude standardni. Jak toto udelat?
Diky
David Lebeda
compile versus build na Win98
[*] Ka.Kewasa <kewasa(zv)quick(tec)cz> - 24.1.2002 06:55:08
Ahoj,
mam problem s prekladem pod Win98. Pokud udelam jen compile (cca 8 sec),
program se zrejme spatne slinkuje a i pri opakovanych spoustenich
prelozeneho exe hlasi chybu access violation. Kdyz to spoustim z IDE tak to
ohlasi pod acess chyby thread synchronization. Musim udelat build (cca 50
sec).
Pod Win2000 nic takoveho nepozoruji. Cim to muze byt? Doba mezi compile a
build je pro mne nezanedbatelna.
Diky
Ka.Vice IBQuery na jedne IBTransakci
[*] Petr Palicka <petr.palicka(zv)atlas(tec)cz> - 24.1.2002 06:58:19
> Jde mi o to, ze na IBSQL udelam Exec, neco si prectu a zase
> ho zavru, ale on to taha nekde z cache, protoze ackoli zaznam
ne-e.
je to problem transakce a jejiho nastaveni.
normal v transakci vidis jenom data, ktera
byla ostatnimi transakcemi potvrzena (commit,
commitretainig). nejsem si jist, jak spravne
nastavit cteni i nepotvrzenych dat, ale ja
osobne to nepovazuju za problem. zmeny,
ktere nikdo jeste nepotvrdil pro me neexistuji.
ale urcite by melo jit videt nove povrzene
po zahajeni aktualni, ale muze to prinest urcite
problemy (zmizi/objevi/zmeni se data po rukama)
dekuji PeC(zv)Zistovanie typu dat v databaze ... (SQL)
[*] Slavom�r �eke� - 24.1.2002 07:32:56
Potreboval by som zistit akeho typu je nejaka polozka v databaze ...
napr. nejakym SQL prikazom ...
priklad: mam nejaku databazu, ktora ma polozku CISLO, chcem, aby moj
soft zistil akeho typu a rozmeru je CISLO, teda aby mi vratil napriklad,
ze CISLO je typu NUMBER(12,2) atd.
Da sa to vobec ?
Slavo
Zadokovani formulare z DLL
[*] Ing. Pavel Hojda <hojda(zv)marbes(tec)cz> - 24.1.2002 07:36:11
Zdravim,
potreboval bych zadokovat formular z DLL knihovny do formulare aplikace,
ktera DLL knihovnu spusti. Nevite nekdo jak na to?
Diky
S pozdravem
Pavel Hojda
OT: Trochu OT - spusteni aplikace na cizim pocitac
[*] Dalibor Falt�nek <dalibor.faltynek(zv)orgrez(tec)cz> - 24.1.2002 08:01:04
Ahoj vespolek
nevim jestli to sem uplne patri, takze OT dotaz je: Jak a jestli to jde
spustit napr z progarmu napsanem v D5 C/S merici program na jinem pocitaci
tak, aby vyuzival merici hardware na tom jinem pocitaci a pak uz treba pres
comport bych jej ovladal. Asi by se daly pouzit systemy typu Control Panel
nebo jeho potomci, ale jde mi o to, ze merici pocitac by byla sunka s merici
kartou , malym diskem a DOSem, bez monitoru, mysi, klavesnice, trvale v
mericim aute, a pocitac "ridici" by pak mohl byt notebook s W98 a to delo.
Vymyslel jsem akorat to, ze merici program by se mohl spoustet z autoexecu
toho bastlu. Jde to i elegantneji?
Zdravim Vas a tesim se na odpovedi.
dalibor.faltynek(zv)orgrez(tec)cz
Re[2]: Vlastn� komponenta
[*] Gebauer Lukas <gebylist(zv)mlp(tec)cz> - 24.1.2002 08:03:38
Opet ti dam dobrou radu.. NEDELEJ TO... v INDY mas trebas komponentu
na IRC uz hotovou... (a neni to vubec sranda naprogramovat.. se na to
podivej!) :-)
> Hmm, hezky, tak jo :) Ale precijenom bych mel jeste dotaz. Chtel bych
> totiz udelat komponentu pro komunikaci s IRC serverem a nejak nevim,
> jak to udelat jako potomka nekteryho z tehlech existujicich... Proto
> jsem to chtel udelat komplet od zakladu. Predem dik za dalsi info :)
>
> > nelepsi rada je: NEDELEJ TO!
> >> r�d bych si ud�lal vlastn� komponentu na komunikaci via TCP/IP
> >> sockety. N�co u� jsem d�lal v progr�mc�ch p��mo pro WinAPI, tak�e jak�
> >> tak� tomu rozum�m. Ale n�jak mi nen� jasn�, co m�m d�t za handle okna,
> >> kter� bude dost�vat zpr�vy. R�d bych ale, aby to bylo univerz�ln�;
> >> pou�iteln� i t�eba v konzolov� aplikaci, kter� ��dn� okno nem�. To si
> >> m�m vytvo�it n�jak� pr�zdn�? Nebo jak na to. P�edem d�k za v�echny
> >> rady.
-- Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
http://www.ararat(tec)cz/synapse/ - Synapse Delphi and Kylix TCP/IP Lib.Zistovanie typu dat v databaze ... (SQL)
[*] L. Filip <lfilip(zv)lekis(tec)cz> - 24.1.2002 08:19:42
Ahoj,
standardni metody datasetu nevyhovuji?
TDataSet.Fields[0].DataType
TDataSet.Fields[0].DataSize
----- Original Message -----
From: "Slavom�r �eke�" <cekel(zv)noves.sk>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Thursday, January 24, 2002 7:32 AM
Subject: Zistovanie typu dat v databaze ... (SQL)
Potreboval by som zistit akeho typu je nejaka polozka v databaze ...
napr. nejakym SQL prikazom ...
priklad: mam nejaku databazu, ktora ma polozku CISLO, chcem, aby moj
soft zistil akeho typu a rozmeru je CISLO, teda aby mi vratil napriklad,
ze CISLO je typu NUMBER(12,2) atd.
Da sa to vobec ?
Slavo
handle okna
[*] <kuchar(zv)unicodesys(tec)cz> - 24.1.2002 08:24:56
caute,
nekolik malo dotazu hned na zacatek,
-z programu spoustim externi aplikaci a potreboval bych vedet jestli je
mozne nejakym zpusobem zjistit handl okna ty externi aplikace, kdyz nevim
popisek okna, ale vim presny nazev exe souboru ktery tu aplikaci spousti
- jak zjistit handl okna nejake aplikace, kdyz zase nevim popoisek okna, ale
vim zase presny nazev exe souboru aplikace a vim i handl procesu te aplikace
DIK
Dynamicky Form a events
[*] Pavel ZIDEK <delphi(zv)kopr(tec)cz> - 24.1.2002 08:32:25
Zdravim,
vyrobim si dynamicky Form, ale nevim jak do tohoto formu pridat i udalosti:
procedure TForm1.SpeedButton1Click(Sender: TObject);
var
NewForm: TForm;
begin
try
NewForm := TForm.Create(application);
NewForm.Left := 10;
NewForm.Top := 10;
NewForm.Height := 100;
NewForm.Width := 100;
NewForm.BorderStyle := bsDialog;
NewForm.KeyPreview := true;
...
pridam ovladaci prvky, texty apod.
...
a zde bych potreboval priradit odchyt klaves
NewForm.OnKeyPress := KeyPress;
...
zde rozjedu nejakou cinnost a cekam na stisk nejake klavesy
...
finally
NewForm.Free;
end;
end;
----- KOPR software -----
Pavel ZIDEK
http://www.kopr(tec)cz, kopr(zv)kopr(tec)cz, delphi(zv)kopr(tec)cz
Zistovanie typu dat v databaze ... (SQL)
[*] Kalhous Zdenek <zdenek.kalhous(zv)comarr(tec)cz> - 24.1.2002 08:37:42
On 24 Jan 2002, at 7:32, Slavom�r �eke� wrote:
> Potreboval by som zistit akeho typu je nejaka polozka v databaze ...
> napr. nejakym SQL prikazom ...
> priklad: mam nejaku databazu, ktora ma polozku CISLO, chcem, aby moj
> soft zistil akeho typu a rozmeru je CISLO, teda aby mi vratil
> napriklad, ze CISLO je typu NUMBER(12,2) atd.
Jde to pres RDB$ tabulky ale pozor na to, ze to co chcete neni jak
by se zdalo v RDB$FIELD_TYPES ci jak se to jmenuje ale nekde v
dokumentaci IB je popsano, jakemu cislu odpovidaji jake datove
typy. Pred casem jsem to delal ale ted nemam cas to hledat, kdyz
budete potrebovat tak se ozvete a najdu to zitra.
Z.Kalhous
Pouziti InternetOpen a InternetSetOption pro nasta
[*] Jakub Dusek <jdev(zv)seznam(tec)cz> - 24.1.2002 09:01:05
Zdravim,
mam nasledujici problem, nedari se mi nastavit parametry proxy pri pouzivani
knihovny wininet.dll (je to jen vysek kodu):
var Buffer: PChar;
begin
GetMem (Buffer, 256);
try
StrPCopy (Buffer, FProxyServer);
hSession := InternetOpen (PChar (FTAgent),
INTERNET_OPEN_TYPE_PROXY, (zv)Buffer, nil, 0)
finally
FreeMem (Buffer, 256);
end;
if FProxyUser <> '' then
begin
GetMem (Buffer, 256);
try
StrPCopy (Buffer, FProxyUser);
InternetSetOption (hSession, INTERNET_OPTION_PROXY_USERNAME,
Buffer, Length (FProxyUser) + 1);
finally
FreeMem (Buffer, 256);
end;
end;
{Analogicky pro proxy heslo pouzitim INTERNET_OPTION_PROXY_PASSWORD}
Doufam ze delam nejakou skolackou chybu jinak uz nevim :) Pokud ji nekdo
vidi popripade vi jak to v Delphi nastavit budu vdecnej :)
Jakub Dusek
-------------------------------------------
Homepage : http://dusek.zde(tec)cz
Phone : +420604615795
Sms email : jakub.dusek(zv)click(tec)cz
Icq : 86063232
Apps : Add/Remove Manager, Charmaper,
Sms GateKeeper
-------------------------------------------
Dynamicky Form a events
[*] Petr Palicka <petr.palicka(zv)atlas(tec)cz> - 24.1.2002 09:03:08
> a zde bych potreboval priradit odchyt klaves
> NewForm.OnKeyPress := KeyPress;
presne tak, akorat tu proceduru KeyPres uz musis mit
napsanou.
PeC(zv)compile versus build na Win98
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 24.1.2002 09:36:27
> mam problem s prekladem pod Win98. Pokud udelam jen compile (cca 8 sec),
> program se zrejme spatne slinkuje a i pri opakovanych spoustenich
> prelozeneho exe hlasi chybu access violation. Kdyz to spoustim z IDE tak
to
> ohlasi pod acess chyby thread synchronization. Musim udelat build (cca 50
> sec).
> Pod Win2000 nic takoveho nepozoruji. Cim to muze byt? Doba mezi compile a
> build je pro mne nezanedbatelna.
>
nejprve bych se ujistil, ze ten program je opravdu spravne napsany. Podle me
je
stale velka sance, ze v nem je chyba, ktera se projevuje shodou okolnosti
jen (zatim?)
po compile.
Pripadne muzes zkusit porovnat execka, vyrobena po comile a build.
Samozrejme se
nebudou nikdy shodovat (hlavicka PE filu obsahuje polozky, ktere nemusi byt
vzdy stejne), ale vlastni kod programu by totozny byt mel (zkusil bych
porovnat dva po
sobe jdouci vystupy z build - tak bych odhadl pocet zmen - ktery by mel
odpovidat porovnani
build versus compile)
Jakou verzi Delphi mas?
D. Toman
JCLStrings.StrSearch(....,?Index?)
[*] Roland Turcan <rolo(zv)sedas.sk> - 24.1.2002 09:40:16
----- Original Message -----
From: "Petr Vones" <pvones(zv)mbox.vol(tec)cz>
Sent: Sunday, January 13, 2002 8:08 PM
> From: "Roland Turcan" <rolo(zv)sedas.sk>
> > Help hovori toto:
> > ----
> > StrSearch
> > The search starts at the supplied index and is case-sensitive.
> > ----
> > Ale parameter index nie je akceptovany a vzdy mi vrati poziciu prveho
> > vyskytu. Nie je na toto nejaky update?
>
> Ahoj,
>
> jako mas verzi JCL ? Me to tu funguje spravne.
>
> Petr Vones
>
Ja som si dorabal tuto funkciu a to JCL mi stale vracia prvu poziciu.
Je chyba medzi klavesnicou a stolickou, alebo v JCL
///*/*/*/*/*/*/*/*/
function ReplaceStr(Input,This,WithThis:string;Position:Integer):string;
var X:Integer;
begin
X:=StrSearch(AnsiUpperCase(This),AnsiUpperCase(Input),Position);
if X>0 then
begin
Result:=System.Copy(Input,0,X-1)+WithThis;
Result:=Result+System.Copy(Input,X+Length(This),Length(Input)-X+Length(This)
);
end else Result:=Input;
end;
///*/*/*/*/*/*/*/*/Lokalni promenne <C> -> <P>
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 24.1.2002 09:44:01
>To je presne to proc jsem se ptal, cim v <P> nahradit <C>
>"static", abych nemusel pouzit globalni promennou.
>Chtel jsem lokalni statickou promennou.
Cckova "static" promenna je definovana v globalnim datovem segmentu, takze
je globalni promennou. Nic na tom nemeni, ze jeji jmeno je ostatnim
funkcim skryte.
Pokud v Pascalu pomoci VAR deklaruju globalni promennou tak, ze VAR sekci
umistim
nekam na konec unity, taky tu promennou nemuzu pouzit ve funkcich
deklarovanych pred ni.
Chces-li moci mermo mit to jmeno skryty i pred vsemi ostatnimi funkcemi tak
umisti
tu funkci co takovou promennou pouziva do specialni unity a promennou
deklaruj bezprostredne pred
zapisem funkce (tedy az v sekci IMPLEMENTATION). Nebo muzes funkci
zapouzdrit do nejakeho objektu
a promennou vlozit do objektu
D. Toman
RichEdit
[*] Jan Fiala [work] <delphi(zv)kvasar(tec)cz> - 24.1.2002 09:48:13
Zdravim,
potreboval bych radu, jak se da zajistit, aby pri pridani noveho radku do
TRichEdit pomoci Lines.add('') byl nastaveny scroller na konec. Potrebuji to
pouzit jako vypis logu.
Dik
P�eji Hezk� den
Jan Fiala
fiala(zv)kvasar(tec)cz
http://www.kvasar(tec)cz
tel.:067/7212800
mob.:0608724278
Dynamicky Form a events
[*] Jaroslav Bucek <bucek(zv)eskon(tec)cz> - 24.1.2002 10:06:13
> NewForm.OnKeyPress := KeyPress;
Je sice v poradku, ale musis mit vytvorenou metodu KeyPress, ktera bude mit
parametry Sender a Key, presne podle potreb udalosti KeyPress. To znamena,
ze nejlepsi bude vytvorit si jednu metodu OnKeyPress treba na Form1 (cimz se
ti vytvori metoda FormKeyPress), do ni si pak napis co potrebujes, prejmenuj
si ji a z Events Form1 pak vymaz tu zavislost, aby ti tam nesly udalosti z
formu.
Jarda
Zadokovani formulare z DLL
[*] Ondrej Kelle <O.Kelle(zv)digitalpublishing.de> - 24.1.2002 10:13:56
> Zdravim,
> potreboval bych zadokovat formular z DLL knihovny do
> formulare aplikace,
> ktera DLL knihovnu spusti. Nevite nekdo jak na to?
Malo by pomoct prekompilovat oba projekty s runtime packages. Pripadne si
urob z tej DLL runtime package.
HTH
TOndrej
Re[2]: Prevod diakritiky
[*] Kolembus Milan <Milan.Kolembus(zv)swh.sk> - 24.1.2002 10:39:17
[P��loha v souboru: DiakStrings.zip]
This message is in MIME format. Since your mail reader does not understand
this format, some or all of this message may not be legible.
function Prevod(vstup: string; ZTyp, CTyp: integer): string;
const
sabc: array[0..7] of string = (
'A�BCCDD...', // Win
'A?BC?DN...', // PC Latin2
'AABCCDD...', // ASCI bez dikritiky
'A0BCCDD...', // ISO1
'A�BCCDD...', // ISO2
'AZBC?D....', // Kamenicky
'A�BCaD�...', // KOY8CS
'A�BC?D'...'); // MAC
cez mail by to spravne nepreslo, preto som si dovolil 670 bytovu prilohu
function prevod(vstup: string; ZTyp, CTyp: integer): string;
var
i, j: integer;
begin
Result := '';
for j := 1 to Length(vstup) do
begin
i := Pos(Copy(vstup, j, 1), sabc[ZTyp]);
if i <> 0 then
result := result + Copy(sabc[CTyp], i, 1)
else
result := result + Copy(vstup, j, 1)
end;
vstup - vstupny string
ZTyp -zdrojovy typ diakritiky
CTyp -cielovy typ diakritiky
Priklad pouzitia: normalny text pod Win na text bez diakritiky
Edit2.text := prevod(Edit1.text, 0, 2);
Cau
Kolembus
-----Original Message-----
From: Martin Pe�ava [mailto:jimx(zv)volny(tec)cz]
Sent: Wednesday, January 23, 2002 9:52 PM
To: David Kraina
Subject: Re[2]: Prevod diakritiky
Sice funkcni, ale "visualne" dost divny reseni. Ja pouzivam prevod
pres tabulku:
Const CZ2NoDiak = array[0..1] of string = ('���...','acd...');
function CZ2NoDiak(s:String):String;
var p,i : Integer;
begin
for i:=1 to Length(s) do begin
p:=pos(s[i],CZ2NoDiak[0]);
if p>0 then s[i]:=CZ2NoDiak[1,p];
end;
Result:=s;
end;
Doufam, ze je to spravne ...
--
> Nejjednoduseji si fci udelej sam. Typicky stary dobry Pascal:
> If S='�' Then S:='e';
> ...
> David Kraina, DKx
> vedouc� n.v.t. MX-3
> http://MX-3.w3.to
> Support.MX-3(zv)Seznam(tec)cz
> ----- Original Message -----
>> Jakou fci prevest retezec s diakritikou na retezec
>> bez ni. Napr: U�ivatel� => Uzivatele ?
>> > Pavel Malinsky; spiderland(zv)iol(tec)cz <
--
Best regards,
Martin mailto:jimx(zv)volny(tec)cz
GetComputerName
[*] Martin Schayna <mschayna(zv)aktis(tec)cz> - 24.1.2002 10:57:56
GetHostName
Martin Schayna
Aktis a.s.
----- Original Message -----
From: "Petr Palicka" <petr.palicka(zv)atlas(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Wednesday, January 23, 2002 3:21 PM
Subject: GetComputerName
DDV,
panove, nevite nekdo, o nejake
nahrade funkce GetComputerName
pro pouziti v CLX aplikaci?
nebo jinak, jakou na to mam
pouzit fci v linux verzi?
ja si to osetrim direktivou.
dekuji PeC(zv)
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.314 / Virov� b�ze: 175 - datum vyd�n�: 11.1. 2002
XP a security
[*] Robert Suska <robert(zv)korak.sk> - 24.1.2002 11:01:20
Ahojte
Moja problem spociva v tom ze pracujem na jednom programe na napalovanie CD
diskov pod WinXP v inom profile ako Administrator mi to trubi ze nebude
palit lebo nemam Administratorske prava alebo mam nastavit full access na
pristup ku napalovacke. Ono by to nebol problem pod W2k lebo tam security
viem nastavit ale pod WinXP je to nejake strasne skryte. Prosim pomozte mi
ako nastavim Full access ku zariadeniu aj pre napr. Power Usera.
Dufam ze som sa nejako nezaplietol ak ano tak ma vyvedte z omylu.
Dakujem
Robo
Dump from COM port to FILE
[*] Roland Turcan <rolo(zv)sedas.sk> - 24.1.2002 11:18:45
From: "Petr Vones" <pvones(zv)mbox.vol(tec)cz>
Sent: Thursday, January 24, 2002 1:46 AM
> From: "Roland Turcan" <rolo(zv)sedas.sk>
> > Neexistuje nejaky programik ktory mi ulozi data ktore prichadzaju zo
> > serioveho portu a ulozi to do suboru. Ide mi o to aby som nemusel
>
> Ahoj,
>
> napriklad HyperTerminal z Windows.
>
> Petr Vones
>
Ja momentalne nemam moznost si to odskusat, ale skusal som to s Casio diarom
a diar mi do Hyrterminalu neposlal a hlasil chybu v prenose. Skusal som
prijat subor aj zachytavat text. Ze by ten moj diar mal nestandartnu
komunikaciu.
Roland.handle okna
[*] Peter <peter(zv)baris.sk> - 24.1.2002 11:49:39
Za predpokladu ze ti vytvori po spusteni okno na popredi tak handle
najlahsie odchytis cez getforegroundwindow.
Peter
----- Original Message -----
From: <kuchar(zv)unicodesys(tec)cz>
To: Delphi <delphi-l(zv)clexpert(tec)cz>
Sent: Thursday, January 24, 2002 8:24 AM
Subject: handle okna
> caute,
>
> nekolik malo dotazu hned na zacatek,
> -z programu spoustim externi aplikaci a potreboval bych vedet jestli je
> mozne nejakym zpusobem zjistit handl okna ty externi aplikace, kdyz nevim
> popisek okna, ale vim presny nazev exe souboru ktery tu aplikaci spousti
>
> - jak zjistit handl okna nejake aplikace, kdyz zase nevim popoisek okna,
ale
> vim zase presny nazev exe souboru aplikace a vim i handl procesu te
aplikace
>
>
> DIK
>ceske znaky a WinNT 4.0
[*] Jaroslav Sipek <jaroslav.sipek(zv)idea(tec)cz> - 24.1.2002 11:50:14
Ahoj,
nevite nekdo jak vyresit nasledujici problem.
V D5 Prof. na Win2000 otevru novou aplikaci,
polozim na formular TGraf a do "Title" grafu
napisu ceske znaky. Pak projekt zkompiluji.
Na Win2000 se v grafu zobrazi cestina OK,
ale na WinNT 4.0 jsou ceske znaky pokazene.
Da se s tim neco delat?
Diky
S pozdravem
Ing. Jaroslav Sipek
IDEA spol. s r.o.
mailto:jaroslav.sipek(zv)idea(tec)cz
http://www.idea(tec)cz
ceske znaky a WinNT 4.0
[*] Sebesta Jan <delcomseb(zv)volny(tec)cz> - 24.1.2002 12:17:21
Nejsou ty Win NT anglicke ?.
Pak tak chybi asi fonty nebo podpora pro jiny jazyk.
----- Original Message -----
From: "Jaroslav Sipek" <jaroslav.sipek(zv)idea(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Thursday, January 24, 2002 11:50 AM
Subject: ceske znaky a WinNT 4.0
> Ahoj,
> nevite nekdo jak vyresit nasledujici problem.
> V D5 Prof. na Win2000 otevru novou aplikaci,
> polozim na formular TGraf a do "Title" grafu
> napisu ceske znaky. Pak projekt zkompiluji.
> Na Win2000 se v grafu zobrazi cestina OK,
> ale na WinNT 4.0 jsou ceske znaky pokazene.
> Da se s tim neco delat?
> Diky
>
> S pozdravem
> Ing. Jaroslav Sipek
> IDEA spol. s r.o.
> mailto:jaroslav.sipek(zv)idea(tec)cz
> http://www.idea(tec)cz
>
>
> Dynamicky Form a events
[*] Pavel ZIDEK <delphi(zv)kopr(tec)cz> - 24.1.2002 12:27:02
Potrebuji novy form, ktery bude nezvisly na puvodnim Formu, kde se spoustel.
Kompilator to nezezere. Co s tim.
procedure KeyPress(Sender: TObject; var Key: Char);
begin
case ord(Key) of
VK_Escape: ModalResult := mrCancel;
VK_Return: begin end;
end;
end;
procedure TForm1.SpeedButton1Click(Sender: TObject);
var
NewForm: TForm;
begin
try
NewForm := TForm.Create(application);
...
NewForm.KeyPreview := true;
NewForm.OnKeyPress := KeyPress;
....
> > a zde bych potreboval priradit odchyt klaves
> > NewForm.OnKeyPress := KeyPress;
>
> presne tak, akorat tu proceduru KeyPres uz musis mit
> napsanou.
>
Lokalni promenne <C> -> <P>
[*] Blazek Jaroslav <Jaroslav.Blazek(zv)access-it(tec)cz> - 24.1.2002 12:48:36
>Cckova "static" promenna je definovana v globalnim datovem segmentu,
>takze je globalni promennou. Nic na tom nemeni, ze jeji jmeno je ostatnim
>funkcim skryte.
muze i nemusi byt skryte, viz muj predchozi mail - neprimy pristup k lokalnim statickym promennym pres ukazatel
S pozdravem
Bc. Jaroslav Blazek
Access-IT Ceska Lipa
jaroslav.blazek(zv)access-it(tec)cz
www.access-it(tec)cz
ICQ : 13367373990
+420605/813644
compile versus build na Win98
[*] Mephisto <mephisto(zv)akvila(tec)cz> - 24.1.2002 12:55:05
Zkus si ztahnout z netu MemProf je to docela uzitecna vecicka momo jine je
ti schopna ukazat kde v programu zapominas uvolnovat objekty popripade
jestli se nahodou neodkazujes na objekty ktere neexistuji. Pokud nastavis
linker a compiler tak jek je popsano v helpu uvidis primo misto ve zdrojaku
kde je chyba. Mozna ti to pomuze.
---
P��choz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.317 / Virov� b�ze: 176 - datum vyd�n�: 21.01.2002
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.317 / Virov� b�ze: 176 - datum vyd�n�: 21.01.2002
ceske znaky a WinNT 4.0
[*] Tomas Rosa <trosa(zv)seznam(tec)cz> - 24.1.2002 12:58:18
Zkus nastavit charset na EASTERN a ne DEFAULT ci OEM !!!
> nevite nekdo jak vyresit nasledujici problem.
> > V D5 Prof. na Win2000 otevru novou aplikaci,
> > polozim na formular TGraf a do "Title" grafu
> > napisu ceske znaky. Pak projekt zkompiluji.
> > Na Win2000 se v grafu zobrazi cestina OK,
> > ale na WinNT 4.0 jsou ceske znaky pokazene.
> > Da se s tim neco delat?
> > Diky
> >
> > S pozdravem
> > Ing. Jaroslav Sipek
> > IDEA spol. s r.o.
> > mailto:jaroslav.sipek(zv)idea(tec)cz
> > http://www.idea(tec)cz
> >
> >
> >
S pozdravem
Tomas Rosa
------------------------=[ pinknet on every screen ]=----------------------
Tomas Rosa
Tomas.Rosa(zv)PinkNet(tec)cz
Contact me via EFFATA.NET, my EID: trosa(zv)effata.net
PinkNet Web Server for Win32 - FREEWARE http://pnws.pinknet(tec)cz/
---------------------------------------------------------------------------
ceske znaky a WinNT 4.0
[*] Do�ekal Radek <RDocekal(zv)CSAS(tec)cz> - 24.1.2002 13:02:32
Maji ty NT nastavenu cestinu jako default locale?
S pozdravem
Radek Docekal
<mailto:rdocekal(zv)csas(tec)cz> ICQ: 9008367
> -----Original Message-----
> From: Jaroslav Sipek [mailto:jaroslav.sipek(zv)idea(tec)cz]
> Sent: Thursday, January 24, 2002 11:50 AM
> To: delphi-l(zv)clexpert(tec)cz
> Subject: ceske znaky a WinNT 4.0
>
>
> Ahoj,
> nevite nekdo jak vyresit nasledujici problem.
> V D5 Prof. na Win2000 otevru novou aplikaci,
> polozim na formular TGraf a do "Title" grafu
> napisu ceske znaky. Pak projekt zkompiluji.
> Na Win2000 se v grafu zobrazi cestina OK,
> ale na WinNT 4.0 jsou ceske znaky pokazene.
> Da se s tim neco delat?
> Diky
>
> S pozdravem
> Ing. Jaroslav Sipek
> IDEA spol. s r.o.
> mailto:jaroslav.sipek(zv)idea(tec)cz
> http://www.idea(tec)cz
>
> Lokalni promenne <C> -> <P>
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 24.1.2002 13:06:05
>Cckova "static" promenna je definovana v globalnim datovem segmentu,
>takze je globalni promennou. Nic na tom nemeni, ze jeji jmeno je ostatnim
>funkcim skryte.
>muze i nemusi byt skryte, viz muj predchozi mail - neprimy pristup k
>lokalnim statickym promennym pres ukazatel
psal jsem o jmenu promenne - ne o jejim obsahu.
D. Toman
XP a security
[*] Pavel ZIDEK <delphi(zv)kopr(tec)cz> - 24.1.2002 13:32:48
> Moja problem spociva v tom ze pracujem na jednom programe na napalovanie
CD
> diskov pod WinXP v inom profile ako Administrator mi to trubi ze nebude
> palit lebo nemam Administratorske prava alebo mam nastavit full access na
> pristup ku napalovacke. Ono by to nebol problem pod W2k lebo tam security
> viem nastavit ale pod WinXP je to nejake strasne skryte. Prosim pomozte mi
Pokud je mi znamo, tak za software typu Windows zodpovida prodejte pocitace.
Vyzkousej je, zda umi odpovedet na tvuj problem
Pavel
ceske znaky a WinNT 4.0
[*] Pavel ZIDEK <delphi(zv)kopr(tec)cz> - 24.1.2002 13:35:05
Mel jsem podobny problem,
1. jsou WinNT 4.0 ceske?
2. Win2000 nema TrueType fonty, nevim jak to ale je na WinNT 4.0. Mozna je
problem v pojmenovani Fontu
> V D5 Prof. na Win2000 otevru novou aplikaci,
> polozim na formular TGraf a do "Title" grafu
> napisu ceske znaky. Pak projekt zkompiluji.
> Na Win2000 se v grafu zobrazi cestina OK,
> ale na WinNT 4.0 jsou ceske znaky pokazene.
Dynamicky Form a events
[*] Milan Tome� <milan.tomes(zv)haida(tec)cz> - 24.1.2002 13:51:01
Tak si vytvor nejaky objekt a do neho dej tu metodu KeyPress, protoze je
deklarovana jako procedure (Sender: TObject; var Key: Char) of object !!!
Napr.:
interface
type
TMyKeyPressObj = class
private
procedure KeyPress(Sender: TObject; var Key: Char);
end;
implementation
procedure TMyKeyPresObj.KeyPress(Sender: TObject; var Key: Char);
begin
case ord(Key) of
VK_Escape: ModalResult := mrCancel;
VK_Return: begin end;
end;
HTH
S pozdravem
Milan Tome�
mailto:Milan.Tomes(zv)haida(tec)cz
> Potrebuji novy form, ktery bude nezvisly na puvodnim Formu, kde
> se spoustel.
>
> Kompilator to nezezere. Co s tim.
> procedure TForm1.SpeedButton1Click(Sender: TObject);
> var
> NewForm: TForm;
> begin
> try
> NewForm := TForm.Create(application);
> ...
> NewForm.KeyPreview := true;
>
> NewForm.OnKeyPress := KeyPress;problem s >FindWindow(nil, nil)
[*] <kuchar(zv)unicodesys(tec)cz> - 24.1.2002 14:12:06
caute,
kdyz jsem spravne pochopil napovedu delphi, tak prikaz
>FindWindow(nil, nil)
by mi mel zjisti vsechny handly otevrenych oken, ale me to porad vyhazuje
jenom hodnotu
jednoho okna, i kdyz jsem to dal do cyklu, co stim, nevite nekdo, nebo jakym
zpusobem zjistit handly vsech oken kdyz neynam jejich titulky.
DIK
ceske znaky a WinNT 4.0
[*] plupinek(zv)synthesia(tec)cz - 24.1.2002 14:17:13
V prvni rade bych zkontroloval service pack, trojka delala s cestinou divy.
S pozdravem
Ing. Petr Lup�nek
datov� komunikacn� syst�my
odbor Informatika
ALIACHEM a.s. o.z SYNTHESIA
tel. 040/6825535
mob. 0602/406235
QReport - vice stranek
[*] Blazek Jaroslav <Jaroslav.Blazek(zv)access-it(tec)cz> - 24.1.2002 14:18:00
Je mozne, ze by me nikdo nenasmeroval?
S pozdravem
Bc. Jaroslav Blazek
Access-IT Ceska Lipa
jaroslav.blazek(zv)access-it(tec)cz
www.access-it(tec)cz
ICQ : 13367373990
+420605/813644
>>> Jaroslav.Blazek(zv)access-it(tec)cz 23.1.02 16:51 >>>
Ahoj,
delam generovane reporty, takze dopredu nevim kolik mam sloupcu. (jedine co znam jsou prvni dva sloupce)
Potreboval bych nejak nakopnout.
Dokazi si dynamicky vlozit QRDBText a rozmistit je na ColumnHeader a DetailBand, vse tiskne v pohode, ale jeli jich vice, uz se zacnou smrstovat a to je nezadouci.
Jakym zpusobem zajistit jako v Excelu posloupnost tisku (prvni 2 sloupce se opakuji)
Page1(Row1,Row2,.......) -> Page11(Row1,Row2,.....)
Page2(Row1,Row2,.......) -> Page21(Row1,Row2,.....)
To by se snad i dalo zvladnout, pamatovat si, ktere jsem tisknul, a ktere ne a projet cyklus znova s tema co se netiskly, ale jak zjistit max(Width) textu jednoho sloupce, abych to mohl poskladat na Band podle podminky, if Sum(VsechSloupcuWidth)>Band.Width
potrebuji neco jako.......
Canvas.TextWidth
Nebo jestli ma nekdo jiny napad, rad ho privitam.....
Diky
S pozdravem
Bc. Jaroslav Blazek
Access-IT Ceska Lipa
jaroslav.blazek(zv)access-it(tec)cz
www.access-it(tec)cz
ICQ : 13367373990
+420605/813644
base64
[*] Sula Milos <milos.sula(zv)oku-su(tec)cz> - 24.1.2002 14:40:47
Cau
muzete mi nekdo poradit jaky typ kodovani pouziva MS Outlook nebo Outlook express pri odesilani zprav ktere jsou kodovany jako base64 ? Mozna tu neco delam spatne ale me to funguje nasledovne:
standartni algoritmus base64 mi zakoduje retezec
���������
jako
ipr46Pjo/fie
ale Outlook mi ho zakoduje jako (v subjektu)
=?iso-8859-2?B?qbn46Pjo/fi+?=
tj. qbn46Pjo/fi+
tak a ted jsem z toho zmateny, podle me to B znamena kodovani base64 ne ?
dik
Milos
Dynamicky Form a events
[*] Jaroslav Bucek <bucek(zv)eskon(tec)cz> - 24.1.2002 14:48:35
Musis to napsat jako metodu:
procedure Form1.KeyPress(Sender: TObject; var Key: Char);
a pridat deklaraci do TForm1
Jarda
> procedure KeyPress(Sender: TObject; var Key: Char);
> begin
> case ord(Key) of
> VK_Escape: ModalResult := mrCancel;
> VK_Return: begin end;
> end;
> end;
ceske znaky a WinNT 4.0
[*] Jaroslav Sipek <jaroslav.sipek(zv)idea(tec)cz> - 24.1.2002 14:53:16
> From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
> Behalf Of Do�ekal Radek
>
> Maji ty NT nastavenu cestinu jako default locale?
>
Dela to jak na anglickych WinNT 4.0, ktere maji nastaveno
Regional Settings na Czech, tak i na ceskych WinNT 4.0.
S pozdravem
Ing. Jaroslav Sipek
IDEA spol. s r.o.
mailto:jaroslav.sipek(zv)idea(tec)cz
http://www.idea(tec)cz
Programove odeslani www formulare a odchyceni odpo
[*] Robert Plz�k <rpvp(zv)vagnerplast(tec)cz> - 24.1.2002 15:03:35
Zdravim odbornici,
chtel bych udelat asi toto:
Kdyz vyplnim nejake udaje do formulare na www strance a zmacknu
nejake to tlacitko [Odeslat], tak to browser odesle a me se zobrazi
stranka s nejakym vysledkem.
Ja bych chtel sam z Delphi odeslat udaje formulare a pochytat
tu stranku s odpovedi...
Nevite nekdo jak na to ?
S �ctou
Robert Plz�k
IT Vagnerplast spol. s r.o.
Tel: +420 312 216 111
ICQ: 71733706
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.317 / Virov� b�ze: 176 - datum vyd�n�: 21.1.2002
handle okna
[*] <kuchar(zv)unicodesys(tec)cz> - 24.1.2002 15:45:00
ale co stim kdyz je okno minimalizovane, nebo neni na popredi
> Za predpokladu ze ti vytvori po spusteni okno na popredi tak handle
> najlahsie odchytis cez getforegroundwindow.
>
base64
[*] Gebauer Lukas <gebylist(zv)mlp(tec)cz> - 24.1.2002 16:02:28
V obou prpadch je pouzito kodovani BASE64, ale to samo o sobe nic
nerika o pouzite kodove strance pro cestinu. (ta se zjevne v obou
pripadech lisi.. u prvniho nevim, u druheho je pouzito ISO-8859-2)
BASE64 je jen zpusob, jk zakodovat libovolna binarni data do textove
podoby. Samo o sobe nijak neresi kodovou stranku znaku!
> muzete mi nekdo poradit jaky typ kodovani pouziva MS Outlook nebo Outlook express pri odesilani zprav ktere jsou kodovany jako base64 ? Mozna tu neco delam spatne ale me to funguje nasledovne:
> standartni algoritmus base64 mi zakoduje retezec
> ���������
> jako
> ipr46Pjo/fie
>
> ale Outlook mi ho zakoduje jako (v subjektu)
> =?iso-8859-2?B?qbn46Pjo/fi+?=
> tj. qbn46Pjo/fi+
>
> tak a ted jsem z toho zmateny, podle me to B znamena kodovani base64 ne ?
-- Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
http://www.ararat(tec)cz/synapse/ - Synapse Delphi and Kylix TCP/IP Lib.XP a security
[*] Robert Suska <robert(zv)korak.sk> - 24.1.2002 16:20:05
> > Moja problem spociva v tom ze pracujem na jednom programe na napalovanie
> CD
> > diskov pod WinXP v inom profile ako Administrator mi to trubi ze nebude
> > palit lebo nemam Administratorske prava alebo mam nastavit full access
na
> > pristup ku napalovacke. Ono by to nebol problem pod W2k lebo tam
security
> > viem nastavit ale pod WinXP je to nejake strasne skryte. Prosim pomozte
mi
>Pokud je mi znamo, tak za software typu Windows zodpovida prodejte
pocitace.
>Vyzkousej je, zda umi odpovedet na tvuj problem
hm... :) nasa firma ich predava myslim tie PC a mne sa vratili PC s "mojim"
softom. :))))
Ale aj tak vdaka za opdoved.
Robo
>
> Pavel
>base64
[*] PeJaSoft <pejasoft(zv)volny(tec)cz> - 24.1.2002 16:38:10
Je to v poradku.
Prvni je opravdu zakodovany Base64, ale ten druhy pripad je jeste v kodovani
ISO-8859-2, takze kdyz to dekodujes a zmenis na WIN1250, tak zase dostanes
puvodni retezec z prvniho prikladu.
S pozdravem
Petr Jarkovsky
pejasoft(zv)post(tec)cz
----- Original Message -----
From: "Sula Milos" <milos.sula(zv)oku-su(tec)cz>
Cau
muzete mi nekdo poradit jaky typ kodovani pouziva MS Outlook nebo Outlook
express pri odesilani zprav ktere jsou kodovany jako base64 ? Mozna tu neco
delam spatne ale me to funguje nasledovne:
standartni algoritmus base64 mi zakoduje retezec
���������
jako
ipr46Pjo/fie
ale Outlook mi ho zakoduje jako (v subjektu)
=?iso-8859-2?B?qbn46Pjo/fi+?=
tj. qbn46Pjo/fi+
tak a ted jsem z toho zmateny, podle me to B znamena kodovani base64 ne ?
dik
Milos
compile versus build na Win98
[*] Martin Schayna <mschayna(zv)aktis(tec)cz> - 24.1.2002 16:52:43
----- Original Message -----
From: "Mephisto" <mephisto(zv)akvila(tec)cz>
> Zkus si ztahnout z netu MemProf je to docela uzitecna vecicka momo jine je
> ti schopna ukazat kde v programu zapominas uvolnovat objekty popripade
> jestli se nahodou neodkazujes na objekty ktere neexistuji. Pokud nastavis
> linker a compiler tak jek je popsano v helpu uvidis primo misto ve
zdrojaku
> kde je chyba. Mozna ti to pomuze.
Bohuzel, pokud je aplikace rozsahla (600 tis.radek kodu), tak ti nepomuze
ani MemProof, protoze vsechno je 1000x pomalejsi... :-<
Martin Schayna
Aktis a.s.
problem s >FindWindow(nil, nil)
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 24.1.2002 16:57:50
> caute,
> kdyz jsem spravne pochopil napovedu delphi, tak prikaz
> >FindWindow(nil, nil)
> by mi mel zjisti vsechny handly otevrenych oken, ale me to porad vyhazuje
> jenom hodnotu
> jednoho okna,
to je spravne chovani. FindWindow najde vzdy jen jedno okno.
Pokud chces prochazet vsechna okna musis pousizt EnumWindows funkce
D. Toman
Dump from COM port to FILE
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 24.1.2002 17:05:51
> > napriklad HyperTerminal z Windows.
> >
> > Petr Vones
> >
> Ja momentalne nemam moznost si to odskusat, ale skusal som to s Casio
diarom
> a diar mi do Hyrterminalu neposlal a hlasil chybu v prenose. Skusal som
> prijat subor aj zachytavat text. Ze by ten moj diar mal nestandartnu
> komunikaciu.
mas tu redukci od Casia na normalni COM port?
Neulads to nahodou na notebooku? Casio redukce prevadi naptove uroivne z
Casia 0..3V (nebo tak nejak) na urovne, ktere stravi PC (COM pracuje
na -11..+11V). Redukce nema aktivni napajeni - vyrabi si jej z vystupu COMu
v PC - takze nemusi pracovat pokud z PC leze min nez +-11V (nektere
notebooky davaji jeni +-5 ci dokonce +-3 V)
D. Toman
Trochu OT - spusteni aplikace na cizim pocitaci
[*] Leos Urban <Leos.Urban(zv)iol(tec)cz> - 24.1.2002 17:12:56
Ahoj,
myslim ze uplne presne tak, jak to pises, to nepujde. Slo by to obracene.
Mit nadupanej pocitac s merakem, k nemu se pripojovat pomoci nejake utility
na vzdalenou administraci (napr. pcAnywhere) ze slabsiho pocitace.
Ja bych sel ale jinudy:
1) definoval protokol prikazu a vracenych vysledku
2) urcil zpusob komunikace (chces asi pres seriovy port)
3) napsal "serverovy" program v C ci Pascalu, ktery by byl maly a obsluhoval
merak, cihal na prikazy a odesilal vysledky
4) napsal v Delphi klienta, ktery by zadaval prikazy a zpracovaval,
eventualne ukladal a vizualizoval vysledky.
Leos
> spustit napr z progarmu napsanem v D5 C/S merici program na jinem pocitaci
> tak, aby vyuzival merici hardware na tom jinem pocitaci a pak uz treba
pres
> comport bych jej ovladal. Asi by se daly pouzit systemy typu Control
Dynamicky Form a events
[*] Martin �ajbik <cajbik(zv)sct.sk> - 24.1.2002 17:20:13
Pretoze tvoje KeyPress nie je metoda objektu ale obycajna procedura.
Musis ju napisat ako metodu, to znamena TNejakyObjekt.KeyPress.
MarCaNT
----- Original Message -----
From: "Pavel ZIDEK" <delphi(zv)kopr(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Thursday, January 24, 2002 12:27 PM
Subject: Re: Dynamicky Form a events
> Potrebuji novy form, ktery bude nezvisly na puvodnim Formu, kde se
spoustel.
>
> Kompilator to nezezere. Co s tim.
>
> procedure KeyPress(Sender: TObject; var Key: Char);
> begin
> case ord(Key) of
> VK_Escape: ModalResult := mrCancel;
> VK_Return: begin end;
> end;
> end;
>
> procedure TForm1.SpeedButton1Click(Sender: TObject);
> var
> NewForm: TForm;
> begin
> try
> NewForm := TForm.Create(application);
> ...
> NewForm.KeyPreview := true;
>
> NewForm.OnKeyPress := KeyPress;
> ....
>
>
>
> > > a zde bych potreboval priradit odchyt klaves
> > > NewForm.OnKeyPress := KeyPress;
> >
> > presne tak, akorat tu proceduru KeyPres uz musis mit
> > napsanou.
> >
>
>Programove odeslani www formulare a odchyceni odpo
[*] Lud�k ZITA <konference(zv)sales(tec)cz> - 24.1.2002 17:39:20
----- Original Message -----
From: "Robert Plz�k" <rpvp(zv)vagnerplast(tec)cz>
> chtel bych udelat asi toto:
> Kdyz vyplnim nejake udaje do formulare na www strance a zmacknu
> nejake to tlacitko [Odeslat], tak to browser odesle a me se zobrazi
> stranka s nejakym vysledkem.
>
> Ja bych chtel sam z Delphi odeslat udaje formulare a pochytat
> tu stranku s odpovedi...
Ahoj.
Pro odeslani pouzij nejake komponenty nebo knihovnu (F.Piette,Synapse,Indy).
V zasade by to melo fungovat tak, ze zavolas :
http://www.adresa(tec)cz/adresascriptu.neco?nazev1=data1&nazev2=data2
kde adresascriptu najdes ve znacce <form action=adresascriptu>
a dale promenne (policka formulare) jako nazev=data najdes
napr. ve znackach <input name="nazev"> pokud si das v prohlizeci zobrazit
zdroj stranky.
Cele to muze samozrejme byt komplikovanejsi zejmena je-li pouzito odesilani
pomoci POST.
(<form ... method="POST"> GET by melo fungovat vzdycky.
Nesmis ale zapomenout prekodovat ten "volaci" string do URL kodovani.
Ludek
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.303 / Virov� b�ze: 164 - datum vyd�n�: 24.11.2001
XP a security
[*] Martin �ajbik <cajbik(zv)sct.sk> - 24.1.2002 17:42:50
Nejde nahodou o Nero ? Na tento ucel je pre neho nieco ako patch.
MarCaNT
----- Original Message -----
From: "Robert Suska" <robert(zv)korak.sk>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Thursday, January 24, 2002 11:01 AM
Subject: XP a security
> Ahojte
>
> Moja problem spociva v tom ze pracujem na jednom programe na napalovanie
CD
> diskov pod WinXP v inom profile ako Administrator mi to trubi ze nebude
> palit lebo nemam Administratorske prava alebo mam nastavit full access na
> pristup ku napalovacke. Ono by to nebol problem pod W2k lebo tam security
> viem nastavit ale pod WinXP je to nejake strasne skryte. Prosim pomozte mi
> ako nastavim Full access ku zariadeniu aj pre napr. Power Usera.
>
> Dufam ze som sa nejako nezaplietol ak ano tak ma vyvedte z omylu.
>
> Dakujem
>
> Robo
>
>XP a security
[*] Ing. Lud�k Florian <Ludek.Florian(zv)bluerose(tec)cz> - 24.1.2002 17:56:42
Cauec,
kamos se s tim taky trapil, ale pod W2K. Tvrdil neco o tom, ze nasel nejakou
odpoved nebo navod, jak to obejit na www.cdr(tec)cz, tak se tam mrkni.
Bye Ludan
> > Moja problem spociva v tom ze pracujem na jednom programe na napalovanie
> CD
> > diskov pod WinXP v inom profile ako Administrator mi to trubi ze nebude
> > palit lebo nemam Administratorske prava alebo mam nastavit full access
na
> > pristup ku napalovacke. Ono by to nebol problem pod W2k lebo tam
security
> > viem nastavit ale pod WinXP je to nejake strasne skryte. Prosim pomozte
mi
Dynamicky Form a events
[*] Ondrej Kelle <O.Kelle(zv)digitalpublishing.de> - 24.1.2002 18:04:44
> Tak si vytvor nejaky objekt a do neho dej tu metodu KeyPress,
> protoze je deklarovana jako
> procedure (Sender: TObject; var Key: Char) of object !!!
>
> Napr.:
>
> interface
>
> type
> TMyKeyPressObj = class
> private
> procedure KeyPress(Sender: TObject; var Key: Char);
> end;
Kedze je to cele vykonavane z metody TForm1.SpeedButton1Click, je zbytocne
vytvarat novu triedu. Staci napisat metodu v TForm1 a priradit ju
NewForm.OnKeyPress:
procedure TForm1.MyKeyPress(Sender: TObject; var Key: Char);
begin
// kod na osetrenie klaves
end;
procedure TForm1.SpeedButton1Click(Sender: TObject);
var
NewForm: TForm;
begin
NewForm := TForm.Create(Application);
try
// inicializacia NewForm
NewForm.OnKeyPress := MyKeyPress;
// Show atd.
finally
NewForm.Free;
end;
end;
V pripade, ak volajuca unita neobsahuje ziadnu triedu, takze nie je poruke
vhodna _metoda_ na priradenie, iba _procedura_, da sa to vyriesit takto:
procedure MyKeyPress(Self: TObject; Sender: TObject; var Key: Char);
begin
// kod na osetrenie klaves
end;
procedure ShowNewForm;
var
NewForm: TForm;
M: TMethod;
begin
NewForm := TForm.Create(Application);
try
// inicializacia NewForm
M.Data := NewForm;
M.Code := (zv)MyKeyPress;
NewForm.OnKeyPress := TKeyPressEvent(M);
// Show atd.
finally
NewForm.Free;
end;
end;
HTH
TOndrej
QReport - vice stranek
[*] Pavel Mattivi <pmattivi(zv)dezadata(tec)cz> - 24.1.2002 18:20:54
ahoj,
myslim ze pokud sou ty jednotlive sloupce alespon priblizne stejne siroke,
muzes pro kazdy QRLabel v Detail bandu nastavit Autosize a pak si precist
jeho Width pri vypisu, nevim jestli to pujde jen me to tak napadlo. Ale
pokud texty ve sloupcich maji rozdilnou delku, snad by bylo resenim zjistit
si nejdelsi vypisovany string, ten si treba vypsat do nejakeho prozatimniho
QRLabelu (caption), z nej si precist Width (samozrejme musi mit zase
autosize) a tuto ziskanou sirku aplikovat na cely sloupec. Zalezi na
mnozstvi zpracocavanych dat, pro mensi mnozstvi by to nemuselo vadit, ale
velke mnozstvi dat by bylo asi dost pomale, protoze pro kazdy sloupec musis
najit nejdelsi retezec.
Takze snad jsem ti aspon trochu pomohl, hodne zdaru a pevne nervy :o)
Pavel Mattivi
Dezadata s.r.o., Valasske Mezirici
http://www.dezadata(tec)cz
pmattivi(zv)dezadata(tec)cz
icq: 66792780
----- Original Message -----
From: Blazek Jaroslav <Jaroslav.Blazek(zv)access-it(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Wednesday, January 23, 2002 4:51 PM
Subject: QReport - vice stranek
> Ahoj,
> delam generovane reporty, takze dopredu nevim kolik mam sloupcu. (jedine
co znam jsou prvni dva sloupce)
> Potreboval bych nejak nakopnout.
> Dokazi si dynamicky vlozit QRDBText a rozmistit je na ColumnHeader a
DetailBand, vse tiskne v pohode, ale jeli jich vice, uz se zacnou smrstovat
a to je nezadouci.
> Jakym zpusobem zajistit jako v Excelu posloupnost tisku (prvni 2 sloupce
se opakuji)
> Page1(Row1,Row2,.......) -> Page11(Row1,Row2,.....)
> Page2(Row1,Row2,.......) -> Page21(Row1,Row2,.....)
>
> To by se snad i dalo zvladnout, pamatovat si, ktere jsem tisknul, a ktere
ne a projet cyklus znova s tema co se netiskly, ale jak zjistit max(Width)
textu jednoho sloupce, abych to mohl poskladat na Band podle podminky, if
Sum(VsechSloupcuWidth)>Band.Width
> potrebuji neco jako.......
> Canvas.TextWidth
>
> Nebo jestli ma nekdo jiny napad, rad ho privitam.....
> Diky
>
>
> S pozdravem
>
> Bc. Jaroslav Blazek
> Access-IT Ceska Lipa
> jaroslav.blazek(zv)access-it(tec)cz
> www.access-it(tec)cz
> ICQ : 13367373990
> +420605/813644
Jak vyplnit a odeslat www formular v delphi?
[*] JIM Design <jim.design(zv)iol(tec)cz> - 24.1.2002 20:08:53
ahoj,
Muzes pouzit komponentu TWebBrowser a do ni pomoci TWebBrowser.Navigate
soupnout pozadovanou sranku. Na formular se dostanes pres IDispatch,pres
ktery lze take formular ovladat (odeslat apod.). Na pochopeni asi bude
nejlepsi mrknout se do zdrojaku teto komponenty.
Jeste lepsi bude mrknout se na
http://www.euromind.com/iedelphi/embeddedwb.htm , kde je na tyto ucely rada
komponent vc. vylepseneho TWebbrowseru.
M.Jirman
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
Behalf Of Robert
Sent: Thursday, January 24, 2002 3:02 PM
To: Delphi
Subject: Jak vyplnit a odeslat www formular v delphi?
Zdravim odbornici,
chtel bych udelat asi toto:
Kdyz vyplnim nejake udaje do formulare na www strance a zmacknu
nejake to tlacitko [Odeslat], tak to browser odesle a me se zobrazi
stranka s nejakym vysledkem.
Ja bych chtel sam z Delphi odeslat udaje formulare a pochytat
tu stranku s odpovedi...
Nevite nekdo jak na to ?
S �ctou
Robert Plz�k
IT Vagnerplast spol. s r.o.
Tel: +420 312 216 111
ICQ: 71733706
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.317 / Virov� b�ze: 176 - datum vyd�n�: 21.1.2002
QReport - vice stranek
[*] JIM Design <jim.design(zv)iol(tec)cz> - 24.1.2002 20:08:55
ahoj,
Asi to nebudes rad slyset ale ja jsem od QR odesel abych vzapeti zjistil ze
sestavy se nejrychleji a bezproblemove delaji v html podobe.
A tak moje rada zni : pokusit se navrhnout sestavu v nejakem page produceru
jako je treba Frontpage a zkusit jestli se neda tvuj problem resit takovymto
zpusobem.
M.Jirman
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
Behalf Of Blazek Jaroslav
Sent: Thursday, January 24, 2002 2:18 PM
Nebo jestli ma nekdo jiny napad, rad ho privitam.....
Diky
Komponenta ktera umi zobrazit Master-detail data
[*] Pesek Michal <Michal.Pesek(zv)MNUL.CZ> - 24.1.2002 20:42:29
Hi,
schanim nejakou db komponentu, ktera by umela v jednom gridu zobrazit
databaze master-detail (neco jako umi brow ve foxce ale bez tech mrizek).
Vysledek by mel vypadat asi takto:
-----------------------------------------------------------------------
| t1.sloupec 1 | t1.sloupec 2 | t1.sloupec 3 | | sloupec X |
-----------------------------------------------------------------------
| t2.sloupec 1 | t2.sloupec 2 |
-----------------------------------------------------------------------
| t2.sloupec 1 | t2.sloupec 2 |
-----------------------------------------------------------------------
| t2.sloupec 1 | t2.sloupec 2 |
-----------------------------------------------------------------------
| t1.sloupec 1 | t1.sloupec 2 | t1.sloupec 3 | | sloupec X |
-----------------------------------------------------------------------
| t2.sloupec 1 | t2.sloupec 2 |
-----------------------------------------------------------------------
| t2.sloupec 1 | t2.sloupec 2 |
-----------------------------------------------------------------------
| t1.sloupec 1 | t1.sloupec 2 | t1.sloupec 3 | | sloupec X |
-----------------------------------------------------------------------
| t2.sloupec 1 | t2.sloupec 2 |
-----------------------------------------------------------------------
| t2.sloupec 1 | t2.sloupec 2 |
-----------------------------------------------------------------------
| t2.sloupec 1 | t2.sloupec 2 |
-----------------------------------------------------------------------
| t2.sloupec 1 | t2.sloupec 2 |
-----------------------------------------------------------------------
| t2.sloupec 1 | t2.sloupec 2 |
-----------------------------------------------------------------------
nevite o necem. Pripadne jak ji naprogramovat.
Diky.
S pozdravem
Michal PEPR Pesek
http://www.peprsoft(tec)cz
Dump from COM port to FILE
[*] Roland Turcan <rolo(zv)sedas.sk> - 24.1.2002 21:04:44
----- Original Message -----
From: "Dalibor Toman" <dtoman(zv)fortech(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Thursday, January 24, 2002 5:05 PM
Subject: Re: Dump from COM port to FILE
> > > napriklad HyperTerminal z Windows.
> > >
> > > Petr Vones
> > >
> > Ja momentalne nemam moznost si to odskusat, ale skusal som to s Casio
> diarom
> > a diar mi do Hyrterminalu neposlal a hlasil chybu v prenose. Skusal som
> > prijat subor aj zachytavat text. Ze by ten moj diar mal nestandartnu
> > komunikaciu.
>
> mas tu redukci od Casia na normalni COM port?
> Neulads to nahodou na notebooku? Casio redukce prevadi naptove uroivne z
> Casia 0..3V (nebo tak nejak) na urovne, ktere stravi PC (COM pracuje
> na -11..+11V). Redukce nema aktivni napajeni - vyrabi si jej z vystupu
COMu
> v PC - takze nemusi pracovat pokud z PC leze min nez +-11V (nektere
> notebooky davaji jeni +-5 ci dokonce +-3 V)
>
> D. Toman
>
Nie mam kabel a soft od toho ceskeho dodavatela braunp(zv)comp(tec)cz , meno
neviem doma mam krabicu. Takze problem bude skor vo formate komunikacie. S
tym softom to ide OK.
Roland.QReport - vice stranek
[*] Petr Fejfar <development(zv)callnet(tec)cz> - 24.1.2002 21:13:59
From: "JIM Design" <jim.design(zv)iol(tec)cz>
> Asi to nebudes rad slyset ale ja jsem od QR odesel abych vzapeti
zjistil ze
> sestavy se nejrychleji a bezproblemove delaji v html podobe.
Jak bych se k tomu pripojil: auto-formatovaci moznosti HTML tabulek
jsou skvele a napr, Baldwinuv tHTMLViewer (www.pbear.com) je umi
vytisknout opravdu WYSIWYG, ne jako ten M$IE <censored>.
Bye, pf
Vytvareni DBF tabulky kopii z predlohy (aka TIP 50
[*] <konference(zv)fdsystem(tec)cz> - 24.1.2002 21:19:25
Tady se musi zjistit jake verze DBF proti sobe se vytvari,
starsi verze III+ a jine neobsahuji nektere typy polozek.
Jinak timto zpusobem se vytvori aktu�ln� verze, kter� je nastaven� v BDE,
ale velikost ciselnych polozek nelze ovlivnit.
Vzhledem k tomu, ze se tam nezadava velikost pred a za desetinou carkou,
BDE tam dosadi vzdycky maximalni velikost pro zvoleny field.
Jestli je potreba udelat jinou verzi tabulek dBase nez je default,
musi se to delat pres api BDE viz priklad na tvorbu tabulky FOXPRO,
tam lze ovlivnit i velikost ciselnych fieldu.
Tomas Konsal
Dump from COM port to FILE
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 24.1.2002 22:05:54
> > > >
> > > Ja momentalne nemam moznost si to odskusat, ale skusal som to s Casio
> > diarom
> > > a diar mi do Hyrterminalu neposlal a hlasil chybu v prenose. Skusal
som
> > > prijat subor aj zachytavat text. Ze by ten moj diar mal nestandartnu
> > > komunikaciu.
Pokud chces ulozit komunikace z Casia tak je Hyperterminal k nicemu (nedoslo
mi to hned).
Diar pouziva komunikaci stylem - povel, odpoved. data jsou balena do packetu
a ty se potvrzuji.
Hyperterminal samozrejme nic nepotvrzuje (nezna ani ten protokol) takze
komunikace
nepobezi. Kdysi jsem se pokousel tenhle protokol rozlousknout (bezne povely
nebyl problem) a
k odposlechu komunikace jsem pouzil kabel, ze ktereho jsem odbocil k
odposlechu TX z RX a zavedl
je na dalsi dva COMy.
D. Toman
Dump from COM port to FILE
[*] Vaclav Krmela <krmela(zv)ustinadorlici(tec)cz> - 24.1.2002 22:13:10
> From: Roland Turcan
> Ja momentalne nemam moznost si to odskusat, ale skusal som to s
> Casio diarom
> a diar mi do Hyrterminalu neposlal a hlasil chybu v prenose. Skusal som
> prijat subor aj zachytavat text. Ze by ten moj diar mal nestandartnu
> komunikaciu.
Nevim, co myslis nestandardni komunikaci.
Nekdy v roce 94 jsem si delal jeste v BPW
program na komunikaci s diarem Casio.
Pokud si to dobre pamatuji, tak prijimajici strana
musi porvrdit navazani spojeni, jinak se data neodeslou.
Stejne tak musi potvrdit prijem kazdeho zaznamu samostatne.
Pres hyperterminal Casio asi komunikovat nebude.
Vaclav Krmela
Dump from COM port to FILE
[*] Volny <valentapat(zv)volny(tec)cz> - 25.1.2002 01:06:55
zkus tohle....
http://www.kastini(tec)cz/svd/prog/detail.php3?id=40
Zadokovani formulare z DLL
[*] Ing. Pavel Hojda <hojda(zv)marbes(tec)cz> - 25.1.2002 07:24:10
To sice funguje, ale je treba na klienta na kopirovat veschny potrebne
balicky. Neslo by to resit jinak bez techto balicku??
Diky
PH
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
Behalf Of Ondrej Kelle
Sent: Thursday, January 24, 2002 10:14 AM
To: 'delphi-l(zv)clexpert(tec)cz'
Subject: RE: Zadokovani formulare z DLL
> Zdravim,
> potreboval bych zadokovat formular z DLL knihovny do
> formulare aplikace,
> ktera DLL knihovnu spusti. Nevite nekdo jak na to?
Malo by pomoct prekompilovat oba projekty s runtime packages. Pripadne si
urob z tej DLL runtime package.
HTH
TOndrej
Export do DXF; potomek tCanvas?
[*] Tomas Rosa <trosa(zv)seznam(tec)cz> - 25.1.2002 07:55:42
Potomek TCanvasu, nebo wrapper je rozhodne dobry protoze je to Vas kod a
Vase metody ktere se volaji. Ne nejaky WMF format, ktery se musite naucit
rozlousknout a hlavne muze se take verzi od verze lisit. Ja podobne mam
nacaty export do PDF -> taky pres TCanvas a jeho potomka.> > Nenapada Vas nekoho nejaka elegantni metoda, jak to vyresit?
> > Jde mi o to, aby kazdy z objektu, ktere v aplikaci mam,
> > nemusel krome jedne metody kreslici na tCanvas obsahovat
> > jeste druhou metodu, ktera by delala v podstate totez, ale do
> > DXF...
>
>A proc si neudelat wrapper objekt, ktery bude napodobovat
>rozhrani TCanvasu a zapisovat zaroven do skutecneho canvasu
>a do DXF?
S pozdravem
Tomas Rosa
------------------------=[ pinknet on every screen ]=----------------------
Tomas Rosa
Tomas.Rosa(zv)PinkNet(tec)cz
Contact me via EFFATA.NET, my EID: trosa(zv)effata.net
PinkNet Web Server for Win32 - FREEWARE http://pnws.pinknet(tec)cz/
---------------------------------------------------------------------------
handle okna
[*] Peter <peter(zv)baris.sk> - 25.1.2002 08:33:26
potom Musis prejst cez vsetky okna a cez GetClassName zistis nazov clasuu
.... a ten uz nie je problem zistit staci pustit napr winsight ktory sa
dodava z delphami
----- Original Message -----
From: <kuchar(zv)unicodesys(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Thursday, January 24, 2002 3:45 PM
Subject: Re: handle okna
> ale co stim kdyz je okno minimalizovane, nebo neni na popredi
>
> > Za predpokladu ze ti vytvori po spusteni okno na popredi tak handle
> > najlahsie odchytis cez getforegroundwindow.
> >
>Zistovanie typu dat v databaze ... (SQL)
[*] Tom� Kon�al������jO�y���� - 25.1.2002 08:38:02
Pres SQL - to zalezi na jednotlive SQL datab�zi. Jestli vyuzivas BDE
tak to zkus pres nej.
uses BDE;
procedure test;
var
Props: CURProps;
pFlds : pFLDDesc;
pRecBuf: pBYTE;
i : Integer;
FieldList : STRING;
begin
table1.open;
Check(DbiGetCursorProps(Table1.Handle, Props));
pFlds := AllocMem(Props.iFields * sizeof(FLDDesc));
pRecBuf := AllocMem(Props.iRecBufSize * sizeof(BYTE));
try
Check(DbiGetFieldDescs(Table1.Handle, pFlds));
I := 0;
while (i < Props.iFields) do begin
case pFlds.iFldType of
fldFLOAT ,fldINT16,fldINT32, fldUINT32 : FieldList := FieldList +
Format('%d - %s,VELIKLOST pred des carkou %d ,VELIKLOST za descarkou %d
'#13#10,[pFlds^.iFldNum, pFlds^.szName,pFlds^.iUnits1,pFlds^.iUnits2 ])
else
FieldList := FieldList + Format('%d - %s,VELIKLOST %d
'#13#10,[pFlds^.iFldNum, pFlds^.szName,pFlds^.iLen-1]);
end;
inc(pFlds);
inc(i);
end;
showmessage(FieldList);
FINALLY
FreeMem(pRecBuf, Props.iRecBufSize * sizeof(BYTE));
END;
end;
Spozdravem
Tom� Kon�al
----- Original Message -----
From: "Slavom�r �eke�" <cekel(zv)noves.sk>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Thursday, January 24, 2002 7:32 AM
Subject: Zistovanie typu dat v databaze ... (SQL)
Potreboval by som zistit akeho typu je nejaka polozka v databaze ...
napr. nejakym SQL prikazom ...
priklad: mam nejaku databazu, ktora ma polozku CISLO, chcem, aby moj
soft zistil akeho typu a rozmeru je CISLO, teda aby mi vratil napriklad,
ze CISLO je typu NUMBER(12,2) atd.
Da sa to vobec ?
Slavo
ceske znaky a WinNT 4.0
[*] Jaroslav Sipek <jaroslav.sipek(zv)idea(tec)cz> - 25.1.2002 08:54:06
> [mailto:delphi-l-owner(zv)clexpert(tec)cz]On Behalf Of Tomas Rosa
> Sent: Thursday, January 24, 2002 12:58 PM
>
> Zkus nastavit charset na EASTERN a ne DEFAULT ci OEM !!!
>
> > nevite nekdo jak vyresit nasledujici problem.
> > > V D5 Prof. na Win2000 otevru novou aplikaci,
> > > polozim na formular TGraf a do "Title" grafu
> > > napisu ceske znaky. Pak projekt zkompiluji.
> > > Na Win2000 se v grafu zobrazi cestina OK,
> > > ale na WinNT 4.0 jsou ceske znaky pokazene.
Samotne nastaveni charset na EASTEUROPE_CHARSET u nekterych
fontu nepomohlo. Ale pokud jsem zvolil font "MS Sans Serif", tak to
funguje dobre. Koukal jsem se jak je to s nastavenim charsetu u
tohoto fontu, a zde lze nastavit pouze EASTEUROPE_CHARSET.
Pokud tedy mate nekdo problemy s fontama na WinNT 4.0
a nemusite mit nutne nektery konktretni font, pouzjte "MS Sans Serif".
S pozdravem
Ing. Jaroslav Sipek
IDEA spol. s r.o.
mailto:jaroslav.sipek(zv)idea(tec)cz
http://www.idea(tec)cz Cached Updates + Filtered
[*] Jirka <W.Jirka(zv)seznam(tec)cz> - 25.1.2002 09:09:07
Ahoj vsem
Mam nasledujici problem:
U TIBQuery mam nastaveno CachedUpdates.
Pokud do teto Query vkladam nove radky a chci je profiltrovat jeste
predtim nez se provede ApplyUpdates tak mi nove vlozene radky zmizi.
Filtrovani provadim v udalosti OnFilterRecord a vyvolavam ho nastavenim
Filtered -> False -> True
Dival jsem se do zdrojaku a vycetl jsem tam, ze Query provadi pri zmene Filtered
Close -> Open.
Tim je mi jasne proc se ty nove radky ztrati, jak to ale udelat jinak?
Predem diky za jakykoliv napad.
Jirka
ceske znaky a WinNT 4.0
[*] Milan Blazek <mbsint(zv)telecom(tec)cz> - 25.1.2002 09:32:06
Zdravim,
take mam potize s ceskyma fontama na WIN2000 (server anglicka verze).
Potreboval bych
vysvetlit a poradit, proc cast aplikace zobrazuje fonty spravne a na jinem
miste stejne aplikace
jsou fonty zmrsene. Chapu variantu, ze je problem s nekterym typem fontu a s
jinym to je OK, ale
pokud se jedna o cizi aplikaci, tak nemam moznost menit fonty.
Obdobny problem je i se zobrazenim vlastnich dat v MS SQL2000.
Jak se daji jednoznacne nastavit okna WIN2000 tak, aby vse fungovalo OK.
Predem diky za jakoukoliv radu.
M.Blazek
----- Original Message -----
From: "Jaroslav Sipek" <jaroslav.sipek(zv)idea(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Friday, January 25, 2002 8:54 AM
Subject: RE: ceske znaky a WinNT 4.0
> > [mailto:delphi-l-owner(zv)clexpert(tec)cz]On Behalf Of Tomas Rosa
> > Sent: Thursday, January 24, 2002 12:58 PM
> >
> > Zkus nastavit charset na EASTERN a ne DEFAULT ci OEM !!!
> >
> > > nevite nekdo jak vyresit nasledujici problem.
> > > > V D5 Prof. na Win2000 otevru novou aplikaci,
> > > > polozim na formular TGraf a do "Title" grafu
> > > > napisu ceske znaky. Pak projekt zkompiluji.
> > > > Na Win2000 se v grafu zobrazi cestina OK,
> > > > ale na WinNT 4.0 jsou ceske znaky pokazene.
>
> Samotne nastaveni charset na EASTEUROPE_CHARSET u nekterych
> fontu nepomohlo. Ale pokud jsem zvolil font "MS Sans Serif", tak to
> funguje dobre. Koukal jsem se jak je to s nastavenim charsetu u
> tohoto fontu, a zde lze nastavit pouze EASTEUROPE_CHARSET.
> Pokud tedy mate nekdo problemy s fontama na WinNT 4.0
> a nemusite mit nutne nektery konktretni font, pouzjte "MS Sans Serif".
>
> S pozdravem
> Ing. Jaroslav Sipek
> IDEA spol. s r.o.
> mailto:jaroslav.sipek(zv)idea(tec)cz
> http://www.idea(tec)cz
>WNetAddConnection2
[*] Peter Vlkovic <vlkovic(zv)minv.sk> - 25.1.2002 10:05:47
Ahoj,
v programe pouzivam funkciu WNetAddConnection2 na zdielanie
sietovych zdrojov, ktore po skonceni programu uvolnujem
volanim WNetCancelConnection2.
Na staniciach s Windows 9x mi program funguje bez problemov,
ak vsak bezi na Windows NT 4.0, tak po skonceni programu
ostane zdielany sietovy prostriedok neuvolneny.
Pri novom spusteni mojho programu a pokuse zdielat tento
prostriedok mi potom funkcia WNetAddConnection2 stale
vracia chybu.
Jedine riesenie je potom bud reset pocitaca, ku ktoremu som
sa predtym pripajal alebo manualne odpojenie pripojeneho
uzivatela na tomto sietovom pocitaci pomocou programu
NetWatch.exe
Nestretol sa niekto s niecim podobnym.
Za pripadne rady alebo pomoc vdaka.
Vlkovic
ceske znaky a WinNT 4.0
[*] Jaroslav Sipek <jaroslav.sipek(zv)idea(tec)cz> - 25.1.2002 10:05:22
> From: delphi-l-owner(zv)clexpert(tec)cz
> [mailto:delphi-l-owner(zv)clexpert(tec)cz]On Behalf Of Milan Blazek
> take mam potize s ceskyma fontama na WIN2000 (server anglicka verze).
> Potreboval bych vysvetlit a poradit, proc cast aplikace zobrazuje fonty
> spravne a na jinem miste stejne aplikace jsou fonty zmrsene.
To bude zrejme tim, ze aplikace nepouziva jeden spolecny font,
ale kazdy formular, kazdy label, edit atd. muze mit nastaveny
svuj vlastni font.
> Chapu variantu, ze je problem s nekterym typem fontu a s jinym to je OK,
> ale pokud se jedna o cizi aplikaci, tak nemam moznost menit fonty.
V pripade cizi aplikace je jedinym resenim prizpusobit operacni system tak,
aby vyhovoval aplikaci, tj. doinstalovat do anglickych windowsu podporu
pro narodni prostredi, popr. konkretni fonty.
> Jak se daji jednoznacne nastavit okna WIN2000 tak, aby vse
> fungovalo OK.
Na toto asi neexistuje jednoznacna odpoved. Obavam se, ze nastaveni
OS, ktere vyhovuje jedne aplikaci nemus� vyhovovat jin� aplikaci.
Pokud je v aplikaci pouzit font, ktery dany opracni system nepodporuje,
tak zadny nastavovani OS nepomuze.
S pozdravem
Ing. Jaroslav Sipek
IDEA spol. s r.o.
mailto:jaroslav.sipek(zv)idea(tec)cz
http://www.idea(tec)cz
QReport - vice stranek
[*] Blazek Jaroslav <Jaroslav.Blazek(zv)access-it(tec)cz> - 25.1.2002 10:17:02
Ahoj pokud by to nekoho jeste zajimalo neco malo jsem nasel na moje otazky.
http://www.qusoft.com/getfile.asp?level=0&Filename=KBA4.PDF
a zatim skvele vypadajici reporty jsou zde.......nemam je prostudovany, jen jsem je skouknul. (jsou FreeWare with Source)
www.torry.net/vcl/reports/reportenhancements/preport.zip
S pozdravem
Bc. Jaroslav Blazek
Access-IT Ceska Lipa
jaroslav.blazek(zv)access-it(tec)cz
www.access-it(tec)cz
ICQ : 13367373990
+420605/813644
>>> Jaroslav.Blazek(zv)access-it(tec)cz 23.1.02 16:51 >>>
Ahoj,
delam generovane reporty, takze dopredu nevim kolik mam sloupcu. (jedine co znam jsou prvni dva sloupce)
Potreboval bych nejak nakopnout.
Dokazi si dynamicky vlozit QRDBText a rozmistit je na ColumnHeader a DetailBand, vse tiskne v pohode, ale jeli jich vice, uz se zacnou smrstovat a to je nezadouci.
Jakym zpusobem zajistit jako v Excelu posloupnost tisku (prvni 2 sloupce se opakuji)
Page1(Row1,Row2,.......) -> Page11(Row1,Row2,.....)
Page2(Row1,Row2,.......) -> Page21(Row1,Row2,.....)
To by se snad i dalo zvladnout, pamatovat si, ktere jsem tisknul, a ktere ne a projet cyklus znova s tema co se netiskly, ale jak zjistit max(Width) textu jednoho sloupce, abych to mohl poskladat na Band podle podminky, if Sum(VsechSloupcuWidth)>Band.Width
potrebuji neco jako.......
Canvas.TextWidth
Nebo jestli ma nekdo jiny napad, rad ho privitam.....
Diky
S pozdravem
Bc. Jaroslav Blazek
Access-IT Ceska Lipa
jaroslav.blazek(zv)access-it(tec)cz
www.access-it(tec)cz
ICQ : 13367373990
+420605/813644
manipulace s LED a zamknuti klavesnice
[*] Milan ��ek <Cizek.Milan(zv)seznam(tec)cz> - 25.1.2002 10:21:39
ahoj,
1) je mozne ovladat LED diody na klavesnici, ve smyslu
"rozsvit/zhasni", aniz bych musel klavesnici prepnout do pozadovaneho
stavu (SetKeyBoardState)? Myslim tim, ze pri rozsvicenem/blikajicim
capslocku budu psat stale malymi pismeny.
2) da se nejakym zpusobem uzamknout klavesnice s vyjimkou nejake
kombinace (HotKey)? Potrebuji to pro cele Win.
S pozdravem Milan Cizek, amatersky programator, D5 Ent (SP1), D6 Ent
Win2k (SP2,Pre-SP3) a Win98 SE, cizek.milan(zv)seznam(tec)cz, ICQ:
59826637
______________________________________________________________________
E-mail zdarma na cely zivot: http://email.seznam(tec)cz
ID procesu
[*] Dusan <Dusan.Nagy(zv)alcatel.sk> - 25.1.2002 10:39:10
Ako zistim ID procesu ked poznam jeho exe subor.Dump from COM port to FILE
[*] Roland Turcan <rolo(zv)sedas.sk> - 25.1.2002 10:40:26
----- Original Message -----
From: "Dalibor Toman" <dtoman(zv)fortech(tec)cz>
Sent: Thursday, January 24, 2002 10:05 PM
> > > > >
> > > > Ja momentalne nemam moznost si to odskusat, ale skusal som to s
Casio
> > > diarom
> > > > a diar mi do Hyrterminalu neposlal a hlasil chybu v prenose. Skusal
> som
> > > > prijat subor aj zachytavat text. Ze by ten moj diar mal nestandartnu
> > > > komunikaciu.
>
> Pokud chces ulozit komunikace z Casia tak je Hyperterminal k nicemu
(nedoslo
> mi to hned).
Ja som nevedel ze je rozdiel komunikacie Casia a inych beznych zariadeni,
Preto som si myslel ze ako zariadenie na simulovanie toho stroja mozem
pouzit diar. Ale moj zamer je ocitat udaje z balickovacieho stroja a ten
nemozem zobrat z vyroby a keby aj, do kancelarie by sa mi nezmestil :-);
Roland.
SELECT SUM(double) ...
[*] "Jakub �r�mek" - 25.1.2002 11:05:56
Ahoj,
mam tabulku, ze ktere zjistuji pro nejake podminky sumu pole typu
Double. Hodnoty uvedene v tomto poli maji maximalne tri desetinna mista.
Vysledna suma ma ale napriklad nasledujici tvar 699.300000000002. A to
potrebuju to odstranit na tvar 699.3, ktery je spravny. Ale nevim ja toho
dosahnout.
Dik, Jakub.handle okna
[*] Dusan <Dusan.Nagy(zv)alcatel.sk> - 25.1.2002 11:07:06
Pouzi winsight a tam najdes nazov popisu okna ak je prazdny v procedure
findwindow(class,nil);
kuchar(zv)unicodesys(tec)cz wrote:
> ale co stim kdyz je okno minimalizovane, nebo neni na popredi
>
> > Za predpokladu ze ti vytvori po spusteni okno na popredi tak handle
> > najlahsie odchytis cez getforegroundwindow.
> >ID procesu
[*] <kuchar(zv)unicodesys(tec)cz> - 25.1.2002 11:16:52
tady mas na to funkci
> uses TLHelp32;
>function FindProcessID(ModuleName: String): DWORD;
>var SnapProcHandle: THandle;
> ProcessEntry: TProcessEntry32;
> Next: Boolean;
>begin Result := 0;
> SnapProcHandle := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
> if SnapProcHandle <> THandle(-1) then
> begin ProcessEntry.dwSize := Sizeof(ProcessEntry);
> Next := Process32First(SnapProcHandle, ProcessEntry);
> while Next do
> begin If AnsiLowerCase(ExtractFileName(ProcessEntry.szExeFile))
=
> AnsiLowerCase(ModuleName) then Result :=
ProcessEntry.th32ProcessID;
> Next := Process32Next(SnapProcHandle, ProcessEntry);
> end;
> CloseHandle(SnapProcHandle);
> end;
>end;> Ako zistim ID procesu ked poznam jeho exe subor.
>
>Dump from COM port to FILE
[*] Radek Cervinka <radek.cervinka(zv)centrum(tec)cz> - 25.1.2002 11:19:38
> Nie mam kabel a soft od toho ceskeho dodavatela braunp(zv)comp(tec)cz , meno
> neviem doma mam krabicu. Takze problem bude skor vo formate komunikacie. S
> tym softom to ide OK.
>
Zkus tu komunikaci odposlechnout u toho originalniho programu.
Nejlepsi je na to PortMon od SysInternals.com (a nepotrebujes zadnej dalsi
HW).
No a pak tu komunikaci jednoduse budes implementovat.
Radek
Logovani uloh z Task manageru
[*] jtomecek <jtomecek(zv)dezadata(tec)cz> - 25.1.2002 11:33:27
Jak mohu, prosim logovat ulohy z task manageru (win 98)?
Diky.SELECT SUM(double) ...
[*] ing. Pavel �ilinec����)b���zf���3 - 25.1.2002 11:58:46
Sice jsi nenapsal, o jakou databazi jde, ale na SQL bych si napsal
select convert(money, sum(double)), pze Money ma max. 4 des. mista
------
ing. Pavel �ilinec
mailto:zilinec(zv)email(tec)cz
25.1.2002 ""Jakub �r�mek"\
\
<jsramek(zv)kodys(tec)cz>":
> Ahoj,
> mam tabulku, ze ktere zjistuji pro nejake podminky sumu pole typu
> Double. Hodnoty uvedene v tomto poli maji maximalne tri desetinna mista.
> Vysledna suma ma ale napriklad nasledujici tvar 699.300000000002. A to
> potrebuju to odstranit na tvar 699.3, ktery je spravny. Ale nevim ja toho
> dosahnout.
SELECT SUM(double) ...
[*] Kalhous Zdenek <zdenek.kalhous(zv)comarr(tec)cz> - 25.1.2002 12:05:50
On 25 Jan 2002, at 11:05, Jakub �r�mek wrote:
> 699.300000000002. A to potrebuju to odstranit na tvar 699.3, ktery je
> spravny. Ale nevim ja toho dosahnout.
CAST AS nepomuze?
Z.Kalhous
TIBLogService.GetNextChunk ?
[*] Roland Turcan <rolo(zv)sedas.sk> - 25.1.2002 12:08:56
Ahojte!
Co sa stalo s TIBLogService.GetNextChunk, lebo zahlasi chybu a v logu
servera je:
SERVER (Client) Fri Jan 25 12:03:28 2002
F:\Program Files\Borland\InterBase\bin\ibserver.exe: terminated abnormally
(-1)
Nepostrehol som od kedy to prestalo fungovat, ale teraz som to prerobil na
GetNextLine a to ide, ale pomalsie.
Ako neumieram koli tomu, len ma zaujima preco to prestalo fungovat.
Dakujem a ostavam s pozdravom
Roland Turcan - amatersky programator
D5ProSP1, Firebird 1.0RC2, IBX4.63, Win2000Pro/CZ, Win98CZSE
compile versus build na Win98
[*] Karel Kral <kralkonf(zv)purus(tec)cz> - 25.1.2002 12:24:27
Tohle se mi stavalo, kdyz jsem mel u dcu nebo pas spatne datum, takze
nektere jednotky se nikdy neprekladaly. Zkousel jsi vymazat prislusne
dcu, abys zjistil, ze se to opravdu preklada?
"Ka.Kewasa" wrote:
>
> Ahoj,
>
> mam problem s prekladem pod Win98. Pokud udelam jen compile (cca 8 sec),
> program se zrejme spatne slinkuje a i pri opakovanych spoustenich
> prelozeneho exe hlasi chybu access violation. Kdyz to spoustim z IDE tak to
> ohlasi pod acess chyby thread synchronization. Musim udelat build (cca 50
> sec).
> Pod Win2000 nic takoveho nepozoruji. Cim to muze byt? Doba mezi compile a
> build je pro mne nezanedbatelna.
>
> Diky
>
> Ka.
--
______________________________________________________
Karel Kral, informatik
Purus, s.r.o., Cezavy 627, 664 56 Blucina, CZ
Tel: 05/47235000, 0602/552432, Fax: 05/47231203
E-Mail: mailto:kral(zv)purus(tec)cz, WWW: http://www.purus(tec)cz
______________________________________________________
Komunikace s mobilem
[*] Rumcajs <prajz.rumcajs(zv)quick(tec)cz> - 25.1.2002 14:00:38
Servus vsem,
nevite nekdo, kde bych sehnal informace o moznosti
komunikace mobilu s PC?Jak zjistit z *.dll fce i s parametry
[*] <aldik(zv)quick(tec)cz> - 25.1.2002 14:04:38
fce zjistit umim,to jsem nasel jak se dela,ale jak zjistim i parametry pro fci??
Nejak to nemuzu najit:-)) Neporadite mi nekdo? Je to legalni pouzit cizi *.
dll?
Ales Pavel
W2000 D5 Ent
Jak zjistit z *.dll fce i s parametry
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 25.1.2002 14:59:35
From: <aldik(zv)quick(tec)cz>
> fce zjistit umim,to jsem nasel jak se dela,ale jak zjistim i parametry pro
> fci??
Ahoj,
pouze z dokumentace k te DLL, primo z toho souboru to nezjistis nijak.
Petr Vones
Zadokovani formulare z DLL
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 25.1.2002 15:01:23
From: "Ing. Pavel Hojda" <hojda(zv)marbes(tec)cz>
> To sice funguje, ale je treba na klienta na kopirovat veschny potrebne
> balicky. Neslo by to resit jinak bez techto balicku??
Neslo, protoze tridy ktere pouziva dane EXE a DLL musi byt umisteny na jednom
miste, a tim mistem jsou balicky. Pokud je nepouzijes tak dochazi logicky k
situaci kde napriklad EXE.TControl <> DLL.TControl
Petr Vones
SMS prez HTTP na Paega (aneb tesne pred skokem z o
[*] Robert Plz�k <rpvp(zv)vagnerplast(tec)cz> - 25.1.2002 15:10:43
Help...
Muzete mi nekdo poslat kousek zdrojaku, kde je videt jak protlacim
SMSku na Paegas telefon pres HTTP. Zkousel jsem NMHTTP a IdHTTP ale
jsem nejak mimo :o)
Zoufalec
R. Plz�k
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.317 / Virov� b�ze: 176 - datum vyd�n�: 21.1.2002
Jak zjistit z *.dll fce i s parametry
[*] Kaka�ka Pavol <kakacka(zv)proca(tec)cz> - 25.1.2002 15:53:07
From: <aldik(zv)quick(tec)cz>
> fce zjistit umim,to jsem nasel jak se dela,ale jak zjistim i parametry pro
fci??
> Nejak to nemuzu najit:-)) Neporadite mi nekdo? Je to legalni pouzit cizi
*.
> dll?
Obavam sa ze toto nie je mozne.
Kaka�ka Pavol
KasiX(zv)atlas(tec)cz
Jak zjistit z *.dll fce i s parametry
[*] Kaka�ka Pavol <kakacka(zv)proca(tec)cz> - 25.1.2002 15:57:20
From: <aldik(zv)quick(tec)cz>
> fce zjistit umim,to jsem nasel jak se dela,ale jak zjistim i parametry pro
fci??
> Nejak to nemuzu najit:-)) Neporadite mi nekdo? Je to legalni pouzit cizi
*.
> dll?
a co sa legalnosti tyka tak to sa vztahuje na kazdy produkt individualne.
Resp. inak: Ak postavis soft ktory pouziva nejake dll ktore zakaznik nema a
ty ho nemozes sirit si nahrany. Takze musis to urobit tak aby si to dll
mohol sirit a k tomu uz potrebujes suhlas vlastnika dll ake neni uvdene inak
v zavislorti na licencii pod ktorou je produkt ci samotne dll sirene.
Kaka�ka Pavol
KasiX(zv)atlas(tec)cz
Dotaz zacatecnika s DLL
[*] Ing. Ji�� SOKOL <JS-delphi(zv)seznam(tec)cz> - 25.1.2002 16:32:11
Zdravim,
chtel bych zacit pouzivat DLL knihovny,ale jeste jsem to nedelal.
Nebyl by nekdo z vas ochoten uvest priklad treba jak rozbalim soubor zabaleny
a zaheslovany v raru a overim,jestli vse slo ok? (s pouzitim knihovny unrar.dll)
Proc: naucim se poslat pozadavky, najit si patricne fce, pockat na dokonceni
fce a pouzit vysledek vybrane fce.
Myslim,ze to je urcite zaklad a jako priklad me nic lepsiho nenapadlo.
Jestli mi to ukazete na jinem prikladu, tak to pochopitelne uvitam.
Dekuji
Jirka
______________________________________________________________________
Vylepsete svuj prohlizec Internetu na http://software.seznam(tec)cz/listicka
Stack tracer
[*] Ivan Z <izernovac(zv)zoznam.sk> - 25.1.2002 15:49:31 ut
Pozna niekto nejaky dobry free stack tracer?
-I
SMS prez HTTP na Paega (aneb tesne pred skokem z o
[*] Jakub Dusek <jdev(zv)seznam(tec)cz> - 25.1.2002 16:54:35
NMHTTP je slepa ulicka, je nanic, orezava radek hlavicky na 256 znaku, cili
url i s vygenerovanym klicem se tam u Paegase nevejde... S Indy by to melo
fungovat ok. Kousek zdrojaku nemam, protoze na to pouzivam svuj univerzalni
odesilac formularu, cili me konkretni pripady bran nemusi zajimat. Obecne je
nutne nastavit spravne referera a user-agent, jinak me ted nenapadaji zadne
dalsi konkretni problemy na jake jsem narazil...
Jakub Dusek
-------------------------------------------
Homepage : http://dusek.zde(tec)cz
Phone : +420604615795
Sms email : jakub.dusek(zv)click(tec)cz
Icq : 86063232
Apps : Add/Remove Manager, Charmaper,
Sms GateKeeper
-------------------------------------------
----- Original Message -----
From: "Robert Plz�k" <rpvp(zv)vagnerplast(tec)cz>
To: "Delphi" <delphi-l(zv)clexpert(tec)cz>
Sent: Friday, January 25, 2002 3:10 PM
Subject: SMS prez HTTP na Paega (aneb tesne pred skokem z okna :o)> Help...
>
> Muzete mi nekdo poslat kousek zdrojaku, kde je videt jak protlacim
> SMSku na Paegas telefon pres HTTP. Zkousel jsem NMHTTP a IdHTTP ale
> jsem nejak mimo :o)
>
> Zoufalec
> R. Plz�k
>
> ---
> Odchoz� zpr�va neobsahuje viry.
> Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
> Verze: 6.0.317 / Virov� b�ze: 176 - datum vyd�n�: 21.1.2002
>
>vraceni komponent z dll
[*] Roman <sw.maurice(zv)seznam(tec)cz> - 25.1.2002 18:16:33
Ahoj,
resim (import/export) synchronizaci adresare firem v me aplikaci s jinymi
adresari (outlook,excel,odbc,ucetnictvi). Chci na to pouzit nekolik dll,
kazda bude obsahovat potrebne funkce jako open, readrec, writerec, close.
Kazda z tech dll by mela mit jeste nejake svoje nastaveni (napr. cesta k
souboru dat, heslo, prirazeni jednotlivych sloupcu). Moje predstava je:
napr. uzivatel v listboxu vybere zdroj dat Excel a vedle se objevi panel s
editboxy pro zadani cesty, hesla. Zadane hodnoty se pak ulozi nekam do ini,
ktere je ve slozce s dll.
Jak mam takovy panel s komponentama (dokovany formular), ktery je umisteny v
dll, predat do sve aplikace a umistit ho do formulare? Nebo jde to resit
nejak lip?
Dik
Roman
- - - - - - - - - - - - - - - - - - - - -
http://kouzelne.misto(tec)cz/
vraceni komponent z dll <- doplneni
[*] Roman <sw.maurice(zv)seznam(tec)cz> - 25.1.2002 19:27:17
A kdyby to slo bez balicku :-) ... jsou "moc" delphi, chtel bych
univerzalnejsi reseni, nebo snad muzu v C napsat BPL?
> Ahoj,
> resim (import/export) synchronizaci adresare firem v me aplikaci s jinymi
> adresari (outlook,excel,odbc,ucetnictvi). Chci na to pouzit nekolik dll,
> kazda bude obsahovat potrebne funkce jako open, readrec, writerec, close.
> Kazda z tech dll by mela mit jeste nejake svoje nastaveni (napr. cesta k
> souboru dat, heslo, prirazeni jednotlivych sloupcu). Moje predstava je:
> napr. uzivatel v listboxu vybere zdroj dat Excel a vedle se objevi panel s
> editboxy pro zadani cesty, hesla. Zadane hodnoty se pak ulozi nekam do
ini,
> ktere je ve slozce s dll.
>
> Jak mam takovy panel s komponentama (dokovany formular), ktery je umisteny
v
> dll, predat do sve aplikace a umistit ho do formulare? Nebo jde to resit
> nejak lip?