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

Ho la necessità di copiare in batch tutti i file contenuti nella directory A
in quella B all'interno di una applicazione D4. Insomma l'equivalente del
comando  dos copy *.*  x:\bufile.
Avete qualche dritta.
grazie Carlo

 comando  dos copy *.*  x:\bufile.
Si, esistono più modi per copiare cartelle intere, quello sicuramento più
semplice è ricorrere alla funzione SHFileOperation().
Questa è una funzione API della Shell che svolge diverse funzioni a seconda
dei parametri. Ti rimando alla documentazione per i parametri, per quanto
riguarda il suo utilizzo da Delphi devi includere la unit ShellApi nella
uses-list
--
- Carlo -

 ha scritto nel messaggio
news:NJqGa.86974$Ny5.2...@twister2.libero.it...

Hai provato con CopyFile  ??
Saluti ^_Goblin_^

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

Salve a tutti,
Ho un TdatetimePicker e quando si avvia il prg si imposta con la data del
giorno corrente. Vorrei visualizzare su due editbox la data del primo
giorno della settimana (del lunedě) e dell'ultimo giorno della settimana
(Domenica) compresi nella data del giorno corrente indicato nel Tdate
TimePicker.
Grazie e a presto!!!
Enrico 
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 (Domenica) compresi nella data del giorno corrente 
per esempio se oggi č il 03.02.04 vorresti una funzione che ti restituisca 
02.02.04 e un'altra che ritorni 08.02.04 ?
Guardati
procedure DecodeDayOfWeekInMonth(const AValue: TDateTime; out AYear, AMonth, 
ANthDayOfWeek, ADayOfWeek: Word);
e
function EncodeDayOfWeekInMonth(const AYear, AMonth, ANthDayOfWeek, 
ADayOfWeek: Word): TDateTime;
-- 
Mauro Falzari 
   [ 
http://digilander.libero.it/mauro.falzari
 ]
 
 "Se guardi nell'abisso, anche l'abisso guarda in te." 
   (Friedrich Nietzsche)

 02.02.04 e un'altra che ritorni 08.02.04 ?
ESATTO !!! Ora guardo, grazie!!


 TimePicker.
se ho capito bene, tu vuoi visualizzare la data del lunedě e domenica della
settimana attuale. ( o quella indicata dal DateTimePicker )
var
  DataCorrente, Lun_Date, Dom_Date : TDateTime;
begin
  DataCorrente:=Date;
  Lun_Date:=DataCorrente - DayOfWeek(ADate) + 2;
  Dom_Date:=Lun_Date + 6;
  Edit1.Text:=DateToStr(Lun_Date);      // data di lunedě
  Edit2.Text:=DateToStr(Dom_Date);      // data di domenica
  Edit3.Text:=DateToStr(DataCorrente);  //data corrente
end;
io ho usato la data corrente, se tu vuoi usare quella del DateTimePicker,
basta che gli passi la data di questo alla variabile "DataCorrente".
Ti saluto....ciao.

 Grazie ho risolto!!!

Newsgroup: it.comp.lang.delphi
Titolo: FmtStr

Ero convinto funsionasse é ho inserito senza controllare invece non vá ..
inserisce altri colori
FmtStr(HTMLColor, '%s%.6x', ['#', ColorDialog1.Color]);
Dovrebbe trasformare un Colore in codice per l 'HTML.
ciao
erik

 FmtStr(HTMLColor, '%s%.6x', ['#', ColorDialog1.Color]);
Diamine, ad impegno stiamo messi male vero?
var HTMLColor: string;
begin
  ColorDialog1.Execute;
  FmtStr(HTMLColor, '%.6x', [ColorDialog1.Color]);
  HTMLColor := '#' + copy(HTMLColor, 5, 2) + copy(HTMLColor, 3, 2) +
copy(HTMLColor, 1, 2);
  ShowMessage(HTMLColor);
end;
-- 
I'am what I'am, I do what I can

 Diamine, ad impegno stiamo messi male vero?
Veramente mi sono messo a cercare su Goolge "FmtStr colorDialolog"
ma non ho trovato niente d'interessante .. sul pc ho un programmini fatto in
delphi,con source che usa una conversione IntToHex(niente a che vedere).
Ho dato un'occhiata all 'help ma non ho trovato niente nemmeno lí.
Io il codice non saprei come modificarlo(raramente ho usato formattazioni e
ho solo letto qualcosa su DelphiBasic) difatti non ho capito affatto le tue
modifiche.
Comunque non funsiona nemmeno cosí.
Domani faccio qualche prova.
Grazie
ciao
erik

 Comunque non funsiona nemmeno cosm.
Definisci "non funziona".
var HTMLColor: string;
begin
  ColorDialog1.Execute;
  FmtStr(HTMLColor, '%.6x', [ColorDialog1.Color]);
  HTMLColor := '#' + copy(HTMLColor, 5, 2) + copy(HTMLColor, 3, 2) +
copy(HTMLColor, 1, 2);
  ShowMessage(HTMLColor);
end;
Se selezioni il rosso viene restituito #FF0000
Se selezioni il giallo  viene restituito #FFFF00
Se selezioni il verde  viene restituito #00FF00
Se selezioni il blu viene restituito #0000FF
Se selezioni il fucsia viene restituito #FF80FF
...
Il colore viene convertito correttamente.
La versione precedente invece di restituire un colore #RRGGBB (dove R
sta per rossO, G sta per verde e B sta per blu) restituiva #BBGGRR


 Definisci "non funziona".
Ho sbagliato, lasciavo il carattere '#' dentro la stringa di formattazione
non tornava un colore corretto.
Ho fatto un pó di prove  con il tuo aiuto e quello del source(del
programmino in delphi trovato in internet ) che ho sul pc  e..
HTMLColor:=IntToHex(ColorDialog.Color,6);
HTMLColor:=copy(s,5,6)+Copy(s,3,2)+Copy(s,1,2);
Vedo che dá lo stesso risultato credo vada bene.
Grazie
erik

Ops (un pó di stanchezza :) )
 HTMLColor:=IntToHex(ColorDialog.Color,6);
HTMLColor:=copy(HTMLColor,5,6)+Copy(HTMLColor,3,2)+Copy(HTMLColor,1,2);
bye
erik
Newsgroup: it.comp.lang.delphi
Titolo: Indy Smtp & Socket Error 11004

Ciao a tutti!
Ho creato un'applicazione per inviare delle email e funziona benissimo
sul mio PC. Ho Windows2000, una connessione con Libero ed uso
smtp.libero.it
 per inviare...
Un mio amico ha provato lo stesso programma su WindowsXP, connessione
con Virgilio, ed ha provato vari server smtp, ma il programma non invia
le email e gli da questo messaggio di errore:
"Socket Error 11004"
oppure
"Timed out".
Cosa posso fare??
Grazie mille in anticipo!

[...]Cosa posso fare??
http://www.google.it/search?hl=it&q=Socket+Error+11004&btnG=Cerca+con+Google&meta=

Grazie ma non sono riuscito a trovare una soluzione...
Uso Indy IdSMTP per inviare l'email. Sul mio sistema funziona ma sul
suo no.

Ho trovato il motivo del problema. Non puoi usare un server SMTP che
non sia del tuo Internet Provider...

Qualcuno conosce un DNS da poter utilizzare con Virgilio ??

 Qualcuno conosce un DNS da poter utilizzare con Virgilio ??
Un DNS o un server SMTP? :-)
-- 
MARCO BREVEGLIERI
  (
http://www.marco.breveglieri.name
)

Il server SMTP lo conosce già il mio amico. Io vorrei sapere un DNS :-)

 Il server SMTP lo conosce già il mio amico. Io vorrei sapere un DNS :-)
Li trovi tutti qui:
http://www.google.it
 ;-)
Scusa ma non ho resistito... :-P


[...]Non puoi usare un server SMTP che non sia del tuo Internet Provider...
Questo si sa e, comunque, l'argomento esula da Delphi, quindi
rivolgiti ad un altro gruppo.

E' proprio un argomento di Delphi... il problema lo potrò risolvere
con Delphi infatti...
Devo trovare il DNS del provider internet col quale il pc si connette.
Questo DNS mi serve per poter settare la proprietà Host del componente
IdDNSResolver. Ho scoperto che il DNS è memorizzato nel Registro di
Windows, però sfortunatamente il path cambia in base alla versione di
Windows!!
Come posso fare per ottenere questo DNS in modo automatico,
possibilmente senza registro??

E' proprio un argomento di Delphi...
Non lo č.

Newsgroup: it.comp.lang.delphi
Titolo: Calcolare funzioni matematiche complicate?

Scusate la domanda, è possibile/agevole
far calcolare ad un programma in delphi funzioni matematiche complicate
contenenti funzioni trigonometriche, sommatorie, elevamenti a potenza e
logaritmi?
grazie, ciao
A.L.


se l'algoritmo di valutazione espressioni prevede quel genere di funzioni
aritmetiche/trigonometriche/ecc. allora si, e' fattibile, altrimenti,
ovviamente no. "Agevole"? cosa intendi? vuoi forse scriverti da solo
l'algoritmo di valutazione espressioni?

Alcuni suggerimenti:
http://homepages.borland.com/efg2lab/Library/Delphi/
http://homepages.borland.com/efg2lab/Library/Delphi/MathFunctions/index.html
-- 
Ciao!
Marco Kregar
marco.kregar(@)FirebirdSQL.it
www.FirebirdSQL.it
"over the bench the goat sings, under the bench the goat dies"



forse al nostro amico bastava il contenuto di Math.pas 
(?)
-- 
Mauro Falzari 
   [ 
http://digilander.libero.it/mauro.falzari
 ]
 
 "Se guardi nell'abisso, anche l'abisso guarda in te." 
   (Friedrich Nietzsche)

Il giorno 26 maggio 2004, antonio_LF ha scritto:

math.pas ?

Newsgroup: it.comp.lang.delphi
Titolo: Calculated Field

Ciao a tutti,
smanetto con delphi da 2 giorni e avrei una domanda: ho inserito una DbGrid
connessa correttamente ad un DB che mi visualizza i dati in essa contenuta,
ma vorrei che in un suo campo ci fosse il prodotto di quantità per prezzo,
come posso fare? Ho letto l'help in linea, e ho trovato qualcosa su un
Calculated field, ma diceh di andare nel field editor e cliccare New Field,
ma ove sta sto field editor???? Si puo intervenire direttamente nel DB
Paradox?
Grazie mille a tutti anticipatamente!
Ciaooooooooooooo
--
Roberto Petillo

pulsante di destra sul tuo tTable.
Bye
A.

pulsante di destra sul tuo tTable.
oppure doppio click :-)
Ciao!!!
Morde.
morde [at] programmer [.] net

Grazie mille

Si puo intervenire direttamente nel DB Paradox?
No, è tutto gestito a livello di componenti VCL.
-- 
Andrea Laforgia
#exclude <windows.h>

Newsgroup: it.comp.lang.delphi
Titolo: Interbase e odbc

Ciao ragazzi ! Qualcuno saprebbe dirmi se esiste un modo di  creare un DSN
odbc per un Database Interbase,in modo da poterlo utilizzare via
ADOConnection?
Grazie mille!!



Credo che esista solo nella versione commerciale con Interbase 5.x
(non ne sono sicuro, pero').
Sto investigando anch'io se esista un OLE DB Provider per Interbase.
Mi sa che tocca scriverlo ! :(
--
Andrea Laforgia (ICQ 87230455)
http://www.geocities.com/AndreaLaforgia
"ci sono tre tipi di persone nel mondo : quelli che
 sono bravi in matematica e quelli che non lo sono."


devi utilizzare il driver "INTERSOLV Interbase (*.gdb)" ( dovrebbe
istallarlo automaticamente Interbase)
...puoi crearti direttamente la stringa di connessione..
Se non ricordo male ...
"DRIVER={INTERSOLV Interbase
(*.gdb)};UserName=SYSDBA;Password=masterkey;DBQ=C:\mydb.gdb"
non credo sia perfettamente corretta, prova con il componente adoconnection,
connectionstring, buildstring..
Ciao!

istallarlo automaticamente Interbase)
Avete riscontrato anche voi una lentezza esasperante nell'apertura
delle tabelle tramite il driver INTERSOLV ?
Siete a conoscenza di OLE DB Provider per Interbase ??


 Provider per Interbase ??
qui ne trovi alcuni
http://www.ibphoenix.org/ibp_contrib_download.html#INT
cmq non ne ho mai provati di persona
Ciao,
Alan Solo


Posso chiederti perchč vuoi utilizzare ADO per accedere ad Interbase ?
Esistono i componenti che lo fanno in maniera nativa
Massimo
----------------------------------------------------------
Il vero problema non č tanto sapere se le macchine pensano
bensě se gli uomini pensano. B.F. Skinner (1904-90)
----------------------------------------------------------
Newsgroup: it.comp.lang.delphi
Titolo: Conversione byte->string->byte

Scusate la domanda banale, ma non riesco a capire che cosa devo fare per
passare da dati di tipo byte a dati di tipo stringa e ritornare
successivamente a tipi byte.
var input,output: byte
    transito: string;
input->transito->output;
ciao a tutti
-- 
Morde. 
(morde at programmer dot net)

 successivamente a tipi byte.
Un format non va bene per il passaggio byte -> string?
rislutato:=format('%s%s',[risultato,Chr(Ingresso)]);
Ord(...) è complementare a Chr(...)
Spero di non aver capito male.
Salumi,
Carmine

 ciao a tutti
Ciao è da poco che uso delphi ma dovrebbe essere questo il modo :
Transito:= ByteToStr(Input);
Output:=StrToByte(Transito);
Fammi sapere, ci tengo!!
---------------------------------------------------------------------------
Messaggio inviato attraverso 
http://www.trucchiperpc.it
 - sezione newsgroup


In verità sempre se è quello che ho capito anch'io ord e chr funzionano solo
nel caso la var. transito non sia di tipo String ma char.
Visto che però il passaggio avviene da var di tipo byte è di conseguenza
logico che il risultato sarà solo di tipo char.
var input,output:byte
     transito:char;
transito:=chr(input)
output:=ord(transito)
Stefano LD

Fammi sapere, ci tengo!!
Sto finendo di implementare un programma per il trasferimento di dati tra plc
e software, quando avro' finito vi faro' sapere come ho risolto.
Sin da ora vi ringrazio perche' mi avete indicato la strada giusta.


Newsgroup: it.comp.lang.delphi
Titolo: Delphi 2005-06 e WinCE

Salve a tutti, mi chiedevo se Delphi 2005 e/o Delphi 2006 nella versione
professional hanno i componenti per accedere direttamente a un database
Interbase o Firebird sul server con un terminale radio con WinCE. O c'è
bisogno dell'Enterprise ?
Spero di essere stato chiaro, grazie anticipatamente per le risposte.
 
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

 bisogno dell'Enterprise ?
Non è un problema di "edizione di Delphi": attualmente il supporto al 
.NET CompactFramework è limitato ad alcune "technology preview", non è 
quindi in uno stato indicato per l'uso in produzione.
Si prevede l'introduzione di questo supporto nella prossima versione di 
Delphi, che dovrebbe includere inoltre una libreria apposita (
VCL.NET
 
for CompactFramework).
Ciao,
   Marco.
-- 
MARCO BREVEGLIERI
  (
http://www.marco.breveglieri.name
)


Quindi l'unico (o il piů comodo) modo di accedere a un DB su server da un
terminale WinCe č quello di fare un'applicazione su PC e collegarmi in
terminal server ?
Grazie

Newsgroup: it.comp.lang.delphi
Titolo: Run Time Error 216

Salve a tutti!!
Ho un problema con un applicativo Delphi 5!
Alla chiusura del programma in questione in alcune macchine (e
sottolineo in alcune solo e con Win98)  viene fuori il messaggio Run
Time Error 216, chiudendo questo messaggio viene "il programma ha
eseguito un'operazione non valida" e poi si ripete fino allo spegnimento
della macchina. Per quel che ne sò il Run Time Error 216 dovrebbe essere
un'Access Violation, una chyiamata ad un'oggetto già liberato o cose del
genere insomma però non capisco perchè non ci fà sistematicamente su
tutte le macchine! Avete qualche idea/consiglio su cosa possa essere
dovuto questo errore o magari dei suggerimenti di debug?
Grazie 1000
Ciao
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 dovuto questo errore o magari dei suggerimenti di debug?
Access violation è un errore così generico che è difficile capirne la causa
se non debuggando il programma!
Magari il codice fa riderimento ad un oggetto che non esiste più (credo che
sia il caso più diffuso)!
Ma comunque le cause possono essere svariate.
Ho trovato tempo fa un tool che permette di recuperare, a RunTime,
l'istruzione che porta all'Access Violation, fornendo anche nome file e riga
+ tutta la gerarchia delle chiamate allo stack coinvolte. Si chiama "hvest"
ed è freeware.
Un altro è EurekaLog, ottimo tool per lo stack-trace ma è a pagamento.
Se poi cerchi su torry ne trovi a bizzeffe.
--
Acqua

Newsgroup: it.comp.lang.delphi
Titolo: Server locale per ASP.Net

Mi sembrava di avere letto che borland consigliava a chi desidara usare 
Delphi per creare codice 
asp.net
 un web server, che non era l'IIS, ma 
qualcosa adatto credo alavorare in locale, probabilmente "leggero" ma valido 
e credo free.
Avete letto nulla del genere? o stavo tra la veglia e il sonno con la 
fantasia ghe galoppava?
Grazie, Giorgio 

 Delphi per creare codice 
asp.net
 un web server, che non era l'IIS[...]
Cassini web server
http://delphi.about.com/od/aspnet/l/aa030904a.htm
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

Grazie e' lui, ora ricordo il nome, Giorgio 

 Grazie e' lui, ora ricordo il nome, Giorgio 
Io uso una variante, *CassiniEx* di SystemEx:
http://www.systemex.net/CassiniEx/
con qualche opzione aggiuntiva, molto interessante. :-)
Ciao,
   Marco.
-- 
MARCO BREVEGLIERI
  (
http://www.marco.breveglieri.name
)

 Grazie, Giorgio 
Prego,
Andrea
Newsgroup: it.comp.lang.delphi
Titolo: how to use StrToBool?

I want to know how to use StrToBool function. It seems that
StrToBool('True') is not right all the time. Why? How to use it? Help

It is a real bug in delphi6 I think. Because I tryed to change
something in the source code in SysUtils , and then everything is Ok. 
I will tell you how to do . Find the following function and make some
changes in the lines marked with !!
function TryStrToBool(const S: string; out Value: Boolean): Boolean;
  function CompareWith(const aArray: array of string): Boolean;
  var
    I: Integer;
  begin
    Result := False;
    for I := Low(aArray) to High(aArray) do
      if AnsiSameText(S, aArray[I]) then
      begin
        Result := True;
        Break;
      end;
  end;
var
  LResult: Extended;
begin
  Result := TryStrToFloat(S, LResult);
  if Result then
    Value := LResult <> 0
  else
  begin
    VerifyBoolStrArray;
    if CompareWith(TrueBoolStrs) then
!!    begin
      Value := True;
!!      Result := True;
!!    end
    else if CompareWith(FalseBoolStrs) then
!!    begin
      Value := False;
!!      Result := True;
!!    end
    else
      Result := False;
  end;
end;

 StrToBool('True') is not right all the time. Why? How to use it?
Better using a simple test just like this:
if uppercase(s)='TRUE' then ..
where s is the desired string. That test is case insensitive, faster than
calling the strtobool function, and you have not to check inside the vcl
source code to find bugs (lol)
Ciao, Sandro

Rose, thi is a ITALIAN NG.
Please, write your msg in ITALIAN.
When i write to english ng, i write in english.
Rose, questop è un NG italiano.
Scrivi i tuoi messaggi in lingua italiana, tnx.
AS
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

Newsgroup: it.comp.lang.delphi
Titolo: Trigger Interbase (forse OT ?)

Salve a tutti!
So che forse non è il NG giusto per questa domanda, ma non so dove cercare.
Il problema è semplice (credo)...
Ho bisogno di creare un trigger che quando si cerca di eliminare l'ultimo
record
di una tabella deve generare un'eccezzione e fermare l'operazione!
So usare i trigger, ma non so come (e se è possibile) fermare un'azione su
una
tabella da un trigger.
Mi sono spiegato?
GRAZIE ! CIAO !

Non posso postarti del codice perchè non lo ricordo, ma in Interbase è
possibile sollevare una exception definita dall'utente:
nel codice del tuo trigger puoi mettere qualcosa del tipo
    IF (<CONDIZIONE) THEN
        EXCEPTION <MIA EXCEPTION>;
dove <MIA EXCEPTION> è una eccezione user defined.
Nel tuo codice Delphi, in caso di errore, riceverai un'exception con il
messaggio definito sul db, mentre l'azione corrispondente verrà annullata.
Per maggiori chiarimenti guarda sui manuali di Ib.
Saluti
        Marco Bortolani
 
infoN...@marcobortolani.it
"Fabio V." <nos...@ecspam.cxz> ha scritto nel messaggio
news:o6ICa.46371$g92.1...@news2.tin.it...


         
infoN...@marcobortolani.it
Non ho avuto ancora il tempo di provare ma credo che sia giusto!
GRAZIE!


 GRAZIE!
Confermo! Funziona!
Grazie ancora!

Newsgroup: it.comp.lang.delphi
Titolo: Leggere porta parallela

Devo riconoscere la frequenza presente sul pin 13 (S4) della porta
parallela.
Qualcuno sa farlo?
Grazie

 ha scritto nel messaggio
news:9p5c4d$p70$1...@nreada.inwind.it...


Qualcuno sa farlo?
Per misurare una frequenza hai bisogno di leggere il livello di
tensione del pin ad una frequenza costante almeno doppia di quella
misurata.
Windows notoriamente non da' nessuna garanzia che fra un comando e il
(medesimo) successivo passi il medesimo tempo T.
Windows decide autonomamente quando fare 
p.es
. la pulizia della
memoria, falsando cosi' la tua misura.
Cio' detto, se il tuo problema e' semplicemente leggere il livello di
un pin della porta parallela, una ricerca su Internet ti dara'
parecchi esempi.
Io ho del codice da qualche parte, preso su Internet e gia' testato
(non per la misurazione della frequenza). Se non riesci a trovare
nulla e sei disperato, avvertimi e vedro' di  rintracciarlo fra i miei
CD di backup.
Ciao
Duilio

 wrote in message
3bb95f32...@news.libero.it...


AIUTO!!!!
il codice che segue e' OK per W95 e W98.
var
   base:word;
   pin1,data:byte;
begin
   base:=memW[$0040:$0008];	{qui leggi l'indirizzo della tua porta
parallela}
   data:=Port[base]; {qui leggi tutti e 8 i pin dati della parallela}
{per leggere un solo pin devi usare l'operatore AND con il numero
adatto. P.es. 
pin1:=data AND $01;
ti dara' lo stato del primo pin}
end;
Qui trovi proprio  tutto:
http://www.galeon.com/jcgr/
Ciao
Duilio
Newsgroup: it.comp.lang.delphi
Titolo: database desktop

Ciao a tutti, siccome uso molto tabelle paradox e per costruire le 
"tabelle.db" uso "database desktop 7.0" ma siccome è troppo obsoleto, sapete 
con quale applicazione o utility lo posso sostituire? Grazie in anticipo per 
la risposta... 

Ciao a tutti, per le mie applicazioni uso BDE con tabelle.db paradox per 
costruire le tabelle uso database desktop... Siccome è abbastanza obsoleto 
sapete con quale applicazione/utility posso sostituirlo? Ringrazio 
anticipatamente per la risposta... 

 sapete con quale applicazione/utility posso sostituirlo?
La scelta migliore č Firebird.
http://www.firebirdsql.it/

 La scelta migliore è Firebird.
non credo che lorenzo cerchi un nuovo database ma una utility per crearsi le 
tabelle...
io per questo scopo uso Visual dBase 7.5
E' afflitto da parecchi problemi ma va bene per l'uso
O in alternativa *database desktop* in delphi.....

 E' afflitto da parecchi problemi ma va bene per l'uso
Sorry, ho capito male la domanda, ma comunque il mio consiglio 
resta valido.  Non solo DBD è obsoleto, ma lo stesso Paradox e il 
BDE normalmente usato per accedervi.  Passare a un DB serio come 
Firebird è d'obbligo, ormai.

    Scusate l'intromissione, ma come mai non viene mai consigliato Intebase? 

 Scusate l'intromissione, ma come mai non viene mai consigliato Intebase? 
Presumo che il motivo sia da ricercare nel fatto che chi riceve il 
suggerimento non pone particolari regole, esigenze o necessità che 
possano richiedere l'uso di *InterBase* (intendi la versione Borland 
commerciale, vero?) al posto di *FireBird*. :-/
Senza nessuna richiesta specifica, viene suggerito *FireBird* per via 
dell'abbordabile...costo di licenza. :-)
Comunque, è sempre bene farsi un giro anche sul sito Borland alla pagina 
ufficiale del prodotto 
(
http://www.borland.com/us/products/interbase/index.html
) per vedere se 
può risultare interessante.
Ciao,
   Marco.
-- 
Marco «Alka» Breveglieri	
http://www.marco.breveglieri.name
  «bvmcnxsjlkhròhyeq, potrei scrivere a questo punto,
   se mi addormentassi sui tasti» (Daniele Luttazzi)

Scusate l'intromissione, ma come mai non viene mai consigliato Intebase? 
Per quanto riguarda me, è perché IB è un prodotto proprietario, a 
pagamento.  Firebird, invece, è un prodotto libero e open source.

 commerciale, vero?)
Lo voglio sperare :-)... perché la versione OS gratuita di 
Interbase è bella che persa nell'ossario comune dei DBMS :-)
Newsgroup: it.comp.lang.delphi
Titolo: Porta seriale

Ciao a tutti,
devo gestire attraverso porta seriale un apparecchio elettronico. E' la
prima volta che tratto con periferiche esterne e quindi in questo settore
sono proprio a 0.
Esistono in Delphi componenti o routine per la gestione della porta seriale?
Mi consigliate l'utilizzo di qualche componente scaricabile dalla rete?
Grazie ciao

Esistono in Delphi componenti o routine per la gestione della porta seriale?
http://www2.arnes.si/~sopecrni/
http://sourceforge.net/projects/tpapro/
-- 
Andrea Laforgia
"640kb of memory should be enough for anyone." -- Bill Gates.

...

Potresti provare con i componenti nrComm Lib: la versione demo è
gratuita e la puoi scaricare da 
http://deepsoftware.ru/nrcomm/
,
Newsgroup: it.comp.lang.delphi
Titolo: salvare in c:\Program Files(x86)\

Ciao
applicazione installata con install shield correttamente, su sistema
windows 10.
L'applicazione si trova in C:\Program Files (x86)\my_application e deve 
salvare un file .ini ma non può perchè, probabilmente, non ha il 
permesso di scrittura.
Installata in un'altra cartella funziona correttamente.
Ma volendo installarla in program files (x86), cosa si deve fare  ?
 
Grazie, Giò


ciao.
 
Nelle varie versioni di Windows, e' stato prima sconsigliato poi deprecato
e, a quanto pare, infine vietato scrivere i file di configurazione
nella stessa directory degli eseguibili.
 
le linee guida dicono di usare "Application data". (a dire il vero ce ne 
sono parecchi di programmi in giro che continuano a fare quel che gli pare)
 
Per vedere che directory e' apri un command prompt e dai il comando:
 
  echo %AppData%
 
ciao
Giacomo
 
 
 

   echo %AppData%
 
Diciamola meglio: Non si deve usare *assolutamente* il valore di %AppData% per
salvare i file di configurazione, ma validare ad ogni avvio del programma il
valore di quella variabile d'ambiente. Questo perché il valore di quella
variabile cambia da utente a utente, pertanto se sulla macchina A ci
colleghiamo in 6 mettere il valore riportato da %AppData% piuttosto che
leggerla al momento significa che solo uno dei 6 utenti potrà usare il nostro
applicativo
 
Enrico

 Ma volendo installarla in program files (x86), cosa si deve fare  ?
Devi assegnare il privilegio del programma come amministratore.
Questo permette al programma di scrivere dove si vuole ma, allo stesso 
tempo, abbassi la sicurezza.
Pensaci bene prima di andare in questa direzione.
 
Come ultima alternativa, quindi fuori dalle linee guida di tutti, potresti 
installare il tuo programma in una directory proprietaria (come si faceva 
una volta ... tanti anni fa !!) dove i privilegi sono bassi.
Per esempio C:\MioProgramma
 
Lasciando tutto cosi' com'e' puoi installare il tuo programma nella 
directory designata (C:\Program Files (x86)) con i privilegi limitati e i 
file di configurazione in un'altra directory per esempio 
C:\Users\Public\YourProgram\Config dove puoi tranquillamente scrivere.
Il tutto gestito con variabili e/o costanti all'avvio del programma per 
esempio ConfigPath : String = 'C:\Users\Public\YourProgram\Config\'
 
Se il computer dove si installa il programma non e' il tuo, segui l'ultima 
strada (per ovvi motivi).
 
Ciao
 
Daniele 
 


ancora qui a discutere coi cadaveri?
applicazioni web in php e sei apppposto!
 
-- 
Quando la dittatura è un dato di fatto, la rivoluzione diventa un diritto.
(Victor Hugo)
Newsgroup: it.comp.lang.delphi
Titolo: Aiuto! bug messagedlg? :-P

Ciao a tutti!
Mi succede questo: ho diverse editbox. Sull'evento onExit ho inserito dei
controlli per validare il contenuto delle edit, e chiedere all'utente se
vuole asciare quello che ha scritto oppure modificarlo.
Il problema e' che succede una cosa strana dopo l'apertura della MessageDlg,
sembra che il cursore si perda.
Ho fatto qualche ricerca ed ho trovato questo:
---
Yes, Windows does not like it when you change focus while a focus change is
already in progress. So don't do it. Instead of showing the dialog from the
OnExit handler directly use PostMessage to post a user message to the form.
Show the dialog in the handler for this message. This delays the action
until
the focus change has safely completed.
---
Pero' questo non mi aiuta :-(
Io vorrei convalidare l'input prima dell'uscita dalla TEdit ed avvertire
l'utente, come si fa di solito?
Grazie in anticipo.
Chris

l'utente, come si fa di solito?
Se non puoi passare per l'evento OnExit, allora ti conviene intercettare la pressione
del tasto invio all'interno del tedit, e mettere in quella procedura la convalida dell'input.
Ciao
--
Buon      .-""",
 Natale    /____, \
          {_____}`{} 
Buone    (/ . . \)
 Feste   {`-=^=-`}
         {   `   }
          {     }jgs
Morde.     `-,-`

Newsgroup: it.comp.lang.delphi
Titolo: come al solito le cose + semplici mi diventano le +...

volevo semplicemente chiedere come si fa a scrivere l' apice in un
showmessage,xchè chiaramente
showmessage (' salve,l' albero è bello');
da errore...e mettere il doppio apice al posto dell' apice è troppo brutto!!

 ha scritto nel messaggio
news:ERwR6.1165$ZZ.3...@news.infostrada.it...

const Messaggio = 'Salve, l''albero è bello';
ShowMessage( Messaggio );
Che ne pensi?
Andrea

 const Messaggio = 'Salve, l''albero č bello';


 P.S. ricordati che aspetto sempre con anzia il continuo del tutorial eh :D
E dai... fammi fare !!!!!! :=))))
E vatti a leggere i messaggi sul forum !!! :=)
Andrea

 ha scritto nel messaggio
news:ERwR6.1165$ZZ.3...@news.infostrada.it...


Paolo,

ShowMessage('Ciao l''albero è bello');   


'' non è il doppio apice, sono due apici singoli affiancati 

 ha scritto nel messaggio
news:Xns90B39BCA35C54a...@212.41.208.70...

Newsgroup: it.comp.lang.delphi
Titolo: Problemi con delphi e VB6

Ho scritto una DLL in delphi 4 che viene utilizzata da una applicazione VB6
SP4 su Windows NT4 o 2000 Pro.
La DLL esporta una funzione che visualizza una form. La form permette di
effettuare delle ricerche su differenti liste di stringhe.
Questa DLL funziona benone sulla maggior parte dei PC, ma su alcuni, in
maniera imprevedibile si blocca (nel senso che l'interfaccia della form non
risponde più a nessun comando e si deve terminare l'applicazione per
proseguire) senza visualizzare nessun tipo di errore (o eccezzione).
Avete qualche idea su questo comportamento anomalo o su come fare ad
isolarlo?
Grazie
Davide

premesso che il problema è su vb e non su delphi.. :)))
Non esiste proprio alcuna differenza tra i pc su cui va e quelli su cui non
va?
Stessi sistemi operativi, service pack, e/o, sopratutto, versioni dei 5 giga
di files necessari al funzionamento di "hello world" in vb?
Non è che sulla stessa macchina, magari, funziona per alcune volte e poi si
inkazza?
Fai le STESSE operazioni su tutti?
Verifica che applicazioni girano su quelle che fanno casino rispetto a
quelle dove va, dando anche un okkiata ai servizi attivi tipo antivirus  etc
etc.
Hai messo dei try..except che nascondono le eccezioni?Se si, fai in modo che
le eccezioni vengano fuori.
Imposta la applicazione vb come Host Application in run-parameters della tua
dll.
In questo modo puoi fare una esecuzione della dll da codice, usando i
breakpoint ed similia, ma ti serve l'ide
A Runtime, puoi includere una direttiva di compilazione che, se attivata,
provoca la compilazione di alcune righe che altro non fanno che scrivere in
un file di log.
Puoi mettere delle WriteLn sul file di log in vari punti della tua dll.
Poi, quando tutto va, disattivi la direttiva, ricompili la dll ed il gioco è
fatto.
Avere il log è utile se tu non 6 presente durante l'utilizzo, in modo da
avere almeno una traccia su cui lavorare.
Se hai dei try..except, sarebbe cosa buona includere anche i msg delle
eccezioni nel log.
di+nonSo :((
Bye
AS

[CUT]
Davvero un ottimo condensato di "come debuggare un programma" :)
Aggiungo di controllare che effettivamente la differenza sia tra un computer
all'altro, e non sullo stesso computer con diverse operazioni. Il fatto che
una form si "congeli" di solito dipende da cicli infiniti posti sul thread
principale. Controlla se ne hai, magari c'e' qualcuno che ha una condizione
di uscita che in qualche modo dipende dalla macchima (chesso', numero di
file in una cartella o numero di dispositivi ecc).
Ciao!
{MSX}

Grazie a tutti per le utili indicazioni.
Ciao Davide
"{MSX}" <nlugat...@THISinwind.it> ha scritto nel messaggio
news:TqLC8.37166$5k4.8...@twister2.libero.it...

Newsgroup: it.comp.lang.delphi
Titolo: strano comportamento di onmouseup

salve, vi spiego:
ho messo un immagine su un form , chiamiamola image1
faccio il loadfromflile di un modulo delle poste (contrassegno) in jpeg
vorrei scrivere in una posizione specifica il destinatario, il mittente 
eccetera.. quindi penso al metodo
textout del canvas... poi mi chiedo.. vabbe' ma la posizione? Me le devo 
calcolare tuute? Il colpo di genio... mi dico... metto un bel hint nel 
onmouseup che mi restituisce le coordinate del mouse
procedure Tfpreviewcontrassegno.Image1MouseUp(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
image1.Hint:=format('%d %d',[x,y]);
end;
ma.. sorpresa.. le coordinate non corrispondono alla posizione desiderata : 
se x e y sono 100, 300 il textout giusto è 240,420
ma come mai?
Chissà se mi sono spiegato.....
sembra che il textout riferisca la sua posizione alle coordinate dello 
schermo e x e y si riferiscano alle coordinate dell'immagine.
E' utile specificare che io sto usando solo i riferimenti a image1.canvas e 
non altro.
Mha!
Grazie per le risposte.... a proposito mica sapete se esiste un componenete 
tipo richedit gratis che consente l'inserimento di immagini?
Ciao! 

 ma come mai?
Converti le coordinate con la ScreenToClient() !
Jodi

Newsgroup: it.comp.lang.delphi
Titolo: <no subject>

ciao!! ;)
Avrei bisogno di aiuto..
1. come posso accedere alla "cartella" di un alias DB??? Cioè qunado creo un
Alias in BDE specifico la directori dove sono situati i miei archivi.. come
accedo a questa???
2. È possibile, se io ho una lista grafica dove ho varie icone (e.g.
clienti, fornitori, materiali..) e a fianco ho una sola griglia (dbgrid)
posso permettermi di usarla per visualizzare le informazioni di più DB
semplicemente cliccando sulle icone della lista??? (se posso cambiare a
run-time il parametro dataset.. in che modo lo posso cambiare devo prima
"disattivare" il DB??? E poi posso personalizzare la griglia a seconda del
DB che prende??
3. se devo fare un programma con un menù iniziale come posso fare??? Io ho
fatto una form con dei pulsanti dove con ciascuno chiamo le varie form.. la
cosa però è troppo pesante come posso fare per alleggerirla o come avrei
potuto fare???
In attesa di Vs. risposte vi ringrazio anticipatamente..
Ciao a tutti..
Daniele
-- 
Posted from 
laguna.tiscalinet.it
 [195.130.224.86] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 avrei potuto fare???
pesante in che senso? non vedo problemi, eventualmente ti potresti
esportare le form in una dll (mai provato) ma io penso che vada bene come
hai fatto...
Ciao,
Alan Solo

 domani mi faccio sentire...
eccoti una funzioncina:
function GetAliasFile( Alias: string ): string;
var Parametri: TStringList;
begin
 Result := '';
 Parametri := TStringList.Create;
 try
  Session.GetAliasParams(Alias, Parametri);
  Result := StrPas( StrPos(pchar(Parametri[0]), '=') + 1 );
 finally
  Parametri.Free;
 end;
end;
ps: Richiede la unit DBTables
Ciao,
Alan Solo
Newsgroup: it.comp.lang.delphi
Titolo: Libreria in linux

Ciao ragazzi.
Sto impazzendo per creare la funzione che mi restituisca il numero seriale
dell'hd da Linux con Kylix. Qualcuno mi saprebbe indicare dove poter trovare
delle librerie(.so) che mi restituiscano i dati base del sistema(nome volume
hd, serial number, capacità hd, disponibilità hd, ram...)?
Oppure come le posso reperire tali informazioni e quindi interfacciarle con
Kylix?

dell'hd da Linux con Kylix.
nek, ti č gią stato dato il consiglio preciso da "BW 2K + 2" su
it.comp.linux.development
-- 
Andrea Laforgia
#exclude <windows.h>

e se l'hai provato a leggere bene ti sarai accorto che mi ha riferito come
poterlo fare con kylix!
tu mi sapresti consigliare qualcosa?


fe...@delenda.net
-- 
We feel like Greeks, we feel like Romans 
Centaurs and monkeys just cluster round us 
We drink elixirs that we refine 
From the juices of the dying 

poterlo fare con kylix!
E quindi ? tu hai chiesto come farlo con Kylix... 


Newsgroup: it.comp.lang.delphi
Titolo: server VT100

ciao,
devo creare un server telnet in grado di interagire con un terminalino
VT100. Secondo voi con i componenti indy riesco a fare qualcosa?!?
suggerimenti, consigli??
grazie..
maz

 ha scritto nel messaggio
news:b9gdai$j78rg$1...@ID-194014.news.dfncis.de...

io uso
"TurboPower Async Professional"
MAX

C'é un bell'esempio sotto Borland\Delphi6\Demos\Indy\TelnetClient. 
Personalmente avevo creato un Telnet Client con le VCL di FPiette e 
andavano alla grande.
Ciao
Tiziano Crimella

-----= Posted via Newsfeeds.Com, Uncensored Usenet News =-----
http://www.newsfeeds.com
 - The #1 Newsgroup Service in the World!
-----==  Over 80,000 Newsgroups - 16 Different Servers! =-----

Newsgroup: it.comp.lang.delphi
Titolo: Stampante Virtuale

Salve a tutto il ng.
la mia esigenza è di creare una rubrica che però deve contenere dei dati che 
gli passo da un interfaccia.
Mi spiego meglio:
Sto scrivendo un documento con word . stampo su stampante virtuale 
(VIRTUAL_PRINT) e in automatico deve uscire un interfaccia per inserimento 
altri dati (tipo Nome utente).
A questo punto tutto viene salvato in un db i campi aggiuntivi (nome UTENTE) 
e il file .
Da dove posso iniziare?
IVAN

> Da dove posso iniziare?
dalla guida vba di word.
-- 
Alberto Salvati
A NEAPOLITAN Delphi Developer who is studying c# and .net
"Dicette 'o pappece 'nfaccia 'a noce dammi 'o tiempo che pure te spertoso"
Newsgroup: it.comp.lang.delphi
Titolo: Errore campo Blob con DBEdit

Dovrei inserire un campo BLOB (db Firebird 2.1) + Delphi 2007 + DbExpress
per sostituire un TDbEdit
Il campo si edita, ma eseguendo AppyUpdates(-1)
segnala Incorrect Values within SQLDA Structure
La query legata al Cds comprende vari Left Outer Join, ma il Memo in
questione e' un campo fisico della Tabella che non c'entra con le Join.


Scusami, non vorrei fare il saccente ma forse vale la pena ricordare:
il campo blob e' solo un puntatore che punta al binary in questione
storicizzato da qualche parte nel db
e non e' standard fra tutti i database tanto e' vero che per spostare
un blob da un database ad un altro bisogna fare la select da db1
salvare su file system e la include su db2 da file system.

Maurizio ha scritto:



Stai usando una versione di dbExpress che non supporta i nuovi campi
Blob di Firebird 2.1.
Prova ad aggiornali vedendo qui:
http://sites.google.com/site/dbxfirebird/
ACSH
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

>
ho scaricato i driver 4.1.V30
messo dbxfb40.dll nel Path dell'applicativo, come pure fbclient.dll
aggiungo un TDBMemo al form
e il campo Blob al Cds, il campo e' visto com BlobType ftMemo
    SQLConnection1.LibraryName := sPath + 'dbxfb40.dll';
    SQLConnection1.VendorLib := sPath + 'fbclient.dll';
    SQLConnection1.GetDriverFunc := 'getSQLDriverFIREBIRD';
    SQLConnection1.Params.Values['DataBase'] := NomeDataBase;
    SQLConnection1.Params.Values['User_Name'] := 'sysdba';
    SQLConnection1.Params.Values['password'] := 'masterkey';
    SQLConnection1.LoginPrompt := False;
    SQLConnection1.Connected := True;
Test con campo Blob , nessuna variazione, sempre
Incorrect Values within SQLDA Structure.
Newsgroup: it.comp.lang.delphi
Titolo: OfficePartner e Turbo Delphi

Qualcuno sa se si può installare TurboPower OfficePartner su Turbo
Delphi Pro ?
Grazie ed un saluto a tutti
castore

 Delphi Pro ?
Si possono installare in BDS, quindi anche in *Turbo Delphi 
Professional* (Win32), in quanto basati sulla stessa piattaforma 
tecnologica.
Ovviamente, quanto detto non vale per *Turbo Delphi Explorer*, poiché 
non consente l'installazione di componenti di terze parti.
Ciao,
   Marco.
-- 
MARCO BREVEGLIERI
  (
http://www.marco.breveglieri.name
)

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

Tnx x avere specificato il db :))
Update Failed è u messaggio abbastanza generico, 
ma se con la tabella (aaaargh!) lo fai, allora controlla quali campi
sono aggiornati dal TUpdateSql.
Secondo me ne hai trascurato qualcuno.
Saluti e complimenti per il passaggio a Ib6!
AS
-- 
Posted from 
ammi.mclink.it
 [195.110.128.1] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 Saluti e complimenti per il passaggio a Ib6!
Grazie! Anche se ci sono delle cose devo ancora capire dato che
provengo da Paradox & DBF!
--
Giuseppe Fraddosio
fradd...@libero.it
fradd...@supereva.it

 che dici mi conviene usarlo al posto di TIBQuery + TIBUpdateSQL?
Te lo sconsiglio per un solo motivo:
non credo esista una cosa simile per accedere ad altri db.
Meglio imparare ad usare il binomio
TIBQuery + TIBUpdateSQL che somiglia molto a
TQuery + TUpdateSQL.
Se poi passi a Oracle o altri db potresti trovarti male.
A prp, ricorsi la storia del generatore etc che non sapevo come
si fa??
set term ^
create procedure MakePrimaryKey
returns ("valore" integer) as
begin
  exit;
end^
alter procedure MakePrimaryKey
returns ("valore" integer) as
begin
  valore =gen_id(IdGen,1);
  exit;
end^
Saluti


 end^
Ho letto questo sull'help di Create Trigger.

Newsgroup: it.comp.lang.delphi
Titolo: Array di controlli in design-time

Ma è davvero impossibile in fase di design inserire due controlli con 
stesso nome e indice diverso, come si può fare in Visual Basic.
Sento molto la mancanza di questa cosa, la trovo decisamente scomoda.
Sapreste aiutarmi?
Thanks
Paolo Zavarise

> Sapreste aiutarmi?
Mi sa che č difficile aiutarti se devi dare nomi uguali......
Delphi non lo permette e a mio avviso non avrebbe molto senso ciň.
Perche ti dovrebbe necessitare una cosa del genere?
--
Acqua
-------------------------------------------------------
Download new version of my PixExperts for Delphi 6/C++ Builder 6 at
http://www.salexander.supereva.it/Pix_Exp171D6.zip

 Sento molto la mancanza di questa cosa, la trovo decisamente scomoda.
Beh, avendo utilizzato VB per poco tempo (per fortuna), non posso dire di
conoscerlo benissimo. Tuttavia, ho utilizzato gli array di controlli e,
fin'ora, non
ne ho mai sentita la mancanza. :)
Magari se spieghi cosa ti occorre potremmo trovare la "Delphi way".
Saluti indicizzati.

 Sapreste aiutarmi?
Una volta avevo mi è capitato di scrivere un programma dove avevo una lunga 
serie di TEdit sul cui Text dovevo fare diverse volte le stesse operazioni 
(di volta in volta diverse ma uguali tra i vari TEdit). Ho fatto un vettore 
di puntatori ai vari Text e poi ho usato dei cicli.
Un'altra volta ho usato la proprietà Tag di una serie di TCheckBox come 
indice per capire quale TCheckBox era stato cliccato (avevano tutti la 
stessa OnClick).
Se vuoi posto un po' di codice.
-- 
Una volta che avete conosciuto il volo, camminerete sulla Terra guardando 
il cielo, perché là siete stati e là desiderate tornare (Leonardo da Vinci)

Newsgroup: it.comp.lang.delphi
Titolo: d7 personal

ciao
ma si può già scaricare?
io non lo trovo! :-(


  al tempo c'era in giro la voce che era a pagamento :-(.
ciao
-- 
---------------------------------------
Per rispondere in privato togliere 1975

Newsgroup: it.comp.lang.delphi
Titolo: Touch Screen

...Salve a tutti.....cerco disperatamente/urgentemente   informazioni per la
gestione di un monitor touch-screen....utilizzando chiaramente il delphi
V3/5
Grazie!
Ciao
Alessandro

 V3/5
ma scusa....cosa c'è di complicato ?
Il touch screen è solamente una periferica che sostituisce il mouse. Tu dal
tuo programma non devi far nulla.
Lo schermo trasparente, va sovrapposto allo schermo del PC che serve come
riferimento ( a te....non al touch screen )
Lui funzionerebbe anche senza lo schermo, ma tu non vedi nulla. Tutto quì !!
Ti saluto....ciao !!
Antonio Tarolla

 delphi V3/5
Io ne ho usato uno anni fa, ma non c'erano differenze con il mouse!
Il sistema non se accorgeva per niente.
-- 
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: Problema di windows 7 o di delphi 7?

Salve!
Ho un problemino con la gestione dei files .ini ...
Ho creato un file prova.ini molto semplice
[pippo]
ciao=hola
ed un pgm di prova per vedere se tutto funge...
.......
var
IniFileprova : TIniFile;
begin
IniFileprova := TIniFile.Create('prova.ini');
edit1.Text:=IniFileprova.ReadString('pippo', 'ciao', 'Main');
IniFileprova .Free;
Col debug IniFileprova,dopo la "create" è nullo, ed ovviamente in 
edit1.text ci finisce la stringa 'Main'.
C'è qualche problema con Windows 7 + Delphi 7 o sbaglio qualcosa??? (e 
mi sono rintronato!).

 IniFileprova := TIniFile.Create('prova.ini');
prova a mettere il path completo del tuo file INI
IniFileprova := TIniFile.Create('c:\mioprogetto\prova.ini');
^_Goblin_^

^_Goblin_^ ha scritto:

Non funge, ho provato (dopo un lampo di genio che mi hai fatto venire in 
mente per via del path) così e funge:
IniFileprova := 
TIniFile.Create(ExtractFilePath(Application.ExeName)+'prova.ini');
Grazie tante!
Sarebbe da mettere nelle FAQ (per chi usa windows 7 et simila, su winxp 
tutto fungeva alla grande,ho provato lo stesso programma su xp e fungeva...)

 fungeva...)
Se può essere utile il problema sta nel livello di permessi di cui 
l'applicazione dispone. Se si inserisce il programma come utente user in 
una cartella che ha i permessi di amministrazione il programma non 
funzionerà correttamente se deve leggere e scrivere in un file.
Dan

Dani ha scritto:

La cosa strana è che l'utente che genera il file .exe è 
amministratore,il file exe è nel desktop dello stesso utente , ed il 
file ini è nella stessa cartella....misteri!

 edit1.text ci finisce la stringa 'Main'.
Se iniFileProva è nullo, chiamarne ReadString dovrebbe sollevare
un'eccezione.
Più facilmente, hai a che fare con la nota sulla proprietà Filename:
se vuoi sapere dove viene posizionato / cercato il file:
ini := TIniFile.Create('prova.ini');
edit1.text := 'La directory degli ini è:... ' +
extractFilePath(ini.filename);
Saluti
Paolo Arosio
PS vedi anche il tmeminifile, potrebbe essere più comodo.

Newsgroup: it.comp.lang.delphi
Titolo: [d5] visualizzare su un tpanel un dvd

ciao a tutti, come posso fare per visualizzare un dvd (file vob o 
direttamente da dvd) dentro un TPanel???
Simone 

risolto!!!
importando windows media player active x
e usando il componente windows media player si possono visualizzare i dvd
Simo
Newsgroup: it.comp.lang.delphi
Titolo: Contro

Ciao a tutti,
sono appena agli inizi e vorrei provare a realizzare una piccola
applicazione MDI.
Ho creato la form principale  e una form figlia.
Ora vorrei aprire la seconda form da un pulsante nella toolbar della
scheda principale(l'ho tolta dalle form auto-create) e ho inserito il
seguente codice:
 
procedure TMainForm.ToolButton1Click(Sender: TObject);
            begin
              InsFattForm:= TInsFattForm.create(self);
               InsFattForm.show;
            end
end;
Ho 2 domande:
1) Come posso impedire che la form venga creata più volte se uno
clicca più volte?
2)E' opporttuno	crearla ogni volta o solo nasconderla(considerato che
ho dei campi di un database nella form)?
Grazie 
Claudio

 ho dei campi di un database nella form)?
Ciao Claudio.  Ti ho scritto poche righe di codice... forse non sono
esattamente quelle che sei abituato a vedere :
Premetto che in questo caso, i comandi classici .Hide e .Show non funzionano
allo stesso modo.
Un metodo è attaccato al bottone che crea la form mdi , il secondo a quella
che la rende invisibile (oppure,
se vuoi, puoi attaccarlo all'evento OnClose della form mdi ).
A quanto mi sembra di capire, tu vuoi rendere invisibile (e non ridurre a
icona *nella* form principale) la mdi child, giusto?
Var MDICHILD : TInsFattForm;
Procedure TMDIFORM.CREA_o_RENDI_VISIBILE_LA_FORM_MDI_CHILD(Sender: TObject);
Begin  // Il nome è abbastanza esplicativo ...
 if (assigned (MDIChild) and iswindow(MDIChild.handle)) then begin
   if not iswindowvisible (MDIChild.handle) then showwindow
(MDIChild.handle,sw_show);
   exit;
         // Se la form mdi esiste, e NON è visibile, allora rendila
visibile.
 end else MDIChild := TInsFattForm.Create (MDIFORM);
                  // Solo se non è stata ancora creata, creala (1 sola
volta) come
                  // figlia della MDIFORM.
End;
Procedure TMDIFORM.NASCONDI_LA_FORM_MDI_CHILD(Sender: TObject);
Begin
 if not assigned (MDIChild) then exit; // se MDIChild non è stata ancora
creata, esce (altrimenti crashhhh).
                                            // Se la metti nell'evento
OnClose, non serve.
 ShowWindow (MDIChild.handle,sw_hide);
End;
Ok ... spero di averti dato una mano !!  Riscrivi se hai problemi o non era
quello di cui avevi bisogno.
Ciao!! Davide DG.

ho dei campi di un database nella form)?
Se e' possibile, e' meglio distruggerla e ricrearla quando serve,
anziche' tenere occupate risorse inutilmente. Se la form non e'
pesante, viene usata spesso o vede mantenere lo stato che aveva quando
era stata chiusa, conviene eseguire un semplice Hide.
Ciao
--
Piero Bonanno
bop...@libero.it
pie...@tiscalinet.it
bop...@tin.it
bpie...@hotmail.com
______________________________________________
"Madame, lei ha tra le gambe uno strumento
che puo' offrire piacere a migliaia di persone,
e tutto quello che sa fare e' grattarlo"
- Sir Thomas Beechan a una violoncellista