mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.delphi
Titolo: Case

Ciao a tutti, una domanda semplice: è possibile che l'istruzione case
controlli delle stringhe:
s:string;
case s of
ciao:...
esci:...
end;//case
?
Grazie mille
Giuseppe
---------------------------------------------------------------------------
Messaggio inviato attraverso 
http://www.trucchiperpc.it
 - sezione newsgroup

 controlli delle stringhe:
Tempo impiegato 2 secondi!
tratto dall' Help:
The case statement provides a readable alternative to complex nested if
conditionals. A case statement has the form
case selectorExpression of
  caseList1: statement1;
  ...
  caseListn: statementn;
end
where selectorExpression is any expression of an ordinal type (string types
are invalid) and each caseList is one of the following:

 controlli delle stringhe:
[...]
Quoto dall'help:
"
The case statement provides a readable alternative to complex nested if
conditionals. A case statement has the form
[...cut...]
where selectorExpression is any expression of an ordinal type (string
types are invalid) "
Quindi direi proprio di no. Ovviamente puoi caricarti la caselist in una
TStringList, dopodiche' usare IndexOf e fare il case su quello. Non e'
pero' particolarmente performante ne' leggibile.
Saluti
Paolo Arosio

 controlli delle stringhe:
si. In Visual Basic. :)
Ciao, Sandro

Grazie mille, pensavo. L'unica cosa che sono riuscito a fare è (ma non con
stringhe ed ha un'ottima leggibilità):
type
Stati=(Connessione,Lettura,Chiusura);
.
var
 S:Stati;
.
case  S of
 
Connessione:
Lettura:
Chiusura:
end;//Case


Grazie mille, pensavo. L'unica cosa che sono riuscito a fare è (ma non con
stringhe ed ha un'ottima leggibilità):
type
Stati=(Connessione,Lettura,Chiusura);
.
var
 S:Stati;
.
case  S of
 
Connessione:
Lettura:
Chiusura:
end;//Case



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

 Messaggio inviato attraverso 
http://www.trucchiperpc.it
 - sezione newsgroup
Ciao, si potrebbe usare anche un 
if.......then


Newsgroup: it.comp.lang.delphi
Titolo: Ruotare un rettangolo

Ciao, dovrei riuscire a ruotare un rettangolo di X gradi
su di un canvas, tenendo fermo un angolo.
Come potrei fare?
Ciao!

 ha scritto nel messaggio
news:qYJga.32405$%p6.21...@news.edisontel.com...

Sposta le coordinate assolute....mi spiego..."sposta" il rettangolo
aal'origine degli assi, calcola la trasformazione delle coordinate dei punti
(con la funzione "sin"), e infine sposta nuovamente il rettangolo. Spero di
essermi spiegato...


Non sono forte in trigonometria. Potresti farmi un esempio?
Solo se puoi, grazie!

 ha scritto nel messaggio
news:5OLga.32434$%p6.21...@news.edisontel.com...

Ehm...io ricordo come si fà...ma non sò come spiegartelo....fai una ricerca
su google per "rotazione poligono formula" , magari ti fanno qualche
esempio. Cmq se hai capito un pò quel che ti ho detto, non dovrebbe essere
diffile...prendi della carta millimetrata e guarda se ci arrivi col
ragionamento (non ho proprio nemmeno un minuto per trovarti le formule,
scusami tanto :(    )

 ha scritto nel messaggio
news:MB0ha.34620$i26.9...@news2.tin.it...

Newsgroup: it.comp.lang.delphi
Titolo: Errore Firebird campo DATE con campo TDateTime

eseguendo una query di inserimento es:
INSERT INTO TB_ANAGRAFE
(COGNOME, NOME, DATANASCITA ...)
VALUES (:Cognome, :Nome, :DataNascita..)
il campo nel db e' di tipo DATE, la variabile e' TDateTime
il parametro che manda in errore e proprio il campo DATANASCITA
se inserisco i dati a mano tramite SqlEditor di IBExpert accetta la data
come gg.mm.yyy con i punti.
ho provato ad assegnare in vari modi la variabile dtNascita (di tipo 
TDateTime)
dtNascita e' StrToDate('23/10/1980') oppure
iAnno := 1980; iMese := 10; iGiorno := 23;
dtNascita := EncodeDate(iAnno, iMese, iGiorno);
SQL_Anagrafe.Params.ParamByName('DtNascita').AsDateTime := dtNascita
quando esegue la Query con ExecSql, va in errore "unknow ISC error 0"
se non assegno il parametri DtNascita esegue ed inserisce <null> nel campo
Firebird 2,1 SqlDialect3,. dbExpress, Delphi 2009
Certo potrei usare un Integer o VarCar, non uso controlli dbaware sulle date
qualche idea, a parte cambiare tipo di formato ? 


Premessa io uso i componenti Dbx.
Con una query che contiene parametri di tipo Data / dataora uso la 
funzione FormatDateTime per "aggiustare" i vari formati di data/dataora, 
dunque prova a guardare FormatDateTime ..
dovrebbe essere qualcosa del tipo:
Dataset.Params.ParamByName('DataNascita').Value := 
FormatDateTime('mm/dd/yyyy',Valore);
Dovresti settare 'mm/dd/yyyy' come variabile di configurazione del 
programma e settarla una volta x tutte.
^_Goblin_^
-- 
Ibis et redibis non morieris in bello
http://goblinland.myminicity.com/

> programma e settarla una volta x tutte.
ho provato ad utilizzare FormatDateTime(sFormataData, Valore).Value
dove sFormatoData e' 'mm/dd/yyyy' , e risolve i conflitti sulle date.
grazie
Maurizio 

 SQL_Anagrafe.Params.ParamByName('DtNascita').AsDateTime := dtNascita
A differenza di ADO, dove hai solo .Value, i Tparam hanno le
assegnazioni tipizzate come AsInteger, AsString, AsDateTime..
Ed esiste anche *AsDate*.. ...L'hai gia' provata?
A.

 dove sFormatoData e' 'mm/dd/yyyy' , e risolve i conflitti sulle date.
uhm....
A.

"Alberto Salvati"  ha scritto

si ma il risultato e' come per Ado, una data vuota (valore 0) viene
interpretata dal Db come 30/12/1899, e'  un po' fastidioso nell'uso
di un DBgrid non resta che agire sull'evento OnDrawDataCell per
intercettare questi valori.
Maurizio

Newsgroup: it.comp.lang.delphi
Titolo: Dynamic package loading

Interessante articolo all'indirizzo:
http://community.borland.com/article/0,1410,27178,00.html
Saluti
Paolo Arosio

 
http://community.borland.com/article/0,1410,27178,00.html
Solo per dovere d'informazione:
Un articolo sullo stesso argomento (e soprattutto in italiano) è apparso già
sul numero 51, Ottobre 2001, di IoProgrammo corredato anke di esempio.
Ciao,
Francesco.
P.S.
...non lavoro per la testata ke ho nominato.
Newsgroup: it.comp.lang.delphi
Titolo: CRCrid.dcu non trovato

Ho provato il controllo StringGrid (CRGrid) ma quando vado per compilare 
  mi restituisce il seguente messaggio:
[Fatal Error] touch.pas(10): File not found: 'CRGrid.dcu'
eppure il controllo lo vedo sul form ho provato con google ma non mi 
restituisce niente sulla ricerca CRGrid.dcu
Che faccio ???


In Tools - Environment - Library , devi aggiungere nella Libray Path il 
percorso di dove hai messo i sorgenti del componente.
Giulio 


$(DELPHI)\source\vcl è già presente e il componente in questione fa 
parte della vcl non è mio è questo che non capisco.
Non vorrei reistallare proprio adesso e quella stringgrid mi serve caspita.
Dani

-- 
"GiulioC" <giulio.c...@SPAMunisoft-net.it> ha scritto nel messaggio
news:N3FSd.937165$35.35...@news4.tin.it...

Ciao Giulio
CRgrid.dcu non l'ho mai sentita nominare.
Non è che hai involontariamente modificato il nome della dcu nella uses ?
La unit della StringGrid è   Grids.
Che roba è sto CRgrid ?
GP

 GP
In effetti non lò sò in quanto non ho fatto altro che aggiungere il 
controllo sul form (unica mia colpa). Poi ha fatto tutto da solo.
Boh ?
Dani

 Boh ?
Alt fermi tutti ho scoperto che diavolo è. Fa parte dei componenti MyDac 
che ho disinstallato giorni fa il problema è che non ho mai usato li ho 
disinstallati attraverso l'unistal dal pannello di controllo ed è 
rimasto del materiale adesso provo a reinstallarlo e a rimuoverlo 
nuovamente sperando che non ci rimanga roba stavolta.
Scusate per la strafalcionata ma non me l'aspettavo.
Dani

Newsgroup: it.comp.lang.delphi
Titolo: Pilotare Excel?

Come si pilota Excel tramite le ole?
Vi spiego ho un file.txt elaborato da me, al suo interno ci sono vari campi
delimitati da un " | "
es.
pizza|100gr|gnam gnam|
se eseguo la funzione importa da excel e imposto i parametrei riesco a
importarlo senza problemi.
Come faccio a farglielo fare da delphi???? naturamente tutto in automatico.
Grazie per il vostro aiuto
Ciro

 automatico.
Con ADO..
Dai una occhiata qui: 
http://delphi.about.com/library/weekly/aa090903a.htm
Ciao!
miyomo

 pizza|100gr|gnam gnam|
Lo carichi in Delphi e lo parsi in delphi, poi tramite OLE scrivi i
dati in Excel.
Saluti.
-- 
I'am what I'am, I do what I can

"Setec Astronomy" <setec@_NO_NOSPAM_freemail.it> ha scritto nel messaggio
news:6IX8b.316892$lK4.9...@twister1.libero.it...

mi puoi scrivere la sintassi per le ole???? e i componenti che mi servono
non li ho mai usati

c'e sempre una prima volta.
cio che ti serve, come gia detto in altri 1000 (o erano 2000, non so...
oramai ho perso il conto ...) è la guida VBA di Excel che trovi sui cd di
office.
Bye
A
--
Per rispondere a questo messaggio non usare il reply ma scrivere al seguente
indirizzo:
al.salvati(at)mclink(puntino)it

c'e sempre una prima volta.
Bentornato Alberto, che fine avevi fatto? 
Era un po' che non postavi piu'.
Magari eri alle hawaii in ferie...
-- 
Morde. 
(morde at programmer dot net)

 Magari eri alle hawaii in ferie...
sisisisisisisi! proprio le haway... tant'haway..;)
A
--
Per rispondere non usare il reply ma scrivere al seguente indirizzo:
alsalvati(at)
supereva.it
Newsgroup: it.comp.lang.delphi
Titolo: Eliminazione di caratteri blank in una stringa

Esiste una funzione in delphi che data una stringa con dei caratteri blank
li elimini?
Esempio:
Stringa:     '    Pippo'
Risultato:  'Pippo'
oppure anche
Stringa:     '   Pippone      '
Risultato:   'Pippone'

 ha scritto nel messaggio
news:H1Fo8.86318$1S3.2...@twister1.libero.it...

Trim

Se cerchi:
strings handling routines nella guida di delphi trovi
l'elenco completo delle funzioni esistenti con la
relativa descrizione.
Bye
AS
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

Newsgroup: it.comp.lang.delphi
Titolo: MyBase e XML, come si fa' il pack?

Come da oggetto, non riesco ad eliminare i record cancellati dal file XML
sorgente.
Inoltre non riesco a capire il perche' mi faccia un ordinamento automatico
in base al primo campo.
Grazie, Stefania.

"Pinka" <pi...@email.italia> ha scritto nel messaggio
news:GuHo8.84878$%g7.27...@twister2.libero.it...

Ce ne è voluto ...
ClientDataSet1.MergeChangeLog; // elimina la parte dei log
ClientDataSet1.SaveToFile(ClientDataSet1.FileName); // salva il file su se
stesso
Se vai sull'help, cerchi TClientDataset, vai su "See also" l'ultime tre
dell'elenco sono interessanti.
Buon Lavoro

Newsgroup: it.comp.lang.delphi
Titolo: Leggere/scrivere nel registro di Windows

Hola!
in una applicazione che stò realizzando per prova, avrei la necessità di
leggere/scrivere dei valori stringa nel registro di Windows.
qualcuno sa darmi qualche indicazione, vista la mia inesperienza con Delphi?
grazie 1000
Apu

 ha scritto nel messaggio
news:tYjp9.13785$%M1.3...@twister2.libero.it...

Prova a dare un okkio alla classe TRegistry dovrebbe fare al caso tuo
^_Goblin_^


--------------------------------
Inviato via 
http://usenet.libero.it

var
reg:Tregistry;
begin
reg:=Tregistry.create;
reg.root:=hkcu;
reg.openkey(.......)
ecc. ecc.


Newsgroup: it.comp.lang.delphi
Titolo: POP e SMTP

Ciao,
scusate la domanda: io vengo da Delphi 6 e vorrei passare a Delphi 7. OK 
direte voi, ma avevo fatto un programma che utilizzava alcuni componenti 
presenti nella palette 'FastNet'...ma in Delphi 7 questi componenti non 
ci sono !!
Come faccio a leggere e inviare posta tramite pop e smtp (insomma come 
le più comuni caselle di posta).
Grazie della risposta
Fabio



usa i componenti Indy
CIAOUX

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

Come č possibile capovolgere un'immagine di n gradi?
Spero che qualcuno mi possa aiutare.
Grazie in anticipo.
PS: scusate per le 3 domande consecutive ma ho cercato in tutti i modi a
trovare una soluzione a 3 quesiti posti ma non ci sono ancora riuscito.

> Come č possibile capovolgere un'immagine di n gradi?
Prova qui:
http://www.efg2.com/Lab/ImageProcessing/RotateScanline.htm
guastatore
Newsgroup: it.comp.lang.delphi
Titolo: Delphi XE8

Salve a tutto il NG,
sto usando Delphi XE8 su un PC collegato al web tramite proxy, vorrei disattivare il continuo tantativo di connessione al WEB da parte di Delphi perchè non memorizza i dati di connessione e il proxy richiede in continuazione user e password.
Sapete se è possibile?
 
Grazie a tutti.
 
Fabio

 Sapete se è possibile?
 
Bisogna determinare innanzitutto che cosa di preciso si collega a Internet nell'IDE di Delphi: sospetto che si tratti della "Welcome Page", che mostra le notizie aggiornate tra le altre cose, oppure la toolbar della community EDN introdotta di recente.
 
La soluzione potrebbe essere quella di andare nel Registro di Configurazione e rimuovere quei package affinché non vengano caricati dall'IDE al momento dell'avvio.
 
Come suggerimento, farei la prova con un nuovo profilo di configurazione, giusto per sicurezza, che puoi creare lanciando l'IDE (bds.exe) con l'opzione "-r", tipo
 
bds.exe -rNomeProfilo
 
In questo modo, crei un'alberatura nuova nel Registro di Windows, con le impostazioni predefinite.
 
Se cerchi sotto la chiave [HKEY_CURRENT_USER\SOFTWARE\Embarcadero\BDS\16.0\Known IDE Packages] (trova il nome della tua nuova configurazione), puoi provare a rimuovere i package
 
$(BDS)\Bin\CommunityToolbar220.bpl
$(BDS)\Bin\startpageide220.bpl
 
che corrispondono a
 
Embarcadero Community Toolbar
Start Page IDE Package
 
Potrebbero però essercene altri, magari la stessa estensione "Get It" introdotta di recente per scaricare e installare package nell'IDE.
 
Sperimenta nella configurazione di prova, o fai un backup della chiave se usi l'originale, e di volta in volta avvia l'IDE per vedere se noti cambiamenti per il tuo problema.
 
Ciao,
  Marco.
 
-- 
MARCO BREVEGLIERI (Software and Web Developer)
 #Home: 
http://www.marco.breveglieri.name
 
 #Blog: 
http://www.compilaquindiva.com
 
 #DelphiPodcast: 
http://www.delphipodcast.com
 

 
 
Grazie Marco,
come sempre puntuale e preciso, appena posso faccio la prova.
 
Saluti
Fabio

Newsgroup: it.comp.lang.delphi
Titolo: Un aiuto per QuickReport

Salve,
qualcuno di voi ha una lista delle "Mask" da poter usare in un report (tipo
data o importo o altro ancora).


non te le listo perche' sono tante,
usano lo stesso formato delle VCL. 
basta guardare l'help delle VCL:
-> FormatFloat
-> FormatDateTime
-> ...
nel file del5vcl.hlp

Newsgroup: it.comp.lang.delphi
Titolo: delphi 7 lettura da file

Ciao a tutti!!!!! Io ho un file con estensione .rst e dovrei leggere
al suo interno per estrarmi una pezzo di string..solo che non ho idea
di come si possa fare..qualcuno ha qualche idea per me???
Grazie!!!

> di come si possa fare..qualcuno ha qualche idea per me???
..studiare un pochino?
..vecchi post?
A.
Newsgroup: it.comp.lang.delphi
Titolo: Icone registrate

Salve a tutti.
Sapete se esite una funzione che passatole l'estensione di un file,
restituisce l'icona associata da windows, se il file č registrato?
Grazie.

 ne esistono diverse , cercale con google...ciao.
Gią. Ma che frase chiave usare?

Grazie dei consigli.
Ho fatto così
procedure GetIconaFile(const NomeFile: string; var Immagine: TImage;
Piccola: Boolean);
var
  tempSFI: TShFileInfo;
begin
  FillChar(tempSFI, SizeOf(tempSFI), 0);
  if SHGetFileInfo(PCHAR(NomeFile), 0, tempSFI, SizeOf(tempSFI), SHGFI_ICON
+ Ord(Piccola)) <> 0 then begin
    Immagine.Picture.Icon.ReleaseHandle;
    Immagine.Picture.Icon.Handle := tempSFI.hIcon;
  end;
end;
Newsgroup: it.comp.lang.delphi
Titolo: Ancora su idTCPClient

Scusate ma sto' ancora combattendo con la mia "bestia nera" i componenti 
Indy ed in particolare la comunicazione TCP. Sono ad un punto morto 
finchè non riesco a risolvere un problemino che mi stà facendo 
incavolare alquanto.
Premessa: invio un comando al server seguito dal numero del record che 
mi serve ed aspetto una risposta affermativa seguita dal record stesso.
quindi se scrivo:
   Num := 1;
   Repeat
     // ----------------------------
     // Mando il comando al server
     // ----------------------------
     TCPClient.IOHandler.WriteLn(GetComandoByCommand(ID_ListUsers));
     TCPClient.IOHandler.Write(RawToBytes(Numero, SizeOf(Numero)));
     Ok := False;
     // ----------------------------
     // Risposta affermativa ?	
     // ----------------------------
     If FClient.Risposta_Ok(False) Then
        Begin
          TCPClient.IOHandler.ReadBytes(RI, SizeOf(R));
          BytesToRaw(RI, RA, SizeOf(RA));
          Ok := True;
      End;
     If Ok Then
        Begin
.. in questo punto la struttura RA contiene sempre lo stesso record ma 
mettendo un debug sul server sembra che invii il record esatto ..
          Inc(Num);
        End;
   Until Not Ok;
Dopo vari tentativi ho estratto la routine di invio richiesta e 
prelevamento dato in questa maniera:
Function TFRoadMap.GetUtente(    Numero : Integer;
                              Var R      : RecAttore) : Boolean;
Var
   RI : tIdBytes;
Begin
   TCPClient.IOHandler.WriteLn(GetComandoByCommand(ID_ListUsers));
   TCPClient.IOHandler.Write(RawToBytes(Numero, SizeOf(Numero)));
   Result := False;
   If FClient.Risposta_Ok(False) Then
      Begin
        TCPClient.IOHandler.ReadBytes(RI, SizeOf(R));
        BytesToRaw(RI, R, SizeOf(R));
        Result := True;
      End;
End;
e ho modificato la procedura di prima come segue:
   Num := 1;
   Repeat
     Ok := GetUtente(Num, RA);
     If Ok Then
        Begin
  ... in questo punto ho i record esatti ....
          Inc(Num);
        End;
   Until Not Ok;
Mi spiegate perchè si verifica un fatto simile. Se non ne vengo a capo 
non riesco ad essere sicuro di cosa ricevo a seguito di una qualsiasi 
richiesta.
Grazie a tutti,
David

>           BytesToRaw(RI, RA, SizeOf(RA));
Non è una funzione delphi o una api.. Mi sbaglio?
Se l'hai scritta tu posta il codice, David.
A.

Non l'ho scritta io, è inclusa nelle indy versione 10 e si usa per 
convertire un buffer qualsiasi (preso dal componente) in una variabile 
locale
Newsgroup: it.comp.lang.delphi
Titolo: [OT] Nome del collegamento

Salve a tutti
forse sono un po OT ....
Il mio exe salvato sul disco da qualche parte viene
richiamato direttamente mediante un link sul desktop.
Il nome del link viene automaticamente creato
da windows come:  collegamento al xxx.exe  ecc.
e può essere ridenominato dall'utente come  yyyy
Cè modo di sapere durante il runtime COME
hanno ridenominato il link ?
application.ExeName ovviamente non va bene.
Qualche idea ?
Grazie e scusate per l'OT
C. 

 hanno ridenominato il link ?
Forse non hai un'idea precisa di cosa sono e come funzionano i 
collegamenti. Possono esserci N collegamenti allo stesso file
.exe (sul desktop e in qualunque altra cartella) quindi quello che 
chiedi non ha senso...
Forse la cosa piu' simile a quello che chiedi e' cercare su tutti i link 
nel desktop alla ricerca di uno che punta proprio al tuo eseguibile.
ciao
Giacomo


Grazie
C.
Newsgroup: it.comp.lang.delphi
Titolo: Cambio di finestra

Come faccio a sapere quando l'utente passa dalla mia finestra a un'altro
programma aperto, ad esempio cliccando sulla barra sotto o con ALT-TAB ?
Ho provato Activate e DeActivate, ma non sembra funzionare..
Ciao a tutti !                {MSX}

Xche non vedi se vi sono eventi di TApplication per fare 'sta cosa?
Se lavori sul singolo form, quando crei una app con + form ti tocca o
crearti una nuova classe TForm che ti gestisca la situazione in automatico
oppure (ma è da fessi...!) scrivere una funzione e "appiopparla" all'evento
giusto in goni form.
Al momento non D4 installato: do dovuto sistemare il pc quindi scusami se
non sono + diretto...
Saluti
AS

 Ho provato Activate e DeActivate, ma non sembra funzionare..
Prova con gli eventi onHide e onShow per sapere quando si esce e quando si
entra in una finestra.
Mario
---------------------------------------
MBSoftware
http://web.tiscalinet.it/mbsoftware
---------------------------------------

...


 wrote in message
Gini4.5111$h23....@news.infostrada.it...


Ho provato Activate e DeActivate, ma non sembra funzionare..
un esempio che mi viene in mente ora, consiste nel controllare chi ha il
focus in quel momento.
Senza scomodare un timer, puoi utilizzare i messaggi dell' applicazione.
Se crei una procedura compatibile e l' assegni al metodo OnMessage dell'
oggetto application puoi intercettare tutti i messaggi che giungono alla
cosa dell' applicazione.
Ora per sapere se è la tua finestra ad avere il focus o un' altra di un'
altra application, basta controllare se
l' handle restituito dalla GetFocus è identico all' handle della finestra
della tua applicazione.
Se gli handle sono identici allora è la tua finestra ad avere il focus,
altrimenti è un' altra.
Oppure tramite Winsight controlla quali messaggi vengono invocati e
utilizzali per fare il controllo che ti ho accennato.
Comunque prima di vedere questa tecnica che non ho provato, controlla bene
l' oggetto TApplication che oltre a Mario ti ha suggerito anche Wayl, o fai
riferimento al Win32SDK considerando API e messaggi ..... magari c' è anche
qualcosa di pronto !!! :-)))
Ti saluto......ciao !!
Antonio Tarolla
BSSoftware Tips Mailing - List Support

 della tua applicazione.
Beh, a questo punto io userei il WM_KILLFOCUS che viene spedito appena prima
che la finestra perda il focus...
Ciao :-)
--
(¯`·.¸¸.·´¯`·.¸¸.-> Andrea <-.¸¸.·´¯`·.¸¸.·´¯)
AntiSpam: rimuovere il trattino basso dall'indirizzo per rispondere
AntiSpam: remove the underscore from the e-mail address to reply

che la finestra perda il focus...
ebbene si....infatti gli avevo consigliato di guardare API e messaggi.
Io ricordavo vagamente un messaggio simile. Mi pare che c' è anche il
WM_SETFOCUS per l' operazione inversa, ma non ci metto la mano sul fuoco,
magari l' ho scritto pure male !! eheh
Ok Andrea, ci sentiamo !!
Ciaoooo !!!!! :-))

Newsgroup: it.comp.lang.delphi
Titolo: Report in versione web

Ho bisogno di creare dei report visibili anche in una intranet attraverso
internet explorer.
C'è qualche modo x farlo con Delphi e QR? Quali altri strumenti devo
utilizzare
a parte il webserver?
ciao e grazie
Alessandro

 
dipende dal tipo di report, io ho fatto una cosa simile (per una pagina 
che deve essere completata in modo semplice):
Mi sono creato un file html stadrard, ho fatto un programma che mi 
generasse il file di testo uguale a quello che mi sono creato con 
l'aggiunta di quello che doveva cambiare (un normale file testo).
Mi gestisco l'html come fosse un testo.
Per quanto riguarda il trasferimento su internet, visto che si trattava 
di pochi file continuo a farlo a mano, sopratutto perche' alcuni campi 
di queste pagine html devo compilarli poi a mano.
Oppure dovrebbero esserci già nelle versioni di delphi professional dei 
componenti che ti permettono poi di collegarti al sito (nel D2 qualcosa 
è presente anche se non li ho mai usati per cui non so dirti).
ciao
-- 
Per rispondere togliere "1975" dall'indirizzo
To Reply remove "1975"
-------------------------------------------

Newsgroup: it.comp.lang.delphi
Titolo: DDay 2009

Ciao a tutti,
qualcuno di voi andrà al dday di quest'anno?
Saluti,
Paolo Arosio

 qualcuno di voi andrà al dday di quest'anno?
E' un po' prematuro (bisogna vedere gli impegni lavorativi al momento), 
però ce l'ho sempre fatta ad andarci negli ultimi anni, quindi dovrei 
riuscirci anche questo. :-)
-- 
MARCO BREVEGLIERI
  (
http://www.marco.breveglieri.name
)
Newsgroup: it.comp.lang.delphi
Titolo: sapere se sono connesso a internet

sapete indicarmi ove reperire la risposta a tale domanda (se non qui
ovviamente)?
grazie mille
--
Ciao
Gianfranco Marchese
e-mail dgruma@NOPUBBLICITA'
tin.it
 (Da togliere NOPUBBLICITA' se vuoi
rispondermi in privato)
sito internet personale: 
http://www.turbo-pascal.cjb.net
  Tutto sul Turbo
Pascal  1.5

usesWinInet
  if InternetGetConnectedState(@dwFlags, 0) then
    Internet := 'ONLINE'
  else
    Internet := 'OFFLINE';
ciao

 grazie mille
Non credo sia possibile, se non cercando di contattare un indirizzo IP noto
tramite ICMP (come fa il comando ping, ad esempio).

tramite ICMP (come fa il comando ping, ad esempio).
Purtroppo però questa soluzione non è applicabile, molte volte, perché
fa sollevare la finestra di connessione di accesso remoto.

"Papero Piero" <Pap...@Piero.it> ha scritto nel messaggio
news:HMAfb.165903$hE5.5...@news1.tin.it...

non riconosce il valore dwflags, mi da errore...

mi sembra che funziona dal D6 in poi...


ed io ho instalato questa versione...forse devo aggiungere qualche altra
libreria nella clausola uses...


Newsgroup: it.comp.lang.delphi
Titolo: Borlndmm.dll,cp3245mt.dll,vcl40.bpl

Ciao a tutti,
ho scritto un programma in Delphi4 che chiama una dll in Delphi4.
Quando installo tutto su un pc che non ha Delphi4 mi vengono chiesti i
seguenti files:
Borlndmm.dll,cp3245mt.dll,vcl40.bpl.
Ne ho scritto poi uno più semplice che chiama una dll più semplice e
nessuno di questi file mi viene ora chiesto!
Mi chiedevo visto che non chiamo esplicitamente questi file ne
dall'eseguibile e ne dalla dll da cosa dipende la necessità di questi
ulteriori files?
In poche parole quand'è che sono necessari questi file?
Borlndmm.dll mi sembra per il passaggio di stringhe in una dll,ma gli
altri 2?
Perchè prima li chiede e poi no?Dipende dai componenti che utilizzo?
Ciao e grazie a tutti...!

 Ciao e grazie a tutti...!
Ciao
Andrea

 ha scritto nel messaggio
news:as2k2f$n0684$1...@ID-170738.news.dfncis.de...

Newsgroup: it.comp.lang.delphi
Titolo: trasparenza

Vorrei realizare form trasparenti, ma non bucate. Su Torry ho trovato un
componente chiamato CoolForm, che mi crea form trasparenti e bucate. Sapete
se c'č qualche altro componente, o un Api che fa al caso mio.
Grazie
P.S.
Uso win 98

 se c'è qualche altro componente, o un Api che fa al caso mio.


Newsgroup: it.comp.lang.delphi
Titolo: Skin e file DFM

Ciao a tutti,
stiamo scrivendo un'applicazione che potrà essere 
personalizzata con skin diverse. Un'idea che ci è venuta è 
quella di utilizzare i file DFM per modificare l'aspetto 
della form.
Mi piacerebbe poter scrivere un TForm che si modifichi a 
runtime leggendo un file DFM. Da qualche parte c'è 
sicuramente un classe che fa questo lavoro se Marco Cantù ha 
potuto scrivere un ObjectInspector da usare a RunTime.
Ogni suggerimento o dritta saranno graditissimi.
Grazie in anticipo,
Akira





 sicuramente un classe che fa questo lavoro se Marco Cantů ha


 ha scritto nel messaggio
news:3A81E417...@i-side.com...

Potresti studiarti come Delphi risolve il problema delle DLL x il multi
lingua e risolverlo in un modo simile.
Ci sono degli esempi forniti con il Delphi stesso
Ciao,
Stefano

Io su Torry ho trovato il componente SkinForm che in pratica fà quello che
serve a te, dinamicamente carica gli skin della form.
se non riesci a trovarlo mandami un msg su icq: 2970233 che te lo spedisco
: )
byez
Newsgroup: it.comp.lang.delphi
Titolo: Riconoscere se netscape e internet explorer sono installati

Buongiorno a tutto in NG,
Io dovrei riconoscere se su un pc c'e' installato netscape o explorer.
In base a cio' che leggo da una chiave da file .INI apro o l'uno o l'altro
browser o il browser di default.
Esiste qualcosa che mi puo' aiutare a fare cio' ?
Grazie in anticipo a tutti.
Ciao
Davide

Ciao,
quarda nel registry:
 HKEY_LOCAL_MACHINE\Software\Microsoft\Internet Explorer 
Ciao, Rocco.


Ok,
guardo se esiste la chiave nel registry ma,
Dove recupero il path di installazione dell'internet explorer, esempio
c:\program files\plus!\internet explorer\ieplorer.exe nel mio caso, nelle
sottochiavi del path da te te indicatomi non c'e'(cmq adesso provo a
riguardare) e per NETSCAPE, io ho installato la 4.70 che ha questo path:
HKEY_LOCAL_MACHINE\SOFTWARE\Netscape\Netscape Navigator\4.7 (en)\Main qui ho
una chiave che mi identifica il path dell'exe di netscape ma vorrei evitare
di guardare dove e come le varie ver. di netscpe 3.0, 4,70 6 composer ecc.
ecc. vanno nel registry, come fare???
Grazie e Ciao.

 Io dovrei riconoscere se su un pc c'e' installato netscape o explorer.
...
Puoi provare a vedere se sono elencati i rispettivi uninstaller
HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall
Saluti
Paolo Arosio


Grazie Paolo, ma nulla ancora, la chiave di netscape è
presente:HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninst
all\Netscape Communicator 4.7, ma le rispettive sottochiavi non mi fanno
risalire al path della dir di installazione, devo sapere il nome specifico
del netscape inserito 4,7 - 4,73(en) ecc...lo stesso discorso vale pre IE
,non  riesco a risalire a questo path, di installazione. Io ho provato con
HKEY_LOCAL_MACHINE\SOFTWARE\netscape\.., qui ho il path di inst. ma come
faccio a risalire al nome ogni ver cambia nella
sottochiave:HKEY_LOCAL_MACHINE\SOFTWARE\Netscape\Netscape
Navigator\MAPI\CurrentVersion si c'e' quella corretta ma il nome non
corrisponde, ma non so piu' che CA.ZO fare.
Ciao e grazie comunque.
Newsgroup: it.comp.lang.delphi
Titolo: alternativa ai TEXTFILE????

Salve a tutti. 
Sto cercando una alternativa ai textfile per scrivere un
file di log.
Sto programmando in delphi 4 standard. Qualcuno può propormi
qualcosa??
Debbo scriverci il log di un programma e non vorrei complicarmi
troppo la vita quando vado a controllare la sua dimansione. Deve infatti
cambiare file quando supera una certa dimensioone.
Grazie a tutti.
--------------------------------
Inviato via 
http://usenet.iol.it

Potresti usare i CDS, che sono i data packets in XML,
e li usi come table con il clientdataset.
Se vuoi ho fatto un piccolo tool per convertire strutture paradox in XML o
CDS, rispondimi in e-mail.
dm...@virgilio.it
Ciao

 cambiare file quando supera una certa dimensioone.
Se il tuo problema è solo questo, io una idea l'avrei...
Creati una classe.
In questa classe metti come proprietà le seguenti:
MaxLogFileSize: integer 
// dimensione massima di ogni file di log
FirstFileName: string; 
nome di base del tuo file di log. 
CurrentSize: integer;
Dimensione attuale
LogFilesCount: integer
Contatore dei log generati
E come metodi, oltre al costruttore e al distruttore,
 ci metti una cosa del tipo:
function WriteOnLog(const Value: string; 
  var ActiveLogFileName:string): integer;
Questo metodo lo lanci x scrivere sul log.
Come risultato la funzione di da un valore che ti permette di sapere
se la scrittura è andata a buon fine.
Potrebbe essere un boolean, ma io uso gli interi xche, se poi ci
scappa che ti serve qualcosa di + rispetto a True o False,
devi modificare il codice.
Questa funzione fa una cosa molto semplice:
function TMiaClasse.WriteOnLog(const Value: string;
  var ActiveLogFileName:string): integer;
NewLineLenght := Length(Value)
if (DimensioneAttuale + NewLineLnght +2) > MaxLogFile then
begin
  // chiude il file di log attivo
  // libera l'hanlde del vecchio file
  // calcola un nuovo nome di file a partire da FirstFileName
  // apre il nuovo file
  // azzera la prop dimesnioneattuale.
  inc(LogFilesCount);
end;
WriteLn(FLog, Value);
DimensioneAttuale := DimensioneAttuale + NewLineLenght. 
ActiveLogFileName := <Nome del file attivo
Aggiungo il +2 nel controllo x considerare il caratteri
CRLF (#13#10) che terminano la riga.
Okkio! E' solo uno spunto.
Ad esempio...
si potrebbe aggiungere una prop di tipo TStringList
che contiene i nomi dei files di log generati, in modo da
averne traccia e leggerne il numero con la prop. Items.Count.
Si potrebbe mettere una prop per indicare la cartella
nella quale mettere i files
Si potrebbe aggiungere un evento che viene generato
quando si crea un nuovo file
...
Bye
As
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 cambiare file quando supera una certa dimensioone.
uses
  Windows, SysUtils;
function TextFileSize(var T : TextFile) : Int64;
var
  Lo, Hi : DWORD;
begin
  Lo := GetFileSize(TTextRec(T).Handle,@Hi);
  Result := Lo + Int64(Hi) shl 32;
end;
Prova con questa funzione. Sospetto che ci possa essere uno scostamento 
pari al massimo a TTextRec(T).BufSize, a seconda di come Delphi usa i 
buffers in scrittura (sono troppo pigro per controllare ora ^_^).
-- 
Roberto Lupi
Newsgroup: it.comp.lang.delphi
Titolo: Download File da Internet

Ciao a tutti !!!
E' da un po' che non scarico + messaggi dal newsgroup ed ora ne ho 7000 da
leggere.
Premesso che li guarderò tutti per vedere se la mia domanda l'ha già postata
qualcuno,
pongo lo stesso il quesito:
Che componente devo usare per scaricare dei file da internet ???
Mi spiego meglio.
Ho bisogno di scaricare dei file ad esempio il file
http://digilander.iol.it/nomeutente/dati/sport.dat
e salvarli in una directory sul mio disco fisso.
Penso serva il componente per l' FTP,
ma quando lancio il programma va in errore e mi dice che manca userid e
password.
E' possibile scaricare il file senza inserirla?
Oppure devo usare un altro componente, ad esempio quello per l'HTTP?
Ringrazio anticipatamente se qualcuno vuol essere così gentile da
rispondere.
CiaoCiao.

 ha scritto nel messaggio
news:Cp7e9.11267$%z1.2...@twister1.libero.it...

devi per forza usare la pass/user dal sito dove scarichi......
FTP.user:='pippo';
FTP.password='pippo';
Max

Grazie 1000 per la risposta.
Calcolando che è il mio sito, posso farlo,
ma se al posto mio il programma lo usasse un'altra persona sul suo PC?
Come posso fare per permettere al programma di scaricare dei file?
C'è qualche altro componente da usare al posto dell'FTP ???
Potrei farlo anche con il componente che gestisce HTTP ?


Newsgroup: it.comp.lang.delphi
Titolo: Problemi con TListView

    Ciao, ragazzi!  Ho un problema con un oggetto TListView:
- a un certo punto ho un ListView caricato con 1000 elementi;
- lancio ListView.Items.Clear;
     ci mette 3 minuti per eseguire l'operazione "Clear"
        cosa devo fare per non aspettare cosi troppo, oppure è l'oggetto che
funziona cosi male?
        Grazie, George.

 wrote...

Mah, non saprei dirti se è fisiologico un tempo del genere (dovresti
specificare il sistema, la CPU, RAM, ecc ecc)...
Cmq penso che potresti migliorare le cose con una
ListView.Items.BeginUpdate;
ListView.Items.Clear;
ListView.Items.EndUpdate;
Non ci metto la mano sul fuoco (anche perchè forse lo fa già all'interno di
Clear...)
ciao :-)
--
(¯`·.¸¸.·´¯`·.¸¸.-> Andrea <-.¸¸.·´¯`·.¸¸.·´¯)
AntiSpam: rimuovere il trattino basso dall'indirizzo per rispondere
AntiSpam: remove the underscore from the e-mail address to reply

...

Newsgroup: it.comp.lang.delphi
Titolo: Track Bar

Come posso collegare un componente TTrackBar con un TMediaPlayer (ed
eventualmente con un TAnimate) ? Grazie in anticipo per l'aiuto!

 wrote in message
5ZTX4.8556$VM3....@news.infostrada.it...


Newsgroup: it.comp.lang.delphi
Titolo: [CY] Eccomi !

--- posted by geoForum on 
http://www.delphiedintorni.it

Trollati !


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

Ciao a tutti,
è un paio di giorni che mi sto scontrando con un problema e non
riesco a venirne fuori.
Posto un pezzo di codice similare:
var
   tmpx, tmp, tmpf : extended;
begin
   // 1 caso
   tmpf := 70;
   tmpx := tmpf / 30;
    tmp := 70 / tmpx;
    // Mi viene mostrato 30
    MessageBox(0, PChar(FloatToStr(trunc(tmp))), 'parte intera',
MB_ICONINFORMATION);
    // 2 caso
    // Nella divisione ho sostituito tmpf con 70
    tmpx := 70 / 30;
    tmp := 70 / tmpx;
    // Mi viene mostrato 30
    MessageBox(0, PChar(FloatToStr(trunc(tmp))), 'parte intera',
MB_ICONINFORMATION);
end;
Ok nulla di strano.
In un'applicazione da me sviluppata (funzione similare),  il primo caso
riporta come risultato
29 mentre il secondo caso riporta come risultato 30.
Qualche idea a riguardo??
Grazie.
Stefano.

Qualche idea a riguardo??
Benvenuto nel Real world ;-)
Che versione di Delphi usi? Con D6 riproduco il tuo problema con D7
no! (e già questo la dice lunga)
Si tratta dei tanto amati problemi dei numeri a virgola mobile, degli
arrotondamenti, decimali significativi,etc.
Ti consiglio di cercare "FPU control" nell'help e provare a giocare
con SetRoundMode, Set8087CW e simili.
Se non si tratta solo di un problema accdemico, se cerchi con google
sui newsgroup borland troverai decine di soluzioni (a volte empiriche)
al tuo  problema.
Ciao.
-- 
Ore 18.30: premo invio.

 ha scritto nel messaggio
news:36u4e1F...@individual.net...


Newsgroup: it.comp.lang.delphi
Titolo: Non ho xe3...

A chi ha xe3 chiedo:
è possibile create un activeform usando firemonkey al posto della VCL?
 
Grazie.
 
A.

 è possibile create un activeform usando firemonkey al posto della VCL?
 
Non credo che sia possibile, perché la classe che implementa l'ActiveForm deriva dalla classe *TCustomForm* che appartiene alla VCL.
 
Non è poi escluso che si possa "ospitare" del contenuto FireMonkey nella Form usando librerie che lo consentano, come *Hydra* (
http://www.remobjects.com/hydra
).
 
Ciao,
  Marco.
 
-- 
MARCO BREVEGLIERI
#Home: 
http://www.marco.breveglieri.name
 
#Blog: 
http://www.compilaquindiva.net
 

 Non è poi escluso che si possa "ospitare" del contenuto FireMonkey nella Form 
 
Approfondiro' sopratutto per capire se poi si va su Cpu o Gpu.
 
Tnx
 
A.
 

 Approfondiro' sopratutto per capire se poi si va su Cpu o Gpu.
 
FireMonkey usa la GPU per la grafica, mentre calcoli e "logica" sono demandati come sempre alla CPU.
 
Però non metterei mai una finestra FireMonkey all'interno di una libreria ActiveX... già COM e quanto vi gira attorno provoca mal di pancia di per sé, figuriamoci se ci aggiungiamo un'altra dipendenza del genere. :)
 
Ciao!

Newsgroup: it.comp.lang.delphi
Titolo: Incolonnare una memo

Ciao a tutti!
Come si fare ad incolonnare un testo in una semplice memo?
Mi spiego:
ho due stringhe
1)'Daewoo Nubira SW 1.6'
2)'AG 678 DW'
anzichè metterle in fila una dopo l'altra vorrei mettere la stringa 1 poi 
uno spazio (che non dovrà
variare in base alla lunghezza della stringa 1) poi la stringa 2.
Potrei utilizzare una semplice stringgrid, ma devo stampare questi dati e 
questo comp non lo permette
Suggerimenti?
Qual'è il carattere ASCII del tasto TAB ?
Ciao 

> Qual'è il carattere ASCII del tasto TAB ?
il nono carattere
Ciao
Mario (
mari...@inwind.it
)
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

 Suggerimenti?
1) Usa un TListView o componenti simili che sono fatti apposta per
mostrare dati organizzati in colonne.
2) se proprio devi usare un TMemo:
 a) usa un font proporzionale;
 b) formatta la stringa PRIMA di inserirla nel Memo (con Format, Pos, e
tutte le altre funzioni disponibili)
Ciao
ACSH
-- 
http://ctc2007-catand.blogspot.com/
-- 
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: problema con dbrid

Come faccio a cliccare su una dbgrid senza che il database si riposizioni?
E' possibile, la soluzione di sostituire il dbgrid con una listview virtuale
non
č possibile dato che non posso ridisegnarmi le celle a mio piacimento.
Grazie!

 è possibile dato che non posso ridisegnarmi le celle a mio piacimento.
Volendo potresti ripartire da TcustomGrid, ma non penso ne valga la pena...
Ma forse fai prima a rivedere un'attimo quello che stai facendo: se vuoi
evitare il riposizionamento hai due strade:
- se non hai particolari esigenze (aggiornamenti in tempo reale, modifiche)
usa una TQuery e aggancia a quella la DbGrid...
- usi una TstringGrid o cmq un controllo che ti permetta di ridisegnare il
tutto (puoi anche creartelo da zero se credi)...
Ciao :-)
--
(¯`·.¸¸.·´¯`·.¸¸.-> Andrea <-.¸¸.·´¯`·.¸¸.·´¯)
AntiSpam: rimuovere il trattino basso dall'indirizzo per rispondere
AntiSpam: remove the underscore from the e-mail address to reply

Newsgroup: it.comp.lang.delphi
Titolo: Da vb a Delphi

Non sono uscito di senno, state tranquilli!
Io Delphi NON LO MOLLO.
Solo che ho degli amici che hanno avuto la sfortuna di iniziare
con vb e adesso devono imparare delphi.
So che ci sono in giro dei documenti che mostrano esempi di codice
evidenziando le differenze tra quella schifezza di Vb e quella 
cosa grande che è Delphi.
Solo che mi sono perso i link.
Qualcuno che li ha disponibili me li potrebbe comunicare?
Tnx
AS
-- 
Posted from 
ammi.mclink.it
 [195.110.128.1] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 AS
purtroppo non ho mai letto siti del genere, xò un mesetto fa, anzi meno, ni
questo ng c' stata una bella discussione fra sostenitori del delphi e altri
che difendevano il vb...fu proprio una bella lotta =)
prova a cercare, non si sa mai!non ricordo il titolo purtroppo :(

Newsgroup: it.comp.lang.delphi
Titolo: solo numeri di una stringa

Ciao
dovrei ricavare solo i numeri di una variabile di tipo stringa.
C'è una funzione ad hoc o devo costruirmela?
Pensavo a val ma non fa al caso mio.
Ad esempio da una str "A3F5G78MM0"  dovrei ricavare 35780
Ciao

"Blowin' free" ha scritto:

Ho fatto al volo questa funzione ricorsiva che dovrebbe fare al caso tuo:
function NumbersInString(const TheString: String; const Index: Integer = 1): 
String;
var
  Err: Boolean;
  Single: String;
begin
  try
    Single := TheString[Index];
    StrToInt(Single);
    Err := False;
  except
    Err := True;
  end;
  if Err then
    Single := '';
  if Index = Length(TheString) then
    Result := Single
  else
    Result := Single + NumbersInString(TheString, Index + 1);
end;
Nella chiamata alla funzione passa solo la stringa e non l'indice
es:
Res = NumbersInString('AD54T5YY7');

 Res = NumbersInString('AD54T5YY7');
Funziona, ma ho risolto cosě che č piů snello
function NumbersInString(theString: string): string;
  var
    i: integer;
begin
  Result := '';
  for i := 1 to length(theString) do
    if theString[i] in ['0'..'9'] then
      Result := Result + theString[i];
end; 

 end;
Decisamente piů snello, ma tieni conto che le funzioni ricorsive solitamente 
sono piů veloci di quelle interattive, anche se in questo caso non credo che 
le differenze di prestazione siano rilevanti.
Roberto

Newsgroup: it.comp.lang.delphi
Titolo: InstallShield 2.02 For Delphi 4.0

    Ho questo InstallShield! Come posso fare a inserire una chiave, la mia
chiave di sicurezza, quando sto generando un Kit di installazione!  Cosi mi
faccio anch'io la protezione dei miei applicativi?
        Grazie, George.

 wrote in message
8h06tu$dce$1...@news.IT.net...


Newsgroup: it.comp.lang.delphi
Titolo: UUID o GUID ?

Ciao,
ho trovato delle simpatiche funzioni nell'help "Windows SDK and OLE
Knowledge Base" che permettono di gestire le Universal Unique Identifier
(ovvero quei numeri lunghi una cifra che registrano le interfacce).
In particolare ho trovato la funzione : UuidFromString che farebbe al caso
mio.
Non riesco però a trovato la unit delphi definisce la funzione.
qualcuno può aiutarmi ?
Solid Snake IT
"Nemo mortalium omnibus horis sapit" (Plinio il VECCHIO)

qualcuno può aiutarmi ?
non tutte le funzioni API di win sono state dicharate in qualche unit,
alcune particolari (come quella che ti interessa te la devi dichiarare
"manualmente")
Function NomeFunzione(parametri): tipo; stdcall; external
'KERNEL32.DLL';
Ciao,
Alan Solo


ComObj e/o ActiveX, ma vedi anche le JCL; per produrne una a design time:
Ctrl-G (Ctrl-Shift-g)
{visto che non e' il mio stile di scrittura, devo aver preso l'esempio da
qualche parte, ma non ricordo dove}
uses
  ComObj, ActiveX;
procedure TForm1.BtnNewClick(Sender: TObject);
var
  ID: TGUID;
  S: string;
begin
  if CoCreateGuid (Id) = s_OK then
  begin
    s := GUIDToString (Id);
    Memo1.Lines.Add (S);
  end;
end;
Saluti
Paolo Arosio
Newsgroup: it.comp.lang.delphi
Titolo: chiusura applicazione esterna

ciao
premettendo che ho già letto post vecchi ma non ho trovato quello che
esattamente cerco, provo a chiedere.
il problema è questo:
1) dal programma A lanciare il programma B (con ShellExcute direi)
2) il programma A deve attendere che B venga chiuso poi fa altro o si chiude
NB: il programma A è console, mentre B è un programma con interfaccia
Il succo è: come si fa a sapere se un'applicazione (sia essa lanciata dal
mio programma o già in esecuzione) viene chiusa dall'utente?
Grazie dell'aiuto, ciao

 mio programma o già in esecuzione) viene chiusa dall'utente?
Se le applicazioni che devi controllare le hai scritte tu puoi:
1) utilizzare un mutex in ogni applicazione da controllare.
    Dall'applicazione monitor cercherai di acquisire periodicamente il
mutex, quando ci riuscirai
    vorrà dire che esso sarà stato rilasciato e quindi l'applicazione è
terminata.
2) utilizzare i messaggi da WM_APP + $xxxxx e le relative funzioni di
posting dei messaggi.
3) Controllare periodicamente l'elenco dei processi attivi nel sistema,
quando il nome di quello
    che ti interessa sparisce dalla lista, allora esso è terminato.
Ora, non so fino a che punto sei pratico con Delphi perciò non scendo nei
dettagli delle varie
implementazioni.
Spero che quanto sopra ti sia stato almeno un pò di aiuto.
Se hai bisogno, fammi sapere.
Saluti

 2) il programma A deve attendere che B venga chiuso poi fa altro o si
chiude
prova questa:
function ShellExecExAndWait(const FileName: string; const Param: string;
const Operation: string): Boolean;
var
  SEInfo: TShellExecuteInfo;
  ExitCode: DWORD;
  ExecuteFile, ParamString, StartInString: string;
begin
  ExecuteFile:= FileName;
  FillChar(SEInfo, SizeOf(SEInfo), 0);
  SEInfo.cbSize := SizeOf(TShellExecuteInfo);
  with SEInfo do begin
    fMask := SEE_MASK_NOCLOSEPROCESS;
    Wnd := Application.Handle;
    lpFile := PChar(ExecuteFile);
    lpVerb := PChar(Operation);
    lpParameters := PChar(Param);
    nShow := SW_HIDE;
  end;
  if ShellExecuteEx(@SEInfo) then begin
    repeat
      Application.ProcessMessages;
      GetExitCodeProcess(SEInfo.hProcess, ExitCode);
    until (ExitCode <> STILL_ACTIVE) or
    Application.Terminated;
  end;
end;
ciao ciao

 Se le applicazioni che devi controllare le hai scritte tu puoi:
purtroppo no..
cmq grazie!

ok, appena il mio disco fisso si riprende,
ci proverň!
grazie davvero
ciao!
Newsgroup: it.comp.lang.delphi
Titolo: Installazione applicazioni in italiano

Salve a tutti,
                    ho creato un programma in due lingue (italiano/inglese)
ed ora mi si pone il problema di creare il setup di entrambe le versioni
ovviamente nella lingua corrispondente.
Per il setup in lingua inglese non ho nessun problema perchè usando
Installshield allegato a delphi si impiegano pochi minuti.
Il problema è invece la realizzazione del setup in lingua italiana dato che
InstallShield di default non ha la lingua italiana inclusa ed il language
pack mi risulta essere a pagamento.
Ovviamnete se si potesse risparmiare sarebbe meglio, quindi chiedevo se
qualcuno di voi mi sa consigliare un installer alternativo e di buona
qualità e magari free.
Grazie Giò

 qualità e magari free.
Prova INNO setup, non so se fa quello che chiedi ma è ottimo ed è Free (non 
ricordo se anche OS).
Io l'ho usato per molto tempo prima di WISE
Ciao Daniele


Mars University: «Knowledge brings Fear»

 Sě, Inno Setup č freeware e OpenSource; sul sito ufficiale ci sono anche


 ha scritto nel messaggio
news:dtqYb.13823$FJ6.5...@twister1.libero.it...


Newsgroup: it.comp.lang.delphi
Titolo: KeyPress su più form

Ho bisogno di assegnare una procedura EditKeyPress, associata alla pressione
di un tasto su un controllo Edit presente in una Form, ad un controllo Edit
presente su un'altra Form, come posso fare?
Ciao e grazie,
    Claudio

Dall'oject inspector, vai su Events del tedit che ti interessa, e scrivi nel
OnKeyPress, Form1.Edit1OnKeyPress
Devi aggiungere nelle uses del tuo form il form1, dove appunto risiede la
routine.
Se mi permetti un consiglio, piuttosto che adottare questa tecnica ti conviene
ricopiare il codice dell'evento, e' piu' sicuro e affidabile.
Inoltre, se proprio vogliamo spingerci oltre, potresti scriverti tu stesso un
tedit che implementi questo comportamento automaticamente.
Ciao
-- 
Morde. 
morde[at]programmer[.]net

non è molto pulita come cosa...
Se tu potessi fornire qualche dettaglio in piu magari qualcuno potrebbe
suggerirti una soluzione alternativa....
Bye
A-

 ha scritto nel messaggio
news:b736vm$2613$1...@newsreader1.mclink.it...


 voglio cambiarla in tutte le form. (In C l'avrei messa in un file .h)
Allora perché non fai come ti ha suggerito Morde? Scriviti tu stesso un 
tedit che implementi la tua procedura di controllo tasti automaticamente.
-- 
Ciao,
   Stefano
Una volta che avete conosciuto il volo, camminerete sulla Terra guardando 
il cielo, perché là siete stati e là desiderate tornare (Leonardo da Vinci)