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

Ciao a tutti,
devo scrivere in un file txt, nulla di eccezionale, ma naturalmente prima di
scriverci devo controllare se il file esiste; nel caso non esiste lo creo e
subito dopo ci scrivo dentro.
Se il file esiste il programma scrive tutto correttamente, se non esiste va
in errore perchè non trova il file, ma materialmente il file è appena stato
creato.
////////////////////////////////////////////////////////////////////
    pathfilelog := 'c:\bidon.txt';
    if FileExists(pathfilelog) = false then
    FileCreate(pathfilelog);
     AssignFile(F1,pathfilelog);
     Append(f1);
     Writeln(f1, 'Prova');
     Flush(f1);
     CloseFile(f1);
/////////////////////////////////////////////////////////////////
F1 naturalmente è dichiarato TextFile
Qualcuno sa aiutarmi???
Grazie

sostituisci
   FileCreate(pathfilelog);
con
FileOpen(pathfilelog, fmCreate)
Ciaoux

una cosa di fretta&furia:
pathfilelog := 'c:\bidon.txt';
IsNewFile :=  Not FileExists(pathfilelog);
AssignFile(F1,pathfilelog);
if Not IsnewFile then
  Append(F1);
Writeln(f1, 'Prova');
 Flush(f1);
CloseFile(f1);
Attenzione.
leggi bene la guida di FileCreate:
"Use of the non-native Pascal file handlers such as FileCreate is not
encouraged."
Bye
A.

Stesso errore, non č cambiato niente.
Grazie comunque e se hai altre idee suggeriscimi pure

Scusa, IsNewFile è una var di che tipo??

IsNotFile risolto, è boolean, ma se non esiste il file quando lo creo??
Grazie

    FileCreate(pathfilelog);
preso dalla guida di d5e:
function FileCreate(const FileName: string): Integer;
Description
FileCreate creates a new file with the specified name. If the return value
is positive, the function was successful and the value is the file handle of
the new file. A return value of -1 indicates that an error occurred.
Note: Use of the non-native Pascal file handlers such as FileCreate is not
encouraged. ....
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
Bye
A.

il ritorno è positivo, anche perchè il file lo crea materialmente
Non riesco veramente a capire

Io ti consiglio di usare gli stream invece dei Textfile.
Ciao, Rocco.

non è un discorso di stream o txt, il fatto è che non sente il file appena
creato, è come se avesse bisogno di un refresh.

 IsNewFile :=  Not FileExists(pathfilelog);
Di che tipo potrebbe essere se non una boolean?
Fileexist restituisce true o false.
Bye
A.

Sorry: andavo di fretta:
IsNewFile :=  Not FileExists(pathfilelog);
AssignFile(F1,pathfilelog);
if Not IsnewFile then
  Append(F1)
ELSE
  rewrite(f1);
...
Bye
A.

Mi sono accorto della cagata ed infatti ho scritto tutto risolto.
Scusami

Grazie mille per l'aiuto, funziona.
Grazie ancora e ciao
Newsgroup: it.comp.lang.delphi
Titolo: Speech SDK 5.1

Qualcuno ha provato  il componente SAPI di  Power....
ho installato il SAPI SDK 5.1 (ben 68MB) di microsoft, quindi ho
copiato come da esempio questa chiamata....:
  ApdSapiEngine1.Speak('All your base are below to us');
questo però mi da un errore "Access violation at andress xxx in module
'myfile.exe'.
Read of adress FFFFFFFF
chi mi sa dire why ??
MAX

chi mi sa dire why ??
non ti so dare dettagli perche' non le ho mai usate, ma e' plausibile
che prima di chiamare la chiamata tu debba inizializzare il motore
dicendogli quale profilo vocale usare e parametri vari d'occasione.
Ciao
-- 
.     _  _______  ļ,ø*°`°*ø,ļ_ļ,ø*°`°*ø,ļ_ļ,ø*°`°*ø,ļ_ļ,ø*°`°*ø,ļ_
  /| // /__  __/  Kirys <My e-mail is a working antispam e-mail>
 / |/ \   / /     Kirys Tech 2000: 
http://www.kt2k.com
/__|\__\ /_/ 2000 ļ,ø*°`°*ø,ļ_ļ,ø*°`°*ø,ļ_ļ,ø*°`°*ø,ļ_ļ,ø*°`°*ø,ļ_

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

Newsgroup: it.comp.lang.delphi
Titolo: Variante di FindFirst-FindNext

Ciao a tutti
vi scrivo per esigenze di lavoro. Ho la necessità di sapere se
esistono,
e in tal caso avere qualche riferimento, delle varianti delle funzioni
FindFirst e FindNext che trovino tutte le occorrenze di file e
directory non nell'ordine con cui sono state scritte sul file system
(cosa che fanno già FindFirst-FindNext) ma nell'ordine e secondo i
criteri definiti dal programmatore o dall'utente, ad esempio: trovare
file in ordine di nome, o di data di creazione o di qualche altro
parametro.
Dove lavoro mi dicono di averne sentito parlare ma che non ne sono mai
venuti in contatto. Ora la cosa si è fatta urgente e sarei grato a
chiunque mi possa aiutare.
Grazie mille a presto!
C o n t e

 parametro.
MMMbeh... ma perché non trovarli e poi ordinarli?
--
Jax
Journeying Artificial Xenomorph

Jax wrote:

In effetti l'idea è quella, ma ci chiedevamo prima di scrivere una nuova
funzione, se ne esistesse già una che fa la stessa cosa.
Vorrà dire che proverò a scrivere una nuova funzione.
Grazie!



Mi dimenticavo di dire: in effetti è un'azione che andarà usata
sistematicamente nei programmi che faremo... per questo serve unificare le
azioni in un unica funzione, già esistente o da scrivere.
-- 
C o n t e
http://digilander.libero.it/Iamyourgod
Per rispondermi togli '_78' dall'indirizzo
Newsgroup: it.comp.lang.delphi
Titolo: Grafica WEB

Ciao a tutti,
   sa sapere consigliarmi un programmino facile in grado di fare delle 
grafiche per le pagine WEB (anche se non complesse).
Ringrazio.


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

Esagerato,
  chiedevo solo un piccolo consiglio (và be un po OT, che fiscali).
Ciao


 grafiche per le pagine WEB (anche se non complesse).
Per costruire pagine web puoi partire dal semplice frontpage che ti fa + o -
tutto, per approdare ad Adobe Golive, per arrivare all'eccelso (ma un po
pesante nell'ultima versione) Macromedia Dreamweaver.
Per la grafica devi usare uno dei tanti programmi che ci sono in giro.
Golive lavora bene in accoppiata con Adobe Photoshop, Dreamweaver lavora
bene in accoppiata con Fireworks e flash. N.B. sono tutti programmi a
*pagamento* (e non li paghi manco poco) ma scaricabili in versione demo.
se vuoi qualcosa di free per le pagine web puoi usare 1st page 2000 lo
trovia 
http://www.evrsoft.com/
se non conosci un'h di html puoi incominciare con li guide di 
html.it
(
http://www.html.it
)
ciao
-- 
Fabrizio Mancini - <f[.]mancini[@]tin[.]it> 19/01/2004 10.36.53


   chiedevo solo un piccolo consiglio (và be un po OT, che fiscali).
Non fiscali, pragmatici.
Per la grafica web che it.lavoro.professioni.webmaster, it.comp.grafica
e it.comp.www.*
-- 
I am what I am, I do what I can

  chiedevo solo un piccolo consiglio (và be un po OT, che fiscali).
Mi hai dato un spunto interessante: in questo ng, ad oggi, hanno postato 252
persone diverse. Io penso che se tutti avessero fatto 1 solo post come il tuo,
oggi avremmo avuto 252 off topic che chiedevano solo "un piccolo consiglio"
:-) !
Volevo solo farti gentilmente notare che un richiamo nell'essere IT (in topic)
in casi come questi non e' un eccesso di fiscalismo, ma un desiderio di tenere
basso il "rumore" del ng.
Cmq come vedi al tuo post ha gia' risposto Fabrizio, qui sei fra amici :)
Ciao!
-- 
Morde. 
(
mo...@despammed.com
)
M-List di icld: 
http://it.groups.yahoo.com/group/icld/

Va bene e ciao.


Grazie Fabrizio.
Ciao.


Incredibile: Ho installato 1 page per provarlo, Norton mi ha detto che 
c'è un virus in uno script "Button ....". State attenti.
ciao.
Il /19 gen 2004/, *Fabrizio Mancini* ha scritto:

Newsgroup: it.comp.lang.delphi
Titolo: Formula inserita dall'utente

Salve,
avrei la necessità di poter permettere l'inserimento di una formula
matematica, come in una cella excel, all'utente.
Qualcuno può darmi qualche suggerimento???
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 matematica, come in una cella excel, all'utente.
prova con le SysUtils 
http://sourceforge.net/projects/tpsystools/
 di
turbopower. Include un componente: StExpressionEdit che forse fa al
caso tuo.
Ciao
Gianni

Le SysUtils all'indirizzo
http://sourceforge.net/projects/tpsystools/
Non sono per WinXX ma per altri sistemi operativi.
Mi sono perso qualcosa ?
Ciao
Mario
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

No, Mario. Sono per Winxx e Unix
Io le uso normalmente in WinXP e D7 tra l'altro sono corredate da un
ottimo manuale ed esempi.
SysTools is a library of utility routines & classes for Borland
Delphi, C++Builder, & environments that support COM. It includes 1-D &
2-D bar codes, sorting, money routines, logging, high-precision math,
a run-time math expression analyzer, & much more.
Development Status: 5 - Production/Stable
Environment: Win32 (MS Windows)
Intended Audience: Developers
License: Mozilla Public License 1.1 (MPL 1.1)
Natural Language: English
Operating System: Windows 95/98/2000
Programming Language: Delphi/Kylix
Topic: Financial, Astronomy, Software Development, Logging, Networking
Ciao
Giovanni Caramia

Newsgroup: it.comp.lang.delphi
Titolo: Componenti per cellulari ....

Ciao a tutti,
               esistono componenti o suite che permettono di creare 
programmui che girino poi su cellulari ?? (SonyEricson, Nokia, Samsung 
ecc...).
Gradirei non passare per java (non lo conosco ..... sorry).
Un po come crossfire della appforge ....
Grazie a chi mi da una risposta ...
ciao 

 ha scritto nel messaggio
news:3ShQe.89148$2U1.4...@news3.tin.it...


Ci sono alcuni progetti in linux per accedere ai cellulare e usano tutti il
cellulare come una seriale a cui mandano comandi AT.
Tempo fa avevo trovato un PDF del Ericsson dove descriveva tutti i comandi
accettati dai suoi cellulari...nn lo ritrovo più...
comunque, aprendo anche con hyperterminal e dando comandi tipo
at+cclk=?  mostra l'ora
at+cgmi    mostra il costruttore
at+chmm    mostra il modello
at+cgsn    mostra l'imei
at+cbc     mostra la carica della batteria e se in ricarica
at+csq     mostra il livello del segnale
e cosi' via
Bye,
Raktzo

 at+csq     mostra il livello del segnale
non e' quello che cerco.......
Ho trovato in rete un'utility per VB prodotto dalla Appforge (CrossFire) che 
e' un  vero e proprio ambiente di sviluppo per cellulari (SE, Nokia) ..... 
ma si deve sapere il Visual Basic.
Mi chiedevo se era disponibile un ambiente del genere anche per delphi ....
Grazie
Ciao, Daniele
Newsgroup: it.comp.lang.delphi
Titolo: Interfacciamento con Adobe Acrobat (Distiller / PDFWriter)

Salve a tutti :)
Sto cercando informazioni su come interfacciarsi con l'Acrobat
Distiller: mi interessa scrivere una specie di "filtro" per eliminare
dei campi che si ripetono in un documento PDF che sto creando
(convertendo da pagine html e chm).
C'è qualcuno che ha qualche sito/documento di "Getting Started" ?
Forse si può fare direttamente dall'Acrobat, ma lo uso da pochi giorni e
non ho trovato nulla :)
Grazie a chiunque mi dia una mano!!
--
Ciao !  Davide DG.

dei campi
penso di non saperti aiutare, cmq cosa intendi con "campi"?
..mi servirebbe la risposta di cui sopra, ma non potresti eliminare
questi "campi" dall'html *prima* di convertirlo? ... se ho detto
vaccate fucilami pure... 8)
Ciao,
Alan Solo

 vaccate fucilami pure... 8)
No, i "campi" (sono semplicemente parti del testo in posizioni fisse,
per questo li chiamo cosě) sono generati *mentre* stampo (stampante
virtuale Acrobat Distiller), quindi me li ritrovo comunque nel file
pdf...
I campi consistono nelle informazioni del file stampato (numero di
pagine, pagina corrente, nome del file, ecc); la stampa non mi sembra
parametrizzabile, purtroppo.
Altrimenti, la domanda si potrebbe trasformare in : qualcuno conosce un
visualizzatore "avanzato" di file .chm ?
Ad ogni modo mi sono scaricato l'Acrobat SDK... vediamo se riesco ad
usarlo in un tempo potabile (4-5 giorni)...
Grazie Alan, che lo Sforrrrzo sia con te!! ;D


Grazie Alan, che lo Sforrrrzo sia con te!! ;D
prego, Obi Wan DG .. :-P
Ciao,
Alan Solo

 ignoranza: cosa soni i .chm? (prima avevo letto htm 8)))
Degli html (circa) "avanzati".
Vabbuň... ora cerco qualche editor/printer per i chm.. magari risolvo
cosě :)


cosě :)
potresti usare Internet Explorer (che perň mi sa che ti mette i numeri
di pagina) oppure con word (sempre se apre i .chm che non ho ancora
capito cosa sono, hehe)! 8-)
Ciao,
Alan Solo

 ma allora cosa ci fai qui su icld??? ;-)))
Eheheheh... il post originale era IT ... poi, al solito, ci siamo
allontanati verso altri lidi... ;P
Sarebbe comunque interessante poter pilotare l'Acrobat /
modificare|creare un PDF da Delphi :))


 Alan Solo

 (convertendo da pagine html e chm).
Dopo lungo peregrinare, ho trovato questa libreria free (ovviamente non
per Delphi...) :
www.fastio.com

Newsgroup: it.comp.lang.delphi
Titolo: 2 domande sul WebBrowser

Salve a tutti...
Avrei un paio di domande sul WebBrowser di Delphi 7 alle quali non riesco a
dare una risposta...
La prima è il fatto che premendo invio (per esempio per mandare a capo in un
form di testo caricato in una pagina (ad esempio un forum, ma anche in tutti
gli altri eventi legati all'invio) non succede niente... e non so come
risolvere :-(
La seconda domanda invere è se c'è un modo per inviare del testo ad un
form/campo/altro in una pagina web caricata appunto con il WebBrowser (ad
esempio cliccando su un pulsante della Form in delphi mi copi nel campo di
testo (per restare in argomento) di un forum, oppure il campo di ricerca di
google (esempi per far capire e nient'altro)
Grazie per gli aiuti (spero di essermi spiegato bene)
Ciao

 google (esempi per far capire e nient'altro)
Se l'oggetto caricato tramite il metodo Navigate è una pagina, la proprietà
Document ti fornisce un interfaccia al DOM della pagina stessa, ci puoi fare
di tutto. Per utilizzare la cosa in delphi devi importare la type library
dell'oggetto MS HTML Object e fare qualcosa del genere..
var Document: IHtmlDocument2;
..
Document := WebBrowser1.Document as IHtmlDocument2;
Document.bgColor := 0; // cambio in nero il colore di sfondo della pagina..
in buona sostanza puoi fare alla pagina quello che si può fare con un
Javascript in IE. La documentazione del DOM è su MSDN e/o il Platform SDK.
Newsgroup: it.comp.lang.delphi
Titolo: Passaggio programma da D5 a D6

Ciao a tutti,
ho migrato un mio prog da D5 a D6, ma continua a darmi questo errore nella 
compilazione:
"Unit Dialogs was compiled with a different version of ExtCrtl.TImage"
Cosa può essere? L'errore non mi si posiziona su nessun punto particolare 
del codice ma solo nel file DPR del progetto
Grazie 

Quasi sicuramente hai un componente o una unit della quale non hai o non 
trova il pas ma solo il tpu.
Ciao,
David
Newsgroup: it.comp.lang.delphi
Titolo: Programma per testare le Query SQL

Ho saputo dell'esistenza di un programma che ti permette di testare la
velocità delle Query... ottimizzarle e non so che altro...
Sapete dirmi dove posso trovarlo?
Grazie
Raptor

 Non so dell'esistenza di questo programma, ma so che SqlServer (7 o 2000)
lo fa.

Newsgroup: it.comp.lang.delphi
Titolo: Dll e OpenDialog

Buongiorno a tutti.
Sto cercando di implementare la mia applicazione con l'utilizzo di una Dll.
Vorrei aggiungere un opendialog creato in una Dll.
questo è il codice della mia applicazione:
....
procedure DimmiCiao; stdcall; external 'PDll.dll';
procedure OpenDialog; stdcall; external 'PDll.dll';
procedure TForm1.Button1Click(Sender: TObject);
  var Dir, NuovaDir: string;
begin
  Dir := '';
  SelectDirectory('Selezionare una cartella', Dir, NuovaDir);
  Edit1.Text := NuovaDir;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
  DimmiCiao;
  OpenDialog;
end;
end.
e questo è il codice della mia dll:
library PDll;
uses
  SysUtils,Classes,ShareMem, Windows,Dialogs,
  UDll in 'UDll.pas';
{$R *.res}
procedure DimmiCiao;
begin
  ShowMessage('Ciao!');
end;
procedure OpenDialog;
var ODOpen: TOpenDialog;
begin
  TOpenDialog.Create(odopen);
  ODOpen.Execute;
end;
exports DimmiCiao, OpenDialog;
begin
end.
Purtroppo però una volta compilata ed eseguita l'applicazione non accade
nulla... dove sto sbagliando ?
Ho fatto diversi tentativi ma continuo a ricevere errori di Access
violation...
Grazie a tutti per i consigli.
Sparta
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

  ODOpen.Execute;
non funziona perché questo è un erroraccio! :p
   ODOpen := TOpenDialog.Create(nil);
   ODOpen.Execute;
-- 
"La velocità luce non è sufficiente Comandante Nunziatella, 
dobbiamo passare alla velocità smodata!"

    ODOpen.Execute;
porca miseria..!!! è vero !
non so dove avevo la testa !!!
grazie !!!


Io volevo sapere come utilizzare al meglio la SelectDirectory per ottenere
un path realtivo scegliendolo dal mio PC...
Grazie  ^_^
Sparta ha scritto:


Newsgroup: it.comp.lang.delphi
Titolo: Utenti connessi MySQL

Un saluto a tutti ho visto nei vecchi post come avere una lista degli utenti
collegati ad un database paradox e access.
tali procedure non vanno bene con un database MySQL come posso fare?
Grazie
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/


ciao,
puoi usare il comando SHOW PROCESSLIST che ti restituisce un set di 
record con gli utenti connessi, l'operazione che stanno eseguendo, il 
tempo trascorso dal login e l'host dal quale sono connessi.
saluti,
alex.

Questo lo sapevo ma devo vo mettere gli utenti in una TListView con ViewSyle
= Report.
Ecco il mio problema.
Antonello Panico

Newsgroup: it.comp.lang.delphi
Titolo: [OT] Memoria utilizzata

Scusate ma volevo sapere se sapevate qualche utility che ti dicesse quanta
ram sia fisica che virtuale č utilizzata dai vari programmi, dll ecc.
Grazie
Stefano Tampieri

ram sia fisica che virtuale è utilizzata dai vari programmi, dll ecc.
Dai un'occhiata a GlobalMemoryStatus e affini...
Bye
--
- Carlo -
BSSoftware Tips Mailing-List Support
Newsgroup: it.comp.lang.delphi
Titolo: setwindowshookex su xp

usando XP   ho un errore sulla setwindowshookex.Devo catture vari eventi di
un'applicazione esterna,tra cui wm_paint.Visto che setwindowslong funziona
solo col thread corrente sto usando setwindowshookex in questo modo:
hwnd := FindWindow('NotePad', nil); // OK
hookID:=setwindowshookex( WH_GETMESSAGE,
              @HookWndProc,
              hInstance,
              GetWindowThreadProcessId(hwnd,nil));
function  HookWndProc(Code: integer; wp: wParam; lp: lParam):
Longint;stdcall ;
begin
if code < 0 then result := CallNextHookEx(hookID, Code, wP, lP)
 else
  if wP = 27 then
     begin
          messaggebox('messag 27');
     end
   else  result := CallNextHookEx(hookID, Code, wP, lP) ;
end   ;
però xp mi da un errore dicendomi che notepad sta scrivendo in memoria di
sola lettura (qualcosa del genere ) e mi chiude "notepad",stranamente non la
mia applicazione .L'errore avviene quando notepad genera messagi di
qualsiasi genere e non all'attivazione dell'hook.
dove sbaglio ?
ciao :))

 qualsiasi genere e non all'attivazione dell'hook.
Questo è normale, perchè la vera installazione dell'hook coincide con lo
scatenarsi dell'evento a cui l'hook è legato!
Ciao
--
- Carlo -
c.b...@libero.it

 installare in essi una DLL.
gia l'errrore stava proprio qui :)
mi son letto le faq e se non sbaglio c'era un tuo post :))
ciao e grazie

 mi son letto le faq e se non sbaglio c'era un tuo post :))
Non sbagli! :-)
La procedura standard però è "leggo le faq e poi chiedo", ok? :-)



veramente la mia procedura è "leggo mezzo google e poi  chiedo" ...
ma il fatto che non pensavo si potesse fare solo ocn le dll .Anche nelle faq
non era "ben chiaro" (però scritto tra () ) e nel leggere vari post su
google non ho pensato che fosse fattibile solo su dll :))
non posto senza prima leggere su google :))
ciao

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

ciao a tutti,
come posso aggiungere una stringa in un dbmemo e posizionare il cursore alla
linea successiva del dbmemo?
ciao

devi agire sul campo a cui è connesso, essendo un DBmemo;
campo.asstring := campo.asstring + stringa + #13#10;
ciaoux
Newsgroup: it.comp.lang.delphi
Titolo: Controlli di rete

non posso farlo per ora.
Quando potrai lascia perdere paradox.
Solo una indicazione: NON USARE TTABLE!
Usa solo TQuery.
Altrimenti, quando dovrai cambiare il motore db avrai voglia di suicidarti.
Saluti e buona fortuna
_________________________________________________________________________
Get Your Private, Free E-mail from MSN Hotmail at 
http://www.hotmail.com
.
-- 
Posted from [212.177.19.163] by way of 
law2-f108.hotmail.com
 [216.32.181.108] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

Usa solo TQuery.
Lo consiglio anch'io...
--
Walkie...@Libero.It (ICQ# 8143647)

 Altrimenti, quando dovrai cambiare il motore db avrai voglia di
suicidarti.
....aggiungo, quando potete le query mettetele in un file e caricatele a
run-time, cosě se dovete fare una modifica al volo alla query, la potete
fare dal cliente (senza ricompilare il tutto)
Ciao
Gianni
Newsgroup: it.comp.lang.delphi
Titolo: regolar procedure vs method pointer

Salve ho alcune classi che devono interagire tra loro, mi sono quindi
creato un wrapper x gestirle
Il problema e che una delle classi ha alcuni eventi, io vorrei fare in
modo che a questo evento venisse assegnato un metodo del wrapper.
La classe in questione e' dichiarata nel wrapper e creata da lui
stesso in create.
io in create ho
constructor classe.create();
begin
[SNIP]
internalclass:=classtype.create;
Internalclass.onuses:=self.customuses;
end;
delphi xo mi dice che reguler procedure e mothod pointer sono
incompatibili! Che faccio????
ciao
-------------------------------------------------
Kirys <Remove DELTHIS from the address to reply>
 /|// /____/ Kirys Tech 2000: 
http://www.kt2k.com
/_|\\  // 2000

 incompatibili! Che faccio????
Credo che tu abbia sbagliato la definizione del tipo di 
ClassType.OnUses: deve essere un puntatore ad un metodo (terminare con 
'of object'), ma il Delphi sostiene che sia un puntatore ad una 
procedura.
-- 
Roberto Lupi

 wrote:

Quella classe non e' mia, cosi e' e, purtroppo, cosi me la devo
tenere.
E' come dici tu infatti guardando il listato trovo appunto che non e'
un evento ma una property che e' appunto il puntatore alla proc.
Non posso modificare quella classe (chiedero comunque spiegazioni)
quindi mi serve un workaround .... :)
Ciao


 quindi mi serve un workaround .... :)
Devi definire l'handler dell'evento come semplice procedura a livello di 
unit, va da se che non potrai accedere agli oggetti se non tramite 
variabili globali o parametri della procedura stessa (se è possibile 
quest'ultima via, ricorda che puoi fare il cast tra TObject, Pointer e 
Integer: X = TObject(Y), ecc.).
-- 
Roberto Lupi

un evento ma una property che e' appunto il puntatore alla proc.
Cos'e' ? un TNotifyEvent ?
--
Andrea Laforgia - walkietalkie(at)
libero.it
http://www.geocities.com/AndreaLaforgia

 incompatibili! Che faccio????
Fai in modo che la regular procedure diventi un metodo del tuo oggetto
(ovviamente il metodo deve avere la stessa signature dell'evento:
// segue esempio (scritto qui => non gira) per un TNotifyEvent
TWrapper = class(TComponent)
private
  fInstOfIntClass: TInternalClass;
  procedure HandlerOfIntClassEvent(Sender: TObject);
public
  constructor Create(AOwner: TComponent); override;
  destructor Destroy; override;
end;
TWrapper.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
  fInstOfIntClass.Create;
  fInstOfIntClass.OnEvent := HandlerOfIntClassEvent;
end;
TWrapper.Destroy;
begin
  fInstOfIntClass.Free;
end;
TWrapper.HandlerOfIntClassEvent(Sender: TObject);
begin
  ShowMessage('E'' arrivato l''evento dal mio ' + Sender.Classname);
end;
Saluti
Paolo Arosio

Cos'e' ? un TNotifyEvent ?
no pointer x proc :/



non e' un TNotifyEvent :(

Newsgroup: it.comp.lang.delphi
Titolo: BDE e Interbase 6 Dialect 3

Anche installando il BDE 5.2 non riesco ad accedere correttamente a
database Interbase 6 che utilizzano tipi di dato Dialect 3 (riporta sempre
un errore dicendo "Client Dialcet 1").
C'è qualcosa che mi sfugge? Pensavo che il BDE 5.2 fosse finalmente un
client IB 6 Dialect 3, ma forse non è così?
Che mi dite?
Grazie in anticipo
 Marco

 ha scritto nel messaggio


>
To use the new InterBase 6 Dialect 3 features, add an entry
to your Windows registry under
 HKEY_LOCAL_MACHINE\SOFTWARE\
     Borland\Database Engine\Settings
     \Drivers\Intrbase\Db Open\SQLDIALECT
and set the value to "3".
When an InterBase alias is created, the new entry will be
available in the .CFG file.
To use InterBase 5.6, SQLDIALECT can be set to "1" (existing
IB aliases which do not have the SQLDIALECT entry default to
SQLDIALECT=1 or to the registry setting when the SQLDIALECT
entry is added to the registry).
<<
Se hai installato correttamente il BDE5.2 puoi quindi accedere a database
creati con IB6 o Firebird in Dialect 3.
La grande fregatura è che non puoi accedere a dati che siano memorizzati
come Int64; cioè niente Numeric() o Decimal() superiori a 9
(in IB5 Numeric(10,x) era un double precision, in IB6 è un Int64 scalato).
Quindi col BDE, neanche col 5.2, puoi sfruttare una delle cose più belle di
IB6.
Mirko
Newsgroup: it.comp.lang.delphi
Titolo: Catalogo

Ho la necessità di avere una file tipizzato di record o qualcosa di
equivalente con questa struttura:
-stringa
-stringa
-altro valore
- X
dove X è un tipo che cambia da registrazione a registrazione.
come si può fare ?
(tutto utilizzando sempre un solo file)
tnk
--
Consonni Davide
DavideC...@Virgilio.it
webmaster of
http://www.traduzioniellepi.com

 come si può fare ?
Dichiarare X come Variant?
Come soluzione non è che mi piaccia moltissimo (l'utilizzo dei Variant è
pesante e pericoloso), tuttavia penso che alla fine in un File non si noti
alcuna differenza.
Saluti!
--
- Carlo -
c.b...@libero.it

 come si può fare ?
Dichiarare X come Variant?


il mio prof voleva fare qualcosa con gli oggetti, cosě da introdurre la
programmazione ad oggetti alla classe...


tnk
E' tanto che non li uso ma, se ricordo bene la sintassi...
TPippo = record
    a: Integer;
    b: Integer;
    case c: byte  of
      1: (d: Integer);
      2: (e: string[4]);
      3: (f: real);
      4: (g, h: Double);
end;
Massimo.
-- 
"Ciao Rex, che cavolo di situazione eh? Due dentro, due fuori, puo' succedere di tutto!"

Newsgroup: it.comp.lang.delphi
Titolo: tanner@tanner.as

UIAUAUAU

[OT] :((( stavo testando la mia nuova e-mail, sembra idiota ma ho sbagliato
finestra e ho scritto sul NG invece che a me stesso... eeeh.. lo stress e il
sonno! :)))
va beh gia che ci siamo...
www.nameplanet.com
 vi da un indirizzo e-mail col vostro nome-nick, tutto
gratis...
la mia č 
tan...@tanner.as
:))
scusate per l'intrusione stupida! :)
....
ehm.. ma non c'č un OP del ng che possa cancellare sta cacata...
orka boia! <;)
Tanner

 :))
ehehe 
nic...@lugato.org
 :D w nameplanet ! :D

 > la mia è 
tan...@tanner.as


 orka boia! <;)
Se usi OE e sei nella stessa sessione basta mettersi sul messaggio e
Messaggio/Annulla messaggio.
Se usi FA forse puoi farlo anche fra sessioni diverse.
it.test e' il posto giusto per le prove.
Saluti
Paolo Arosio

Newsgroup: it.comp.lang.delphi
Titolo: Color dialog o color picker

Ciao Ragazzi,
dove posso scaricare un buon componente color picker o color dialog per 
Delphi 7 ?
Eventualmente avete delle demo dei componenti suddetti?
Grazie. 

 Delphi 7 ? Eventualmente avete delle demo dei componenti suddetti?
Cerca su *Torry Delphi's Pages* (
http://www.torry.net
) nella sezione 
denominata /VCL/.
Ciao! :-)
-- 
Marco «Alka» Breveglieri
  ABLS Team S.n.c. - Software & Web
  Via De Gasperi, 14
  42019 Scandiano (Reggio Emilia)
 
http://www.abls.it
Newsgroup: it.comp.lang.delphi
Titolo: Master-details

Ho due tabelle in relazione master-details. Se imposto design time le 
proprietà per ottenere il funzionamento master-details va tutto ok.
Non capisco perchè non riesco ad ottenere la stessa cosa con assegnazioni da 
codice. Dov'è l'errore?
il codice è il seguente:
// tutte i componenti sono active = false
  ADODS1.CommandText := 'SELECT * FROM TABMASTER';
  ADODS2.CommandText := 'SELECT * FROM TABDETAILS';
  DSM.DataSet := ADODS1; // DSM = TDataSource, con DGGrid collegata
  DSD.DataSet := ADODS2; // DSD=TDataSource, con DGGrid collegata
  ADODS1.Active := True;
  ADODS2.DataSource := DSCF;
  ADODS2.MasterFields := 'NOMECAMPO'; // NOMECAMPO è quello della tabella 
master
  ADODS2.Active := True;
premetto che nomi di tabelle e campi sono corretti.
Quando comando l'activate del ADODS2 ottengo un errore del tipo
"Impossibile trovare l'oggetto nell'insieme corrispondente al nome o al 
numero richiesto"
Noto che se imposto le stesse proprietà design time, per impostare il 
masterfield devo specificare una coppia di campi, quindi una relazioen tra 
un campo della tabmaster e uno della tabdetails, ma una volta confermata, 
nell'object inspector mi compare solo il nome del campo della tabella 
primaria.
Devo per forza impostare design time o sbaglio qualcosa nel codice?
Gianni

   ADODS2.MasterFields := 'NOMECAMPO'; // NOMECAMPO è quello della tabella
 ADODS2.MasterSource := ....
A.

 ADODS2.MasterSource := ....
Per i componenti ADO la proprietà è DataSource (non mastersource), che 
imposto nella penultima riga.
Gianni

Newsgroup: it.comp.lang.delphi
Titolo: [d5] backup e restore con mysql e zeos

ciao a tutti, dovendo fare un sistema di backup/restore del db di un 
applicazione delphi su mysql, cosa consigliate di fare? si pu� fare un dump 
con i componenti zeos?
Simone 

per il salvataggio dei dati utilizzo il programma di sistema
mysqldump.exe lanciato con un comando shellexecute e non ho mai avuto
problemi, ciao Brunello

ciao, anch'io pensavo mysqldump per� nel caso il db sia remoto, c� un modo 
per cui il cliente finale possa farsi backup da solo?
Simone 

con delphi 5 avevo provato il componente MySQLBackUp e poteva esserti
utile per il tuo utilizzo ma lo puoi utilizzare solo con vecchie
versioni di MySql e quindi ho abbandonato
http://www.torry.net/quicksearchd.php?String=MySQLBackUp&Title=Yes

comunque se guardi la sintassi di mysqldump nei parametri puoi
indicare con --host il server quindi dovrebbe funzionare anche da un
client, ciao Brunello
http://dev.mysql.com/doc/refman/5.1/en/mysqldump.html

ok per� sul client ho solo la dll per accedere (es. mysql50.dll) posso 
copiare mysqldump sul pc senza installare mysql?
Simone 

penso di si, prova tanto non esplode di sicuro, ciao Brunello
Newsgroup: it.comp.lang.delphi
Titolo: La Borland è ancora in vacanza?

Ho ordinato Delphi 5 all'inizio di agosto e nonostante mi fosse stato
assicurato che sarebbe arrivato alla fine del mese, sono ancora qua... anche
nel sito di Computer Discount la disponibilità è sempre pari a 0. Qualcuno
sa il motivo di questa irreperibilità dei prodotti Borland?

la Microsoft ha rapinato i TIR con i pacchi di delphi e tenta di verderli
nella scatola di vb6...!
AS
"Se è Microsoft non funziona"

Siamo a conoscenza di alcuni problemi con nostri distributori e
stiamo lavorando per porvi rimedio.
Nel frattempo consigliamo coloro che fossero intenzionati ad
acquistare prodotti Inprise/Borland a rivolgersi ad altri rivenditori
e distributori.
Grazie.
Borland Staff


Siamo a conoscenza dei problemi esistenti con alcuni nostri
distributori e stiamo lavorando per risolverli al più presto
possibile.
Nel frattempo vi consigliamo di rivolgervi ad altri distributori
e rivenditori. Potete trovarne un elenco completo al seguente link:
www.borland.it/rivend.htm
Grazie



Mah, può anche darsi che abbiano chiuso per mancanza di fondi...  :ç)
Ciao, Mauro

Siamo a conoscenza dell'esistenza di problemi con
alcuni nostri distributori e stiamo lavorando per
risolverli.
Nel frattempo vi consigliamo di prendere in esame
la possibilità di rivolgervi ad altri rivenditori
e distributori.
Scusandoci dei disagi che la situazione possa aver
recato a qualcuno, ringraziamo per la collaborazione.
Distinti saluti
Borland Staff


Newsgroup: it.comp.lang.delphi
Titolo: Campo boolean in QuickReport

Salve,
č un pň che non posto, ho mollato un pň Delphi, ma mi sono rimesso sotto.
ho un quickrep con una banda detail collegata ad una query.
Su questa banda visualizzo il resultset con dei QRDBText. Uno dei campi perň 
č di tipo boolean e non vorrei mostrare in stampa semplicemente TRUE o 
FALSE, ma qualcosa di piů comprensibile per l'utente, tipo Vero e Falso o 
altro.
Come posso fare?
Ho provato a sostiuire il QRDBtext con un QRExpr con fuzione IF(SOSPESO, 
VERO, FALSO)  dove SOSPESO č il campo boolean, ma ho errore "unknown 
function:"
Suggerimenti?
Ciao e grazie a tutti.
Andrea 

 Andrea
Ciao
direi che è facilissimo.
Nella OnPrint metti qualcosa del tipo:
il Value='True' then Value:='OK' else Value:='';
Ciao
C.

 ha scritto nel messaggio 
news:wwJfi.47278$%k.17...@twister2.libero.it...

Newsgroup: it.comp.lang.delphi
Titolo: progressbar su IBQuery o ZEOSMysql

ciao a tutti, esiste un modo (come su ADO) per avere una percentuale di
caricamente in fase di apertura di una query (select) fatta con IBQuery o
con zeos components??
Simone

 con zeos components??
Scusa, io sto tentando di fare la stessa cosa con un componente AdoQuery, e
cioč visualizzare in un componente progressbar il risultato dell'avanzamento
di una query. Tu ci sei riuscito ? Se si, come?
Tor

ciao, mi sono inspirato al tuo messaggio in inglese... però non ho trovato
ancora soluzione
Simone

 Simone
Se ne vengo a capo, ti faccio sapere.

ho visto che programmi come EMS my sql manager o EMS quickdesk
eseguono una sorta di progress e credo cmq sia fatti in delphi
Simone
Newsgroup: it.comp.lang.delphi
Titolo: Quale linguaggio usate?

Ciao,
io sviluppo con Delphi5, Visual source safe, può funzionare con questo tool
di sviluppo?
Grazie,
Simone

 di sviluppo?
Si. Lo usiamo qui in azienda.
Bye
AS
Ps: il titolo del post non è molto azzeccato, ti pare? :)))
-- 
Posted from  [212.17.220.41] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG
Newsgroup: it.comp.lang.delphi
Titolo: Neofita:.. usare le variabili: come faccio?

Salve a tutti!
Avrei una domanda cretina, ma che, da neofita di Delphi, mi sta tormentando!
Voglio creare una finestrella che abbia un  messaggio del tipo:
 "Hai usato X parole!" oppure "Il cliente XXXX  e' regolarmente iscritto!!!"
dove X e XXXX nei due esempi sono 2 variabili public che vorrei usare in
quella finestra
Insomma, non riesco a capire, usando per esempio una TEdit, come faccio a
utilizzare una variabile: riesco solo a mettergli del testo predefinito!!!
:-(
Mi rendo conto che e'  l'ABC!
Grazie
Gianluca


Innanzitutto "bienvenido". =)
Ecco come risolvere il tuo problema. Per scrivere delle variabili in mezzo a
una stringa hai due soluzioni:
1) Utilizzare la concatenazione.
    Edit1.Text := 'Hai usato ' + var1 + ' parole!';
    // Nella riga seguente i due apici dopo la "e" servono per inserire
l'accento nella stringa
    Edit2.Text := 'Il cliente ' + var2 + ' e'' regolarmente iscritto';
       oppure esiste la funzione di concatenazione (non la vedo usare molto,
pero')
    Edit2.Text := Concat('Il cliente ', var2, ' e'' regolarmente iscritto');
Pero' attenzione: per creare una stringa concatenata le variabili che
inserisci in mezzo al testo devono essere tutte di tipo String. Se sono
numerici li devi prima convertire, ad esempio:
    Edit1.Text := 'Hai usato ' + IntToStr(var1) + ' parole! Potevi usarne
solo ' + FloatToStr(var2);
2) Metodo che preferisco: usare la funzione Format. Assomiglia molto alla
printf del linguaggio C, e funziona cosi'
    Edit1.Text := Format('Hai usato %d parole! Potevi usarne solo %f',
[var1, var2]);
Il primo parametro e' la stringa da scrivere, con i "segnaposto" (per dirla
alla Visual Basic), seguita da un array di variabili. Il funzionamento e'
semplice, ma anche muy potente: il "%d" sara' sostituito dalla prima
variabile dell'array, il "%f" sara' sostituito dalla seconda variabile, ecc.
E' importante che nell'array ci siano tante variabili quanti i "segnaposto",
e che ogni variabile sia del tipo corretto.
Mi spiego meglio: se scrivi "%d", la variabile che dovra' prendere il suo
posto dovra' essere un intero (%d --> decimal), se scrivi %f dovra' essere
un float (%f --> float), se invece scrivi %s dovra' essere una stringa. In
questo modo non devi richiamare tutte le funzioni di conversione per ogni
parametro.
Per mettere un carattere di "%" nella stringa e' importante ricordare che lo
devi scrivere due volte (un po' come l'apice. Un esempio un po' piu'
complesso:
    Edit1.Text :=
      Format('Hai usato %d volte la parola %s. L''hai ripetuta nell''%d%%
del testo.', [var1, var2, var3]);
Supponendo che var1 abbia il valore 10, var2 abbia il valore "albero" e var3
abbia il valore 80, il testo di Edit1 sara' il seguente:
    "Hai usato 10 volte la parola albero. L'hai ripetuta nell'80% del
testo."
Spero di essere stato chiaro. Se ci sono dubbi sulla Format puoi controllare
l'help (il metodo di "pasticciare" con i dati dell'help e' uno dei migliori
metodi di apprendimento, secondo me). :)
Se poi sei proprio nei pasticci scrivi pure, saro' felice di darti una mano.
Ciao
Daigo
Newsgroup: it.comp.lang.delphi
Titolo: Creazione indici

Salve, ho un problema con la creazione degli indici sulle tabelle di
un database standard dbase usando Database Desktop fornito insieme a
Delphi 5.
L'indice dovrebbe essere creato su un solo campo e apparentamente
sembrerebbe che venga creato correttamente, ma quando apro le tabelle
vedo che i record non sono ordinati.
Potete aiutarmi?
Grazie in anticipo.
Alessandro

 Potete aiutarmi?
Che componente usi per recuperare i dati?
Acqua

 Che componente usi per recuperare i dati?
Non ho usato nessun componente, semplicemente quando ho aperto la
tabella da Database Desktop o da Database Explorer, ho visto che i
record non erano ordinati secondo il campo che avevo dichiarato
nell'indice tramite Database Desktop.

 nell'indice tramite Database Desktop.
Il fatto che la tabella non appare secondo l'ordine che ti aspetti non
significa che lindice non esista.
Prova con Menu Tools/Utilities/Sort...
--
Acqua

 Prova con Menu Tools/Utilities/Sort...
Con il Sort funziona. Tuttavia bisognerebbe farlo manualmente tutte le
volte che si inseriscono nuovi record, quindi non ci sarebbe il modo
di fargli fare l'ordinamento in automatico, come fa' per esempio
Interbase?

 vedo che i record non sono ordinati.
L'indice esiste proprio per evitare di dover mantenere i record secondo
un ordine particolare. Se poi l'indice e' una PK probabilmente DBDesktop
ti mostra i dati secondo quell'ordinamento.
Saluti
Paolo Arosio
--
"La dimostrazione dell'esistenza di specie intelligenti nell'universo
 e' che non ci vengono a trovare"

Newsgroup: it.comp.lang.delphi
Titolo: file .dfm testo o binario?

Scusate qualcuno mi puo indirizzare a qualche info sul formato dei
.dfm?
Io vorrei sapere con affidabilita 100% e prestazioni il + elevate
possibili se un dfm e binario o meno (mi serve per il cvs :P)
Analizzando i dfm che ho e un po di google sembrerebbe che i primi 3
byte di un .dfm binario siano 
$FF $0A $00
ma vorrei avere conferma prima di sputtanare tutto :)
Grazie
-- 
.     _  _______  ļ,ø*°`°*ø,ļ_ļ,ø*°`°*ø,ļ_ļ,ø*°`°*ø,ļ_ļ,ø*°`°*ø,ļ_
  /| // /__  __/  Kirys <My e-mail is a working antispam e-mail>
 / |/ \   / /     Kirys Tech 2000: 
http://www.kt2k.com
/__|\__\ /_/ 2000 ļ,ø*°`°*ø,ļ_ļ,ø*°`°*ø,ļ_ļ,ø*°`°*ø,ļ_ļ,ø*°`°*ø,ļ_


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

[..]
si forse non sono stato proprio chiarissimo.
mi spiego meglio.
Allora devo fare una dll che contiene una funzione che ritorni 1 se il
dfm e' testo 2 se binario.
La cosa deve essere il + veloce possibile mantenendo un 100% di
affidabilita (insomma non mi deve dire testo se il file e' binario
:P).
sembrerebbe che de dfm binarie inizino sempre con $FF $0A $00 sto
cercando qualcuno che me lo possa confermare, cosi mi basterebbe
leggere i primi 3 caratteri per sapere se e' binaria o meno (avendo
una enorme velocita di analisi invece di dover leggere tutto il file)
Ciao

Newsgroup: it.comp.lang.delphi
Titolo: on click su tedit

Gentili supereroi dell'NG,
ho creato una tabella temporale a runtime, con tanto di barre colorate 
(TEdit(nil)) che si incastrano in base alle date di inizio e fine immesse 
con relativa dimensione.
I dati vengono salvati su database e letti in fase di apertura tramite un 
ciclo for e ridisposti in tabella.
Fin qui, tutto bene, il problema è che vorrei cliccare su uno di questi 
TEdit andando a richiamare il record della tabella attinente e magari al 
passaggio del mouse vederne un'etichetta con del testo raccolto dal record 
del database attinente.
E' possibile a parer vostro ? è la prima volta che mi imbatto in un quesito 
simile...
Attendo fiducioso ! thanks !
-- 
http://blogs.dotnethell.it/simisa/
 

 del database attinente.
Intendi una Hint ?
Forse non ho capito.
Ciao
Mario (
mari...@inwind.it
)
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

 Intendi una Hint ?
no no, hai capito benissimo...e ti ringrazio, mi hai dato la dritta 
sull'hint...anche se non ho capito come fare a dargli un'attributo che se 
cliccato ad esempio...cambia colore, trattasi sempre dei Tedit generati a 
runtime con while.

 runtime con while.
C'č un esempio che riguarda la creazione di classi Hint sul manuale di
Delphi 4 di Texeira e Pacheco.
Adesso sono a scuola ma quando vado a casa dovrei guardarci.
Se mi dai un indirizzo mail ti spedisco le copie delle 2 o 3 pagine.
Ciao
Mario
mari...@inwind.it

Newsgroup: it.comp.lang.delphi
Titolo: CopyFile

Salve a tutti
avrei bisogno di copiare un file in modo da poterlo incollare
posso usare questo?
CopyFile(pchar(ExtractFilePath('dir') ),pchar('newdir'),true);
come?
un'altra cosa per caricare una risorsa "res" di tipo "icon"
in un timage devo usare Image1.Picture.Icon.LoadFromStream('nome_risorsa');?
grazie
erik

 in un timage devo usare
Image1.Picture.Icon.LoadFromStream('nome_risorsa');?
[Giuseppe]
procedure tform1.loadmiaicona;
var
r: tresourcestream;
begin
r:= tresourcestream.create(hinstance,'miaicona', rt_icon);
image1.picture.icon.loadfromstream(r);
r.free;
end;
Predisponi il file di risorsa come detto nei post precedenti per i suoni.
Non l'ho mai provato, ma credo che per istanziare un tipo "icona" si debba
inserire "icon". Ad esempio:
miaicona ICON c:\mieicone\icona.ico
Ciao.
Giuseppe

Ciao, come ti hanno risposto la CopyFile ha tutt'altro scopo.
Io suggerirei di usare i TFileStream; dall'help di Delphi ecco un esempio
per utilizzare il metodo CopyFrom della suddetta classe :
procedure TForm1.Save1Click(Sender: TObject);
var
  NewFileName: string;
  Msg: string;
  NewFile: TFileStream;
  OldFile: TFileStream;
begin
  NewFileName := ExtractFilePath(Application.ExeName) +
ExtractFileName(Edit1.Text);
  Msg := Format('Copy %s to %s?', [Edit1.Text, NewFileName]);
  if MessageDlg(Msg, mtConfirmation, mbOKCancel, 0) = mrOK then
  begin
    OldFile := TFileStream.Create(Edit1.Text, fmOpenRead or
fmShareDenyWrite);
    try
      NewFile := TFileStream.Create(NewFileName, fmCreate or
fmShareDenyRead);
      try
        NewFile.CopyFrom(OldFile, OldFile.Size);
      finally
        FreeAndNil(NewFile);
      end;
    finally
      FreeAndNil(OldFile);
    end;
  end;
end;
Isolando le due parti di lettura e di scrittura puoi facilmente implementare
il tuo copia incolla.
Ciaoux

Newsgroup: it.comp.lang.delphi
Titolo: Stampa codice a barre

Ciao a tutti sto usando Delphi4 è ho la necessita di stampare una stringa in 
formato code128 convertita in una immagine da stampare poi con i driver di 
windows.
Allo stato attuale ho provato ad utilizzare il componente FreeBarcode di 
Andreas Schmidt ma il codice che mi stampa e difforme dal code128 puro.
Esiste qualche font (ttf) oppure qulche componente di delphi in grado di 
restituire un'immagine del codice a barre (da inviare direttamente alla 
stampante)?
Ringrazio anticipatamente tutti 

 Andreas Schmidt ma il codice che mi stampa e difforme dal code128 puro.
...questo non l'avevo notato...forse perche non uso il code128....
prova la suite sysutils della ex turbopower, li trovi su sourceforge
Quando erano a pagamento c'era un componente barcode, ora non so,non l'ho
installato su kylix
Bye,
Raktzo
Newsgroup: it.comp.lang.delphi
Titolo: Problemi di recupero dati da tabella e inserimento in DBGrid

Ciao a tutti,
ho la necessità di recuperare la posizione del cursore durante
l'esecuzione di una select ma non saprei come fare. Mi spiego meglio:
- ho una tabella con questa struttura dove i singoli valori si
riferiscono ai relativi codici (COD1/VALORE1, COD2/VALORE2, COD3/
VALORE3)
ID | COD1 | COD2 | COD3 | VALORE1 | VALORE2 | VALORE3
1       A         B         C             1
2                3
2       A         C         B             4
5                6
3       B         C         A             7
8                9
Quello che mi serve è recuperare i valori relativi al COD e
visualizzarli in una DBGrid. Esempio, devo estrarre tutti i valori
relativi al codice A, quindi nella DBGrid dovrei visualizzare:
COD1 | 1
COD1 | 4
COD3 | 9
Avete qualche consiglio da darmi? Soluzioni possibili?
Grazie


a parte il fatto che lo schema suddetto non č allineato e non rende 
molto bene l'idea, ma non ho capito bene cosa vuoi ottenere dalla 
tabella.
NioBi
--- posted by geoForum on 
http://www.delphiedintorni.it

Mmmmm non mi ha mantenuto la tabulazione della tabella di esempio.
Riproviamo:
ID | C1 | C2 | C3 | V1 | V2 | V3
1  |  A  |  B  | C  |  1   |  2  |  3
2  |  A  |  C  | B  |  4   |  5  |  6
3  |  B  |  C  | A  |  7   |  8  |  9
Se non viene ancora sfasata, rimane più semplice da capire.
In pratica dovrei recuperare i valori 1, 4 e 9 e inserirli in una
DBGrid


Ciao
Se puoi modificare la struttura della tabella lasciando solo
ID
COD
VAL
e di conseguenza avere i valori in forma "verticale"
la cosa si semplifica notevolmente e puoi richiamare i tuoi codici
semplicemente con:
Select id, cod, val
from xx
where cod = 'A'
altrimenti mi sa che devi crearti una tabella temporanea in cui
da codice inserisci i valori che ti servono e associarla alla DBGrid
Ciao
Micky

Quello che vuoi fare č un pivoting della tabella, a seconda del db che 
usi si puņ forse fare anche in SQL, ad esempio qui lo fanno con Oracle:
http://asktom.oracle.com/pls/asktom/f
?
p=100:11:0::::P11_QUESTION_ID:8119875218670

Newsgroup: it.comp.lang.delphi
Titolo: Comandi SQL con BDE

Ciao a tutti,
sto creando un semplice programma di archiviazione libri, utilizzo sia
componenti TTable e TQuery ( utilizzando il BDE).
Ho una tabella Principale (LIBRI) e una tabella dettagli (AUTORI) in cui
vengono memorizzati il o gli autori del libro.
Uso il seguente codice SQL per visualizzare i dati in una griglia
select
            Book."CodBook",
            Book."Titolo",
            ...,
            Autors."CodBook",
            Autors."CodAutore",
            Autors."Nome"
from "e:\Libri.db" as Book,
        "e:\Autori.db" as Autors
where Autors."CodBook" = Book."CodBook"
Il problema che ho è che se l'autore è unico ottengo un risultato del
genere:
Titolo Libro 1        Autore 1        ...,
mentre se gli autori sono più di uno ottengo i seguenti risultati:
Titolo Libro 1        Autore 1        ...,
Titolo Libro 1        Autore 2        ...,
in pratica viene ripetuto l'intero record della tabella libri per il numero
di autori del libro, io invece vorrei ottenere un record unico anche se ci
sono più autori; Esempio:
Titolo Libro 1        Autore 1;Autore 2        ...,
Vorrei sapere se è possibile ottenere un risultato simile utilizzando un
unico componente TQuery?
uso D7 - BDE 5.00
Grazie
Michele Rossa

 sono più autori
Forse non ti è ben chiaro il concetto di n-ple risultato: imposti la query
SQL perchè ti ritorni un insieme di coppie LIBRO - AUTORE e poi pretendi che
questa si dimensioni anche orizzontalmente... per questa cosa che vuoi
ottenere un'unica query non è la strada giusta.
Saluti
        Marco Bortolani
        info @ 
marcobortolani.it


Pensavo che ci potesse essere qualche comando SQL particolare che mi
raggruppasse i dati di un campo particolare di una tabella dettagli in un
unico campo.
Grazie.
Ciao
Michele Rossa

Ciao
Niente
	Ciao
	MassimoB
 

 Vorrei sapere se č possibile ottenere un risultato simile utilizzando un


 where....
Ho provato a fare come hai suggerito ma ottengo sempre lo stesso
risultato...
Penso che mi limiterò a usare due componenti TQuery (master-detail)
Grazie
Ciao
Michele Rossa

 qualcosa? non tutto rose e fiori.hai impostato chiavi esterne e primarie?
Il mio database è composto (per ora) da due sole tabelle:
Tabella LIBRI
CodBook - autoincremento
Titolo - alfanumerico di 100 caratteri
Editore - alfanumeico di 60 caratteri
... altri campi
Indice primario basato sul campo CodBook
Tabella AUTORI
CodAutore - autoincremento
CodBook - integer
Nome -alfanumerico di 50 caratteri
Indice primario basato sui campi CodAutore e CodBook
Come puoi vedere è un database molto semplice e tra le due tabelle esiste
una relazione master-detail.
Ciao
Michele Rossa