mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.delphi
Titolo: Versione di un eseguibile

Ciao a tutti,
come posso ottenere la versione interna di un eseguibile con delphi?
C'è qualche funzione che mi ritorna il valore?
Grazie
_________________________________
Tomas

 C'è qualche funzione che mi ritorna il valore?
Puoi usare la RXLib o la JCL.
Ciao,
-=SIMO=-

 ha scritto nel messaggio
news:8tka08$mnp$1...@nslave2.tin.it...


 Sull'help di delphi non ho trovato nulla
Sono librerie di componenti.
RXLib: 
www.rxlib.com
JCL: 
www.delphi-jedi.org
Ciao,
-=SIMO=-

 ha scritto nel messaggio
news:8tm7do$41o$1...@nslave3.tin.it...


 le versioni dei progammi...
[...]
var
  VInfo: TVersionInfo;
begin
  // Ottiene versione applicazione
  VInfo:= TVersionInfo.Create(Application.ExeName);
  try
    Ver:= VInfo.FileVersion;
  finally
    VInfo.Free;
  end;
[...]
Ciao,
-=SIMO=-

Scusa. Era :
[...]
var
  VInfo: TVersionInfo;
  Ver: string;
[...]
Ciao,
-=SIMO=-

Thanx a lot ;)
Tomas


wrote:
Ho trovato un articolo interessante su
www.delphi300.com
, ecco il risultato:
function GetFileInfo(De:String):String;
(*
   Necessita delle unit Windows e Forms
   De=
        CompanyName
        FileDescription
        FileVersion
        InternalName
        LegalCopyright
        OriginalFilename
        ProductName
        ProductVersion
*)
type
   PaLeerBuffer = array[0..MAX_PATH] of char;
var
   Size,Size2:DWord;
   Pt,Pt2:Pointer;
   Idioma:String;
begin
   Size:=GetFileVersionInfoSize(PChar(Application.Exename),Size2);
   If Size>0 then begin
      GetMem(Pt,Size);
      GetFileVersionInfo(Pchar(Application.Exename),0,size,Pt);
      VerQueryValue(Pt,'\VarFileInfo\Translation',Pt2,Size2);
      Idioma:=IntToHex(DWord(Pt2^),8);
      Idioma:=Copy(Idioma,5,4)+Copy(Idioma,1,4);
VerQueryValue(Pt,PChar('\StringFileInfo\'+Idioma+'\'+de),Pt2,Size2);
      if Size2>0 then
         Result:=Copy(PaLeerBuffer(Pt2^),1,Size2)
      else
         Result:='';
      FreeMem(Pt);
   end else
      Result:='';
end;
Io per sapere la versione corrente del mio file scrivo:
Label.Caption:=GetFileInfo('FileVersion');
Spero di essere stato di aiuto.
Giuseppe


 ha scritto nel messaggio
news:3a8e778c...@news.tin.it...


Newsgroup: it.comp.lang.delphi
Titolo: Quali le differeze tra delphi 4 e 5

Quali  sono le differeze tra delphi 4 e 5?


La piů utile (secondo me) č l'uso dei frame che sull 4 non esisteva, poi
sulla versione 5 client/server, ho trovato nuovi componenti per
interffaciarsi a office..... ho usato uno di questi per trasferire dati da
un database ad una tabelle excel.... un po' lenti ma efficaci.
Queste sono le due modifiche che, per me che faccio gestionali, ho trovato
piů utili.
Ciao
Gianni


In Delphi 5 ci sono molti più buchi... :-(
...ed alcuni dei quali erano stati risolti con D4...^ç^
Roberto
per reply in privato scrivere a 
del...@pippo.it
Newsgroup: it.comp.lang.delphi
Titolo: [FRIVOLO] Interfaccia della form principale

Ciao. Scusate l'argomento "frivolo" di questo post, spero di non essere 
troppo OT.
Voi di solito cosa ci mettete nella form principale di una applicazione? 
Naturalmente mi riferisco a quelle form che hanno solo il menu e la 
toolbar per richiamare le altre form. E comunque NON si tratta di form MDI.
A seconda dei casi, ho utilizzato delle immagini "digital art" o i 
credits, oppure delle icone che puntano alle operazioni piu' comuni (ma 
in questo caso la toolbar non serve piu')...
MT

 toolbar per richiamare le altre form. E comunque NON si tratta di form MDI.
Personalmente non sono un grande amante di applicazioni che richiamano 
altre form, sia che si tratti di MDI o semplici applicazioni composte da 
molte finestre.
Per questo le mie ultime applicazioni le ho fatte procedendo in questo modo:
1) mi faccio un solo form contenente menu e dei pannelli (secondo le mie 
esigenze)
2) nel pannello centrale (il più grande) ci carico di volta in volta il 
frame richiamato dal menu (seguendo una procedura ormai ben collaudata)
Ciò non toglie l'utilizzo di altri form nell'applicazione, ma 
generalmente sono form "secondari".
....tornando alla tua domanda, nel mio caso specifico, si pone il 
problema di cosa mettere nel pannello centrale la prima volta che il 
programma parte, visto poi che in seguito non sarà più visibile. 
Generalmente io metto un immagine il più possibile rappresentativa del 
lavoro svolto dal programma + nome del programma (scritto grande) + 
versione + tipo di licenza + autore, io :-) + email + numeri di telefono.
Ciao
Gianni

Newsgroup: it.comp.lang.delphi
Titolo: D3 con W95 e W98

Salve.
A qualcuno risultano malfunzionamenti di programmi compilati con D3
sotto W95 e fatti girare su W98?
Esiste una soluzione evitando di compilare il programma direttamente
sotto W98?
Grazie, ciao.
Peppe
_____
ICQ #9759626
http://members.xoom.it/joe
Togli levaccà per contattarmi via email.

 Togli levaccā per contattarmi via email.

BDE). :-)
...Nemmeno il mio usava BDE perņ ho dovuto ricompilarlo sotto WIn98
per farlo funzionare! :(
BOH! 
Comunque grazie per la risposta. :)
Ciao!
Peppe
_____
ICQ #9759626
http://members.xoom.it/joe
Togli levaccą per contattarmi via email.
Newsgroup: it.comp.lang.delphi
Titolo: Aiuto

Ciao a Tutti,
mi sono addentrato nei meandri oscuri di Delphi da pochissimo:
sto cercando,di risolvere questo arcano :
 - in un form posiziono n oggetti button a design-time
la domanda:
 - come faccio a contare gli n oggetti button e a modificare la loro
proprietą caption con una istruzione ciclica?
es. a design-time le caption sono: button1,button2,button3,ecc. a run-time
saranno: 1,2,3,ecc.
Grazie in anticipo,Fra
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

For I := 0 To ControlCount-1 Do
      If (Controls[I] Is TButton)
         Then
             (Controls[I] As TButton).Caption := 'Caption1';
Se i bottoni non stanno sulla form principale ma, per esempio, su di un TPanel allora scriverai
For I := 0 To Panel1.ControlCount-1 Do
      If (Panel1.Controls[I] Is TButton)
         Then
             (Panel1.Controls[I] As TButton).Caption := 'Caption1';
Per contarli mi pare abbastanza banale no?
--
Ciao,
David (
www.utilityweb.net
)

 sto cercando,di risolvere questo arcano..
La prossima volta metti un oggetto più significativo (come da netiquette)...
Ciao
Matteo

Newsgroup: it.comp.lang.delphi
Titolo: come dicono gli americani:"I WANT YOU!"

Ciao a tutti
Pensavo a voi. si è proprio così !
A qualcuno può interessare l'idea di far parte di un gruppo di programmatori
per realizzare un software per una società lavorando a distanza e senza mai
aver lavorato assieme ?
Forse sono stanco e sto dando i numeri ma voglio poter provare anche questa
possibilità, (qualora ritenga che si possano creare le basi).
Lavoro, dirigo una società che vende opere d'arte in diversi punti vendita,
sono un programmatore vecchia generazione (Basic, Pascal, Delphi, Access).
Devo commissionare un lavoro, un software gestionale, lo farei io ma non ho
tutto il tempo allora dopo alcuni tentativi andati per mio dispiacere a
malomodo con alcuni amici provo qui. con degli sconosciuti.
Qualcuno rischierebbe di perdere forse un po' del suo tempo? Con la
soddisfazione di riuscire a lavorare in gruppo, oppure da solo a distanza !!
Avete voglia di mandarmi due righe di curriculum ?
Ci risentiamo..
P.S. per quelli che non sono interessati alla cosa chiedo scusa per il
disturbo
Stefano

 Stefano
--
Ciao.
Mimmo.
nuovo indirizzo di e-posta: 
mimmo....@tin.it

...


possibilità, (qualora ritenga che si possano creare le basi).
Ciao, non sono interessato, ma vorrei dirti "in bocca al lupo". In
fondo Linux è sviluppato esattamente allo stesso modo, per cui non
credo sia un'impresa da disperati.
Newsgroup: it.comp.lang.delphi
Titolo: eventi componente memo

Ciao a tutti,
Vorrei eseguire un repaint su un componente memo quando muovo la sua 
barra di scorrimento verticale...c'è un evento che si scatena scrolalndo 
il memo tramita la scrollbar ? (Ci ho messo sopra due bottoni 
trasparenti pensando che fosse una cosa graficamente carina e facile da 
fare..ci sto bestemmiando per niente...scrollando il memo la gliph dei 
bottoni "striscia" sul memo stesso...)
Piu in generale, qualcuno conosce qualche tool che possa dire all'ignaro 
programmatore che evento si scatena facendo una certa azione ? Un 
monitor di eventi che gira in background e mostra un log degli eventi 
intercettati magari...
Mi sa di no...
ZioGian

Forse esiste un messaggio che indica l'uso della scrollbar.
Si dovrebbe vedere nell'sdk.
Qualcosa fosse cosi, secondo me la strategia migliore è creare un
componente ereditato da TMemo che gestisce questo eventuale messaggio e
che al momento opportuno alza un evento apposito che poi puoi gestire
dalla tua app.
AS

 
Grazie mille..mi sa che non ne vale la pena, solo per avere un bottone 
che galleggia sopra un memo....(che a prima vista mi sembrava una cosa 
fica...ma poi tutto sommato non lo č cosě tanto...)
:-)
ZioGian

 ha scritto nel messaggio 
news:_8Izf.3502$6e2....@news.edisontel.com...


Newsgroup: it.comp.lang.delphi
Titolo: Installazione componenti ADO

Ho un PC con i componenti già installati (WIN2000) devo installarli su un
WIN 98 sempre su DELPHI 5.
Qual'è la procedura esatta ?
Grazie a chi vorà aiutarmi
Gianluca
--------------------------------
Inviato via 
http://usenet.libero.it

Inviato via 
http://usenet.libero.it
fe...@delenda.net
yo no quiero cobardes que me hagan sufrir
mejor le digo adios a tu boca de anis
Newsgroup: it.comp.lang.delphi
Titolo: delphi 2007 e pocketpc

ciao a tutti, ho 14 gg di trial di delphi 2007 enterprise.... posso 
sviluppare per pocket pc con questa?
Simone

 sviluppare per pocket pc con questa?
No, Delphi 2007 è un ambiente per Win32.
Ciao,
   Marco.
-- 
MARCO BREVEGLIERI
  (
http://www.marco.breveglieri.name
)

sto impazzendo alla ricerca del tool piu' simile a delphi per fare 
applicazioni pocketpc, cosa mi consigli?
Simo 

 applicazioni pocketpc, cosa mi consigli?
Prova ad usare Lazarus / Fpc.

hai già provato ad usarlo??
Simo 

 hai già provato ad usarlo??
Ma anche quello credo che compili solo per Win32.
-- 
news:it-alt.comp.software.openoffice : Il newsgroup dedicato a
OpenOffice.org, la suite open source di applicazioni per ufficio.
Saluti, VITRIOL

ho trovato pure questo:
http://wiki.freepascal.org/index.php/WinCE_port
però se qualcuno ha info mi contatti
Simo 

>Ma anche quello credo che compili solo per Win32.
No. FPC/Lazarus è multipiattaforma.
--- posted by geoForum on 
http://www.delphiedintorni.it
Newsgroup: it.comp.lang.delphi
Titolo: Taxi Driver Beta (Freeware) Tester Cercasi

Ciao a tutti, grazie anche a i vostri consigli sono finalmente giunto alla
prima release
del mio software, Taxi Driver, sono alla ricerca di impavidi programmatori
disposti
a testarlo, naturalmente i beta tester e implementatori saranno inseriti nei
credits.
Ciao!

Dunque risalve a tutti, OT : non si può certo dire che vi manchi la fantasia
;)
In effetti mea culpa non ho detto molto su quello che fa, o dovrebbe fare,
il mio software, sarò breve:
Taxi Driver (Ispirato all'omonimo film, come qualcuno di voi ha azzeccato),
è un software per lo scambio di
file o altro su internet implementa la seguente architettura :
                                  -------------  Master --------------
                                 /                /                \
                             /                  /                   \
                    Server0 <----->Server1<------>ServerN
                   /    |         \                    \                  |
                                    \                    \                |
               /        |            \                     \              |
     Client0<->Client1<->Client2<---->Client3 Client4 Client5
Lo schemino fa un po schifo, lo ammetto, ma in pratica vuol dire che ogni
client può comunicare con un altro
direttamente o attraverso un server, lo stesso vale per i server.
La versione che potete scaricare dal sito 
http://www.xite.it/nk.zip
 è solo
una prima beta quindi non è detto che funzioni al
100% e le funzionalità sono un po ridotte, ci sto ancora lavorando, quando
il tutto sarà più stabile rilascerò sia il software
sia i source per implementare sia i client che i server, questo vuol dire
che chiunque abbia bisogno di usare questa architettura
potrà farlo, spero, molto semplicemente.
So di non aver detto molto, ma le cose da dire sarebbero tante, aspetto
vostre notizie, domande, suggerimenti, etc!!
Ciao e Grazie a Tutti!
Funzionalità attualmente supportate:
    1) Keywords infinite
    2) Motore di ricerca per mp3
    3) Chat
    4) Resume dei download
    5) Condivisione di qualsiasi tipo di file
    6) Load balancing sui server
    7) Associazione file-URL
Funzionalità attualmente in sviluppo
    1) Download offline
    2) Customizzazione dell'ambiente
    3) Condivisione di oggetti non file.
    4) Molte altre...
Carlo.
Newsgroup: it.comp.lang.delphi
Titolo: Leggere file via FTP

sto usando il componente IndyClient versione 10.5.8.0 TIdFTP
 
imposto la connessione cosi':
 
var FileStream: TFileStream;
     aSource, aDest: String;
 
begin
 
   IdFTP1.Host := '192.168.1.162';
   IdFTP1.Port := 21;
 
   try
     IdFTP1.Username := 'user';
     IdFTP1.Password := 'password';
 
     IdFTP1.TransferType := ftBinary;
     //IdFTP1.TransferType := ftASCII;
     IdFTP1.Connect;
 
la connessione avviene regolarmente
 
     sPath := IdFTP1.RetrieveCurrentDir;
     IdFTP1.ChangeDir(sPath + '/Test');
     aSource := IdFTP1.RetrieveCurrentDir + '/Foglio1.xls';
     aDest := 'F:\Test\Test.xls';
 
     FileStream := TFileStream.Create(aDest, fmCreate);
 
     try
       IdFTP1.Get(aSource, FileStream, False);  <--- dopo un po' di
                                                  secondi Read Timed Out
     finally
       FreeAndNil(FileStream);
 
     if IdFTP1.Connected then IdFTP1.Disconnect;
 
 
Ho provato la stessa operazione configurando FileZilla con stesso ID e 
Porta, e l'operazione avviene senza problemi.
 
il problema e' certamente nel modo in cui sto usando Indy IdFTP da 
Delphi 2010 , non riesco a trovare dove sto sbagliando, riuscite ad 
aiutarmi ?


Fatta una prova con Delphi2007, Indy IdFTP (versione 10.1.5),
lo stesso codice funziona, trasferisce file xls, pdf senza intoppi.
 
nelle uses ho aggiunto idFTPCommon, altrimenti non accetta ftBinary, ma 
la stessa unit e' presente anche su D2010.
 
allora il problema sono le Indy 10.5.x o le versionì Unicode di Delphi ?
provo ad installare le Indy 10.5 su D2007, e se funzionano, allora 
dipende dalle Unicode.

 se funzionano, allora dipende dalle Unicode.
 
prova a sostituire "string" con "ansistring" e vedi un pò se cambia
qualcosa.
 
-- 
Alessandra
 
Noè era il prediletto del Signore: viveva nel deserto, divorato dalla
sete e dai pidocchi. - Giobbe Covatta

>
Dopo installato	Indy 10.5.8.0 su D2007, compila (anche Build viene 
eseguito), ma lanciando il test, mi segnala
Property IPVersion does not exists (class EReader Error), eppure a 
Design Time e' presente IpVersion Id_IPv4.
 
Ho scaricato ed installato Delphi XE2 Trial, che installa la stessa 
versione di Indy (10.5.8.0) e rifatto il test, tutto funziona bene, pur 
lasciando "string", versione 32 bit,
se attivo 64 bit invece, anche con "ansiString" va in timeout.
 
Viste le prove, direi che la versione 10.5.8.0, abbia qualcosa che va in 
contrasto con Delphi XE, oppure oltre ad installare i Packages, serve 
qualche altro passo, non indicato nella guida all'installazione.

Newsgroup: it.comp.lang.delphi
Titolo: Componente per valutazione espressioni algebriche ...

Ne esiste qualcuno free e magari con il sorgente disponibile???
Io ne avrei bisogno con Kylix.
Grazie a tutti.
Ivan

 ha scritto nel messaggio
news:8rbjra.vi2.ln@casa...

Su 
www.torry.net
 ci sono vari e alcuni sono trasportabili su Kylix
Ciao
Mik.
Newsgroup: it.comp.lang.delphi
Titolo: DBGrid (non mi viene un titolo migliore;-)

Ho una DBGrid che contiene i DettagliOrdini e (semplificando) i seguenti
campi:
IDProdotto,Quantità,Prezzo,Sconto
Ho una casella TEdit in cui scrivere lo sconto
Vorrei che quando aggiungo o cambio un prodotto nella DBGrid (non quando mi
limito a modificarne la Quantità):
1-venisse riempito il campo Sconto con lo sconto impostato nella Edit
2-Il Prezzo venisse preso dalla TabProdotti
Se può essere utile uso VolgaDBGrid e ADO ed ero riuscito a realizzare il
punto 1 facendo così:
procedure TDataMod.ADOTable_VenditaOrdiniDett_BeforeEdit(DataSet: TDataSet);
begin
  if
Form1.VolgaDBGrid_Ordini.SelectedField=DataMod.ADOTable_VenditaOrdiniDett_ID
Prodotto then begin
    ADOTable_VenditaOrdiniDett_.BeforeEdit:=nil;
    ADOTable_VenditaOrdiniDett_.Edit;
ADOTable_VenditaOrdiniDett_Sconto.Value:=StrToIntDef(Form1.EditSconto.Text,0
);
    ADOTable_VenditaOrdiniDett_.Post;
ADOTable_VenditaOrdiniDett_.BeforeEdit:=ADOTable_VenditaOrdiniDett_BeforeEdi
t;
  end;
end;
Ci sono arrivato (quasi) per tentativi, ma cercando di realizzare il punto 2
incasino anche il punto 1.
Non so (fra l'altro) quale sia l'evento giusto su cui intervenire.
Grazie a chi mi suggerisce qualcosa.

Ok, ho risolto. Pare funzioni.

Newsgroup: it.comp.lang.delphi
Titolo: Numero righe di codice

Ciao belli, stavolta solo una curiosità :
è possibile sapere il numero complessivo di righe di codice di un mio
progetto delphi? Solo unit no DFM ciao ciao

 progetto delphi? Solo unit no DFM ciao ciao
Project | Information on...
--
Jax

Ti ringaucho :))
però......
la prima voce sono le linee compilate, quindi attenzione se compili,
modifichi qualcosa, ricompili e guardi quella voce conterrà solo il numero
delle righe modificate dalla prima compilazione. Concludendo, per vedere il
numero di linee totale hai due opportunità
1 apri il progetto e lo compili e poi vai a vedere
2 fai un build e poi vai a vedere
ciaoux e grazie ancora
Newsgroup: it.comp.lang.delphi
Titolo: delphi mysql su sistemi operativi diversi

Salve,
premetto: utilizzo programmi in delphi 2005 su 2 sistemi operativi, xp
pro e 2000 pro.
Ho un server con i programmi e il database (xp pro), tre client (2 xp
pro e 1 win 2000 pro).
I programmi con xp funzionano perfettamente, con win 2000 pro danno
degli errori, pur avendo driver odbc uguali.
Un errore è dato dal fatto che se ho una query con una "sum" o con un'
operazione alla quale poi attribuisco un alias come ad es. select
sum(ordini) as ardinitot questo ordinitot mi viene riconosciuto da xp e
non da 2000.
Qualcuno riesce a spiegarmi il perchè.
Grazie mille
Alessandro Pelacci

degli errori, pur avendo driver odbc uguali.
Eh?! Accedi a MySQL da Delphi usando ODBC ?!

Io non conosco un altro metodo per connettersi ai database se non col
tdatabase e l'odbc.
In verità non sono un programmatore professionista, ma è una grande
passione che mi permette di creare programmini per la mia piccola
azienda.
Se puoi darmi qualche suggerimento per risolvere questo problema te ne
sari molto grato.
Grazie

sari molto grato.
Utilizza la tecnologia dbExpress con i driver adeguati.

dove posso trovare una guida o indicazioni sull' utilizzo dei
componenti dbexpress, anche per avere un' idea di utilizzo in rete dove
i dati sono su un server

la guida in linea?
Cerca TSqlConnection e TSqlQuery.
A.

componenti dbexpress, 
Provo ad indovinare... su Google?
http://www.google.it/search?hl=it&q=Delphi+dbExpress&btnG=Cerca+con+Google&meta=

Un ultima cosa, un consiglio sui driver dbexpress per mysql 5 e delphi
2005

2005
Io uso quelli di Core Lab: 
www.crlab.com
Newsgroup: it.comp.lang.delphi
Titolo: DBServer "unidirectional"... non permette Locate ?

Sto utilizzando Delphi5 e ADO per connettermi ad un DB MySQL.
(Lo so che posso farlo con altri componenti, ma mi serve ADO)
Nel componente TADOConnection che utilizzo, la proprietà "Cursor Location" è
impostata a "clUseClient".
Mi pare di aver capito che se il DBServer (MySQL) non supporta cursori
Client-Side,
e supporta soltanto cursori Server-Side, non è possibile utilizzare (ad
esempio) il metodo
"Locate" del "TDataSet". Giusto ???
C'è qualcuno che ha già affrontato la situazione, ed è in grado di darmi una
mano ?
Grazie in anticipo.
Riccardo Fiorenza
---
* Dott. Riccardo Fiorenza
* Dr.Soft - Soluzioni Internet
* web: 
http://www.drsoft.it
* email: 
fior...@drsoft.it

 ha scritto nel messaggio
news:9s9c0o$nl7$1...@nreada.inwind.it...


 ha scritto nel messaggio
news:9s9c0o$nl7$1...@nreada.inwind.it...


"Locate" del "TDataSet". Giusto ???
Meglio. Il mio consiglio è sempre quello di evitare in modo più
assoluto i "locate" che fanno, di fatto, dei "table scan"
costosissimi.
Usa cursori "server side e" filtra i dati con delle" where".
-----------
Ore 18.30: premo invio.

Newsgroup: it.comp.lang.delphi
Titolo: Accesso remoto

Salve a tutti.
Come fare per far partire una connessione di accesso remoto da programma?
Grazie.

 programma?
API Rasdial, trovi gli header convertiti su Delphi-Jedi (ed altri
siti). Per il suo utilizzo MSDN.
-- 
I am what I am, I do what I can
Sei un newbie? Leggi questo 
http://url.repository.biz/go/1
Inviare email con allegati? 
http://url.repository.biz/go/1Z
Cerchi un programmatore PHP/MySQL? 
http://url.repository.biz/go/1Y
L'uomo, conscio di sbagliare, persevera.

C'è qualcosa di già fatto da cui posso prendere spunto?
Grazie.
"Setec Astronomy" <setec@_NO_NOSPAM_freemail.it> ha scritto nel messaggio
news:fCG_b.27946$Kc3.8...@twister2.libero.it...


C'è qualcosa di già fatto da cui posso prendere spunto?
Certamente: scaricati gli eccellenti async pro della turbopower
(
http://sourceforge.net/projects/tpapro/
), troverai dei componenti open source
professionali con tanto di documentazione e demo completi.
Ciao
-- 
Morde. 
(
mo...@despammed.com
)
M-List di icld: 
http://it.groups.yahoo.com/group/icld/

 ha scritto nel messaggio
news:brjm3015l1nq9f5cc...@4ax.com...

Newsgroup: it.comp.lang.delphi
Titolo: Fuzzy report e conto corrente

Salve a tutti, ho un problema con un report di stampa. Premetto che uso 
Delphi3 e 7 - S.O. Windows Xp - Stampante Epson Fx 2180 mod. cont. 
f.to
 fino 
all'A3 - Fuzzy Report. Il mio report deve essere stampato su un conto 
corrente (mod cont. H=102 L=329 mm). Mi sono creato il mio rpt utilizzando 
come foglio un modulo appositamente creato da Pann Contr/Stampanti e fax 
File/proprietà server Crea Nuovo modulo, indicando le dimensioni del mio cc. 
i margini li ho impostati tutti a zero sia qui che da Fuzzy rpt. Il Poblema 
è che quando lancio la stampa, lentamente le scritte, cc dopo cc, cominciano 
a salire cioè la stampante non tiene il giusto passo, tanto che dopo circa 
5/6 cc, sono costretto a mettere in pausa e riportare indietro il rullo 
della stampante, il che non è certamente il massimo.
   Altro problema e che lo spazio per la stampa dell'importo in cifre nel cc 
è troppo in alto, almeno quello situato nella parte alta a destra del 
bollettino e non riesco a stampare così in alto.
C'è qulache modo per risolvere questi problemi? Vi sarei enormemente grato 
per una risposta.
Grazie anticipatamente. Ciao 

 corrente (mod cont. H=102 L=329 mm). 
Ciao,
io per stampare dati su moduli di vario genere con stampanti ad aghi
uso ZReport 2.0, questo non è un report grafico, nel senso che invia
i dati alla stampante in modalità testo, (alta velocità di stampa 
rispetto al modo grafico), il posizionamento dei dati avviene con una
sorta di riga/colonna come faresti se usassi un editor dos per creare
un documento.
Quindi per il tuo c/c sono 24 righe x 130 colonne a passo 10
oppure 24 righe x 156 colonne a passo 12 o 195 a passo 15.
Provalo è gratis 
http://www.torry.net/pages.php?id=189
ciao
Micky
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

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

paolo ha scritto:

Ciao !
Se non ricordo male io avevo risolto usando caratteri tipo Roman 10Cpi 
che aveva anche la stampante installata.
Se non hai risolto in altro modo, vedo di andare a recuperare il progetto.
Ciao
Newsgroup: it.comp.lang.delphi
Titolo: [D7] Passare uno stream ad un programma VB ... 2 parte

Scusate ... ho creato un nuovo messaggio in quanto penso di voler fare
chiarezza ...
Per crearmi un piccolo esempio, ho creato una dll che ha questa semplice
funzione (vedi codice)
Il pmio problema e' che se uso delphi ... faccio l'operazione inversa ... ma
su VB6 non so' COSA ALLOCARE da passare alla DLL
Vorrei capire se sto' usando un metodo coretto o me ne consigliate di altri
(per passare immagini in memoria)
Spero di aver esposto chiaramente il mio problema
Grazie
Filippo
Function OutputStream(Ret_stream:Pchar; lenbuffer:Pointeger) :Integer;
stdcall;
//uso lenbuffer per restituire la dimensione del buffer
Var
  Mystream:TMemorystream;
  MyBmp:Tbitmap; // uso il formato bitmap per semplicita' di esempio
Begin
   Mystream:=Tmemorystream.Create;
   Mybmp:=TBitmap.create;
   try
   Mybmp.LoadfromFile('.\sample.bmp');
 
   //salvo sullo stream
   Mybmp.SaveToStream(Mystream);
 
   //restituisco size
   lunbuffer ^ := Mystream.size;
 
  //posiziono buffer e scrivo buffer
  MyStream.Position:=0;
  Mystream.ReadBuffer(Ret_Stream ^ , ;Mystream.size);
 
  finally
  Mystream.Free;
  Mybmp.Free;
  end;
end;
 
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

  MyStream.Position:=0;
Qua usa MyStream.Read(Ret_Stream^, Lunbuffer^); // hai anche un ; che non 
c'entra


 >
Evidentemente mi sono spiegato male ...
Il codice che ho scritto (gli errori sono di trascrizione) funziona
benissimo !
Il mio problema e' riuscire a capire come dichiarare le variabili in VB6 ed
ottenere lo stream !
Grazie comunque ;-)
Filippo


 ottenere lo stream !
Visto che il tuo problema non è lato delphi ma lato vb, ti suggerisco
di postare su un ng relativo a vb.
A.

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

Scusate la domanda un po' stupida, ma qualcuno mi sa dire come faccio ad
individuare la riga selezionata in una StringGrid? E come ne leggo i
valori?
Grazie, ciao
--
Posted from 
jolly.intesa.it
 [194.196.14.1] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

  |
|  Use manually this address!!   |
|  ICQ#: 19577419                |
+--------------------------------+

 valori?
Usa la propieta' Row (StringGrid1.Row)
-- 
Ciao da Giuseppe Fraddosio
    // FidoNET 2:335/727.2    
 \X/  
fradd...@libero.it
 
fradd...@tin.it
 
Membro AGI Puglia Sez. Bari 
Powered By Amiga2000T/060@50Mhz/CV3D 4Mb/AmigaOS 3.5
Newsgroup: it.comp.lang.delphi
Titolo: Errore inafferrabile

Mi si e' presentato un errore Invalid floating point operation; quando
metto dei breakpoint per capire dove si verifica... non si verifica
piu'!!! Perche' questo strano comportamento di Delphi 5?
ciao e grazie
Luca

Avevo anche io un problema simile e non ci andavo mai acapo, allora ho 
messo dei log e ho risolto; cioè alla fine di ogni passaggio del codice 
che implicava un caloclo particolare (che secondo me non doveva dare 
problemi) ho messo di aggiungere un record ad una tabella con un certo 
numero (dando un numero diverso ad ogni passaggio di codice) cancellando 
completametne la tabella alla fine delle operazioni se tutto andava a 
buon fine, in questo modo al momento che mi dà l'errore non scrive 
neanche quel determinato numero nella tabella, individuando così la riga 
di codice incriminata.
Nel mio caso mancava una parentesi che solo in casi particolari veniva 
utilizzata, e chissà perchè quei casi particolari non capitavano mai 
durante i Breakpoint.....
Inviato da 
www.mynewsgate.net

grazie, provero' col log, se scopro qualcosa ti faccio sapere :-)
ciao
Luca


 piu'!!! Perche' questo strano comportamento di Delphi 5?
A me una volta è capita la stessa cosa: in esecuzione mi dava un errore,
debuggando con F8 no. Qual era il problema? In esecuzione, in una riga di
codice creavo un file, quella di dopo tentava di accedere al file prima che
il SO avesse effettivamente creato il file della riga precedente.
Debuggando, invece, il tempo tra una pressione e l'altra di F8 era
sufficiente per creare il file...
Antonio
Newsgroup: it.comp.lang.delphi
Titolo: DBGrid

Ciao a tutti,
come fare per evitare che la DBGrid durante un ciclo nella Table attiva
rimanga bloccato al record su cui è posizionato il puntatore e non scorri
tutti i record?
Grazie
Papa Foxtrot

 attiva rimanga bloccato al record su cui è posizionato il puntatore e
Table1.DisableControls / EnableControls.
--
Jax

 Jax
Grazie Jax,
a buon rendere!
Papa Foxtrot

Newsgroup: it.comp.lang.delphi
Titolo: Numeri Random

Ciao a tutti, domanda da principiante.
Come posso generare 15 numeri casuali senza che vengano generati doppioni?
es:
randomize;
a:=15;
while a>0 do
begin
numero[a]:=randomrange(1,15);
c:=numero[a];
???????????? (forse conviene inserire i numeri in un'altro array?)
e successivamente confrontarli con un ciclo se false dec (a)?
end;
Qualsiasi implementazione di una routine è accettata.
Grazie!

 Come posso generare 15 numeri casuali senza che vengano generati doppioni?
[CUT]
Quarda quí .. credo ti sia d'aiuto
http://redangel.it/click_file.asp?m=867&l=
Ciao
erik

 ha scritto nel messaggio
news:BNxcc.20469$hc5.9...@news3.tin.it...


Grazie a tutti per le risposte, adesso implemento le routine.

Lista:=TStringList.Create;
<randomize;
<Repeat
  <  n:=Random(1,15);
    <if Lista.IndexOf(FloatToStr(n))<0 then
      <  Lista.Add(FloatToStr(n));
<Until Lista.Count=15;
<for r:=0 to 14 do
  <  Vect[r]:=StrToFloat(Lista[r]);
<Lista.Free;
Questa tua routine non funziona... sto provando una routine che ho appena
elaborato, però mi da uno strano risultato, posto il codice:
procedure TForm1.Button1Click(Sender: TObject);
var blocco: array[1..15] of integer;
a,b,c,d: integer;
flag: boolean;
begin
a:=1;
b:=14;
 randomize;
while b>0 do
  begin
  c:=Randomrange(1,15);
  flag:=false;
    for d:=1 to 15 do
    begin
        if c=blocco[d]
        then
            begin
            flag:=true;
            break;
        end;
    end;
    if flag=false then
     begin
     blocco[a]:=c;
     dec(b);
     inc (a);
    end;
 end;
for a:=1 to 15 do
begin
memo1.Lines.Add(inttostr(blocco[a]));
end;
end;
in pratica mi genera 14 numeri mentre al quindicesimo mi da sempre un numero
strano...
esempio di numeri generati:
11
14
12
2
8
13
10
3
5
9
1
6
7
4
22348247
come vedete il 15mo è sballato, cosa sbaglio?
Grazie.

> Questa tua routine non funziona... sto provando una routine che ho appena
Strano l'ho appena provata usando un ListBox invece del TStringList e
funziona corretamente.
Mettici Randomrange dove ho usato Random e un "Lista.Clear" sotto la sua
creazione Lista:=TStringList.Create; vedrai che va',   Giorgio

Non importa grazie lo stesso ho risolto.
Ho debuggato il codice seguendolo passo-passo e ho potuto notare che il
randomrange(1,15) genera numeri casuali nell'arco 1-14 quindi modificando in
randomrange(1,16) e la routine che ho precedentemente postato funziona tutto
perfettamente.
Ciao a tutti.
Newsgroup: it.comp.lang.delphi
Titolo: [OT] XML

Mi sapete dare qualche buon indirizzo per lavorare con XML?
Qualche buon libro?
E su DocBook?
Grazie e scusate l'OT :D)
--
Andrea

E su DocBook?
http://www.docbook.org/
--
Andrea Laforgia - walkietalkie(at)
libero.it
http://www.geocities.com/AndreaLaforgia

 
http://www.geocities.com/AndreaLaforgia
Andrea

lo aspettavo... grazie :D)
Non capisco molto il senso di questo tuo messaggio, comunque
avevo risposto prima di aver letto l'autore del post.


 
http://www.geocities.com/AndreaLaforgia
Andrea
Newsgroup: it.comp.lang.delphi
Titolo: Rotazione TImage Jpeg

Qualcuno sa se si può girare un immagine jpeg nel componente timage???
Grazie
Nicola
--- posted by geoForum on 
http://www.delphiedintorni.it


http://www.efg2.com/Lab/ImageProcessing/RotateScanline.htm
Ciao
-- 
ACSH
[TurboDelphi]
Chi fa da se', fatica il doppio

Prova
"ACSH" <x...@xxx.xxx> ha scritto nel messaggio 
news:%38kj.227948$U01.1...@twister1.libero.it...


Newsgroup: it.comp.lang.delphi
Titolo: Prelevare l'icona di un tipo di file

Mi spiego meglio:
Ho una MDI attraverso la quale apri file di vario genere per lo
piú(html,js,php)
Ogni volta che apro un file viene creata una MDIChild,l'icona della MDIChild
dovrebbe essere quella del file aperto.
Come faccio io a sapere da dove viene presa l'icona
e se é in una dll "l'index"?
grazie
erik

 MDIChild dovrebbe essere quella del file aperto.
Per recuperare l'icona associata ad un file puoi usare il metodo che ho
trovato su google tempo fa:
http://tinyurl.com/23o4v
--
Jax
====
Il critico pretende d'insegnare all'artista quel che lui non imparerà
mai.

Newsgroup: it.comp.lang.delphi
Titolo: ordinare TADOTable su campo lookup

Salve a tutti,
ho una tabella Access collegata ad una TADOTable, nella TADOTable ho 
definito un campo lookup che prende il valore da una altra TADOTable.
Adesso ho scritto nell'evento onTitleClick della DBGrig, il codice per 
ordinare il dataset per il campo della colonna su cui l'utente ha 
cliccato.
Funziona su tutti i campi tranne che per quel campo lookup.
Ho provato con IndexName ma vuole il nome dell'indice definito sulla 
tabella del file mdb...e quindi non va bene, ho provato con 
IndexFieldName ma vuole il nome del campo presente nella tabella del file 
mdb e nemmeno va bene.
Adesso sto prendendo la strada della query SQL ma volevo sapere sa esiste 
un modo di ordinare un campo lookup in un dataset.
Uso Delphi 6, dbGO, database Access 2003;
grazie in anticipo,
Diego
--- posted by geoForum on 
http://www.delphiedintorni.it

un modo di ordinare un campo lookup in un dataset.
Usa i TClientDataSet.

> Usa i TClientDataSet.
Per ora ho optato per la query, se l'utente avrà problemi tenterò con la 
tua soluzione, ma dovrò studiare non ho mai usato i TClientDataset.


Per ora ho optato per la query[...]
Pessima idea con un DB come Access... Evitare le query il più
possibile con i DB file-based.

 possibile con i DB file-based.
Ciao Andrea, 
ti ringrazio per le dritte, ma mi potresti spiegare il perchè con i db 
file based è sconsigliato l'uso delle query?
ti ringrazio in anticipo,


file based č sconsigliato l'uso delle query?
Perché non sono ottimizzati, rispetto a un db client/server, per
l'esecuzione delle interrogazioni SQL.  Tanto vale scaricare tutti i
dati in un TClientDataSet (tanto lo scaricamento totale dei dati
avviene comunque), creare indici al volo ed eseguire le operazioni che
servono.  

 servono.  
ok, farò un test il prima possibile, cercando delle differenze nei tempi 
di esecuzione di un ordinamento o di una ricerca a parità di numero di 
record.
grazie ancora,

Newsgroup: it.comp.lang.delphi
Titolo: salvare immagine

Ciao a tutti,
ho questo tipo di problema: vorrei salvare un immagine che carico
sull'oggetto "image" in un file.
Vorrei perň che salvasse non la stessa immagine originale ma quella che
visualizzo dentro l'oggetto image quindi diversa piů piccola o piů grande a
seconda di quanto č diversa la grandezza dell'oggetto rispetto al sorgente
immagine.
Grazie in anticipo

Devi inserire l'immagine in TImage usando il metodo del Canvas
"StretchDraw", e poi salvare l'immagine.
http://www.micla.it

Newsgroup: it.comp.lang.delphi
Titolo: Delphi8 E DataSnap

Ciao a tutti vorrei saper se in delphi 8 ent ci sono i componenti datasnap e
se č posssibile utilizzarli per scrivere in .net non so se dice cosě ma
spero di aver reso l'idea, in sostanza vorrei sapere se non sono specifici
ad una piattaforma, nel caso in cui non si potessero utilizzare mi
interesserebbe sapere come scrivere applicazioni multitier con D8 senza i
datasnap.
Grazie
Antonio.

 datasnap e se č posssibile utilizzarli per scrivere in .net non so se
Datasnap sembra supportato, almeno da quello che si legge nella Tech
Overview. Probabilmente per .NET conviene non conviene usare datasnap
quanto l'architettura che il framework stesso garantisce. Non conosco
quasi per nulla .NET ancora, per cui non posso essere piů preciso ;-)
Ciao
Antonio

 Antonio
quindi cosa si userebbe in sostituzione, perchè conviene, o non conviene?
Grazie.
Antonio.

 conviene?
Suppongo .NET offra delle soluzioni per il middleware. Ripeto, lo
conosco pochino per cui non so dirti altro.
La scelta di Delphi8 puň rivelarsi utile soprattutto in virtů del fatto
che ti lascia scegliere il tipo di architettura che vuoi usare.
La convenienza nell'usare l'uno o l'altro č soggettiva e dipende da
molti fattori.
Antonio

Newsgroup: it.comp.lang.delphi
Titolo: Rule Engine

Salve,
devo scrivere un programma che implementi un rule engine.
In internet ho trovato vari motori da integrare ma sono tutti ovviamente 
generici ed estremamente complicati, troppo per quello che devo fare io. 
Invece non ho trovato nessun sistema semplice e soprattutto freeware.
Esistono cose del genere per Delphi?
Potrei anche scrivermelo da solo... magari avete qualche consiglio o 
esempio da condividere?
Voglia di discutere e analizzare il progettino? :)
Grazie
Enrico

"DoctorC" ha scritto nel messaggio

Mmm... trovare gratis, qualcosa di specifico per Delphi, la vedo dura.
Potresti provare con CLIPS, di pubblico dominio. Se conosci un poco di C, e 
con un po' di lavoro, forse riesci a tirarci fuori qualcosa di importante.
http://clipsrules.sourceforge.net/
Ciao
-- 
ACSH
[TurboDelphi]
Chi fa da se', fatica il doppio
Newsgroup: it.comp.lang.delphi
Titolo: KADAO

sto usando i componenti KADAO 7.2 , con la DLL msldbusr.dll
il dubbio e' questo , sono independente da eventuali DAO presenti sul PC di
destinazione ?
nel caso in un PC , abbiano istallato il DAO da VB.
Maurizio

 nel caso in un PC , abbiano istallato il DAO da VB.
Non ho capito la domanda
Saluti
Michele

 ha scritto nel messaggio
news:aec2ua$5kf9m$1...@ID-110545.news.dfncis.de...


 KADAO e' indipendente da cio' ?
La versione di MS DAO che devi distribuire deve essere la stessa che scegli
nell'object inspector, quindi indipendentemente da chi la installa, questa
deve esserci.
Spero di essermi spiegato, sai il caldo ed il fatto che e Venerdi quasi
sera, hanno un'effetto devastante sul mio gia menomato cervellino :-)
Michele


perfetto , chiaro come il sole (anche se il caldo inzia a rompere  ....)
Maurizio

Newsgroup: it.comp.lang.delphi
Titolo: [D5 + Win XP] come installare il cnWizard con utente non amministratore

Ho sempre sentito parlare bene del cnWizard e mi sono convinto ad 
installarlo ma, installandolo come amministratore non mi trovo i wizard 
se mi loggo come utente normale viceversa li trovo se mi loggo come 
utente amministratore.
 
Come lo installo o cosa modifico? Grazie.
 
Ciao.


Risolto copiando le chiavi del registro.
 
Ciao.

Newsgroup: it.comp.lang.delphi
Titolo: Delphi cross-compiler

Che ne dite del Delphi 2011, altresì detto progetto 'X', capace di
sfornare eseguibili per windows, mac osx and linux?
Sarà l'alternativa super-professionale al Lazarus?
Ne sapete qualcosa? Che ne pensate?
A voi
Ciao
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 Ne sapete qualcosa? Che ne pensate?
Visto il passato, kylix, ed il presente, Lazarus... sono scettico sul 
futuro di questo prodotto.
Forse vogliono trovare un modo di riciclare i sorgenti di kylix, visto 
che era stato più volte chiesto di aprire i sorgenti alle communities 
delphiane, senza tuttavia ottenere risultati.
Ciao
-- 
Morde

Aggiungo questo link:
http://wings-of-wind.com/2009/09/11/kylix-2011/#comments
Dall'anno scorso si discute di questa cosa (leggi bene i commenti, 
troverai di tutto di più)
Ciao
-- 
Morde

 futuro di questo prodotto.
Per quanto ricordo, sia Kylix che Lazarus sono prodotti differenti da 
quello che dovrebbe essere Delphi "X": un IDE *solo per Windows*, con la 
possibilitï¿œ di disporre di compilatori per altre piattaforme in modo da 
produrre eseguibili nativi anche per queste (in pratica, non si tratta 
di portare anche l'IDE sulle piattaforme).
Non so se ï¿œ cambiato qualcosa nel frattempo... non mi aggiorno da un po'. :|
-- 
MARCO BREVEGLIERI
  (
http://www.marco.breveglieri.name
)
Newsgroup: it.comp.lang.delphi
Titolo: ottenere le data con ms

Salve, ho utilizzato la seguente linea di codice:
prova := FormatDateTime('d_mmmm_yyyy_hh:mm:ssAM/PM_', Now);
col fine di prendere una stringa rapprensentante il tempo attuale con 
giorno, mese, anno e orario e mettere il risultato in una stringa, che ho 
chiamato prova... Tutto sembra andare bene, ma il mio obiettivo sarebbe 
quello di mettere giorno per giorno, nello stesso percorso, un insieme di 
scannerizzazioni che devono essere messe tutte insieme nella stessa 
cartella... La stringa 'd_mmmm_yyyy_hh:mm:ssAM/PM_' rappresenta il nome con 
il quale in automatico nomino i fogli dello scanner, una volta 
scansionati.... ovviamente nessun foglio successivo verrà chiamato come il 
precedente dato che avrà un orario differente dal precedente, o almeno 
questo è quello che vorrei, ma i secondi potrebbero non bastarmi, nel senso 
che io, una volta scansionati per esempio 20 fogli, li prelevo dalla 
cartella nella quale vanno e li porto tutti nella cartella di destinazione, 
rinominati opportunamente attraverso il formato 'd_mmmm_yyyy_hh:mm:ssAM/PM_ 
.  Il problema è che il ciclo che me li rinomina e li porta nella cartella 
finale è troppo veloce per cui potrei nello stesso secondo trovarmi passati 
almeno 3 o 4 o + fogli, il che significherebbe che solo l'ultimo di quei 
fogli che cade nello stesso secondo, si aggiudicherebbe il nome di tale 
secondo sostituendo i 3 o 4 precedenti che si chiamavano allo stesso modo, 
per cui chiederei se oltre ai secondi, è possibile ottenere anche i 
millisecondi, così che 2 file che si trovano nello stesso secondo, non 
potranno mai trovarsi nello stesso millisecondo aggiudicandosi così 2 nomi 
differenti..... non so se ho espresso bene il concetto e spero che qualcuno 
di voi possa aiutarmi...
thx di tutto
Max 

 di voi possa aiutarmi...
ciao.
La documentazione della funzione FormatDateTime e' abbastanza chiara:
z  Displays the millisecond without a leading zero (0-999).
zzz Displays the millisecond with a leading zero (000-999).
ciao
Giacomo

 thx di tutto
Sinceramente non capisco perchè ti stai complicando le cose :)
Io formatterei le scansioni in questo modo: YYYYMMDDHHMMSS
Mi sembra impossibile avere nello stesso secondo due scansioni.
Il tuo ciclo di spostamento/copia di conseguenza non ha bisogno di 
rinominare i file a sua volta.. o sbaglio?
Oltretutto con questa formattazione puoi ordinare i file per data di 
creazione e verificare le rotture di livello per giorno, mese, anno, 
ecc..... e' un formato che si presta anche per le colonne chiave di 
tipo integer nei databases (quantomento nella forma YYYYMMDD).
Se proprio non puoi fare a meno di rinominare i file nel ciclo di 
copia, imposta un check sulla rottura di livello e incrementa un 
numeratore, di modo da avere:
YYYYMMDDHHMMSS001
YYYYMMDDHHMMSS002
...
YYYYMMDDHHMMSS300
YYYYMMDDHHMMSS400
e cosi' via
-- 
Morde
Newsgroup: it.comp.lang.delphi
Titolo: Hide di una applicazione (e viceversa)

Slave a tutti.
Ho questa situazione da cui non esco agilmente...
Ho scritto un piccolo tool che controlla lo stato di una cartella
prestabilita cercando un certo tipo di file ben preciso (in pratica
controllo l'estensione dei file presenti ogni tot secondi). Quando giungono
tali file (uno o più) si apre una finestrella in basso a DX del desktop
(come MSN di Microsoft) che mi informa della cosa, cliccando su di essa mi
compare una form che riporta le informazioni di questi file.
Fin qui tutto bene.
Ora mi sorge la necessità di lasciare attivo tale programma dalla mattina
alla sera ed ho studiato come minimizzarlo e visualizzarlo solo nella
TaskBar Tray (vicino all'orologio per intenderci).
Ho inserito la gestione dell'icona necessaria e una volta che sulla main
form attivo il servizio di controllo a tempo, tale form viene minimizzata.
Ho usato questa logica:
Parte la form principale, avvio il servizio di controllo, lancio il comando:
Application.Minimize.
Essendoci nella form la funzione sotto riportata.....
procedure WMSysCommand(var Msg: TWMSysCommand); message WM_SYSCOMMAND;
begin
    Inherited;
    if Msg.CmdType = sc_minimize then begin
        Hide;
    end;
end;
L'applicazione si nasconde perfettamente, rimane solo l'icona nella TaskBar
Tray.
Quanto arriva il file cercato, si apre la finestrina ma poi da lì in poi non
riesco a fare riapparire l'applicazione: la form si apre correttamente, ma
rimane il pulsantone nella taskBar e se non lo premo non vedo nulla.
Ho provato diverse combinaizoni di Application.restore, BringToFront.. ecc
ecc.
Avete qualche suggerimento in merito ?
Grazie

 rimane il pulsantone nella taskBar e se non lo premo non vedo nulla.
In un'applicazione di cui ogni tanto guardo i sorgenti per vedere come
risolvere problemi di questo tipo implementa lo stesso meccanismo e per
ripristinare la finestra usa un codice simile:
// show window
SetForegroundWindow(Handle);
Application.Restore;
ShowWindow(Application.Handle, SW_RESTORE);
Visible := True;
spero che funzioni anche nel tuo caso
-- 
Lis
ICQ@Home #7317603sette     ICQ@Work #16285702tre
Mercatino: 
http://lis77.bravepages.com
 (aggiornato *con foto*: 16/06/03)
Newsgroup: it.comp.lang.delphi
Titolo: html

ciao a tutti.
ho un problema con un componente free: "kdatasetToHtml".
ho costruito una semplice rubrica con il TclientDataset e vorrei esportare
in html i dati.
provando e riprovando (e non riuscendo), mi è venuto un dubbio: ...forse che
il "kdatasetToHtml" non supporta il "tclienDataSet"? e funziona solo con le
ttable?
ringrazio anticipatamente.
p.s. se viene supportato allora un piccolo esempio, di come farlo
funzionare, mi sarebbe molto utile.
grazie
deg

 ringrazio anticipatamente.
mah, se lui vuole un TDataset, dovrebbe andare anche con il TClientDataSet
visto che pure il TTable deriva in qualche modo da TDataset.
Comunque se non ti risponde nessuno e non riesci a risolvere il problema, io
non ci impazzirei piů di tanto. Non ti ci vuole molto a fare una procedura
che prende i dati dal tuo TClientDataset e li salva su un file HTML, tra
l'altro puoi anche crearti uno stile tuo invece di attenerti a quello del
componente !!!
Ti saluto
Antonio Tarolla

 non ci impazzirei più di tanto. Non ti ci vuole molto a fare una procedura


 ciao e grazie
se vuoi, ti posto una rudimentale procedura che avevo scritto qualche anno
fa, compiendo i primi passi con Delphi.
Questa estrapolava i dati da una TStringGrid e li metteva in una tabella di
una pagina HTML.
In pratica ricreava la stessa tabella, ma visibile come pagina web.
Questa procedura si adatta anche al tuo caso perchè basta cambiare le
istruzioni della TStringGrid con quelle dei campi del tuo database.
In fin dei conti, quello che bisogna creare è un file di testo, dove i tag
sono fissi a design time, mentre i dati veri e propri vengono incorporati a
run rime. Infine salvare il tutto come HTML.
Comunque se hai risolto va bene così.
Ti saluto
Antonio Tarolla

 ha scritto nel messaggio
news:2OB39.40220$lu5.1...@twister1.libero.it...

Newsgroup: it.comp.lang.delphi
Titolo: D6 adesso funziona, vi dico perchè!

Dopo aver tempestato in tempi recenti il ng di domande per i problemi più 
assurdi all'interno di D6 ho finalmente risolto, si fa per dire, e ritengo 
giusto mettervi al corrente.
Il tutto sono alcuni componenti di turboasyncpro 4.06.
In particolare TaDTerminal, od almeno nel mio caso, il quale mentre nella 
versione per D4  funzionava al 100%, nella versione per D6 è bacato mica da 
ridere.
I problemi erano iniziati infatti con il porting di un'applicazione da D4 a 
D6, applicazione che gira bene in quasi 400 siti da molti anni. Ma vendo 
iniziato per l'appunto ad usare D6 in contemporanea scaricavo la 
responsabilità su questo.
Orbene se lasciate TadTerminal costantemente attivo in un progetto i 
problemi sia a livello di debug che a runtime non ve li toglie nessuno.
Delphi 6 si impalla, inizia ad occupare il 100% della cpu insieme 
all'applicazione in debug. Gli errori e le eccezioni in chiusura ed apertura 
delle varie finestre dell'applicazione spuntano come i funghi. Le porte 
seriali restano "agganciate", led virtuale TX sempre acceso, proprio questo 
sintomo mi ha portato alla "soluzione".
Spero di essere stato utile.
Ciao Carlo 

ridere.
Mi sembra però molto strano.
Nello scalare verso l'alto, se hanno semplicemente ricompilato, non ci
dovrebbe essere un impatto di questo tipo.  O forse la versione per D6
è molto diversa dalla precedente?

 ha scritto nel messaggio
news:174912t8svcm4rls8...@4ax.com...
