mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.delphi
Titolo: dubbi su creazione tabella

se voglio creare una tabella (nella stessa dir dell'applicazione)
utilizzavo queste istruzioni in un form:
   with TTable.Create(self) do
   begin
     TableName := 'Listino';
     TableType := ttParadox;
     with FieldDefs do
     begin
       Add('Codice', ftString, 9, True);
       Add('Tipo', ftString, 1, false);
       Add('Descrizione', ftMemo, 240, false);
     end;
     CreateTable;
   end;
poi ho deciso di spostare le istruzioni in una unit
e ora non so piu' cosa mettere al posto del parametro self
ciao e grazie
Luca

 e ora non so piu' cosa mettere al posto del parametro self
Metti *nil* che va benissimo, purchè ti ricordi di distruggere l'oggetto 
al termine del suo utilizzo:
   with TTable.Create(self) do
   begin
     try
       TableName := 'Listino';
       TableType := ttParadox;
       with FieldDefs do
       begin
         Add('Codice', ftString, 9, True);
         Add('Tipo', ftString, 1, false);
         Add('Descrizione', ftMemo, 240, false);
       end;
       CreateTable;
     finally
       Free;
     end;
   end;
Io comunque userei una variabile locale per mantenere il riferimento 
all'oggetto TTable creato e, per maggiore chiarezza, rimuoverei il 
costrutto *with*.
Ciao! :-)
-- 
Marco «Alka» Breveglieri
(marco [@] abls [.] it )
  ABLS Team S.n.c. - Software & Web
  42019 Scandiano (Reggio Emilia)
 
http://www.abls.it
Newsgroup: it.comp.lang.delphi
Titolo: Try... Except con ADO

Salve a tutti.
Mi sto avvicinado per la prima volta a Delphi e smanettando un po' mi sono
trovato davanti questo problema che non sono riuscito a risolvere...
L'unica cosa che mi interessa controllare è che riesca ad aprire il file
Il codice che ho scritto, ma che non funziona è il seguente...
Procedure TForm1.FormActivate(Sender: TObject);
var
    StrConnessioneInzio: string;
    StrConnessioneFine: string;
    StrPercorsoDB: string;
begin
StrConnessioneInzio := 'Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data
Source=';
StrConnessioneFine := ';Mode=Share Deny None;';
StrPercorsoDB  := 'c:\prova.mdb';
ADOConnection1.ConnectionString:= StrConnessioneInzio+StrPercorsoDB +
StrConnessioneFine;
try
 ADOConnectio1.open;
except
 on EADOErrore do
   ShowMessage('Errore');
end;
end.

 Il codice che ho scritto, ma che non funziona č il seguente...



Grazie, ma era solo un errore di battitura nella mail :-)
Il mio problema sembra sia dovuto al fatto che il EADOError...
Cmq grazie!
    Ciao
    Carlo


wrote:

Un errore ADO alza un'eccezione di tipo EOleException
Quindi facendo 
try
except
on EOleException
end
dovrebbe funzionare. In ogni modo, spesso, per sapere che tipo di
eccezione viene sollevata, è utile una cosa del genere:
try
except
  on E: Exception do
    MessageDlg(E.ClassName, mtInformation, [mbOk], 0);
end;
Massimo.
-- 
Ore 18.30: premo invio.

 --
Grazie, questo mi è stato utile cmq sono stupido, l'errore alla
fine l'ho trovato in Tools -->> debugger options --> general -->
MapTD32keystroke on run.... Ci sono troppe cose da sapere... un
po' alla volta imparerò! :-) Cmq Grazie! :-)
        Ciao ciao!

> Il codice che ho scritto, ma che non funziona è il seguente...
Ma non dici cosa fa..
Va in errore?
Non trappa l'eccezione?
Bye
AS
Newsgroup: it.comp.lang.delphi
Titolo: W2K -> W98

Salve, un buon rientro dalle vacanze e buon inizio lavorativo a tutti.
Nonostante siamo da ben 8 giorni nel 2002, persone come me hanno problemi con
W98 prima edizione. Mi spiego.
Ho fatto una semplice applicazione in Delphi 6, uso windows 2000 come macchina
di sviluppo. L'applicazione fa uso del componente INDY TIdHttp per fare una get
ad una CGI remote e stampare i dati che mi torna la funzione get(URL):string.
Questa semplice applicazione gira meravigliosamente sotto W2K, WNT, WME e
W98SE.
Non gira ma mi fa girare i cosidetti a me sotto W98 Prima edizione (con tutte
le SP appropriate). L'errore che mi torna è sempre lo stesso (socket error ...
timeout n.. di errore).
In base alla vostra esperienza cosa potrebbe essere? Come posso risolvere il
problema?
Grazie mille,
 
           Marco Olivieri
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

Di preciso non so...
Pero Win98 prima edizione è + bucato di una forma
di formaggio svizzero.
Da molto da pensare che sulla seconda edizione tutto funzioni.
Domanda cattiva...
Esistono persone che hanno ancora Win98 prima edizione?
La seconda, ok, ma la prima....
Bye
AS


Newsgroup: it.comp.lang.delphi
Titolo: [forse OT] report manager

Ciao a tutti, recentemente ho iniziato a provare Report Manager.
Cerco di inserire un'immagine come sfondo, per poi scrivere sopra i 
campi del report.
Inserendo l'immagine come sfondo, la stampa non � posizionata 
correttamente, oppure se cerco di aumentare le dimensioni del report 
perch� contenga tutta l'immagine, il report non viene stampato per 
mancanza di spazio.
Qualcuno ha esperienza su questo componente e sul suo utilizzo?
Grazie.
Saluti.

 ha scritto nel messaggio 
news:4b29fb82$0$6836$5fc...@news.tiscali.it...

A proposito l'hai acquistato anche tu o usi il free? dopo una settimana, 
pagato con Paypal, non nen so piu nulla,
Giorgio 

 
Per ora utilizzo la versione free e il report designer. Ho visto che 
l'assistenza � a pagamento (la documentazione on-line mi sembra un po' 
scarsa e soprattutto mancano dei demo per poter testare le varie features).

 scarsa e soprattutto mancano dei demo per poter testare le varie features).
Io ho provato l'unico esempio che trovi con il pacchetto di 
installazione (dal report designer selezioni "sample4") e fatta una 
anteprima di stampa cercando di utilizzare la funzione cerca, immetto 
nel campo relativo le lettere "of" dopo aver premuto il pulsante con il 
binocolo il report "sballa" e scompaiono dalla visualizzazione la 
descrizione dei pesci visualizzata.
Non so se sia un bug della funzione "cerca" ma certo non � una buona 
presentazione.
Ciao.

 Ciao.
Io ho provato a seguire il tutorial per il report del DBDEMOS del DBE e 
non riesco a stampare le immagini dei pesci, ma viene visualizzato il 
contenuto del campo come se fosse un testo normale.
Anche questa non � mi � sembrata una buona presentazione.
Newsgroup: it.comp.lang.delphi
Titolo: Click

Come posso fare per permettere al mio programma di fare clic nella
finestra di un altro programma?
grazie in anticipo
ciao
El Bandolero
-- 
ciao
Bando
...che qui c'è gente che spacca il capello nell'uovo (C) 2004 - Bando


1. Trovi in qualche modo l'handle della finestra in cui vuoi cliccare. Con
FindWindowEx puoi trovare main e child windows.
2.1. Invii un messaggio di cliccaggio, o col sinistro o col destro, singolo
o doppio. Ci sono diversi messaggi che puoi mandare. Cerca quello che ti
interessa sull'sdk di windows: c:\programmi\filecomuni\borlandshared...
2.2. Se la finestra è visibile puoi simulare lo spostamento del mouse su di
essa e il conseguente click. Sempre nello stesso sdk di prima cerca la
funzione "MouseEvent".
3. Forse l'sdk è avviabile anche da dentro l'ide di delphi. Scusa, ma uso
poco l'ide.
Ciao
Giuseppe



grazissime!


Newsgroup: it.comp.lang.delphi
Titolo: D7-QuickReport e PDF

Salve
ambiente D7 + Quick Report
Riesco a salvare il report in formato PDF utilizzando
le risorse messe a disposizione da QR, ma non
so come fare a proteggerlo con una password.
Mi sembra che non ci siano proprietą al riguardo.
Grazie
GP 

uhm...la vedo dura...devi x forza passare da qr?
A.

 A.
purtroppo si, è una stampa complessa fatta parecchi tempo fa e va inviata
su un server internet per la consultazione remota. La password, anche se è crackabile,
sarebbe pur sempre una sicurezza, almeno per utenti "normali".
La generazione del file PDF è abbastanza semplice, una volta capito come fare, però
non sono disponibili metodi, almeno non sono riuscito a trovarli.
Ciao
GP 

G.P. ha scritto:

Puoi usare EDocEngine che permette il salvataggio di qualsiasi report
in formato Pdf (oltre che RTF, JPEG etc...) . Dai un'occhiata a
http://www.gnostice.com
.
Ciao

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

Ho dimenticato una seconda domanda da profano sui database......
Se devo creare un'applicazione che utilizza dei files DBF, questi files
possono essere gestiti da due postazioni diverse collegate in rete, col solo
BDE?
Grazie ancora, D.

 BDE?
tecnicamente la risposta e' si, si puo' fare. Il dubbio semmai e' un altro:
usare un formato vecchio di 20 anni (il DBF) e un engine ormai dismesso da
Borland (il BDE) pensi sia opportuno?
Ciao, Sandro

 ha scritto nel messaggio
news:bpeqqb$1o72r5$1...@ID-43509.news.uni-berlin.de...


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

Ciao NG!
E' possibile catturare le chiavi "figlie" di una chiave del TRegistry?
Nel mio caso specifico dal ramo 
"HKEY_LOCAL_MACHINE\SOFTWARE\ODBC\ODBC.INI"
vorrei estrapolare tramite un loop l'elenco degli ODBC installati nel
mio PC.
Grazie a tutti,
Dario
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

Dai un occhio a GetKeyNames (è un metodo dell'oggetto TRegistry) e
metodi correlati.
Ciao, Rocco
Newsgroup: it.comp.lang.delphi
Titolo: typecast double sbagliato?

Scusate la domanda banale, ma non capisco come mai la condizione
if (VersioneDBOrigine <= 1.30) then ...
FALLISCE SEMPRE, nonostante VersioneDBOrigine sia di tipo double.
Da debug vedo che il confronto fallisce perche' esegue
if (1.3 <= 1.30)
ma non capisco perche', trattandosi di double, l'espressione a destra viene
valutata come "1.30" anziche' 1.3
In che cosa sbaglio?
-- 
Morde. 
(morde at programmer dot net)

FALLISCE SEMPRE, nonostante VersioneDBOrigine sia di tipo double.
Perché probabilmente ci sono errori di round-off.  I numeri reali sono
rappresentati internamente come floating-point a dimensione fissa.
Bisogna tener presente che i double NON sono adatti a rappresentare
informazioni che devono essere precise (la versione di un DB, invece,
è un'informazione precisa).  Per intenderci, una versione
1.30000000001 è diversa da 1.3.  Uno dei motivi per cui i double non
vanno bene per rappresentare valori monetari.  L'assunto è che un
double rappresenta sempre un'approssimazione del valore reale.

 valutata come "1.30" anziche' 1.3
Se la tua inforamzione utile non va oltre la seconda decimale ti consiglio
di moltiplicare il valore per 100, troncare ad intero e paragonare con 130.

double rappresenta sempre un'approssimazione del valore reale.
Grazie per i chiarimenti, Andrea, ma allora cosa dovrei utilizzare per gestire
un'informazione simile? 


di moltiplicare il valore per 100, troncare ad intero e paragonare con 130.
Consiglio accettato, grazie :)


un'informazione simile? 
Degli interi.

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

Ciao a tutto il NG
Sapete dirmi come posso convertire un'immagine contenuto della clipboard in
un TJPEGImage?
grazie e ciao!
--
Andrea -=Bleed=-  .,-:: 
and...@libero.it
 ::-,.
-----------------------------------------------------------
Ladies and gentleman
Step right up and see the man who bought the truth

 grazie e ciao!
var
  jpg : TJPEGImage;
...
jpg.Assign(Clipboard);
-- 
Roberto Lupi

 --
avevo già provato, ma non funziona
ho visto però che è presente la funzione LoadFromClipboard, ma non capisco
che parametri settare)


ah, grazie comunque, ho fatto da solo
ciao!

Newsgroup: it.comp.lang.delphi
Titolo: AIUTO: Scrittura nel registry

Ho la necessità di inserire dati nel registry di windows: come faccio?

 Ho la necessità di inserire dati nel registry di windows: come faccio?
uses Registry;
  with TRegistry.Create do begin
    RootKey := HKEY_CURRENT_USER;
    OpenKey('\Software\LAMIACARTELLA',True);
    WriteBool('ValoreBoolean',True);
    WriteString('ValoreStringa','LaMiaStringa');
    Free;
  end;
penso vada bene per darti un'idea
Newsgroup: it.comp.lang.delphi
Titolo: Caricare un file html da explorer

Devo caricare da una voce del menu un file html, che venga aperto in explorer,
sapete dirmi come e possibile realizzare tale comando?
grazie a tutti
-- 
Posted from 
linux-aula.dipmat.unipg.it
 [141.250.5.200] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 grazie a tutti
hai provato direttamente con l'api "ShellExecute" ?
Ricordati di includere l'unit shellapi tra le uses.
Ah......non è detto che parta explorer, ma di norma dovrebbe avviarsi il
browser predefinito per la lettura dei documenti html.
Se hai problemi con l'api, scrivi nuovamente.
Ti saluto....ciao !!
Antonio Tarolla

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

Newsgroup: it.comp.lang.delphi
Titolo: Garbage collection delle stringhe Delphi

Salve a tutti.
Ho un piccolo dubbio sulla gestione in memoria delle stringhe Delphi.
Se ho questo codice:
procedure Test;
var
	S: string;
begin
	S := 'Prova delle stringhe';
	S[5] := #0;
	//SetLength(S, 0);
end;
Il sistema rilascia automaticamente TUTTA la stringa, anche se contiene 
un #0, oppure devo per forza decommentare l'ultima istruzione, per 
liberare la memoria?
Saluti
P.86

 liberare la memoria?
Il "memory manager" di Delphi si occupa automaticamente della gestione 
delle variabili *string*. Non hai bisogno di effettuare alcun rilascio 
manuale della memoria.
Ciao,
   Marco.
-- 
MARCO BREVEGLIERI
  (
http://www.marco.breveglieri.name
)


Per l'esperienza che ho rilascia tutta la memoria. Per toglierti il dubbio
prova a porre S[1]:='a'; dovrebbe darti errore.
Ciao giorgio

 prova a porre S[1]:='a'; dovrebbe darti errore.
Veramente, su Delphi 2006 funziona benissimo (in effetti, questo succede 
talvolta in C, a seconda del compilatore, ma non mi č mai successo in 
Delphi...).
Per quanto riguarda la risposta di Marco, devo dire che sapevo che il 
memory manager rilascia automaticamente le string: non sapevo perņ 
*quanto* fosse intelligente, e cioč se le rilasciasse SOLO fino al 
terminatore nullo (non sono riuscito a trovare niente a riguardo nella 
documentazione).
Grazie a entrambi per le vostre risposte!
P.86

 documentazione).
Il memory manager ha una "rappresentazione personalizzata" delle 
stringhe, con un formato interno particolare, e le trasforma in stringhe 
"null terminated" solo all'occorrenza (ad esempio, cast a PChar e casi 
simili).


Chiedo scusa non avevo visto le barre del commento in SetLength.
Le strighe delphi accettano qualunque carattere e anche se inserisci un #0 
all'interno la lunghezza non viene risotta automaticamente, anche se 
visualizzandola magari non compaiono i caratteri che lo seguono: con 
Length(s) puoi verificarlo.
Pensa che spessisimo, per la loro praticita' in D3, dove non c'erano gli 
array a lunghezza variabile, le usavo come buffer generico di byte, usando 
il SetLength ed il Move per spostare i byte.
Ciao Giorgio
Newsgroup: it.comp.lang.delphi
Titolo: OpenGL

Qualcuno usa OpenGL12.pas, traduzione degli header OpenGL 1.2? Sia da soli
che in congiunzione con GLScene, dopo la compilazione e durante l'avvio di
un programma, una volta sì e una no mi dà un access violation con tanto di
finestrella debugger e CPU. Se ignoro e mando avanti con F9, funziona tutto,
salvo ripresentarsi dell'access violation più tardi. Capita anche a voi?
Massimiliano 

A me è successo.. Purtroppo non ho trovato una soluzione...
Però solitamente se fai partire il file .exe subito dopo della compilazione
(invece di fare RUN), parte senza bloccarsi.
Ciao !            {MSX}

Vero! Se, come pare, queste comparse del debugger non sono critiche, ci sarà
qualche modo per disattivarle? Che so, da opzioni o con qualche direttiva
nel sorgente...
Massimiliano

Newsgroup: it.comp.lang.delphi
Titolo: BARI O Prov.: Cerco programmatore

Salve, 
a Bari o provincia cerco un programmatore esperto disponibile, per
realizzazione piccolo programma di carattere statistico. ( tempo
stimato: una giornata circa...).
Grazie
Francesco
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 ha scritto nel messaggio
news:ea2e67e04759c239640...@mygate.mailgate.org...

Io sono una programmatrice Delphi e forse ti potrei aiutare.
Di cosa hai bisogno esattamente?

Newsgroup: it.comp.lang.delphi
Titolo: confronto extended - money





ho un problema relativo al confronto di due valori, 
uno deriva da un campo money di una tabella creata con SQL Server 7 e l'altro da 
un campo Extended calcolo. fino a che si trattava di valori interi (espressi in 
lire) non c'era nessun problema. adesso con gli euro con due decimali 
confrontando i due valori, con valore1<>valore2  (apparentemente 
uguali esempio: 1637.25 e 1637.25 (ho i due campi arrotondati ai due 
decimali)).


qualcono mi sa dare una mano.


 


ciao e grazie, come 
sempre



 wrote in message
news:000201c12022$45dd6a40$ee570b3e@o9u7y3...

Newsgroup: it.comp.lang.delphi
Titolo: Query campi incrociati

Il codice di cui sotto,quando faccio partire la procedura mi da' il seguente 
messaggio di errore:
Argument expected for function 'Sum',
qualcuno mi puo' indicare dove devo intervenire,questa procedura crea una 
vista a campi incrociati usando il componente TabsQuery o TQuery.
Grazie
Luigi
Procedure CrossTab(Query1:TabsQuery; SQLCommand, RowField, RowTitle, 
ColField , SummaryField:STring;  Operation:String='Sum');
Var Str, Value : String;
Begin
   With Query1 do Begin
      DisableControls;
      Screen.Cursor := crSQLWait;
      Try
        Close;
        SQL.Text := 'SELECT DISTINCT '+ColField+' FROM ('+SQLCommand+')';
        Open;
        If RowTitle = '' Then RowTitle := RowField;
        Str := 'SELECT '+RowField+' as ['+RowTitle+'],';
        While not Query1.Eof do Begin
           Value := Query1.FieldByName(ColField).AsString;
           If Value='' Then Value := 'NO';
           Value := StringReplace(Value,'.','_',[rfReplaceAll]);
           Str := Str + Operation+'( 
IIF('+ColField+'="'+Value+'",'+SummaryField+') ) as ['+Value+'],';
           Query1.Next;
        End;
        Str := Str + ' '+Operation+'('+SummaryField+') as Total';
        Str := Str + ' FROM ('+SQLCommand+')';
        Str := Str + ' GROUP BY '+RowField+' ORDER BY '+RowField+'';
        Query1.Close;
        Query1.SQL.Text := Str;
        Query1.Open;
      Finally
        Screen.Cursor := crDefault;
        EnableControls;
      End;
   End;
End;
procedure TForm1.Button1Click(Sender: TObject);
    Var FSQL : STring;
begin
    FSQL := 'SELECT * FROM TMia';
CrossTab(Query1,FSQL,'Stato','Stato','Prodotto','Qt','Sum');
    end;
end. 

>>>         Str := Str + ' '+Operation+'('+SummaryField+') as Total';
Pax vobiscum.
A.

Ti ringrazio per i suggerimenti,che devo ancora provare,comunque quello che 
tu hai chiamato campi non lo sono,ma fanno riferimento a colonne e righe.
In ogni caso provando e riprovando ho visto che l'errore sta nellla riga di 
cui sotto esattamente al punto IIF(o IF).
Usando un altra routine con un altro approccio c'è sempre l'IIF che mi da 
errore,se uso invece la clausola Case when then
la cosa funziona,ripeto pero' che si tratta di una routine del tutto 
diversa.
Grazie di una eventuale risposta
Luigi
N.B.Se
 disattivo questo spezzone i campi incrociati vengono creati,ma i 
totali sono uguali per tutti!!
      Str := Str + Operation+'
//Errore// ( IIF('+ColField+'="'+Value+'",'+SummaryField+') ) as 
['+Value+'],';
           Query1.Next;
Newsgroup: it.comp.lang.delphi
Titolo: Formattazione

Salve a tutti!
Ho una domanda che per voi sarà sicuramente banale.
Su un report di Delphi3 ho un componente QRDBText che deve
visualizzarmi un giorno della settimana, e per questo ho impostato la
proprietà Mask = dddd.
Domanda: Come faccio a visualizzare il valore in maiuscolo?
Saluti
  Stefano

 Domanda: Come faccio a visualizzare il valore in maiuscolo?
Usa la funzione UpperCase.
Ciao.
Marco D.T.

Ho già provato ma purtroppo non funziona.
Il motivo potrebbe essere che all'interno del valore compare il
carattere ì? (es: lunedì)

 carattere ì? (es: lunedì)
io in un caso analogo ho risolto richiamando la funzione nell'evento on
print del la QRDBText e non ho avuto problemi, ciao.
procedure TReportSettimana.QRDBText6Print(sender: TObject;
  var Value: String);
begin
  Value := Uppercase(Value);
end;

 carattere ì? (es: lunedì)
Se usi UpperCase, il risultato è (ovviamente) "LUNEDì".

Grazie Brunello!
Avevo commesso un errore io nel codice, ora però ovviamente il
problema è quello a cui si riferiva Andrea.
A questo punto gestisco io l'ultimo carattere visto che il valore del
componente sarà sempre un giorno da Lunedì a Domenica.
Grazie ancora!
Saluti
  Stefano
Newsgroup: it.comp.lang.delphi
Titolo: DriveListBox

>
Usando il DriveListBox, se mi posiziono su un drive che non contiene nessun
supporto (es: un drive floppy senza dischetto, un lettore CD-ROM senza CD,
e
via discorrendo)...mi dà un errore " I/O error 21 "...da qui la
domanda...come gestisco gli errori che mi vegono generati...??...altri
errori infatti potrebbero essere un tenativo di scrittura su un unità a
sola
lettura...e....ecc.ecc.
Inoltre nel caso dei suddetti errori è possibile mostrare i Dialog standard
di Windows?
<<
L'eccezione nasce da TDirectoryListBox.DriveChange; in NT viene mostrata la
solita Abort/Retry/Ignore e _dopo_ l'eccezione Delphi I/O Error 21.
Per intercettare l'errore credo dovresti usare Application.OnException.
hth
Paolo Arosio

Devi gestire le eccezioni con il costrutto:
try
  ...
except
....
finally
...
Visto che penso che non ne conosci il funzionamento dai un'occhiata al
libro o al manuale che usi per imparare il Delphi.
Ciao ciao
Lawrence Oluyede
rhy...@tiscalinet.it
"Per cambiare, 
per diventare un' altra cosa
dobbiamo prima sapere cosa siamo"
Bruce Lee


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

Ciao Ragazzi,
ho Delphi 6.0 Personal e ho tentato di installare il componente KaDao 7.1
Quando installo il package però Delphi non riesce a trovare la libreria
"vcldb" e altre librerie legate ai database, questo perchè (come ben sapete)
in Delphi 6.0 Personal mancano i componenti DB.
Cosa mi consigliate?
Grazie.


devi installare la versione per delphi personal
ciao

"Mljet Dubrovnik" ha scritto nel messaggio
| ho Delphi 6.0 Personal e ho tentato di installare il componente KaDao 7.1
|
Con la Personal devi usare i componenti KADaoPE.
--
Ciao.
ACSH
[D4]
---------------------------
Chi fa da se'
fatica il doppio
Newsgroup: it.comp.lang.delphi
Titolo: Stampa in millimetri

Come fare per stampare misurando dei millimetri invece che dei pixel ?
L'oggetto primter ha tutte le misure in pixel e non ho trovato delle
funzioni di conversione.
(perdonatemi se la risposta e' banale ma sono un novello).
Grazie a tutti

 funzioni di conversione.
Perchè non usi quickreport ?



 Perchè non usi quickreport ?
hey! ti ho detto che odio le ripetizioni!! :-)))))))
byez
Alan Solo

>
Come fare per stampare misurando dei millimetri invece che dei pixel ?
L'oggetto primter ha tutte le misure in pixel e non ho trovato delle
funzioni di conversione.
<<
Puoi convertire le misure da pixel in mm dopo aver chiamato:
ppix := GetDeviceCaps(    // pixel per inch
    Printer.handle,     // device-context handle
    LOGPIXELSX          // e LOGPIXELSY
   );
ppmx := ppix / 25.4;    // Pixel per mm
oppure, vedi sull'help di win32 "Coordinate Space and Transformation"
hth
Paolo Arosio
// ----------------------------------
var PixelPerMilX    : double;      // pixel per millimetro ORIZ
    PixelPerMilY    : double;      // pixel per millimetro VERT
    LineHeight      : integer;     // altezza linea default
    PrintVertPos    : integer;
procedure InitPrintVars;
begin
 
Printer.Canvas.Font.Name
 := 'Arial';
        Printer.Canvas.Font.Size := 12;
        Printer.Canvas.Font.Color := clBlack;
        Printer.Canvas.Font.Style := [];
        PixelPerMilX := GetDeviceCaps(Printer.Handle, LOGPIXELSX)/25.4;
        PixelPerMilY := GetDeviceCaps(Printer.Handle, LOGPIXELSY)/25.4;
//      LineHeight := round(1.15*Printer.Canvas.TextHeight('X'));
        LineHeight := round(5*PixelPerMilY);
end;    {InitPrintVars}

,

Sent via Deja.com 
http://www.deja.com/
Before you buy.




Newsgroup: it.comp.lang.delphi
Titolo: E il download di Delphi7 Personal??

Scusate, salve a tutti, è la prima volta che posto qui nonostante sia da
svariati anni (ben 8) che programmo in Pascal, Delphi ecc...
Volevo una info +ttosto urgente, io fino a poco tempo tempo fa (e tutt'ora)
sto usando la versione 6 Personal del delphi e a me va benissimo.
Avendo da sviluppare applicazioni che richiedano anche una certa interfaccia
grafica adeguata sotto piattaforma XP stavo cercando la versione 7 Personal
che include queste migliorie.
Domanda: Come mai i signori della Borland, a differenza della 6 non ci fanno
scaricarare una versione Personal della 7?? E dove si potrebbe reperire
(mano al portafogli esclusa)??
Saluti a tutto il newsgroup.
-<] DreamWolf [>-

 wrote in message
news:Cg_X9.99643$AA2.4...@news2.tin.it...



Se non funziona il link clicca qui: 
http://makeashorterlink.com/?J5DE13433
Ciao.. che ne dici di partecipare anche tu al ng??
;-)
Morde.
morde [at] programmer [.] net
Newsgroup: it.comp.lang.delphi
Titolo: IBX FieldByName e interi 64 bit

In firebird posso avere un campo id a 64 bit, quindi come faccio a
leggerlo?
Per ora l'unica soluzione che ho trovato è
var id:Int64;
begin
 id:=strtoint64(MioDataset.FieldByName('ID_MIATABELLA').AsString);	
in google ho trovato delgi "AsInt64" ma non mi sembra si possano
applicare al mio problema.
Per quanto la mia soluzione funzioni, mi sembra strano che non ci sia
una funzione già predisposta.
In secondo luogo, Dove posso trovare documentazione sui componeti
standard per interbase. la guida di delphi mi sembra molto scarna.
Google risolve, ma è dispersivo

 id:=strtoint64(MioDataset.FieldByName('ID_MIATABELLA').AsString);	
Sono ancora curioso di sapere se esiste una soluzione migliore, ma
alla fine il problema si è rilevato inesistente..
L'ID mi serviva per utilizzarlo in una query SQL e alla fine per
costruire lo statement sql me lo sarei dovoto riconvertire in
stringa.... Quindi Ho evitato la fatica della doppia conversione  e me
lo sono tenuto come stringa.
Newsgroup: it.comp.lang.delphi
Titolo: DBGrid

Ciao a tutti,
    ho una form con una griglia (dbgrid) agganciata al suo bel dataset e i 
campi che devono essere visualizzati .... vengono visualizzati corretamente.
Tuttavia ho la necessita' di "personalizzare" alcune stringhe prima che 
vengano inserite nelle celle.
Il problema e' che non so che evento intercettare per poter cambiare la 
stringa da scrivere.
Grazie per l'aiuto,
Ciao, Daniele 


Se ho ben capito quello che vuoi dire è che vengano modificati alcuni
record all'avvio prima che venga visualizzato l'intero DataSet. Secondo me
non c'è bisogno di gestire nessun evento della DbGrid, ma solo quello
OnCreate della Form in questo modo:
procedure TForm1.FormCreate(Sender: TObject);
var
  I: Integer;
begin
  with ClientDataSet1 do
    begin
      // Apro prima il database essendo chiuso(Active = False)
      Open;
      for I := 0 to (Fields.Count - 1) do
        // Modifico ad esempio la prima stringa della seconda colonna !!!
        if (I = 1) then
          begin
            // Imposto lo stato del dataset in modalità di modifica !!!
            Edit; 
            // Modifico la stringa !!!
            Fields[1].AsString := 'Modified'; 
            // Visualizzo tutto il dataset sulla DbGrid !!!
            Active := True;
          end;
    end;
end;
Ciao.
--- posted by geoForum on 
http://www.delphiedintorni.it

Ciao e grazie per la rapida risposta ....
Quello che mi hai proposto e' stato gia' vaňutato e scartato perche' le 
stringhe memorizzate nel DB servono cosi' come sono e vanno cambiate solo 
nella visualizzazione.
Mi spiego meglio, i prodotti consegnati vengono etichettati con numeri 
progressivi indicanti il numero di entrata e l'anno nel formato
12/2008
dove 12 e' il numero progressivo del prodotto in entrata e 2008 e' la data.
A volte viene aggiunto anche un suffisso indicante a quale reparto viene 
assegnato e diventa 1/12/2008
Questo DB viene esportato in excell e la stringa 1/12/2008 viene 
interpretata come una data, cosi' prima di salvare il record il carattere / 
viene sostituito con |.
Nella griglia si deve visualizzare 1/12/2008 (o 12/2008) e non 1|12|2008 (o 
12|2008) senza andare a modificare tutti i record (che non sono pochi).
Grazie di tutto
Ciao
Daniele 

"Daniele" ha scritto nel messaggio

Esistono gli eventi OnGetText e OnSetText in ogni campo.
Ciao
-- 
ACSH
[TurboDelphi]
Chi fa da se', fatica il doppio
Newsgroup: it.comp.lang.delphi
Titolo: adotable e campi memo

Salve, qlcn ha avuto dei problemi con ado ed i campi memo?
Io le ho provate tutte e funziona tutto tranne quando inserisco un campo
memo e cerco di modificare/aggiungere records al DB mi da errore e se
cancello mi cancella anche i 3 record successivi a quello corrente.
Ciao. Spero qlcn ne sappia qlcs.

 ha scritto nel messaggio
news:cJSP6.11208$WT5.4...@news.infostrada.it...


Newsgroup: it.comp.lang.delphi
Titolo: IdHTTP e interfaccia grafica

Salve,
tramite il metodo Get del componente citato in oggetto scarico dalla rete un
file di dimensioni piuttosto consistenti.
Tutto funziona perfettamente se non fosse che il download sembra attivarsi
in modalità sincrona per cui il ridisegno dell' interfaccia diventa
tremendamente lento, finchè l' interfaccia utente diventa completamente
inutilizzabile. Esiste qualche proprietà per attivare il download in
modalità asincrona? Sono costretto a decentrare il codice interessato su un
thread secondario? Se la soluzione fosse solo quest' ultima ci sarebbero
problemi ad effettuare il ridisegno della progressbar presente sul Form?
TIA
--
- Carlo -


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

 versione 7).
Tu hai mai utilizzato il componente che mi hai suggerito? Lo sto provando
adesso per la prima volta e sembra fare "qualcosa" ma i risultati son tutt'
altro che quelli sperati.
Ora sembra che il main thread riesca a servire, almeno parzialmente, la sua
coda dei messaggi per cui l' effetto freeze si avverte di meno. Per contro
sembra che la progressbar con indicatore del download in corso non funzioni
piů: l' avanzamento della stessa č affidato al metodo OnWork di IdHTTP.
Esiste forse qualche parametro da settare su IdAntiFreeze?
Dando un' occhiata ho visto un paio di parametri che potevano essere
interessanti ma cambiandoli non ho ottenuto nulla!
Ciao!
--
- Carlo -

 risultati son tutt' altro che quelli sperati.
Ne abbiamo fatto utilizzo in un'applicazione preposta all'attivazione
via Internet di un prodotto.
Da quello che ho letto sulla Guida in linea a suo tempo, credo che abbia
solamente il compito di "lasciar passare" alcuni messaggi della coda
relativi al refresh, in modo insomma di avere sempre la form ben
visibile (e non bianca, come se l'applicazione fosse bloccata), in modo
che l'utente non venga tratto in inganno e cerchi di chiudere
l'applicazione pensando che questa sia irrimediabilmente in stallo.
Non so bene però come possa influire il componente sulla gestione degli
eventi legati ad altri controlli visuali...sicuramente, avrai già
provato a forzare un Update della ProgressBar all'interno dell'evento
OnWork?


 OnWork?
Ok, mea culpa.
Il problema del controllo visuale non esiste; mentre aspettavo una tua
risposta avevo decentrato alcune parti di codice in thread secondari tra cui
quella della progressbar. Il thread però era creato in modalità suspended e
non lo avevo risvegliato (logico che la barra non progredisse! :-)). Ora ho
risolto.
Grazie!
--
- Carlo -
Newsgroup: it.comp.lang.delphi
Titolo: Classe ---> OCX

Ho un quesito per voi esperti.
Se realizzo una classe completa in Delphi, poi è possibile creare da 
questa un OCX utilizzabile direttamente da (urgh!) Visual Basic senza 
passare per alcuna declare?
Per precisare, non voglio creare una DLL con alcuni metodi esposti, 
quello lo ho già fatto, carino ma non basta. Vorrei, dentro VB, 
istanziare oggetti dalla classe Delphi (ammettendo di farla senza 
costruttori parametrici, con tipi dati validi per entrambi i linguaggi, 
etc etc, in modo che non ci siano problemi per le note limitazioni di VB)
Grazie a tutti!
--
Gio_F - mailto:
jg...@tiscalinet.it

etc etc, in modo che non ci siano problemi per le note limitazioni di
L'unico tipo di classe che vb accetta è il modulo di classe, che è la presa
per i fondelli che zio billy dai ai programmatori vb per fargli credere che
lavorano in OOP.
Quindi, onestamente, non credo si possa fare.
Ma una domandona sorge spontanea: a che pro tutto cio?
Pensi di scrivere un qualcosa che funzioni sia con delphi che con vb?
Saluti
AS

 passare per alcuna declare?
Un oggetto COM?
Ciao :-)
--
(¯`·.¸¸.·´¯`·.¸¸.-> Andrea <-.¸¸.·´¯`·.¸¸.·´¯)
AntiSpam: rimuovere il trattino basso dall'indirizzo per rispondere
AntiSpam: remove the underscore from the e-mail address to reply

, 
ama...@energy.it
 
says...

sì, effettivamente credo che sia quello l'unico metodo. Si possono creare 
con delphi (dimmi di sì...) ?
hai dei link o della documentazione?
Ciao!


hai dei link o della documentazione?
Se vuoi documentazione su COM e COM+ la trovi al sito microsoft
(
www.msdn.microsoft.com
), oppure consulta il capitolo 15
(Programmazione COM) su "Programmare con Delphi 5" di Marco Cantu'.
--
Andrea Laforgia (
andrea_...@bigfoot.com
)
"There is nothing better for understanding a kangaroo than seeing it jump."
[D.Grune, C.J.H. Jacobs]

 hai dei link o della documentazione?
C'č un libro in rete di K.Reisdorph (Teach yourself Borland Delphi4 in 21
days) l'url dovrebbe essere questo:
http://www.pbs.mcp.com/ebooks/0672312867/index.htm
Se non ricordo male c'era un capitoletto su COM con creazione di un oggetto
semplice semplice [ma mi ha deluso un po']...
Mi hanno appena consigliato un libro su COM per Delphi, se lo trovo ti
spedisco gli estremi per bene...
Io sono un absolute beginner di COM quindi non so quanto potrei esserti
utile .. :-)
Ciao :-)
--
Andrea Magni
E-Mail: 
ama...@energy.it

 
il sito non va...


 
grazie. hai per caso qualche esempio anche banale?
Grazie!


 
si, questo era l'intento. Ma allora le classi esterne di VB con cosa si 
realizzano?

Newsgroup: it.comp.lang.delphi
Titolo: mentre copio un file voglio far apparire una barra di stato

che mi indica il livello di avanzamento dell'operazione.
COME POSSO FARE? grazie
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 COME POSSO FARE? grazie
Se usi SHFileOperation() c'è una flag che ti permette di impostare questa
opzione.
Ciao
--
- Carlo -
cbertu81(at)libero(dot)it

 che mi indica il livello di avanzamento dell'operazione.
sui soliti siti (Torry, DSP...) trovi quello che cerchi tu (uno che avevo 
scaricato si chiama TFileCopy).
Cmq io utilizzerei due TStream, uno sorgente (Source) e uno destinazione 
(Dest) e copierei per blocchi di byte. Per sapere la percentuale 
dell'avanzamento basta verificare prima quanti blocchi ci sono in Source 
colla proprietą Source.Size. Poi in base a Source.Position stabilisci a che 
punto della copia ti trovi e adegui la proprietą TProgressBar.Position. La 
copia viene fatta con il metodo di TStream
  function CopyFrom(Source: TStream; Count: Int64): Int64;
Guarda sulla guida TStream e TFileStream ed esamina i sorgenti di un 
qualsiasi componente che fa la copia di file e ti chiarirai le idee.
-- 
Mauro Falzari.
"Se guardi nell'abisso, anche l'abisso guarda in te."
(Friedrich Nietzsche)

Newsgroup: it.comp.lang.delphi
Titolo: Testi per iniziare

Salve.
Ho deciso di 'dare un'occhiata' a Delphi ( ho la versione 4) .
Conosco Visual Basic e C/C++ ma non il Pascal , cosě oltre ad
imparare Delphi devo imparare anche il Pascal.
E' consigliabile partire dal Pascal ISO oppure dal Turbo Pascal ?
Qualcuno potrebbe consigliarmi un buon manuale 'propedeutico' ?
Ciao e grazie

Qualcuno potrebbe consigliarmi un buon manuale 'propedeutico' ?
www.marcocantu.it
 scaricati Essential Pascal
----
Lawrence "Rhymes" Oluyede
rhy...@myself.com

Newsgroup: it.comp.lang.delphi
Titolo: Errore su edit di tabella

Salve a tutti, premesso che sono un neofito di Delphi, non riesco a
capire l'errore seguente. Ho una tabella attiva in cui grazie ad un
insert ho già creato un record con dei campi già compilati.
Se voglio riempire gli altri campi (l'utente scrive su una grid e
faccio scattare l'evento onkeypress su enter) faccio una edit, ma mi
sorge il seguente errore "la tabella non è in modalità insert o edit".
Qualcuno sa quale può essere un possibile errore?
D'altronde la tabella è veramente in stato browse ma credevo che con
il comando potessi cambiargli stato a mio piacimento.
Grazie a chiunque possa indicarmi una soluzione o cmq qualche
suggerimento..
Ciao Ciao
Andrea

 Andrea
-- 
Ciao, Anto', [37, 143, AQ] 
MB C SC 220 CDI Magma Rot
"Di sempre cio' che senti e fai cio' che pensi."
    G.G. Màrquez

 Andrea
Lo dice la parola stessa...la tabella non è in edit !!
Basta fare un:    tabella.edit;    e poi continuare
a caricare i dati nell'archivio.
Ciao
Martina
Newsgroup: it.comp.lang.delphi
Titolo: migrazione da ReportBuilder

Intanto salve a tutti.
Arrivo subito al sodo, ho in progetto di lavorare sul pacchetto open source
Mosaico in modo da slegarlo da tutti i pacchetti commerciali, così da
renderlo pienamente disponibile per chiunque decida di sviluppare procedure
basate su di esso , senza la necessità di dotarsi di componenti a pagamento.
Lo scoglio più duro sono evidentemente i reports...
La difficoltà da superare è trovare il modo di migrare i reports fatti con
ReportBuilder in un software di reporting open source, cercando di
recuperare il + possibile in automatico i reports originali...
Qualcuno mi da qualche speranza o inizio subito a rifare tutti i reports a
mano ?
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

 ReportBuilder in un software di reporting open source.
Mi dispiace non saperti aiutare, sono interessato pero' al software 
OpenSource per generare i Report e appunto mi chiedevo che prodotto 
utilizzi.
Ciao Obelix

Newsgroup: it.comp.lang.delphi
Titolo: Indy per Delphi 7 e Kylix 3 - HELP!!!

Secondo voi le versioni fornite con Delphi 7 e Kylix 3 sono le solite? Se
sviluppo un'applicazione CLX in delphi con le indy di corredo...posso andare
tranquillo su Kylix 3?

tranquillo su Kylix 3?
Che io sappia, i componenti sono installabili fino a Kylix 2.
-- 
Andrea Laforgia - a.laforgia(at)
libero.it
"There are three kinds of people in this world; 
 those who are good at maths and those who aren't".

 Che io sappia, i componenti sono installabili fino a Kylix 2.
Per Kylix 3 nessuna notizia?

 Che io sappia, i componenti sono installabili fino a Kylix 2.
Cosa intendi? Che non si possono aggiornare?
Io ho Kylix3... e ha già installato di default i componenti Indy che se 
non sbaglio sono identici a quelli di Delphi 7.
Ciao,
   Luca

Cosa intendi? Che non si possono aggiornare?
Intendo che la Nevrona riporta solo "Kylix 2" nei rilasci della
versione 9 (che è l'ultima ufficiale).


 versione 9 (che è l'ultima ufficiale).
Ho controllato, Kylix 3 ha le Indy 9 installate di default (almeno 
questa è la versione segnalata nell'Help delle stesse).
Ciao,
   Luca

Ho controllato, Kylix 3 ha le Indy 9 installate di default 
Vista la novità di Kylix, c'era da immaginarselo.  
E` probabile che Nevrona non abbia ancora aggiornato il sito.


Newsgroup: it.comp.lang.delphi
Titolo: Creare GIF animate

Salve,
come creo delle GIF animate.
Devo creare una gif animata cosi' fatta: una frase inserita
dall'utente, le cui lettere si illuminano in sequenza.
GRAZIE 1000
faf...@tiscalinet.it

Ci sono molti software free per creare gif animate.
Vedi su volftp o altri siti free.
Saluti
AS
"Se è Microsoft non funziona"
Newsgroup: it.comp.lang.delphi
Titolo: mail autocancellante

vi è un modo per produrre una mail (o un qualsiasi documento) che una volta 
letto si autodistrugga? 

1) non credo
2) cosa c'entra delphi?
AS

 letto si autodistrugga?
Non e' possibile perche' non previsto dalla RFC che ne descrive il
protocollo: che io sappia e' solo possibile con gli sms (siano essi flash o
wap).
ciao
-- 
Morde. 
ICLDweb: 
http://www2.samatel.com/icld/

 ha scritto nel messaggio 
news:43ab16c9$0$1078$4faf...@reader3.news.tin.it...


 2) cosa c'entra delphi?
sul due: niente 

 ha scritto nel messaggio 
news:ncvzu7pkm6li$.hr8c350gn0oi$.dlg@40tude.net...


Newsgroup: it.comp.lang.delphi
Titolo: Eccezione nell'inserimento in db

Salve,
ho cominciato da poco ad utilizzare Delphi 4...
Sto realizzando  una piccola applicazione che gestisce un database Access
come prova...
Ad esempio ho composto un form per inserire dei dati in una tabella del db:
Dopo aver utilizzato i componenti Table e Datasource correttamente ho
utlizzato un Edit box per digitare il campo da inserire nella tabella
collegata...
La tabella in questione ha un solo campo testo e la chiave č gestita
automaticamente da Access con un contatore, per questo motivo per realizzare
l'inserimento ho gestito l'evento OnClick di un Button ("Inserisci"):
Ho usato i metodi: di Table:
.append
.Fieldvalues
.Post
L'inserimento funziona cosi' senza problemi...
Il problema riguarda la necessitą di gestire l'eccezione sollevata quando si
tenta di immettere nella tabella un dato gia' presente (la duplicazione dei
dati non č accettata dal mio db).
Ho cercato nell'help online di Table ed ho trovato questi eventi che mi
sembravano potessero essere indicati:
OnPostError
OnEditError
Purtroppo le mie prove da smanettone non hanno sortito i risultati
sperati...
Qualcuno mi potrebbe indicare la giusta via per gestire correttamente questo
tipo di eccezione ?
Grazie.

una alternativa agli eventi e ' data dal costrutto try-except:
try
    MyTable.Post
    except
    on exception do
        begin
        Showmessage('Qualcosa è andato storto!')
        end;
    end;
In partica, se il try (post) fallisce, viene eseguito il blocco except.
Se vedi sull help 'sta cosa e'spiegata abbastanza bene.
Saluti & buon lavoro
PS: Perche' usare MsAccess e non paradox?

QuickReport 3.0 Standard is bundled with Delphi 4. Serious developers will
want to tap the full power of QuickReport. The following is included when
you order QuickReport 3.0 Professional
lor...@novi.it
Newsgroup: it.comp.lang.delphi
Titolo: Intercettare i tasti di Windows

Ciao a tutti,
   mi trovo con la necessitą di ridurre un programma ad icona nella SysTray
(vicino all'orologio, per capirsi). Per ripristinare a finestra tale
programma uso il mouse ma mi č stato sichiesto di poterlo riavviare anche
con una specifica sequenza di tasti.
Io non so come fare anche se credo si debba fare in modo che il mio
programma intercetti i tasti di windows e a quel punto tutto diventa facile.
Un grazie anticipato a tutti per gli eventuali suggerimenti.
--
L'esperienza insegna, ma prima bisogna farsela!

 programma intercetti i tasti di windows e a quel punto tutto diventa
facile.
Per questo ci sono gli HotKeys, le combinazioni ... devi crearne una
personalizzata e poi notificarla al sistema (RegisterHotKeys)
Ciao!
--
- Carlo -

Per questo punto c'è ShellNotifyIcon.
Shell_NotifyIcon


E' proprio quello che mi interessa.
Ho provato a guardare "RegisterHotKeys" e fin qui tutto ok ma poi come
faccio a intercettare la pressione del tasto?
Scusate ma non è moltissimo che smanetto con Delphi e comunque mai fino a
questo punto
Grazie mille in anticipo.


 faccio a intercettare la pressione del tasto?
Allora, dall'sdk, ecco il prototipo della registerhotkey, convertito in
formato pascal :
Function RegisterHotKey ( hwnd : hwnd; id : integer; fsModifiers : uint; vk
: uint ) : bool;
Devi intercettare, sulla coda di messaggi della finestra specificata
(tramite handle) da hwnd,
il messaggio WM_HOTKEY
Puoi farlo in + modi, te ne indico 1 :
Nella sezione private della form inserisci una procedura del tipo :
type
  TForm1 = class(TForm)
  private
----->>>>    Procedure handle_wmhotkey (var m : tmessage); message
wm_hotkey;
  public
    { Public declarations }
  end;
E implementala cosě :
procedure TForm1.handle_wmhotkey(var m: tmessage);
begin
 Case M.WParam of   // č l' id dell'hotkey
       1 : begin
            end;
  //   2 : ....
 end;
end;
Per registrare l'hotkey invece basta che fai
RegisterHotKey (handle,ID,MODIFICATORI,VIRTUALKEY);
 // per i valori dei modificatori e del virtual key vedi l'help.
Spero di esserti stato utile.
Ciao, Davide DG
Newsgroup: it.comp.lang.delphi
Titolo: Una dritta per copiare nella directory temp!

Se volessi copiare un file da mettiamo c:\windows nella cartella temporanea
come posso fare?
Sapevo che bisogna passargli il parametro %temp% ma non mi funziona, io ho
fatto cosě:
CopyFile('c:\windows\desktop\miofile.txt',%temp%'miofilecopiato.txt',True)
Mi dice che "%" illegal carachter.
Cosa sbaglio?
GRazie...

 fatto cosě:
GetTempPath mi pare :)
Ciao!
Davide DG.
-- 
All resistance is futile! Prepare to be disassembled !

interface 
 uses *MiŽŠo*; 
 const date = Sun, 12 May 2002 10:16:15 GMT; 

Hai provato con:
CopyFile('c:\windows\desktop\miofile.txt','%temp%\miofilecopiato.txt',True)

Già provato, non fuzniona...

 Già provato, non fuzniona...
The GetTempPath function retrieves the path of the directory designated for 
temporary files.
var buf : pchar;
    buflen : cardinal;
    s : String;
buflen := GetTempPath ( 0, nil );
getmem (buf, buflen+1);
GetTempPath (buflen, buf);
s := buf + '\miofilecopiato.txt';
FreeMem (buf, buflen+1);
CopyFile ( 'c:\windows\desktop\miofile.txt',
           pchar(s), True);
Non l'ho testato, ma dovrebbe andare.
Ciao,
Davide Dg.


Funziona!
Ma se io volessi sapere la directory dove gira windows??


premi su help di delphi scegli windows sdk e trovi queste ed altre
func interessanti.
non mi sono preso la briga di testare se gira, 
ma con la windows nelle uses della tua unit
questo dovrebbe andare. 
1)directory windows 
2)direttori attuale
3)directory windows\system
Il valor viene messo in <<p>>
per trasformarlo in stringa s:=string(p)
var p:pchar;
begin
getmem(p,MAX_PATH+1);
GetWindowsDirectory(p,MAX_PATH);
GetCurrentDirectory(MAX_PATH,p ); //Si i parametri sono invertiti
GetSystemDirectory(p,MAX_PATH);
.....

grazie!
Newsgroup: it.comp.lang.delphi
Titolo: shflieoperation

come si fà per visualizzare il dialog box
per l'istruzione in oggetto?..non riesco.

 ha scritto nel messaggio news:ZMoba.40410$pG1.9...@news1.tin.it...


Newsgroup: it.comp.lang.delphi
Titolo: [d5] ancora sulle eccezioni

ho il seguente codice:
.
.
Application.OnException:=AppErrore.LogErrore;
.
.
procedure TErrore.LogErrore(Sender:TObject;E:Exception);
begin
.
.
.
end
è possibile dalla classe Exception sapere qualè la funzione che ha generato 
l'errore?? ho fatto un sistema per cui dentro LogErrore scrivo su un file di 
testo che l'utente può spedirmi via email, però spesso mi capitano access 
violation che non riesco a replicare e vorrei sapere da dove partono...
Simone 

violation che non riesco a replicare e vorrei sapere da dove partono...
Prova a guardare nella JCL (Jedi Code Library 
www.delphi-jedi.org
).
Contiene una serie di funzioni che utilizzando i simboli di debug
dovrebbero permetterti di trovare le informazioni che cerchi -
l'applicazione va però compilata con i simboli di debug, se non ricordo male.
Tieni presente che per le AV però l'eccezione potrebbe venire sollevata in
codice che non c'entra nulla con l'errore, o dove non c'è codice, e spesso
dipendono da quali valori ci sono nella memoria in quell'istante, e queste
non sono per nulla semplici da replicare...
Luigi D. Sandon - D&amp;D Support Team
--- posted by geoForum on 
http://www.delphiedintorni.it

sai dirmi come si chiama? ho provato a vedere le varie palette ma non trovo 
nessun componente che possa avere le sue sembianze
Simo 

nessun componente che possa avere le sue sembianze
Non è un componente. Non confondere la JVCL (un insieme di
componenti/controlli) con la JCL (una libreria di funzioni/classi non
"visuali"). Prova a dare un'occhiata al codice nelle varie unit JCLDebug...
