mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.delphi
Titolo: [ADOConnection] - Data Source

 Salve a tutti.. avrei un quesito..
ho cercato in rete ma nn riesco a trovare nulla..
e capisco pure che la cosa è banale.. ma quando sei bloccato da giorni
nn capisci + una mazza.. e alla fine è una cosa di principio
allora ho un ADOConnection..
vorrei sapere a quale database punta!..
cioè la proprietà "Data source" della connection string..
sapete se esiste un modo veloce per recuperare questa proprietà anziche 
analizzare la strinca "connection string"??
grazie
--- posted by geoForum on 
http://www.delphiedintorni.it

 analizzare la strinca "connection string"??
No... perchè è proprio grazie ad essa che il db si palesa.
-- 
Morde


ok ma credvo che comunque ADOConnection da qualche parte divida le 
proprietà..
ognuna al suo posto..
vabbe come nn detto..
grazie.



infatti č cosģ, ma sono registrate in una struttura
Properties [Items,Count, etc etc...]
ADOConnection.Properties
Ogni item ha un nome e un valore, tra questi item
c'e' il server a cui punti, il catalogo selezionato etc etc...
Buon divertimento.
:

Newsgroup: it.comp.lang.delphi
Titolo: data e ora file

win7 + XE5 - Tramite FileAge di SysUtils leggo la data di un file 
memorizzato su HD
 
la data del file risulta corretta
l'ora invece completamente errata
 
es: un file scritto il 18/04/2013 ore 16:06
 
mi ritorna 18/04/2013 19:02 (nel pc - bios e orologio - sono le ore 18:15)
 
   Label4.Caption := 'Dimensione = ' + UIntToStr(iDimFile div 1024);
   FileAge(sNomeFile, timeDate);
   Label5.Caption := FormatDateTime('dd/mm/yyyy hh:mm', timeDate);
 


Non so se c'entra, ma hh:nn ti mostra l'ora e *il mese*, non i minuti
devi mettere hh:nn
 
ciao
Giacomo
 
 

>
avevo messo hh:mm proprio per verificare differenze; hh:nn mi da 
comunque lo stesso risultato 19:02 (di hh:mm), non capisco a cosa sia
riferito quel valore hh, l'orlogio interno indica 11:09.
 
la documentazione riporta *FileAge deprecated*
http://docwiki.embarcadero.com/Libraries/XE2/en/System.SysUtils.FileAge
 
e usare
 
function FileAge(const FileName: string; out FileDateTime: TDateTime; 
FollowLink: Boolean = True): Boolean;
 
appena riesco , provo.
ciao
 

> appena riesco , provo.
ho fatto la verifica, impostando come sotto, e in compilazione non
compare piu' *deprecated*
 
if FileAge(sNomeFile, data) then
     Label5.Caption := sNomeFile + ' ' + FormatDateTime('dd/mm/yyyy 
hh:nn', data);
 
il risultato era pero' diverso da quanto visualizzato da Esplora 
Risorse, cosi' ho preso un file (immagine jpeg) modificata e salvata, 
FileAge mi ritorna data e ora della modifica.
 
Esplora risorse (win7 64) invece continua a mantenere la data e ora 
originali, mentre WinXP riporta correttamente la nuova data e ora come
FileAge.

Newsgroup: it.comp.lang.delphi
Titolo: Delphi e Shockwave

Sapete se esiste un controllo per i file Flash/Director di
macromedia???
grazie mille

macromedia???
Mi rispondo da solo
Component\Import Active X
e caricare il file da
windows\system\macromed\flash
bye 

 wrote in message
1cpjstg8ubj16mah5...@4ax.com...

Newsgroup: it.comp.lang.delphi
Titolo: Posso installare componenti per D3 su D5 ?

Salve a tutti, scusate la domanda forse banale, ma i componenti per D3 si
possono installare su D5 anche senza avere i sorgenti ? vorrei passare a
delphi 5, ora uso delphi 3, solo che ho una serie di componenti di terze
parti pesantemente utilizzati per lo sviluppo delle mie applicazioni, ora,
se io monto D5 questi componneti che fine fanno ? per alcuni come le RX non
c'e' problema, mi scarico la versione giusta, ma altri, tipo Orpheus,
Dtools, Ztools, che ho acquistato anni fa per D2 su D3 sono andati, ma su D5
potro' installarli ?
Tenendo conto che non di tutti ho i pas, alcuni hanno solo i dcu, quindi non
possono essere ricompilati (credo, non so se D5 ha possibilita' diverse per
installare i componenti) perche' ho sentito che D5 utilizza  un nuovo tipo
di package, con diversa estensione e non riconosce i dpk per
l'installazione.
Che faccio, devo ricomprare tutto ?  cacchio !!!!!1
grazie dell'aiuto
ciaoClaudio.

sei hai i pas hai qualche possibilità, ma se hai solo il dcu dei componenti
non puoi farci niente,
perchè i dcu funzionano solo con la versione con cui sono stati compilati.
ciao.
--
web:    
http://gnaffy.tripod.com/
e-mail: Gna...@Wappi.com
e-mail: 
bmq...@tin.it
ICQ#:  76488613
Newsgroup: it.comp.lang.delphi
Titolo: Anche io ho una domanda su un cgi e Apache...

Allora, uso D6 enterprise, ma non credo qualifichi molto... ho un problema
molto stupido credo...
premetto che nel web development non sono un asso... e non so sviluppare
siti web per cui...
veniamo al dunque.
Ho installato apache
Ho compilato il mio cgi e lo ho messo nella cartella cgi-bin di apache
Da IE lo richiamo così 
http://localhost/cgi-bin/BrokCgi.exe
Nella cartella cgi-bin ho creato una cartella IMAGES e ci ho messo una mia
immagine InfoLogic.jpg
Ho provato a cambiare la testata di un documento html prodotto dal mio web
service tentando di infilarci la mia immagine :
.
.
</HEAD>
<body>
<p><img src="IMAGES/InfoLogic.JPG" width="330" height="129"></p>
<H1>Stato Magazzini</H1>
ma quando richiamo il tutto in IE l'immagine non viene mostrata (x rossa in
alto a sx).
Se su IE con il tasto destro clicco sul riquadro dell'immagine e ne
visualizzo le proprietà mi dice che l'address dell'immagine è
http://localhost/cgi-bin/IMAGES/InfoLogic.JPG
quindi apparentemente corretto .....
se invece di usare l'indirizzo relativo faccio così :
.
.
</HEAD>
<body>
<p><img src="file:///C:/Program Files/Apache
Group/Apache2/cgi-bin/IMAGES/InfoLogic.JPG" width="330"
height="129"></p><H1>Stato Magazzini</H1>
l'immagine ovviamente viene visualizzata...
E' più di un'ora che ci sbatto la testa :((

prova a spostare la cartella immagini sotto htdocs e vedi cosa succede.
Bye
A

Mi rispondo da solo...
il problema era dovuto alla mia incompetenza nell'utilizzo di Apache e
nell'utilizzare come browser IE che non dice niente sugli errori... ho
dovuto far provare un mio collega che si č collegato con Mozilla e ho
capito...
In pratica la root su apache sta nella sottocartella htdocs, quindi
modificando il codice html in
<p><img src="/IMAGES/InfoLogic.JPG" width="330" height="129"></p>
ovviamente dopo avere creato in htdocs una sottocartelle IMAGES con dentro
la mia immagine,
tutto funziona...
Mi sa che per fare questo cgi mi dovrň scornare con tante cosine che
ignoro.....
Io mi sto studiando quello che dice il buon Cantů nel suo librone... e mi
sembra una parte fatta benino.
C'č qualcuno che ha esperienza in queste cose e magari sa indicarmi anche
qualche link?
Ciao e grazie per l'attenzione.

eh eh grande Albe
.... ;)

 Ciao e grazie per l'attenzione.
Ciao
-- 
Fabrizio Mancini - <f[.]mancini[@]tin[.]it> 29/10/2003 15.34.31
Open Delphi Manual (
http://groups.yahoo.com/group/delphi_open_manual/
)
Firma pure tu per il software libero 
http://petition.eurolinux.org/
Newsgroup: it.comp.lang.delphi
Titolo: [IB|FB] Lettere accentate e character set WIN1251

Perchи quando tento di postare una stringa contenente lettere accentate 
(ийтм) in un campo VARCHAR, ottengo l'eccezione EIBInterBaseError 
("arithmetic exception, numeric overflow, or string truncation
Cannot transliterate character between character sets")
Il character set del database и
DEFAULT CHARACTER SET WIN1251
Ma il character set WIN1251 и almeno quello giusto? 
Scusate se posto qui, ma i gruppi di Marco sono ancora down e su Google ho 
trovato ben poco sull'argomento (che non sia in russo).
-- 
Mauro Falzari 
   [ 
http://digilander.libero.it/mauro.falzari
 ]
 
 "Se guardi nell'abisso, anche l'abisso guarda in te." 
   (Friedrich Nietzsche)

 trovato ben poco sull'argomento (che non sia in russo).
news.delphiedintorni.it
--
Alessandro Petrelli.

 Io uso ISO8859_1.
qui c'и qualcosa che non va.. ho creato il db con
USER 'SYSDBA'
PASSWORD 'masterkey'
PAGE_SIZE=4096
DEFAULT CHARACTER SET ISO8859_1
(oppure WIN1251, stesso errore)
un domain
CREATE DOMAIN DESCRIPTION_DOM AS
  VARCHAR(700) NOT NULL
e una table
CREATE TABLE DESCRIPTIONS (
  ID           INTEGER         NOT NULL    PRIMARY KEY,
  TEXT         DESCRIPTION_DOM)
quando tento di postare vocali accentate
  DataSource1.DataSet.AppendRecord(['имт']);
ecco apparire l'eccezione


 ecco apparire l'eccezione
Nella stringa di connessione al db hai specificato il charset da utilizzare?
--
Alessandro Petrelli.

 
news.delphiedintorni.it
ho visto che i gruppi sono nati due giorni fa e non ci sono post. Ma questa 
nuova gerarchia è destinata a soppiantare quella di 
news.marcocantu.it
 o la 
affiancherà?


 affiancherà?
Soppiantare credo.
--
Alessandro Petrelli.

 utilizzare? 
hai perfettamente ragione, mi era sfuggito (sto facendo esperienza). Ho 
guardato nella documentazione delle API di IB e mancava questo parametro alla 
stringa di connessione:
  isc_dpb_lc_ctype=WIN1251
cosě č tutto andato a posto. Grazie ancora.


Newsgroup: it.comp.lang.delphi
Titolo: dll visual basic

Ho una dll fatta in visual basic, ed anche un ocx con le stesse
funzioni sempre fatto in visual basic
Come posso utilizzarle con delphi?
Ciao a tutti Grazie

 Come posso utilizzarle con delphi?
con le DLL non ho mai lavorato ma per gli OCX posso aiutarti:
Non devi fare altro che installarlo come fosse un componente:
dal menu "Component" -> "Import activeX contorl..."-> clicca sul pulsante
"Add" seleziona l'OCX ed in fondo alla stessa finestra scegli il pulsante
"Install" (ed arriva fino in fondo al semplice procedimento di
installazione) o "Create unit"...
spero di esserti stato utile
Se hai bisogno ancora di me mi trovi sul forum di 
programmando.org
 :))
--
Max Etere
massimili...@programmando.org
http://www.programmando.org
Newsgroup: it.comp.lang.delphi
Titolo: Package per dao

Ciao a tutti
Uso delphi personal 5  e sto cercando un package per poi usare DAO o ADO.Ho
provato KADAO (versione per delphi personal) ma non sono riuscito a farlo
andare.
Qualche consiglio su come installarlo correttamente?
Oppure un altro package grazie ...
ciao

 ,scrisse:

io ne ho trovato uno su ioprogrammo di giugno, ma non mi funzion
perchč il d5 standard non hga il supporto database. La versione
personal sě? Quanto costa?

 personal sě? Quanto costa?
non ha il supporto database la personal...
mi tocca fare tutto a manina :))))
ciao

Newsgroup: it.comp.lang.delphi
Titolo: SQL e blob

Ciao a tutti,
qualcuno sa se esiste un modo per per inserire/modificare un blob 
direttamente da un'istruzione SQL senza utilizzare un TDataset?
In particolare sto sperimentando con access...
Grazie

 Grazie
-- 
Ciao, Anto', [38, 143, AQ] 
MB C SC 220 CDI Magma Rot
"Oggi c'è una grande battaglia di idee, ma alla 
fine, non ci saranno ne vinti, ne vincitori, ne idee!"
S. Benni da Elianto
Newsgroup: it.comp.lang.delphi
Titolo: Delphi e VB

Ciao a tutti
Ho creato un ActiveX in VB che inserito in un progetto VB funziona
perfettamente.
Quando provo ad inserirlo in un progetto Delphi, pur non generando errori,
non mi viene "aggiunto alla toolbar".
Devo fare qlc di particolare?
Grazie
Fabio

> Devo fare qlc di particolare?
Component-import activex control
Bye
AS

 ha scritto nel messaggio
news:acvo5f$t76$1...@newsreader1.mclink.it...


> Importa l'ocx senza errori ma non lo mostra nella toolbar!!!
component-import activex controll
poi clicchi sul pulsante Install.
Ti fa creare un pkg.
Alla fine, ti mette i componente nella palette activex, se non sbaglio.
Bye
AS

 ha scritto nel messaggio
news:acvrmv$tpa$1...@newsreader1.mclink.it...


Io ho fatto questa operazione prima di inviarti il post.
Ti riporto tutti i passaggi in modo che forse trovi qualcosa che hai
saltato.
1) Component-import acivex control
Ti esce una dialog nella quale sono elencati i vari active installai sul tuo
pc.
2) scegli quello che ti interessa.
Nel mio caso ho preso: "controllo amministrazione immagine kodak..."
3) a questo punto dovresti avere attivo il pulsante "Install....": click!
4) Ti compare una dialog nella quale delphi ti chiede se vuoi aggiungere
l'activex ad un pkg gia esistente oppure uno nuovo. io ho scelto uno nuovo
5) Gli do gile name e descrizione
6) click su ok
7) Mi chiede una conferma per la compilazione e l'installazione del pkg: gli
dico yes
8) Mi compare uan dialog nella quale mi dice che il pkg (nome) è stato
installato e che è stato registrato il componente TImgAdmin.
9) a questo punto, se vado nella toolbar, tab degli activex, troppo il
TImgAdmin.
Bye
AS

 non mi viene "aggiunto alla toolbar".
si vero gli activex creati con vb fanno casini non sono standard...
vb addiritture crea decine di metodi fantasma che non si sa bene da dove
saltino fuori....
dalle mie prove riesco ad usarlo però gli eventi non mi funzionano..
ciao

 ha scritto nel messaggio
news:DmJI8.93459$CN3.2...@news2.tin.it...


 Grazie
grazie dell'informazione ho risolto anch'io..........
:)))
Newsgroup: it.comp.lang.delphi
Titolo: aprire piu' documenti ma una sola applicazione...

Ciao a tutti i membri del NewsGroup.
  Sto' lavorando ad una applicazione che apre dei file di dati (immagini
in formato proprietario).
Il nome di tali file puo' essere specificato come parametro iniziale
all'avvio dell'applicazione per essere poi recuperato a livello di
codice tramite la funzione ParamStr.
Il problema e' che ovviamente se associo l'estensione del file
all'applicazione e faccio un doppio-click su piu' documenti apro
altrettante applicazioni.
Mi ricordo che l'argomento e' gia' stato trattato nel NewsGroup un po'
di tempo fa'. Qualcuno e' in grado di darmi qualche informazione su come
affrontare il problema ?
Grazie
Maurizio
--

 altrettante applicazioni.
Devi impedire alla tua applicazione di partire se è già stata lanciata.
In pratica la tua applicazione verrà lanciata una prima volta "normalmente",
mentre le successive si limiteranno a passare il nome del file da aprire
all'applicazione
già aperta.
Nel codice del dpr puoi scrivere: (spero di non sbagliarmi)
Var EsisteGia : boolean;
BEGIN
 EsisteGia := (CreateMutex(nil, False,
PChar(ExtractFileName(Application.ExeName))) =0)
                      or (GetLastError = ERROR_ALREADY_EXISTS);
If EsisteGia then begin
* Comunica alla tua applicazione (già aperta) che deve aprire un altro file
end else begin
// ciclo normale (application.initialize; application.createform ... ,
application.run )
end;
* Per le tecniche di comunicazione interprocesso puoi scegliere tra molti
metodi, io ti consiglierei
il messaggio WM_COPYDATA passato alla finestra principale (che trovi a
partire dal nome della classe
e/o della finestra). Se non ti dovesse esser chiaro qualche punto chiedi
ancora ;-)
Ciao, Davide DG

Newsgroup: it.comp.lang.delphi
Titolo: parametri account...

C'è un modo semplice per ricavare i valori dell'account
predefiniti ??
es.  POP3 - SMTP - Username - Password  ecc...
Saluti MAX

 Saluti MAX
Ciao .G

intendevo dire OutLook, so che sdi possono
caricare dal registry, ma se per qualche motivo
fai una variazione allora č un caos....!!
MAX
Newsgroup: it.comp.lang.delphi
Titolo: no operation

Salve a tutti.
Vorrei sapere se c'è un metodo per fare eseguire in un programa delphi
l'operazione "no operation" .In pratica vorrei che il sistema aspetti
finchè non viene riscontrato un certo evento (facendo un ciclo di
operazioni vuote,un po' come si fa in assembler).E' possibile o devo
fargli fare delle somme incrementali (tipo i:=i+1) ?
Grazie.
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 Grazie.
Non ho ben capito la tua domanda pero cosi su due piedi mi vien da
suggerire:
sleep(millisecondi) per mettere in attesa la tua applicazione
oppure
while miacondizione = miovalore do
    begin
    end;
Spero di esserti stato utile.
Michele

> fargli fare delle somme incrementali (tipo i:=i+1) ?
Non è un buon metodo.
Lo stesso ciclo durerebbe di meno su macchine + veloci e di meno su macchine
lente.
vedi funzione Sleeep.
Bye
AS

Ciao, forse mi sbaglio ma credo che tu stia cercando di sviluppare
alla "assembler via" (proceduralmente) un programma Windows che invece
è un sistema ad eventi. Ti consiglio quindi (a meno che tu non voglia
proprio una serie di nop nel sorgente...) di darti un occhio a quali
eventi hai a disposizione ed a come usarli.
Ciao, Rocco.

     end;
Questo non e' un buon metodo, perche' genera un "busy wait", ovvero mette la
cpu in attesa, ma facendole eseguire comunque dei calcoli.
Per aspettare un tot di tempo si usa sleep, mentre per aspettare eventuali
eventi esterni (ad esempio che cambi un certo valore settato da un'altro
thread) si usano gli oggetti di sincronizzazione (semafori, mutex,
criticalsession ecc)
Ciao!            {MSX}
--
{MSX}  -  
http://msx.rules.it
Mantenitore delle FAQ di it.comp.lang.delphi,
reperibili qui: 
http://gpi.infomedia.it/abc/delphi/FaqDelphi.txt

finchč non viene riscontrato un certo evento
Premettendo che non ho nulla da eccepire sul tu post, sono riuscito a
spiegarmi meglio questa volta ??
Ciao
Michele

 wrote in message
news:3d0db625....@News.CIS.DFN.DE

Infatti l'idea di partenza era proprio quella (metodo assembler).Anche
perchè è da poco che ho  iniziato a programmare con linguaggi orientati
agli ogetti e sto ancora sforzandomi di "pensare" ad ogetti.Comunque 
spulciando i vari eventi son riuscito a risolvere il problema.Comunque 
la mia domanda rimane (come curiosità).C'è un modo di far eseguire le 
famose  no operation ? 


famose  no operation ? 
In un programma windows il sistema è sempre in Idle a meno che
l'utente non facci auqalche cosa (e quindi scateni qualche evento ed
il relativo codice associato).
In pratica se fai una form con due pulsanti ma poi l'utente non li
preme il programma non fa altro che aspetare (quindi non fa nulla,
anche se in realtà cicla per vedere se sono presenti messaggi nella
coda dei msg di Windows.).
Se proprio vuoi inserire dei NOP nel codice devi aggiungere degli
statement assembler nel codice pascal (questo si puo' fare usando asm
+ comandi assembler che vuoi inserire). Se quando esegui il codice
guardi la finestra CPU vedrai oltre alla traduzione del codice pascal
anche la sequenza di NOP che hai inserito.
Ciao, Rocco.
Newsgroup: it.comp.lang.delphi
Titolo: XP Home e Web Server

Salve a tutti
Per testare dei programmi web CGI  usavo
Win98 con il PWS-personal web server
Ora su WinXP home edition non è previsto e Microsoft sconsiglia di usare
PWS.
Qualcuno conosce un PWS freeware in grado di eseguire CGI.exe ?
Non servono "prestazioni" particolari ...
Io ne ho trovati alcuni ma eseguono solo CGI scripts, nessuno CGI exe
--
Carlo Muccini

 Io ne ho trovati alcuni ma eseguono solo CGI scripts, nessuno CGI exe
Apache?
Prova anche su:
http://www.webattack.com/freeware/server/fwwebserver.shtml

 Qualcuno conosce un PWS freeware in grado di eseguire CGI.exe ?
prova a cercare su google, se non mi sbaglio si puo installare iis 5.1 su
winxp home, sulla professional sicuro, ma sulla home mi sembra che con un
piccolo trucchetto si possa fare. altrimenti ti consiglio caldamente apache.
se non hai troppa esperienza per il setup puoi scaricarti pacchetti tipo
easyphp che ti installano apache+php+mysql
ciao fabrizio

 ha scritto nel messaggio
news:tm5nri0i...@ostialido.it...

--
Apache è un prodotto "vero", non mi dispiacerebbe...ma può eseguire anche i
CGI.exe ?
penso però che sia un po' troppo,  per fare solo i test di funzionamento.
Carlo Muccini

 ha scritto nel messaggio
news:HjzKa.121228$Ny5.3...@twister2.libero.it...

Sono stato su webattack. Ne ho scaricati (installati e configurati !) almeno
quattro o cinque.
Più belli o più brutti, sono tutti semplici e tutto sommato facili. Alcuni
richiedono pochissime risorse !
Pero'...... non mi eseguono i cgi.exe.  Gli script si, interpreti php si,
ecc. tutto ok
però non ho trovato nessuno che esegua i cgi.exe
Possibile ?
--
Carlo Muccini

> ciao fabrizio
Scusate se intervengo, ma non essendo molto *in topic* questo thread, forse e'
meglio che continuiate in privato o comunque su un altro ng.
Recentemente e' nato it.comp.www.server.
Senza rancori,
;-)
-- 
Morde. 
(morde at programmer dot net)

GRANDIOSO !!
Mi rispondo da solo.. ma ho trovato una bellissima soluzione.
Un web server freeware, piccolo piccolo (52 Kb) , scritto in Delphi, con i
sorgenti !
Naturalmente esegui i CGI.exe per i test è eccezzionale ! (con due zeta)
l'indirizzo:   
http://www.ritlabs.com/tinyweb/index.html
5 stelle allo ZDNet HotFiles
Ovviamente non c'è installazione, si creano alcune directory e.. funziona !
Grazie cmq per le vostre gentili risposte
--
Carlo Muccini

 Possibile ?
Visto che siamo su ICLD ti suggerisco di copiare il demo indy 
httpserver, scaricarti la suite idrunner 
http://users.chello
.
be/ws36637/ e creatri un piccolissimo serverino per fare i test.
Saluti.

Newsgroup: it.comp.lang.delphi
Titolo: Format NTFS

Posso lavorare in modo regolare con delphi 6 su
un supporto formattato in NTFS come in FAT32,
o ci possono essere dei problemi ??
MAX

 o ci possono essere dei problemi ??
A meno che tu non sviluppi programmi progettati specificamente per sfruttare
le caratteristiche di un FS particolare, non ti devi preoccupare di nulla.
Ciao
Matteo
Newsgroup: it.comp.lang.delphi
Titolo: ShellExecute per stampare su porta COM

Buongiorno a tutti,
come si riscrive il comando DOS "print /D:com1 c:\temp.txt"
utilizzando lo shellexecute in Delphi?
Ho provato con le seguenti sintassi ma la stampa non mi parte...
ShellExecute(Application.Handle, 'open', PChar('print /D:com1 c:
\temp.txt'), nil, nil, SW_NORMAL);
ShellExecute(Application.Handle, 'print', PChar('c:\temp.txt'),
PChar('/D:com1'), nil, SW_NORMAL);
Grazie mille,
Dario

 utilizzando lo shellexecute in Delphi?
Risolto:
ShellExecute(Application.Handle, 'open', PChar('print'), PChar('/
D:COM1 c:\ temp.txt'), nil, SW_HIDE);
Come non detto,
ciao a tutti

 
Io preferisco mettere questo tipo di comandi in un file batch che viene
eseguito dall'applicazione Delphi. In questo modo se, ad esempio, la
porta su cui stampare dovrà essere com2:, invece di com1:, basterà
editare il solo file .bat e non occorrerà ricompilare l'applicazione.
Giuseppe

Newsgroup: it.comp.lang.delphi
Titolo: Bloccare la posizione di un Form

Salve a tutti, come posso bloccare la posizione nel video dei miei form?
Grazie
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 form?
Posso chiederti il *perché* di questa atroce cosa?
--
Jax
Journeying Artificial Xenomorph

 Salve a tutti, come posso bloccare la posizione nel video dei miei form?
esistono molti modi, il piů semplice dei quali consiste nel rimuovere il 
bordo alla form (BorderStyle:= bsNone) e magari piazzarci su un Panel per 
mostrare un bordo "finto".
Se invece vuoi che una form qualsiasi (anche con la sua brava barra del 
titolo e tutti pulsantini) non sia spostabile, io farei cosě:
type
  TForm1 = class(TForm)
  private
    FParentOldWndProc: TWndMethod;
    FOldLeft, FOldTop: Integer;
    procedure SubClassWndProc(var Msg: TMessage);
  public
    constructor Create(AnOwner: TComponent); override;
  end;
var
  Form1: TForm1;
implementation
{$R *.dfm}
{ TForm1 }
constructor TForm1.Create(AnOwner: TComponent);
begin
  inherited Create(AnOwner);
  FParentOldWndProc:= WindowProc;
  WindowProc:= SubClassWndProc;
  FOldLeft:= Left;
  FOldTop:= Top;
end;
procedure TForm1.SubClassWndProc(var Msg: TMessage);
begin
  if Msg.Msg = WM_WINDOWPOSCHANGING  then
    with TWmWindowPosMsg(Msg).WindowPos^ do
    begin
      x:= FOldLeft;
      y:= FOldTop;
    end;
  FParentOldWndProc(Msg);
end;
-- 
Mauro Falzari 
   [ 
http://digilander.libero.it/mauro.falzari
 ]
 
 "Se guardi nell'abisso, anche l'abisso guarda in te." 
   (Friedrich Nietzsche)

 titolo e tutti pulsantini) non sia spostabile, io farei cosě:
 Ti ringrazio, questo era proprio quello che cercavo.GRAZIE DI CUORE!!!


> Posso chiederti il *perché* di questa atroce cosa?
Perchè non voglio che l'utente combini "casini" con i form!!!
Non si sa mai fino a che punto può arrivare l'uomo!!!

Newsgroup: it.comp.lang.delphi
Titolo: Alias BDE

Come posso creare e gestire un alias attraverso un prg scritto con delphi 5
pro.
Cioč vorrei se possibile creare con il mio programma degli alias per il BDE
senza doverli creare attraverso il BDE mamager.
E' possibile ? se si come.
Grazie Gian Luca
-- 
Posted from  [62.98.128.125] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 E' possibile ? se si come.
era giusto tra i miei tips! :-)
uses DBIProcs, DBITypes;
Ecco la funzione ....
procedure AddBDEAlias(
  sAliasName,
  sAliasPath,
  sDBDriver : string );
var
  h : hDBISes;
begin;
  DBIInit( nil );
  DBIStartSession( 'dummy', h, '' );
  DBIAddAlias( nil,
    PChar( sAliasName ),
    PChar( sDBDriver ),
    PChar( 'PATH:' + sAliasPath ),
    True );
  DBICloseSession( h );
  DBIExit;
end;
Ciao! :-)
--
- Carlo -
c.b...@libero.it
http://members.fortunecity.it/cbertu

E' possibile ? se si come.
procedure AddParadoxAlias(Name: String; Path: String);
begin
  Session.AddStandardAlias(Name, Path, 'PARADOX');
  Session.SaveConfigFile;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
  AddParadoxAlias('CIAOCIAO', 'C:\sparagnauz');
end;
-- 
The Follet

Vi ringrazio per l'aiuto.
Ciao gian Luca
-- 
Posted from  [62.98.130.200] 


Newsgroup: it.comp.lang.delphi
Titolo: JPEG Ruotate

Ciao,
ho la necessità di stampare delle foto jpeg, ruotate di 90° con QuickReport
in Delphi 4.
Qaulcuno ha delle idee ?
Grazie Stefano Tampieri

...


...


Newsgroup: it.comp.lang.delphi
Titolo: [OT] Buona Pasqua

Buone feste a tutti, esperti, non esperti, neofiti e smanettoni.
Grazie per tutti gli aiuti ricevuti in questi due anni.
Ciao
--
Marco
Reporter Professional srl
supp...@reporterprofessional.it


mi associo... Buona Pasqua a tutti

Buone feste a tutti, esperti, non esperti, neofiti e smanettoni.
Mi associo agli auguri, aggiungendo quelli per chi -come me, sigh..- non va in
ferie ma lavora sodo lo stesso.
Forza! viva delphi e auguri a tutti!
-- 
Morde. 
morde[at]programmer[.]net

Buona Pasqua a tutti, sia  quelli in ferie, sia a quelli che martedě saranno
sulla tastiera :o(((
Ciao

 ha scritto nel messaggio
news:b7p4aj$llq$1...@lacerta.tiscalinet.it...


repeat
 augurissimi
until now>=encodedate(2003,4,22);
tie' beccatevi sta raffica di auguri lunga 3 giorni ;)))
Ciao, Sandro


Buona Pasqua a Tutti
Ciao Enzo
www.scozzaro.it

 ha scritto nel messaggio
news:b7p4aj$llq$1...@lacerta.tiscalinet.it...



    Via De Gasperi, 14 - 42019
    Scandiano (Reggio Emilia)

 ha scritto nel messaggio
news:b7p4aj$llq$1...@lacerta.tiscalinet.it...


 
supp...@reporterprofessional.it
---------------------------------------------------------------------------
Messaggio inviato attraverso 
http://www.trucchiperpc.it
 - sezione newsgroup

 ha scritto nel messaggio
news:b7p4aj$llq$1...@lacerta.tiscalinet.it...


 Buone feste a tutti, esperti, non esperti, neofiti e smanettoni.
ops ...
arrivo un pò in ritardo...
vale anche a "Pasquetta" vero ;)
    Auguri a tutti
    Mak
Newsgroup: it.comp.lang.delphi
Titolo: Ricavare il valore SUM da una Query

          Un saluto a tutto NG, volevo sapere come posso ricavare il valore SUM da una
Query.
Posto la mia query.
var
  IDC : String;
  Tot : Currency;
begin
  SMC := 'Edit1.Text';
  ZQuery1.Close;
  ZQuery1.SQL.Clear;
  ZQuery1.SQL.Add('Select Sum(Importo) from AcqSPM where IDCS ='''+IDC+'''');
  ZQuery1.Open;
  Tot := ?????????????????????????????;
Grazie
Vincenzo Di Falco
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

  Tot := ?????????????????????????????;
Tot := zquery1.fields[0].asinteger (se trattasi di somma di interi)
Andrea



Vincenzo Di Falco
Eviterei come una peste l'accesso ai dati per indice (fields[x])
almeno che non sia assolutamente necessario.
Meglio cosě:
 ZQuery1.SQL.Add('Select Sum(Importo) as importo from AcqSPM where
IDCS ='''+IDC+'''');
e poi ZQuery.FieldByName('Importo').Value
-- 
Ore 18.30: premo invio.

Si... molto più pulito.

Newsgroup: it.comp.lang.delphi
Titolo: Lanciare un exe una sola volta

Come posso ottenerlo?
Voglio che la mia applicazione in D5 si possa eseguire sotto win solo 
una volta e non più volte cliccando sull'icona...
Grazie
-- 
Questa è una firma automatica di MesNews.
Sito: 
http://mesnews.no-ip.com


Leggi qualche post + sotto, è già stata data la soluzione.

 una volta e non più volte cliccando sull'icona...
Non ci credo ... 
Forse siamo finiti su Candid Camera ...
Pero' ti concedo il beneficio del dubbio e intendo la tua frase
"si possa eseguire sotto win solo una volta" non con il significato di
"solo una istanza alla volta" ma con "solo ed unicamente una volta,
poi, una volta chiusa, non deve poter piu' essere eseguita".
Dando per buona questa seconda interpretazione, ti consiglio di crearti un
secondo programma che, lanciato alla chiusura dell'applicazione, cancelli
fisicamente dall'hd il file eseguibile.
Ciao.
ACSH
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

Newsgroup: it.comp.lang.delphi
Titolo: Gestione delle eccezioni in un Servizio

Ciao a tutti,
stavo cercando di trasformare una piccola applicazione in un servizio per 
windows.
Tutto bene ma mi sono arenato davanti ad un piccolo problemino:
questa espressione che in caso di eccezioni lancia una routine di ripristino
Application.OnException := FunzioneDiGestione;
 presente nell'applicazione basata su form Form
viene segnalato come errore da Delphi (non va bene per il servizio)
Che cosa devo usare in un Tservice per far partire una procedure in caso di 
eccezione?
Grazie a tutti.
Ciao. 

 eccezione?
O fai partire un thread con tutte quelle logiche, e aspetti che 
finisca, oppure fai partire un servizio secondario che resta in attesa 
e processa i messaggi di windows che gli vengono mandati: quando 
succede il problema, tu mandi il messaggio all'altro servizio che si 
attiva e compie le procedure del caso.
Tieni i processi separati, e più pulito e ti garantisce migliore 
evoluzione del tuo software.
saluti
-- 
Morde

 e processa i messaggi di windows che gli vengono mandati
Tieni presente anche che se vuoi creare un servizio che ha una
finestra utente, anche solo informativa, il servizio deve essere
lanciato per avere i diritti di accesso all'interfaccia utente.
Windoze tratta questi servizi con maggiore attenzione per tutte le
problematiche di "unattended".
Se non devi segnalare subito il problema, potresti loggare l'eccezione
in un file e e mostrare la segnalazione nell'eventuale GUI di un
programma separato che, immagino, l'utente ogni tanto lanci.
Cerca su google "windows services gui"
Ciao,
Gp
--
http://www.gpsoftware.it
Newsgroup: it.comp.lang.delphi
Titolo: Help da delphi7 a delphi2006

Sto passando a delphi2006 e nei programmi non mi funziona piu' l'help quando
premo F1.E' cambiato qualcosa?
Utilizzo application.helpfile per definire quale file di aiuto contiene
l'aiuto per ogni edit e su ogni edit su helpcontext indico quale aiuto va
associato.
Massimiliano

> Sto passando a delphi2006 e nei programmi non mi funziona piu' l'help quando
Cosa vuol dire "non funziona piu'"?
Non esce, va in errore o cosa?
A.

Esce l'errore "No context-sensitive help installed"

 Esce l'errore "No context-sensitive help installed"
http://qc.borland.com/wc/qcmain.aspx?d=9892
A.

Grazie mille, con quel link ho potuto verificare che nelle uses devo
aggiungere WinHelpViewer che prima non conoscevo e non serviva.
Newsgroup: it.comp.lang.delphi
Titolo: Come modificare label in una dialog box non ancora aperta?

Salve, volevo sapere una cosa:
come faccio a modificare delle label in una dialog box non aperta, prima
dell'invocazione di:
   DBox.ShowModal;
se faccio DBox.Label1.Caption:='prova'; mi da' errore proprio perche' DBox
vale nil.
ho provato a fare:
  DBox.Create(Self)
ma mi da' errore di eccezione (Self e' Form1)
Chi mi aiuta?
--------------------------------
Inviato via 
http://usenet.libero.it

dell'invocazione di:
Cosa intendi per dialog box?
--
Buon      .-""",
 Natale    /____, \
          {_____}`{} 
Buone    (/ . . \)
 Feste   {`-=^=-`}
         {   `   }
          {     }jgs
Morde.     `-,-`

ti crei una property nella dialog box:
property LabelCaption: string read FLabelcaption write SetLabelCaption.
Poi, nella OnCreate:
TuaLabel.Caption := Labelcaption
Infine, quando apri la dialog:
With TTuaDialog.Create(Seld) do begin
  try
    LablCaption := 'Adesso la caption la decido io.....!';
    ShowModal;
  finally
    Free;
  end;
end;
Bye
A.

 ma mi da' errore di eccezione (Self e' Form1)
Mi pare di capire che tu abbia una Form che usi come Dialog Box, siccome
dici che
ad un certo punto ti da errore perchč la variabile vale Nil, penso che
potresti risolvere cosě...
Supponendo che:
var
    DBox    : TForm;
DBox:=TForm.Create(Nil);
try
    DBox.Label1.Caption:='Prova';
    DBox.ShowModal;
finally
    FreeAndNil(DBox);
end;
Penso che questo sia quello che intendevi fare.
Saluti,
Carmine

   DBox.ShowModal;
usi:
DBox.MyShowModal('pippo');
In generale, questo metodo e` utile per passare informazioni a un form
per compiere impostazioni prima della visualizzazione.

    Free;
Sbagliato, se assegni un owner, non devi liberare esplicitamente.

 Sbagliato, se assegni un owner, non devi liberare esplicitamente.
che succede se fai il free di un'oggetto senza aspettare che sia l'owner 
assegnatogli a farlo?
Ciao, Antò. 
 

assegnatogli a farlo?
Che distruggi, prematuramente, un oggetto a cui l'owner potrebbe
ancora far riferimento, causando in questo modo (se sei fortunato) un
access violation.  Free, inoltre, si occupa di chiamare il distruttore
di un oggetto solo se il riferimento non e` nil, ma all'atto della
deallocazione della memoria un puntatore continua a mantenere il suo
valore.


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

proprio per questo non posso assegnare nel corpo della Form1:
Forse dovresti creare la DBox all'inizio del progetto, nasconderla, e attivarla
quando ti interessa con la showmodal.
Ciao


Il tuo esempio assegna una caption ad un oggetto che e' nil...
Il mio esempio presuppone che la tua form sia gia` creata.


    ABLS Team (
www.abls.it
)
········································
Newsgroup: it.comp.lang.delphi
Titolo: Quick report

Penso tu ti riferisca a questo, prova: imposta il tipo di foglio ad "Custom"
e non "A4", e poi cerca di modificare le dimensioni.
Fammi sapere.

Se provi a impostare in un foglio
 
        QReport.Page.PaperSize:= Custom;
        QReport.Page.Length:= 304.8;
        QReport.Page.Width:= 216;
(si tratta di un modulo a foglio continuo per stampe  fatture su
modello Buffetti)
ti stampa qualcososa? a me solo la prima riga (sigh!)
Per risolvere, devo impostare, dalle proprietą della stampante, il
formato pagina a 21,6 cm x 12"e  QReport.Page.PaperSize:= Default.
Ma in questo modo, ovviamente, l'utente si ritrova quel formato quando
va a stampare da Word...
Per non parlare del fatto che devo forzare un formato di stampa (A4)
per gli elenchi (ad es. clienti), impedendo all'utente di scegliere un
altro formato da PrintDialog o PrinterSetupdialog.


Newsgroup: it.comp.lang.delphi
Titolo: Creazione di un'applicazione che simuli exel

Salve ragazzi, vorrei creare un'applicazione che in qualche modo simula
l'exel e per adesso mi accontento di aprire, modificare e salvare.
Per questa cosa ho pensato di usare  il componente F1Book dell'activeX, pero
è un componente che non ho mai usato e quindi che non conosco.
Se qualcuno di voi lo conosce mi potrebbe dare qualche dritta e magari del
codice sorgente?
Mi affido a voi.
Marc

Ho trovato particolarmente utile il componente TAdvStringGrid presente su
http://www.tmssoftware.com/
: è shareware senza limitazioni, ben documentato
e, tra le altre cose, consente di aprire e salvare file in formato excel
semplicemente chiamando due funzioni (LoadFromXLS & SaveToXLS)... geniale
no? :-)
Silvio


Grazie per l'appoggio.
Marc

Newsgroup: it.comp.lang.delphi
Titolo: TFlowPanel e TGridPanel dove sono?

Ho TD2006 e non trovo questi componenti nella tool palette.
Sono nel file ExtCtrl come ad esempio TSplitter che e` nella palette.
Come posso usarli a design time?
Enrico

 Come posso usarli a design time?
Se non riesci a trovare la pagina di un componente specifico, puoi 
sempre utilizzare la funzione di "ricerca incrementale", una delle 
caratteristiche di cui abuso di più personalmente (e che mi manca in 
Visual Studio).
Quando il focus appartiene alla ToolBox, facendo clic sul titolo della 
finestra specifica o con la combinazione CTRL+ALT+P, ti basta digitare 
l'inizio del nome del componente (con o senza "T") per individuarlo.
In D2007, invece, si può ricercare anche all'interno del nome.
Ciao,
   Marco.
-- 
MARCO BREVEGLIERI
  (
http://www.marco.breveglieri.name
)

 
Gia' fatto ma non li ho trovati, ne segue che non ci sono.
Quindi la domanda adesso e` perche` non ci sono e soprattutto si puo` 
inserirli nella palette, renderli in qualche modo disponibili?
Enrico
Newsgroup: it.comp.lang.delphi
Titolo: LISCIATA D'ORECCHIE a ANDREA LA FORGIA - Leggete attentamente

 Devi fare così....
No, amico, ora ci fai vedere come fai con ExitProcess(), lo avevi detto 
tu
che si poteva usare. Che fai furbastro? ti affidi ad applicazioni esterne
(e che peraltro usando TerminateProcess)?
Attendiamo il tuo codice che ci illumini, trollino, che fai scappi?
Dai, avanti, posta la soluzione con OpenProcess() e ExitProcess(), dai
dai, attendiamo frementi, così oggi impariamo qualcosa di nuovo.
CHE LISCIATA DI ORECCHIE..... :-D
--- posted by geoForum on 
http://www.delphiedintorni.it

NOTARE CHE TASKKILL non usa TERMINATEPROCESS...


 NOTARE CHE TASKKILL non usa TERMINATEPROCESS...
Certo che la usa trollino ;-)
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

>NOTARE CHE TASKKILL non usa TERMINATEPROCESS...
ROTFL! Guarda, sono buono e ti insegno qualcosa di nuovo:
1) Scaricati Dependency Walker (
http://www.dependencywalker.com/
), č un 
tool per vedere cosa importa ed esporta un programma Windows
2) Carica taskkill.exe 
3) Fai click su kernel32.dll 
4) Sorpresa! Importa TerminateProcess() ma non ExitProcess()
Mi chiedo se fare la figura dei cretini vi piace o siete cosě cretini 
che non pensate di fare la figura dei cretini e credete veramente nelle 
cretinate che scrivete...

Newsgroup: it.comp.lang.delphi
Titolo: ModelMaker.... Come la ficco in una classe una property di tipo Data e/o ora?

Ciao.
Ieri sera ho dato una occhiata veloce a modelmaker.
Ma quando, creata una semplice classe, volevo aggiungere una property di
tipo data o ora, nella relativa dialog non ho trovato tra i vari tipi il
tipo datetime o simile.
Qualcuno che lo ha potrebbe verificare 'sta cosa?
Bye
A

> Qualcuno che lo ha potrebbe verificare 'sta cosa?
Confermo.....
Ho la versione 6.20 Build 1401
Acqua

> Qualcuno che lo ha potrebbe verificare 'sta cosa?
Risposta data da Cheers Phil del Team di Model Maker alla domanda
"One of my attrubutes is a Date type. Where is the Date data type in MM???"
Answer of Cheers Phil:
if you use TDate often, it can be added as "user defined data type preset".
Click on the right most button in a data type selector, and select the last
item in the combo. This will open a text file where you can add commonally
used types.
Bč, in effeti non potevano ammassare tutti i tipi possibili e
immaginabili.... :DDD anche se mi chiedo "Ma proprio TDateTime dovevano
scartare? Che hanno fatto dubitare Salvati? Mha! :DD"  Anche l'help dice:
User defined types are used e.g. for enumerated, record and array types.
Toggle the Select Custom Data Type button on to choose one of the
used-defined types in the model or add a new one.
To do so, select then the Define custom types... option from the drop-down
list. The CustomTypes.txt in the Shared folder, e. g. C:\Program
Files\ModelMaker\Shared\CustomTypes.txt, enumerates the custom types. The
file will open for editing; the changes will take effect after restart.
Per ulteriori chiarimenti esite anche, almeno nella versione che ho io, menu
Help->Support Newsgroup... :))))
bye bye
Acqua
----------------------------------------------------
"Se č microsoft non funziona"

 "Se č microsoft non funziona"
Azz!
Qui mi si ruba la citazione: quella č MIA! :)))
Bye
A

 Qui mi si ruba la citazione: quella č MIA! :)))
L'ho fatto apposta! :))
3-4 anni fa ricordo che te la portavi sempre dietro....
Per caso non sei piů dello stesso parere?
bye
Acqua
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 Per caso non sei più dello stesso parere?
Chi, io?
E' uno scherzo?
Mi accusano di essere polemico ma io credo solo di essere realista.
Anzi: adesso la frase giusta è:
"Se è Microsoft non funziona e LO PAGHI"
Bye
A
Newsgroup: it.comp.lang.delphi
Titolo: problema con File collegamento ( lnk )

Nel DeskTop io ho un file ( es. : ciccio che è un collegamento ) e vorrei da
istruzioni delphi lanciare il file collegato a ciccio .
Qualcuno sa dirmi come posso risolvere tale caso visto che ho già provato
con shellexecute ma non ottengo  nulla !
                            Ciao Damiano!
P.S.: ringrazio fin d'ora chi mi sa dare un aiuto o una un consiglio su tale
caso .

 ha scritto nel messaggio
news:aKHT7.328149$sq5.15...@news.infostrada.it...

Con questa funziona sicuramente (io la uso)
ShellExecute(0,  nil,  Pchar(DesktopDir+'\'+sNome+'.lnk'),  nil,  nil,
SW_SHOWNORMAL);
se poi vuoi estrarti la lista dei file nel desktop:
//CURRENT USER
  Reg := TRegistry.Create;
  try
    Reg.RootKey := HKEY_CURRENT_USER;
    Reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Explorer\Shell
Folders',False);
    Desktop := Reg.ReadString('Desktop');
  finally
    Reg.Free;
  end;
//ALL USER
  Reg := TRegistry.Create;
  try
    Reg.RootKey := HKEY_LOCAL_MACHINE;
    Reg.OpenKey('SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Shell
Folders',False);
    Desktop2 := Reg.ReadString('Common Desktop');
  finally
    Reg.Free;
  end;
Dove "desktop" e "desktop2" contengono le due directory del Desktop
Newsgroup: it.comp.lang.delphi
Titolo: I.A. cerco notizie

se avete qualche sito o documentazione aiutatemi
cerco materiale sull' I.A. nei videogiochi.
(gestione di sprite... ecc..)
grazie anticipate

 (gestione di sprite... ecc..)
Mhmm.. direi che sei decisamente Off-Topic...
Tra l'altro l'argomento I.A. è particolarmente ampio e complesso, mi pare ci
sia un newsgroup dedicato ma comunque scommetto he se vai su Yahoo e scrivi
"Artificial+Intelligence" ne trovi a frotte...
Ciao
Ps: io affronterei l'argomento su qualche libro...
--
(¯`·.¸¸.·´¯`·.¸¸.-> Andrea <-.¸¸.·´¯`·.¸¸.·´¯)
AntiSpam: rimuovere il trattino basso dall'indirizzo per rispondere
AntiSpam: remove the underscore from the e-mail address to reply

 Ps: io affronterei l'argomento su qualche libro...
Si scusatemi... ho sbagliato N.G. ..credevo di averlo inviato a
it.comp.giochi.sviluppo
mi incasino spesso.... pensa che ho mandado qualcosa di serissimo.. sui DB a
un N.G.
sul sesso... che testa...

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

Ciao a tutti,
    ho una procedura che stampa in un panel una serie di stringhe secondo le 
coordinate inviate dall'utilizzatore.
Per evitare che l'utente selezioni una dimensione esagerata del font, ho 
implentato un controllo che adatta la dimensione della stringa in base allo 
spazio disponibile.
Ecco parte della procedura
PE.Canvas.Font.Assign(F25);
TS:=PE.Canvas.TextExtent(E25.Text);
If TS.cx>WL Then
     While TS.cx>WL Do
     Begin
       F25.Size:=F25.Size-1;
       PE.Canvas.Font.Assign(F25);
       TS:=PE.Canvas.TextExtent(E25.Text);
     End;
Dove PE : TPanel
         TS : TSize
         WL : Larghezza disponible
         F25 : TFont
         E25 : TEdit
A volte pero' il ciclo non terminava mai e non capivo il perche', poi ho 
scoperto che ci sono alcuni tipi di font che hanno un valore minimo di 
dimensione (Size) al di sotto del quale non si puo' andare.
Per esempio il font "MS Sans Serif" non va sotto gli 8 pixel e se la stringa 
e' lunga non riesco ad diminuire l'ingombro, da qui il loop infinito.
Se sono in grado di individuare la dimensione minima posso dare un avviso 
che occorre cambiare tipo di font.
Avevo pensato ad una soluzione un po artigianale del tipo
OldFontValue:=F25.Size;
If TS.cx>WL Then
     While TS.cx>WL Do
     Begin
       F25.Size:=F25.Size-1;
      If F25.Size=OldFontSize Then
           Faccio qualcosa perche' la dimensione non e' stata cambiata.
       PE.Canvas.Font.Assign(F25);
       TS:=PE.Canvas.TextExtent(E25.Text);
    End;
A dir la verita' funziona ... ma mi sembra davvero artigianale....
Grazie a tutti,
Ciao, Daniele 

 A dir la verita' funziona ... ma mi sembra davvero artigianale....
Purtroppo e' un comportamento che e' fuori dal tuo controllo: tu assegni 
una dimensione ma windows decide che non gli piace, quindi come fai tu 
(rileggere e confrontare) e' il modo piu' pratico.
Forse e' possibile interrogare il font per sapere qual e' la dimensione 
minima che accetta, ma non mi sembra che valga la pena avventurarsi per 
quella strada.
ciao
Giacomo
Newsgroup: it.comp.lang.delphi
Titolo: Security NT

Vorrei realizzare un programmino che esplori le directory di un server
(avendone i permessi) e ne modifichi i permessi di accesso seguendo certe
regole, magari dopo aver letto dal database utenti di NT i nomi degli utenti
del domino... Ci sono componenti simili ai TDirectory... che abbiano anche
delle proprietą per leggere/modificare la security di lettura/scrittura di
una directory ...?
Grazie per l'attenzione
g...@prx.it

una directory ...?
Bella domanda....
L'unica cosa che mi viene in mente (ma è solo un idea, bisognerebbe provare)
è quella di
effettuare un Ciclo sulle cartelle {FindFirst - FindNext} e utilizzare
qualcosa di simile alla
SetFileAttributes che lavori però a livello di cartelle.
Il problema potrebbe essere appunto come dici tu nei permessi.
Appena ho un po' di tempo cercherò se esiste una SetDirectoryAttributes :)
Ciao
--
- Carlo -
BSSoftware Tips Mailing-List Support





Newsgroup: it.comp.lang.delphi
Titolo: Array di dimensioni variabili

Ciao, volevo chiedere se è possibile ( e come possibilmente) creare array
di dimensioni variabili (senza usare puntatori):
esempio:vorei costruire una procedure
Procedure Faiquesto(mioarray: array[0..Max_Dim]of boolean;
Max_Dim:integer);
Grazie mille.
Giuseppe
---------------------------------------------------------------------------
Messaggio inviato attraverso 
http://www.trucchiperpc.it
 - sezione newsgroup

di dimensioni variabili (senza usare puntatori):
Certamente, ti riporto una parte della guida sull'object pascal:
<<-- from "object pascal guide"
Dynamic arrays do not have a fixed size or length. Instead, memory for a
dynamic array is reallocated when you assign a value to the array or pass it
to the SetLength procedure. Dynamic-array types are denoted by constructions
of the form
array of baseType
For example,
var MyFlexibleArray: array of Real;
declares a one-dimensional dynamic array of reals. The declaration does not
allocate memory for MyFlexibleArray. To create the array in memory, call
SetLength. For example, given the declaration above,
SetLength(MyFlexibleArray, 20);
allocates an array of 20 reals, indexed 0 to 19. Dynamic arrays are always
integer-indexed, always starting from 0.
-->>
-- 
Morde. 
(morde at programmer dot net)

 SetLength(MyFlexibleArray, 20);



Newsgroup: it.comp.lang.delphi
Titolo: Eseguire un file wav

Come faccio a eseguire un file wav, dopo aver spinto un bottone,
internamente al programma, senza che si avvii un programma esterno tipo
Winamp o Windows Media Plyer?
Grazie
Un saluto a tutti
Valerio

 Winamp o Windows Media Plyer?
uses
  mmsystem;
Var
  NomeDelWave:String;
...
  NomeDelWave:='notify.wav';
  PlaySound(PChar(NomeDelWave), 0, SND_ASYNC+SND_FILENAME);
Con il flag "SND_ASYNC" la funzione esce immediatamente
('nzomma). Senza il flag, esce solo quando la riproduzione
del wave è terminata.
--
Il Cammelliere
http://it.geocities.com/ilcammelliere

 ha scritto nel messaggio
news:3d79f...@news.dada.it...
