mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.delphi
Titolo: Ho trovato il display format.

E' possibile cambiare questa proprieta' a run time e non a design time? Non
ho ancora capito dove andare a cercare ;-(
--
Giuseppe Fraddosio
fradd...@libero.it
fradd...@supereva.it

ho ancora capito dove andare a cercare ;-(
effetivamente non hai tutti i torti,
bisogna ricorrere ad un cast (non ne ho capito il motivo)
TNumericField( Query1.FieldByName('Campo') ).DisplayFormat := '#,###';
Ciao,
Alan Solo

 TNumericField( Query1.FieldByName('Campo') ).DisplayFormat := '#,###';
Grazie. Cosi' funge perfettamente. A questa soluzione non ero arrivato.


TNumericField( Query1.FieldByName('Campo') ).DisplayFormat := '#,###';
Perche' DisplayFormat e' una caratteristica dei field di tipo
numerico, quindi non lo trovi in TStringField, ecc, e neanche in
TField, che e' il tipo restituito da FieldByName('Campo').
Occhio che, se Campo non fosse numerico, otterresti una bella
eccezione durante l'esecuzione. Sarebbe piu' sicuro:
Assert(Query1.FieldByName('Campo') is TNumericField);
TNumericField( Query1.FieldByName('Campo') ).DisplayFormat := '#,###';
Ciao
--
Piero Bonanno
bop...@libero.it
pie...@tiscalinet.it
bpie...@hotmail.com
______________________________________________
"Madame, lei ha tra le gambe uno strumento
che puo' offrire piacere a migliaia di persone,
e tutto quello che sa fare e' grattarlo"
- Sir Thomas Beechan a una violoncellista

Assert(Query1.FieldByName('Campo') is TNumericField);
Tu useresti davvero le Assert in una distribuzione definitiva ?

Tu useresti davvero le Assert in una distribuzione definitiva ?
In una distribuzione definitiva avresti ancora il dubbio che 'Campo'
non sia numerico?


non sia numerico?
appunto 8)
per una maggiore sicurezza (anche in versioni defnitive ;)
direi di fare *eventualmente* una cosa del genere:
if Query1.FieldByName('Campo') is TNumericField
 then TNumericField( Query1.FieldByName('Campo') ).DisplayFormat :=
'#,###';
Ciao,
Alan Solo

'#,###';
A me sembra di piu' un eccesso di insicurezza :-)


 '#,###';
Mi sembra un eccesso di prudenza: se il campo lo hai creato tu penso che si
sappia anche il tipo.
Adesso ti faccio un altra domanda: sai cambiare l'integrita' referenziale in
tabelle paradox da codice?


tabelle paradox da codice?
No, mi dispiace (paradox non lo usato quasi mai),
cmq, gurdati l'help di db desktop (tables, creating, referential
integrity)
Ciao,
Alan Solo
Newsgroup: it.comp.lang.delphi
Titolo: visualizzazioni caratteri russi

Ciao,
sto scrivendo un piccolo programma in Turbo Delphi che deve aver la 
possibilità di cambiare le label da caratteri latini a cirillici e 
viceversa.
Perchè se uso il RUSSIAN_CHARSET nelle label mi appaiono '?' quando ci 
scrivo in cirillico?
Ho cambiato anche il codepage del programma per il cirillico, ma 
rimangono i caratteri '?'
C'è qualcuno che sa rispondermi?
   Massimo

>C'è qualcuno che sa rispondermi?
Se non hai Windows in Russo devi installare il supporto per l'alfabeto 
cirillico - altrimenti le versioni normali Italiane non sono in grado di 
visualizzarlo.
--- posted by geoForum on 
http://www.delphiedintorni.it

 
perchè i componenti Delphi non supportano i caratteri unicode.
Devi sostituire la TLabel con un componente che supporti l'unicode.
Per Delphi i più conosciuti e gratuiti, sono i TntWare Unicode Controls.
http://www.tntware.com/delphicontrols/
Purtroppo però, come puoi leggere sul sito, lo sviluppo gratuito è
terminato e non troverai l'ultima versione free su quel sito.
La puoi trovare qui
http://www.axolot.com/TNT/
Oppure qui c'è una versione "potenziata"
http://mh-nexus.de/tntunicodecontrols.htm
ciao,
Andrea

Devi sostituire la TLabel con un componente che supporti l'unicode.
Non è vero.
Unicode permette di supportare tutti i linguaggi con un unico set di 
caratteri. Delphi permette comunque di impostare quale set di caratteri 
utilizzare, e impostando l'opportuno set si possono fare applicazioni 
che supportano lingue non europee occidentali.
Altrimenti sarebbe difficilmente spiegabile il grande successo che 
Delphi ha con i programmatori Russi e Cinesi... :)
Non supportando Unicode, però, può essere difficile visualizzare 
contemporaneamente contenuti in lingue diverse. In quel caso devi 
passare ad usare Unicode, non solo nei controlli, ma in tutta la 
gestione delle stringhe di testo.

Newsgroup: it.comp.lang.delphi
Titolo: out of memory delphi 5

ciao a tutti, ho un problema compilando un'applicazione in delphi 5. 
Ottengo quasi sempre il seguente errore "fatal error: out of memory". 
Questo errore me lo da solo con Windows Xp..... ho provato anche ad 
aumentare la memoria del pc, ma non c'è verso....
Qualcuno ha qualche idea? Non credo sia un problema di pc perchè se 
metto 98 o 2000 non ho il problema, che ci sia qualche impostazione in 
delphi per la gestione della memoria in fase di compilazione?
grazie
Roberto

E' possibile avere il frammento di codice che genera l'errore ?
Insieme al contesto in cui il frammento è inserito ?
Ciao
Mario -(
mari...@inwind.it
)
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

purtroppo non è un segmento in particolare che genera l'errore.... 
durante la compilazione da quell'errore ma non indica dove. Il bello è 
che con il pc con 98 compilava il tutto tranquillamente
Mario Piva ha scritto:


 ha scritto nel messaggio
news:Kp2od.372138$35.16...@news4.tin.it...


sto provando a reinstallare delphi senza installare il suo upgrade.... 
perchè su un pc identico senza upgrade funziona..... vi faccio sapere
ciao e grazie
rob
News Delphi.it ha scritto:


non funziona nemmeno senza upgrade di delphi 5.
News Delphi.it ha scritto:


Newsgroup: it.comp.lang.delphi
Titolo: fastreport da frf a fr3

Salve a tutti, avrei la necessita di migrare i miei report da una
vecchia versione di fastreport i cui file hanno estensione frf ad una
nuova i cui file hanno estensione fr3, mi sapreste indicare se esiste
qualche tool per la conversione o se devo fare tutto a mano ?
Saluti,
Antonio.


Ciao Antonio,
nell'editor della 3 esiste questa funzionalità.
Ciao da Enrico Giudici c/o Icograf
--- posted by geoForum on 
http://www.delphiedintorni.it

 Ciao da Enrico Giudici c/o Icograf
Dove ? La sto cercando ma nn riesco a trovarla !!!


Adesso sono fuori ufficio, stasera te la cerco e domani ( spero ) di dirtelo.
Ciao da Enrico Giudici c/o icograf


Ho risolto...ho aggiunto ai componenti il componente che si trova
nella cartella di fastreport4 --> frx2xto30.pas e nel design editor mi
da la possibilita di aprire i file frf.
Mi sono salvato i file che mi servivano e poi l'ho tolto.
Saluti,
Antonio.



Ciao,
sul sito della fast report esiste uno splendido tool (fr3convert.exe)
che fa proprio quello che ti serve.... più o meno! 8-)
Ciao
Marco
Newsgroup: it.comp.lang.delphi
Titolo: Rimozione sicura dell'hardware a runtime?

Ciao a tutti,
sto facendo un programmino per salvare alcuni dati sulla chiavetta USB. Alla
fine del salvataggio, vorrei lanciare direttamente dal mio programma la
"Rimozione sicura dell'hardware" relativa al drive della mia chiavetta.
Sapete dirmi se si puň fare e come?
Grazie in alticipo, Mario
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

se cerchi su msdn trovi un link nel quale sono elencate le api esposte
da winzozz per l'usb.
Magari tra esse trovi qualcosa..
A.

Newsgroup: it.comp.lang.delphi
Titolo: Modem e seriale

Ciao,
ho un problema con il modem.Ho collegato due PC tramite modem.
Ora, se dal PC 1 trasmetto una stringa tramite modem al PC2, il dato 
arriva al modem del PC 2 ma il PC 2 non si accorge che il modem ha un 
dato disponibile.
Come devo fare per leggere i dati dal modem del PC2 esiste qualche 
comando? Come deve avvenire la sincronizzazione?
grazie in anticipo
luca rossi
-- 
Posted from 151.20.137.34 by way of 
smtp1.libero.it
 [193.70.192.51] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

Come mandi i dati via modem?
Funzioni o vcl?
Saluti
AS
"Se è Microsoft non funziona"

Funzioni o vcl?
Uso un componente Async32 trovato in rete non sos se lo conosci. Cmq
il collegamneto avviene perfettamente è solo che una volta collegati i
dati trasmessi rimangono sul modem e sembra che il pc non dica al
modem che è pronto a ricevere i dati. Magari c'e' una qualche
proprietà da settare
ciao
luca
Newsgroup: it.comp.lang.delphi
Titolo: cercare tutti i file di una dir

Come faccio a ottenere i nomi di tutti i file di una directory?
(non mi interessa la ricerca nelle sotto cartelle, mi basta la dir  
corrente)
grazie
-- 
Using Opera's revolutionary e-mail client: 
http://www.opera.com/mail/

Funzioni FindFirst e FindNext
Bye,
David

 
Con chdir ti sposti nella directory che ti interessa, con findfirst
scorri i files.
 Gio'
-- 
/*
 * Solutions for New Business - 
http://www.snb.it
 */

 corrente)
FindFirst/FindNext/FindClose
Newsgroup: it.comp.lang.delphi
Titolo: [d5] cambiare un intero datamodule impostando altri componenti

ciao a tutti, ho un datamodule con N componenti di tipo Zeos Query (TZQuery) 
a cui sono collegati dei campi persistenti,ecc. c� modo di trasformarli 
automaticamente tutti in componenti TQuery o TAdoQuery?
l'obiettivo mio � avere 2-3 datamodule a seconda del tipo di database da 
utilizzare
Simone 

 automaticamente tutti in componenti TQuery o TAdoQuery?
Ovviamente no. Progetta i tuoi datamodule distinti e poi in base al db
selezionato creerai quello specifico, legandoci i componenti
datasoure/datasetprovider a runtime. Evita i campi persistenti.
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

Newsgroup: it.comp.lang.delphi
Titolo: Delphi o C++Builder con Licenza d'uso

Salve
sapete se vi sono negozi (anche on line) che
vendono soft tipo Delphi o c++Builder usati con
licenza d'uso?
grazie
spicer
\-------------------------------------------------
---------------/
Un albero che cade fa piů rumore di una foresta
che cresce.
(Proverbio Cinese)



Se vuoi una licenza regolare e spendere poco ti consiglio di frequentare i
mercatini dei radioamatori, spesso č presente una ditta, mi pare sia di
Romano di Lomabardia (BG), che ha delle versioni recenti a prezzi
imbattibili. Io alla fiera di brescia in Settembre ho acquistato D6Pro full
non upgrade ancora sigillato per soli 100 euro fatturato.
Ciao Carlo
"spicer"
<spicer_CancellareTuttoApartireDa_EdUsareComeDominio_supereva.it@eva_super.t
i> ha scritto nel messaggio
news:oERtb.120082$vO5.4...@twister1.libero.it...

Newsgroup: it.comp.lang.delphi
Titolo: dbexpress clientdataset

Ho un piccolo db Mysql con 2 tabelle in relazione uno a molti, nel
datamodule ho utlizzato
1  TSQLConnection
2  TSQLTable
2  TDataSetProvider
2  TClientDataSet
2 TDataSource
ho collegato il ClientDataSet (datails) al DataSource (Master), il tutto
funziona a dovere tranne che non riesce il Refresh sul ClientDataSet Master
cioe' :
begin
  if dtMod1.ClientDataSet1.Active Then
   dtMod1.ClientDataSet1.Refresh
end;
non sortisce effetto, il cursore rimane sul record corrente, mentre la
stessa cosa fatta nel ClientDataSet (datails) invece funziona.Chiedo
qualche consiglio su una possibile soluzione.
Ciao Novello pivello
P.S. Tramite DBE il tutto funziona bene Refresh compreso.

non sortisce effetto, il cursore rimane sul record corrente,
Cosa ti aspetti che faccia? 
perchè il refresh cerca di matenere la selezione sul record corrente
ad esempio se filtri un dataset se la selezione corrente appartiene
all'insieme filtrato viene mantenuta.
Il refresh rilegge gli ultimi dati dal database, che se non sono stati
modificati giustamente 'non sortisce effetto'.
Considera poi che non è il refresh che visualizza i dati.
facci sapere.
M. Rossello
--- posted by geoForum on 
http://www.delphiedintorni.it


In effetti Genesi non ho ancora capito dbexpress, adesso provando ad
agganciare al ClientDataSet un DBNavigation non riesco ad memorizzare 
nel db le modifiche ad un campo, cioe' mettendo in Edit e poi 
confermando le modifiche le stesse non si riperquotono nel db, quindi ti 
(vi) chiedo prima di sparare altre stupidaggini documenti online e l' 
acquisto di libri che trattao di dbexpress.
Ciao Novello pivello


ho cercato su Google(questo sconosciuto) con ' dbexpress tutorial' è ho
trovato 
http://delphi.about.com/gi/dynamic/offsite.htm?zi=1/XJ&sdn=delphi&cdn=compute&tm=16&f=11&su=p284.21.140.ip_p284.2.420.ip_&tt=2&bt=1&bts=1&zu=http%3A//bdn.borland.com/borcon2004/article/paper/0%2C1963%2C32229%2C00.html


 M. Rossello
Grazie Genesi per il Link, adesso ho un punto da cui partire, ciao Novello
Newsgroup: it.comp.lang.delphi
Titolo: Delphi 2006 + ASP.NET + Frames

Qualcuno è riuscito a lavorare con i frames in ambiente .NET con delphi 
2006?
Non riesco a mettere i frames nelle pagine aspx... e se metto direttamente 
il codice html a mano, l'ide và in crash paurosamente!
Qualche info?

Michelinok ha scritto:

Temo che il concetto di "FRAME" in HTML cozzi con quello di WebForm 
ASP.NET
.
Onestamente, li ho abbandonati da talmente tanto tempo - e sono così 
pochi i siti che ne fanno uso, relativamente - che sono certo sia 
possibile trovare una soluzione alternativa e più pulita rispetto a 
quella che stai cercando di implementare sfruttando, appunto, i FRAME.
Ciao,
   Marco.
-- 
MARCO BREVEGLIERI
  (
http://www.marco.breveglieri.name
)

Scusami tanto eh...ma che soluzione ci sarebbe? A me servirebbe una 
paginetta semplice.... un frame in alto, uno laterale dove scelgo le 
informazioni da visualizzare nella terza pagina (centrale).
Suggerimenti?

 informazioni da visualizzare nella terza pagina (centrale).
Io generalmente creo una pagina unica che fa da contenitore e, 
attraverso un parametro, carico al suo interno uno *UserControl*, tante 
quante sono le "sottopagine" da visualizzare.
Con un *PlaceHolder*, in poche righe, puoi inserire il tuo controllo 
all'interno della pagina modello.


Grazie infinite, darň un'occhiata!
Sempre gentile!
Ciauz!

Ehm...ho spazzolato un pò google,ma non sono riuscito a trovare niente in 
merito...hai qualche link a qualche esempio? (o porzioni di codice, o cose 
simili...)?
Grazie dell'attenzione!


Io uso molto i frames(senza bordo, per fare finta che sia una pagina
intera) perň c'č da dire che potresti per esempio usare un pň di
JavaScript. Lo so, JS non č proprio bello, ma funziona.
Inoltre(e non č cosa da poco) č compatibile con altre tecnologie,
dovessi un giorno trovarti a dover cambiare piattaforma.
Infine, usare JavaScript con AJAX va tanto di moda oggi,
quindi certamente troverai roba su Google.
Ciao,
Andrea

 Andrea
Grazie tantissime dei consigli!

 Grazie tantissime dei consigli!
Pvego,
Andrea

Newsgroup: it.comp.lang.delphi
Titolo: Tool di sviluppo free

Ciao a tutti,
vorrei sapere se esiste e dove posso trovare un tool di sviluppo gratuito
per cominciare a fare qualche programmino in delphi.
Grazie!!
--
^°^°^°^°^°^°^°^°^°^°^°^°^°^°^°^°^°^°^°^
tyr...@interfree.it
ICQ --> 123002529
Giulia.   =^_^=
v°v°v°v°v°v°v°v°v°v°v°v°v°v°v°v°v°v°v°v°v°v

 per cominciare a fare qualche programmino in delphi.
www.borland.com
Delphi 6.0 Personal.


Eh, quello lo conosco, ma se scarico 140 Mb mi fucilano qui... cercavo
qualcosina di più piccolo...
Ho provato con lazarus (
http://www.lazarus.freepascal.org/
) ma non funge
:-(( ..

"Giulia Bizzarri" <giulia....@NOSPAMsysdat.it> wrote in message
news:acvvim$c1p$
1...@fe1.cs.interbusiness.it

In edicola con 'Io Programmo' c´é il cd-rom di D6 Personal Edition
se il problema é solo scaricare i 140 Mb.
Ciao
Micky
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

Ah si.... Grazie dell'informazione.... !!!!
=^___^=
Baci!

Newsgroup: it.comp.lang.delphi
Titolo: Delphi3 a Delphi 6

Ho scritto un piccolo programma in Delphi 3, basato su database ed ho
creato dei reports per vedere e stampare delle pagine.
Dopo aver installato Delphi 6, i report non funzionano piů. O meglio,
solo alcuni funzionano, ma molti altri no. Come mai? Facendo girare il
programma compilato con D3, tutto Ok, ma con D6 nisba. Consigli?
Grazie.

> Dopo aver installato Delphi 6, i report non funzionano piů.
cioč?
A.

Nel senso che quando faccio il preview della pagina che poi voglio
stampare, vedo solo una pagina bianca.
Ripeto: Con D3 tutto ok,ma, dopo aver compilato il programma con D6
non vedo le pagine da stampare. In effetti i QuickReport che ho creato
non visualizzano nulla, ma solo una pagina bianca.
Solo uno dei report, creato in un'altra parte del programma, funziona
bene. Gli altri no.Spero di essermi spiegato. Grazie


Newsgroup: it.comp.lang.delphi
Titolo: Form MDI e apertura controllata form child

Salve a tutti, come posso fare per non far aprire una form child
all'interno della relativa MDI se la prima è già aperta?
Esiste qualche funzione nativa di delphi o devo scrivermi tutto a manina?
--- posted by geoForum on 
http://www.delphiedintorni.it

Mete ha scritto:
[...]
Basterebbe un boolean che imposti a True nel Create ed a False nel Destroy.
Diversamente, puoi anche cercare il pattern del singleton
Ciao,
Gianluca.
Newsgroup: it.comp.lang.delphi
Titolo: Problema in ricezione email (TIdMessage)


X-Virus-Scanned: by amavisd-new at 
acs-service.it
Status: RO
X-UM-Flags: \SEEN 
Codice Delphi:
-----------------------------------------------
// "Allegati" è una TListView
  IdPOP3.Retrieve(i, Messaggio);
  for i := 0 to Pred(Messaggio.MessageParts.Count) do begin
    if Messaggio.MessageParts.Items[i] is TIdAttachment then begin //
allegato
      with Allegati.Items.Add do begin
        Caption :=
TIdAttachment(Messaggio.MessageParts.Items[i]).Filename;
SubItems.Add(TIdAttachment(Messaggio.MessageParts.Items[i]).ContentType);
        ImageIndex := 0;
      end;
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

Fatti mandare una email su un account di test.
Poi usi thunderbird o eudora e controlli se hai lo stesso problema.
AS

 AS
In realtà ho notato che il problema non c'è se all'interno dell'email 
c'è scritto qualcosa. Il problema si presenta solo se è presente 
l'allegato e il body è "blank". 
Scusa la domanda, ma perchè proprio thnderbird ed eudora? C'è qualche
ragione specifica? Se l'email la inoltro ad Outlook l'allegato lo vede
eccome! Credo quindi che il problema sia solo nel mio codice.
Un saluto,
Dario


 eccome! Credo quindi che il problema sia solo nel mio codice.
Ho citato quei 2 perche ODIO outlook, tutto qui.
Io uso thunderbird e mi trovo da dio.
AS

 Io uso thunderbird e mi trovo da dio.
Purtroppo però la maggior parte degli utenti finali hanno installati i 
prodotti Microsoft, che ci possiamo fare?


Newsgroup: it.comp.lang.delphi
Titolo: Focus su item in tlistview

E' una banalitą ma ho un lapsus! Come faccio a selezionare l'item i
ed a fare il focus su di esso?

 ed a fare il focus su di esso?
Ecco, mi č venuto in mente:
listview1.SetFocus;
listview1.ItemIndex := i;


Open Delphi Manual (
http://groups.yahoo.com/group/delphi_open_manual/
)

Newsgroup: it.comp.lang.delphi
Titolo: inifiles ...

Salve, ho un problema quando provo a modificare dei
valori in un file .ini: se provo a modificare (aggiornare ) dei valori mi
viene creata una copia all'interno del file ini e non la modifica come mi
aspetterei.
Ecco il codice:
procedure TForm1.ApplicaClick(Sender: TObject);
var fileini : Tinifile;
begin
fileini := TIniFile.Create('file.ini');
fileini.WriteInteger('OPZIONI','PARAMETRO',combobox1.Itemindex);
fileini.free;
end;
se il file file.ini contiene
[OPZIONI]
PARAMETRO=1
dopo che eseguo il programma avro' :
[OPZIONI]
PARAMETRO=1
[OPZIONI]
PARAMETRO=1
Ossia mi si duplica il risultato !! io invece vorrei che lo aggiornasse !!!
come devo fare ? grazie in anticipo

 end;

c' ho provato ma nulla :((((
"Balbar" <...@...> ha scritto nel messaggio
news:lddC7.6877$Qj6.6...@news.infostrada.it...

Newsgroup: it.comp.lang.delphi
Titolo: D4 FORM sbaglio ma non so dove

Semplificando :
Ho una main form (formA), in questa  c'è un button
quando questo button viene premuto creo una Form (FormB) e la rendo visibile
con Show.modal
All'interno di FormB ho alcuni button che aprono delle finestre, esaminiamo
il comportamento di uno di questi
Quando premo questo button creo e apro con showmodal una FormC.
Quando chiudo FormC ed eseguo anche il suo Action := cafree  all'interno
dell'evento FormClose, mi attendo di trovrami nuovamente all'interno di
FormB ed invece anche FormB viene chiusa e forse anche lanciato il relativo
Action := cafree .
Qualcuno sa dirmi in cosa sbaglio???
Grazie Carlo

sbagli a non postare un po di codice e a non mettere dei breakpoint su
i vari "action := caFree".
AS

 ha scritto nel messaggio 
news:z61cf.28662$65.8...@twister1.libero.it...


 ha scritto nel messaggio
news:4370bea4$0$8477$5fc...@news.tiscali.it...

Newsgroup: it.comp.lang.delphi
Titolo: [IBX]: Oggetto Transaction proprietà inesistente

Salve,
ho un problema insormontabile (apparentemente).
Sto cercando di utilizzare i componenti IBX. In questo caso, bisogna
collegare ad ogni tabella un oggetto IBTransaction, tramite la
proprietà Transaction.
Aggiungo quindi IBTransaction al mio DataModule, settando
opportunamente le proprietà. Alla fine, a design time riesco
addirittura a visualizzare i dati delle tabelle nei dbgrid.
Il problema è quando cerco di eseguire (la compilazione sembra andare
a buon fine). Si solleva un'eccezione il cui messaggio è Property does
not exists! La proprietà in questione è quella dell'oggetto
IBTransaction ed è AutoStopAction. La setto in tutti i modi possibili,
ma non riesco ad eseguire la compilazione.
Vorrei provare anche ad eliminare manualmente questa proprietà nella
definizione del codice del DataModule2, ma un'altra cosa che io credo
strana (e che volevo già chiedervi:) ) è che nella finestra del
CodeEditing compare soltanto:
unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
Dialogs,
  jpeg, ExtCtrls, DBCtrls, Grids, DBGrids;
type
  TForm1 = class(TForm)
    DBGrid1: TDBGrid;
    DBGrid2: TDBGrid;
    DBNavigator1: TDBNavigator;
    DBNavigator2: TDBNavigator;
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
implementation
{$R *.DFM}
end.
E' normale? Ricordo di aver provato da qualche altra parte Delphi5 e
il codice era ben più completo, con i settaggi delle proprietà. 
Sigh...sto andando in panico:p Qualcuno si è messo contro di me:)
--
Oggi ho fatto una scoperta, ho trovato un computer...
The MentoR

controlla quale versione di ibx stai usando.
Dovrebbe esserci un update su 
borland.com
.
Bye
A.


Avevo già scaricato l'update per Delphi 5 delle IBX (è lo stesso
presente nella versione di IB6.5).
Con C++Builder6 l'applicazioncina funziona perfettamente.
Coma mai soltanto a me succedono queste cose?:))
--
PubbliProgress:
http://www.gruppokaos.it/pagine/Documenti/nestlè.htm
http://www.gruppokaos.it/pagine/Documenti/Controinformazione/un_opuscolo_scomodo.htm
http://www.gruppokaos.it/pagine/Documenti/Banche%20Dati/banche.htm

il builder6 dovrebbe essere allineato a delphi6 non a delphi5.
Bye
A.

Newsgroup: it.comp.lang.delphi
Titolo: Tirare fuori il file DFM da un EXE?

Dovuto un mio maldestro tentativo di "pulire" una mia applicazione
ho eliminato un tabbednotebook pieno di componenti e bottoni.
Mi č rimasto integro il file PAS e anche l'ultimo EXE prima della
cancellazione. Chiedo: č possibile tirare fuori dall'EXE il file DFM e 
sostiturilo
con quello esistente?
Grazie a chi mi puņ dare una mano.
Newsgroup: it.comp.lang.delphi
Titolo: Inizialittare un campo auto-incrementante

Ciao ha tutti.
Ho una tabella paradox e vorrei svuotarla, ma come fare per reinizializzare
il campo auto-incrementante in modo che riparta da 1 (senza continuare da
dove lo avevo lasciato)?



AFAIK, non si puo', questo e' uno dei motivi per cui non e'
conveniente usare i campi autoincrementanti.
-- 
Andrea Laforgia (
walkie...@libero.it
)
"Usenet is a strange place" [Dennis Ritchie]


Si puň, si puň.
2 metodi :
A Mano :
Da Database Desktop, apri la tabella vuota (la puoi svuotare dal menu
Tools/Empty), vai in modifica struttura, modifica il campo da AutoINC (+) ad
Integer (I), salva la tabella.
Rivai in modifica e riporta il campo a (+).
Fatto.
Da codice : Assicurati che la tabella non sia utilizzata da nessuno (Neanche
nell'IDE, eventuali TTable.Active vanno poste a False)
procedure TForm1.Button1Click(Sender: TObject);
begin
    try
        Table1.DisableControls;
        Table1.Close;
        Table1.DeleteTable;
        Table1.CreateTable;
    finally
        Table1.Open;
        Table1.EnableControls;
    end;
end;
La DeleteTable cancella fisicamente il file su disco ma NON lascia
inalterate le strutture FieldDefs & IndexDefs del componente.
La CreateTable ricrea semplicemente la tabella con tutti i campi AutoInc a
0.
Ciao.

 inalterate le strutture FieldDefs & IndexDefs del componente.
...oops
E' evidente che ho sbagliato a scrivere.
La DeleteTable cancella fisicamente il file su disco ma NON cancella (lascia
inalterate) le strutture FieldDefs & IndexDefs del componente.
Ariciao.

 1 (senza continuare da dove lo avevo lasciato)?
Non so in Paradox, ma in MySQL basta settare il campo in questione 
della prima riga che inserisci ad un valore fisso, e gli inserimenti 
successivi partiranno da quel valore (almeno così m'è sembrato che 
funzionasse). Hai già provato a fare così?
-- 
 < 
http://www.reactos.com/
 >  Open source clone of Windows NT. Current
     Don't stand, REACT!      version 0.0.19. C, C++ and ASM developers
                              and beta testers are welcome!

0.
Questo metodo non ricostruisce gli indici e funziona SOLO se
hai dei campi persistenti (che non e' il default).

Newsgroup: it.comp.lang.delphi
Titolo: Dimensione totale del HD

uso questo stralcio per determinare la capacita' totale del disco, ma mi
ritorna sempre poco piu' di due Gb. I calcoli li faccio con variab.
Currency.
function TForm1.DimTotaliDisco(Path: String): String;
var SettXCluster,ByteXSett,FreeCluster,TotalCluster: DWord; ByteFree:
Currency;
begin
Result:='';
if Not CartSpeciali then
   begin
   Path:=UpperCase(Copy(Path,1,3));
   if
GetDiskFreeSpace(PChar(Path),SettXCluster,ByteXSett,FreeCluster,TotalCluster
) then
      begin
debuggando trovo pero' che la TotalCluster e' assegnata sempre a 65526,
anche provando su un'altra macchina con diverso HD , entrambi di circa 10
Gb.
Qualche idea o soluzione alternativa?
Grazie, Giorgio Padoan
www.pinesrl.com/lookscreen/

GetDiskFreeSpace(PChar(Path),SettXCluster,ByteXSett,FreeCluster,TotalCluster)[...]
ma questa funzione non ti torna lo spazio libero da
dati?
Tu invece vorresti sapere la capacità totale, no?
Mi sbaglio?
	Ciao
	MassimoB
 
---------------------------
http:\\
www.massimobeschi.it

 ha scritto nel messaggio
news:BG_sc.10004$G%.8197@tornado.fastwebnet.it...

Newsgroup: it.comp.lang.delphi
Titolo: ADOTABLE.FieldByname

Salve,
qualcuno sa se è possibile inserire il nome nel campo nella variabile in
oggetto da variabile stringa invece che inserirlo direttamente?
ovvero
ADOTable1.FieldByName(NomeCampo).AsString := 'XXX';
al posto di
ADOTable1.FieldByName('Nome').AsString := 'XXX';
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 ha scritto nel messaggio
news:24fed6d0f90902167fc...@mygate.mailgate.org...


Era una buona idea ma continua a non andare, tra l'altro 
i doppi apici vanno messi tra apici ? (comunque non va lo stesso)
Gian


> Table1.FieldByName(''+NomeCampo+'').AsString :='XXX';
E' errato!
La forma corretta è la seguente:
Table1.FieldByName(VariabileDiTipoStringa).AsString :='XXX';
--
Acqua

 ha scritto nel messaggio
news:XTjfb.7534$vO5.2...@twister1.libero.it...


 in oggetto da variabile stringa invece che inserirlo direttamente?
Si'.
var i: integer;
    sl: TStringList;
    s: string;
begin
  sl := TStringList.Create;
  try
    tb.GetFieldNames(sl);
    tb.First;
    if not tb.Eof do begin
      s := 'First record: ';
      for i := 0 to sl.Count-1 do
        s := s + tb.FieldByName(sl[i]).AsString + '; '; <<<<<<<
      Delete(s, Length(s)-2, 2);
      ShowMessage(s);
    end
    else
      ShowMessage('Table is empty');
  finally
    sl.Free;
  end;
Saluti
Paolo Arosio
--
"La dimostrazione dell'esistenza di specie intelligenti nell'universo
 e' che non ci vengono a trovare"

Newsgroup: it.comp.lang.delphi
Titolo: Errori BDE

Qualcuno saprebbe darmi maggiori informazioni sugli errori
"Capability not supported" e "Operation not applicable" ?
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 "Capability not supported" e "Operation not applicable" ?
per Capability ...  forse può esserti utile questo articolo della Community:
http://community.borland.com/article/0,1410,25183,00.html
Antonio Sanguigni

 per Capability ...  forse può esserti utile questo articolo della Community:
Thanks Antonio, la cosa strana e' che l'errore mi capita non su
DBMS ma su Paradox e in circostanze tutt'altro che chiare.
Mah... e' ora di passare a IB ;)


> "Capability not supported
    E' successo anche a me e ho dovuto installare la versione più recente
del BDE (adesso non ricordo quale sia e non ho la possibilità di andarlo a
vedere)
" e "Operation not applicable" ?
    Per questo non so cosa dirti, magari la soluzione è la stessa
dell'errore precedente
    Ciao
Newsgroup: it.comp.lang.delphi
Titolo: scrivere su un txt da un byte in poi

Buondì a tutto l'NG
Come da oggetto ho un problema con un file ascii che ha questo formato:
dati;descr
dati;descr
dati;
quando l'utente decide di inserire permanentemente una descr io dovrei
scrivere dal ; in poi e se esiste già una descr cancellare la vecchia
(cioè dal ; a fine riga e scrivere la nuova).
Non so come fare....
Grazie a tutti
Paolo
--
pbonfanti2@*NOSPAM*
inwind.it
Togliere dall'indirizzo *NOSPAM*

 (cioè dal ; a fine riga e scrivere la nuova).
Se il file non e' enorme, la prima cosa che mi viene in mente e' 
caricarlo in una listview e poi lavorarci, quindi salvarlo.
Ciao.Alberto.
-- 
Alberto Rubinelli - A2 SISTEMI               posted with Gravity 2.60b
Via Costantino Perazzi 22 - 28100 NOVARA (NO) - ITALY     ICQ 49872318
E-Mail : 
alb...@retrocomputing.net
  Tel. 0321 640149 
Web    : 
www.retrocomputing.net
      Fax  0321 391669 BBS  0321 392320

 ha scritto nel messaggio
news:T1Ofc.5444$Qc.2...@twister1.libero.it...

Newsgroup: it.comp.lang.delphi
Titolo: [OT] Mezza estate (il ruggito ritorna ma è sempre + fiacco)

Il 24 di luglio di 28 anni fà nascevo io.
Ero un pò sotto peso e nessuno si sarebbe mai aspettato che diventassi un
leone forte ed intelligente!!
Difatti così non è stato :D
bye
erik ;)

auguri, erik!
28, eh?
Ah, beata gioventu'...! ;)))
A

 Il 24 di luglio di 28 anni fą nascevo io.
Auguri!
Bye,
   Luca

erik ;)
Auguri!!!!
FascioMorde.
-- 
Morde. 
(morde at programmer dot net)

 leone forte ed intelligente!!
we we we .... anche io son Leone (8 ago)
altri 72 di questi giorni... ;)
Acqua
-------------------------------------------------------
Download new version of PixExperts for Delphi 6/C++ Builder at
http://www.salexander.supereva.it/Pix_Exp171D6.zip
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 erik ;)
Andrea

Dai allora visto che siamo tutti OT (e che Alberto ha acconsentito senza
mangiarsi nessuno :)) ) e considerando anche il periodo pre - feriale,
mi associo e dico...1 settimana prima di me... io sono del 1 agosto ma del
1979
Ciao!

 Il 24 di luglio di 28 anni fà nascevo io.
Mi unisco al coro di AUGURI!!!

Auguri

 ha scritto nel messaggio
news:bfoori$d09$1...@newsreader.mailgate.org...

Io invece dico ... 20 giorni dopo di meeeeeeeeeeeeeeeeeeee :'(((((( solo che
io sono del '68
Auguroni, oni, oni, oni ...

Beh, visto che avete cominciato...
Io dico 2 mesi esatti dopo di me ma 7 anni prima (1982).
Ciao :-)
--
Andrea /\/\agni
ICQ#: 174108000

auguri!!!
Simo

 leone forte ed intelligente!!
Visto che a giorni dovrebbe nascere mia figlia, posso stare tranquillo sul
fatto che programmerà in Delphi !!!
Siete tutti del Leone qui dentro !!!
Ma è vero che i Leoni sono così terribili ??? Ditemi di no per piacere
......
AUGURI !!! da uno Scorpione del ???2 (ok Ok sono vecchietto !!)
Ciao Gianluigi

 fatto che programmerà in Delphi !!!
considerando che ad oggi la maggior parte dei clienti e' di sesso maschile,
penso che una donna programmatrice avrebbe tutte le carte in regola per
avere un successo superiore a qualunque uomo (una volta che il cliente
superasse l'ovvia e naturale diffidenza verso una donna che si occupa di un
settore tecnico). Sarebbe una tragedia!! Lasciate la programmazione in mano
agli uomini!! Le donne a casa a fare l'uncinetto.. anzi no, a fare le
CLIENTI degli uomini ;)))
Ciao, Sandro

 ......
Siamo terribilmente e modestamente IRRESISTIBILI! :-)
Auguri Erik.

grazie a tutti :)

Auguri anche da parte mia!
        Marco Bortolani

 ha scritto nel messaggio
news:R7TTa.9903$Df5.2...@news1.tin.it...

Newsgroup: it.comp.lang.delphi
Titolo: Limiti di TFileStream? Valori interi a 25 bit?

Sto tentand di leggere un file binario enorme (circa 70MB), e produrre in
output un file di testo. Controllando l'output trovo un comportamento molto
strano (righe duplicate e triplicate), e allora vado a seguire
l'esecuzione...
Per leggere il file devo andare avanti e indietro con un "cursore" per
catturare le informazioni dove si trovano. Tralasciando la lentezza che
questo approccio introduce, uso il metodo Seek di TFileStream. Ho scoperto
che questo metodo ha una particolarita': funziona in modo appropriato solo
se il valore dell'offset (partendo dall'inizio del file) e' meno di
$2000000, poi *probabilmente* riparte da zero(non ho ancora la certezza, ma
pare che sia cosi', ora non ho voglia di ripercorrere tutto il file per
arrivare a quel punto, lo faro' entro oggi e postero' di nuovo se non e'
cosi').
Vi risulta che possa esistere una cosa del genere? Sarebbe molto strano,
perche' mai in vita mia ho visto numeri interi che si "riavvolgono" come se
fossero a 25 bit, ma se qualcuno puo' confermare/smentire...
Nel frattempo vedro' se i sorgenti dele VCL mi sono d'aiuto (finora poco o
niente, ma continuo a scavare).
Ringrazio tutti e saluto.
--
Ing. Gabriele Boccone, O.Si S.n.c., Genova.
"L'utente piu' medio" dal sondaggio di it.hobby.motociclismo.scooter
       ,.                                                            \
   {}=/o ) on the left: Fender Jazz Bass - Made in Japan    _       =q\
  {}=/o,(  on the rigt: Kymco Heroism 150 - Made in Taiwan (_),==,    \\_
 {}=/o 坑  on my PC: Debian GNU/Linux 3.0 - Made somewhere   7,-.\   /,\.\
{}=/o <\|                                                    :=o ;===: o':
  (_____)  Powered by 220V                                    `-'     `-'

 Ringrazio tutti e saluto.
Mi rispondo da solo, e vi do' 2 (anzi un po' di piu') consigli:
- quando usate subroutines gia' fatte da altri controllate che le variabili
siano tutte della dimensione giusta, potrebbe esserci una Word dove a voi
serve un Integer (che poi ci sia una moltiplicazione in mezzo a rendere
tutto piu' difficile e' un optional, ma spesso e' incluso)
- quando fate subroutines che altri possono usare non risparmiate 2 bytes
per mettere un valore in una Word, quando non siete sicuri che basti. Se lo
fate, DOCUMENTATELO per evitare che il povero programmatore debba seguire
l'esecuzione di chilometri di sorgenti prima di trovarlo. La RAM oggigiorno
costa poco, non e' il caso di sentirsi recapitare accidenti per aver voluto
risparmiare 2 bytes.
- Non sottovalutate mai la lunghezza di un file.
- Usate un buon editor binario (XVI32 e' il mio preferito) per trovare
valori esadecimali in files binari.
- Non credete mai ciecamente alle specifiche di formati di files che vi
vengono date. Spesso chi le ha scritte, se non e' il produttore del file,
non ha analizzato TUTTI i casi possibili, e alcune costanti sono
approssimazioni.
Newsgroup: it.comp.lang.delphi
Titolo: Inviare stampe via e-mail

Ciao a tutti,
qualcuno sa dirmi come è possibile inviare una stampa prodotta con
quickreport via e-mail?
in caso negativo quale metodo tra questi mi consigliereste?
 1) convertire la stampa in formato rtf (se si come?)
 2) convertire la stampa in formato pdf (se si come?)
 3) acquistare un altro prodotto per produrre i Report in grado di
espotare automaticamente nei formati più diffusi (quale mi consigliate?,
in questo caso dovrei anche rifare i miei report?)
Vi ringrazio anticipatamente, e se qualcuno sta partendo per le vacanze,
buone ferie.
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 espotare automaticamente nei formati piů diffusi (quale mi consigliate?,


Ti dico quello che faccio di solito:
utilizzo l'ottimo ekrtf che prende in ingresso template rtf e produce in
uscita file doc.
poi attraverso Ole Automation stampo, visualizzo etc.
Per e-mail puoi mandare il .doc
CIAOUX

Newsgroup: it.comp.lang.delphi
Titolo: Dove sono le FAQ

Ho cercato le Faq ma si trovano solo alcuni capitoli.
Avete il nuovo link ?
Grazie
Ciao
--------------------------------
Inviato via 
http://usenet.libero.it

 Avete il nuovo link ?
No. Tuttavia cerca sempre su groups google che è uno strumento potentissimo
che bisognerebbe utilizzare più frequentemente.
http://makeashorterlink.com/?I23B16806
--
- Carlo -

Newsgroup: it.comp.lang.delphi
Titolo: Info setup

Salve,
esiste un  tool, che mi permetta di conosciere le librerie che devo
importare per poter creare il setup(la distribuzione) della mia
applicazione???
grazie in anticipo
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

applicazione???
gratuito non credo. io ho installshield express ed ha una specifica funzione
che lo fa. non ricordo se ce l'ha anche la versione allegata a Delphi.
Ciao
-- 
Morde. 
(
mo...@despammed.com
)
M-List di icld: 
http://it.groups.yahoo.com/group/icld/

grazie in anticipo
	Ciao
	MassimoB
 
---------------------------
http:\\
www.massimobeschi.it

una maniera per farlo in delphi credo ci sia ...
ed infatti lo ho trovato implementato nei fantastici
tools gexperts 
http://www.gexperts.org/
 vedi nella
documentazione "Project Dependencies" trovi tutte le
dipendenze fra classi (non fra unit a quanto pare ma
fra i tools forse c'è esattamente quello che cerchi)
... non lo ho ancora installato ma credo che sia un
buon inizio per fare ciò che vuoi.

Newsgroup: it.comp.lang.delphi
Titolo: come faccio...

come faccio per verificare all'avvio di un mio programma se una copia
dello stesso è già in esecuzione?

 ha scritto nel messaggio
news:lmm811p4bpuc95uva...@4ax.com...
: come faccio per verificare all'avvio di un mio programma se una copia


 dello stesso è già in esecuzione?
A questo link puoi trovare informazioni e codice anche riguardo all'uso
dei mutex per la verifica dell'istanza dell'applicazione:
http://delphi.about.com/od/windowsshellapi/l/aa100703a.htm
guastatore

guastatore
Grazie mille ad entrambi
:-)

 dello stesso è già in esecuzione?
E' nelle FAQ:
3.6
-DOMANDA:
Come prevenire nuove istanze di un'applicazione in Delphi, ovvero fare in
modo che si possa aprire una volta sola?
Per favore, nei prossimi messaggi, usa "oggetti" piu' significativi.
Grazie e ciao.
ACSH
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

Newsgroup: it.comp.lang.delphi
Titolo: www.joshua2000.com

Visitate il sito 
www.joshua2000.com
 e se qualcuno volesse occuparsi
della creazione di un nuovo newsgroup in questo sito magari dedicato a
delphi me lo faccia sapere, vorrei che joshua2000 diventasse il portale
principale sulla programmazione!!!
Vi aspetto e aspetto numerosi consigli !!!
Ciao a tutti
--
Posted from 
mta13-acc.tin.it
 [212.216.176.44]
via Mailgate.ORG Server - 
http://www.mailgate.org

Caro Gianluca, un consiglio: pubblica schermateeeeeee!! un'immagine vale
piu' di 1000 parole.. Controlla poi il link "novita'", non funziona.
Ciao, Sandro
Newsgroup: it.comp.lang.delphi
Titolo: Tprinter su USB

Ciao a tutti, ho provato ad utilizzare questo codice per stampare, su
stampante delle stringhe.
var F: TextFile;
begin
  AssignFile(F, 'LPT1');// LPT2,COM1,COM2...
  Rewrite(F);
  Writeln(F, 'Hello');
  Writeln(F, 'There!');
  Writeln(F, #12);
  CloseFile(F);
end;
Da quello che ho capito, il file assume il nome della porta dove si
trova la stampante. La mia stampante è sulla porta USB001.
Quando provo a stampare su quella porta, dove è collegata la mia
stampante, non viene generato alcun errore, ma la stampa non avviene.
Qualcuno sa darmi una mano? Grazie.

xche non tprinter?
AS

ci ho provato ma non riesco in alcun modo ad utilizzare tprinter... ho
cercato esempi su esempi ma non funziona... Vedo la coda di stampa che
si apre ma il dcumento non procede...

un po di codice?
AS

begin
   Printer.BeginDoc;
   Printer.Canvas.TextOut(100, 100, 'Hello World!');
   Printer.EndDoc;
end;

e anche così mi da errore quando faccio il rewrite:
var
  MyFile: TextFile;
begin
  AssignPrn(MyFile);
  Rewrite(MyFile);//riferimeno a un oggetto non impostato su istanza
oggetto...
  Writeln(MyFile, 'Print this text');
  CloseFile(MyFile);
end;

trucchetto sporchissimo per pilotare la USB come se fosse una LPTx è prima
"montarla" tramite "net use LPTx: \\nomepc\nome_condivisione:_stampante" e
poi usare il codice di cui sopra.
Anyway, meglio come dice il buon AS
andrea

anche col tuo suggerimento ottengo lo stesso risultato. vedo il
documento nella coda di stampa ma la stampante viene messa in pausa e
non stampa nulla...

e se vai su stampante "normale"?
AS

Sono riuscito, solo che il metodo che utilizza AssignPrn che sarebbe
quello che mi andrebbe a genio non funziona in un'applicazione DELPHI
.NET
Ho bisogno di scrivere riga per riga, ma non so come fare ad ottenere
questo risultato...
Newsgroup: it.comp.lang.delphi
Titolo: Criptare password

Ciao,
ho dotato il mio programma di una password. Vorrei
criptarla e salvarla nel registro, magari in formato binario oppure in modo
tale da non renderla leggibile.
Il mio applicativo non serve all'fbi percio' una funzioncina crypt,decrypt
di poche righe va benissimo.
Ho provato su torry ma le funzioni di criptaggio sono troppo elaborate per i
miei bisogni ed istallare un componente ad hoc non mi sembra il caso.
Qualcuno e' cosi gentile da darmi una mano?
Ciao

puoi fare una chiave alfanumerica che solo te conosci e "girare" il codice
ascii con un XOR utilizzando la stessa funzione per criptare e decriptare.
Senza pretese di sicurezza ovviamente,  ma cosě č semplice :))))

 tale da non renderla leggibile.
function CryptPassword(Pwd: String): String;
const
  TranslateDigit: array ['0'..'9'] of Char =
   ('B','P','H','M','K','L','J','N','G','Q');
  TranslateAlpha: array ['A'..'F'] of Char =
   ('X','S','V','T','W','R');
var
  I: Integer;
begin
  Result := '';
  for I := 1 to Length(Pwd) do
  begin
    Result := Result + IntToHex(Ord(Pwd[I]) xor (150+I), 2);
  end;
  for I := 1 to Length(Result) do
  begin
    if (Result[I] in ['0'..'9']) then
      Result[I] := TranslateDigit[Result[I]]
    else
      Result[I] := TranslateAlpha[Result[I]];
  end;
end;
function DecryptPassword(Pwd: String): String;
var
  I, V: Integer;
function TranslateChar(C: Char): Char;
begin
  case C of
    'B': Result := '0';
    'P': Result := '1';
    'H': Result := '2';
    'M': Result := '3';
    'K': Result := '4';
    'L': Result := '5';
    'J': Result := '6';
    'N': Result := '7';
    'G': Result := '8';
    'Q': Result := '9';
    'X': Result := 'A';
    'S': Result := 'B';
    'V': Result := 'C';
    'T': Result := 'D';
    'W': Result := 'E';
    'R': Result := 'F';
  end;
end;
begin
  Result := '';
  if (Length(Pwd) mod 2) <> 0 then
    raise Exception.Create('Invalid crypted password length !');
  for I := 1 to Length(Pwd) do
  begin
    if not (Pwd[I] in ['B','P','H','M','K','L','J','N',
                       'G','Q','X','S','V','T','W','R'])
    then
      raise Exception.Create('Invalid crypted password !');
    Pwd[I] := TranslateChar(Pwd[I]);
  end;
  I := 1;
  while (I < Length(Pwd)) do
  begin
    Result := Result + Chr(StrToInt('$'+Copy(Pwd, I, 2)) xor
                           (150 + (I+1) div 2));
    Inc(I, 2);
  end;
end;
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 ha scritto nel messaggio
news:KCZl8.8125$S52.2...@news2.tin.it...

Newsgroup: it.comp.lang.delphi
Titolo: Ricavare l'Handle di un'applicazione con Delphi

Azz, possibile che nessuno lo sappia fare? Vabbč ve lo ripropongo se vi
fosse sfuggito il post:
Sapete come fare a trovare l'Handle della finestra attiva nel momento in cui
l'utente la usa?
Ad esempio ho creato un programma ke mi faccia una log e delle azioni
particolari. Ma mi servirebbe sapere ad esempio sapere quando un utente sta
usando internet explore, o il momento in cui sta digitanto su blocco note.
Sapete qualche maniera? Grazie e Ciao

Spero che non sia l'unico a conoscere la parola Foreground, sarebbe
vergognoso all'interno di questo NG!
Cmq c'č l'apetta GetForegroundWindow che ritorna l'handle della finestra
sopra di tutte, dovrebbe essere questo quello che ti serve. Conoscendo
l'handle puoi trovarti la caption e cosě via...
Ciao,
  Fabio

Grazie mille, ora provo. Se devo essere sincere non pensavo ci fosse un api
cosě. Cmq grazie, vi farň sapere...
Ciao e Grazie ancora

Grazie, il tuo sistema ha funzionato, ma mi servirebbero ancora delle cose.
Come faccio ad avere una lista di processi, e poi killare quello che voglio?
E se voglio avere in una listBox, tutti i titoli delle applicazioni come
posso fare? Con ForeGround nn posso. Inoltre sempre con ForeGround, come
posso fare a ricavare il titolo dell'applicazione? Grazie ancora e Ciao

Se provi a fare F1 sull'apetta che ti ho indicato GetForegroundWindow e poi
clicchi su GROUP vedrai tutte le apine inerenti alla gestione delle
finestre!
GetWindowsText per esempio ti ritorna la caption passandogli semplicemente
l'handle che hai ricavato.
Per trovare tutte le finestre aperte mi sa che devi usare l'EnumWindows,
mentre per chiuderne una puoi mandare un messaggio di chiusura con un
semplice PostMessage, se non sbaglio il messaggio è WM_QUIT oppure WM_CLOSE.
Saluti,
  Fabio

Newsgroup: it.comp.lang.delphi
Titolo: Web Service

Salve, ho un problemino che non riesco a risolvere.!!!
Qualcuno mi saprebbe dire come collegarmi a una web service in modalit� protetta?
Ho usato il componente soap THTTPRIO il tutto funziona ma non in modalit� protetta. Mi hanno detto di usare indy ma proprio non ne vengo a capo.. Grazie
-- 
Questo articolo e` stato inviato dal sito web 
http://www.nonsolonews.it

> Mi hanno detto di usare indy ma proprio non ne vengo a capo..
a parte questa cosa che ti hanno detto, che tentativi hai fatto? Con
cosa? Hai gia visto se con google si trva qualcosa?
A.
Newsgroup: it.comp.lang.delphi
Titolo: Dove trovare Open Kylix????????

Salve a tutti, 
sono un povero programmatore Delphi che spera di mettere le mani su Kylix.
Ho provato a iscrivermi al sito della Borland per poterlo scaricare dal
loro sito, ma per errori del server non riesco ad arrivare al link dove
poterlo scaricare.
Esiste un sito dove poter scaricarlo "liberamente" senza registrarsi?
Si trova in qualche Twilight (non so se si scrive cosi')?
Grazie a tutti, Diego.

 Si trova in qualche Twilight (non so se si scrive cosi')?
Lo trovi sul CD-ROM di 
inter.net
 di questo mese.
Per registrarti (dopo averlo installato) vai sul sito.
Ciao
Gianni Giusti

Io l'ho trovato in edicola, Linux & C. di novembre
stai attento che per compilarlo correttamente occorrono librerie C
aggiornate. Se devi installarlo su Mandrake 8 o RedHat 7.2 non
dovrebbero esserci problemi.
Ciao
---------------------------------------------
Io queste cose tecnologiche non le capisco...

C'è anche su "io programmo"......
Merlinweb