mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.delphi
Titolo: Muovere il mouse

Ciao,
volevo chiedervi se qualcuno magari sa come si programma un tool che muove
il mouse e magari clicca anche su delle coordinate.
Grazie

il mouse e magari clicca anche su delle coordinate.
Che problema c'e' ? Basta afferrarlo con la mano destra e spostare 
ques'ultima... ;-)))
Se intendevi il cursore puoi usare SetCursorPos()
Ciao Uberto

Ciao,
per la prima devi utilizzare la SetCursorPos, per quel che riguarda il Click
cosě al volo mi viene una soluzione un po' strana....rilevi l'handle del
componente mediante
la GetWindowFromPoint (mi pare si chiami cosě) e poi invii un messaggio di
WM_LButtondown.
Non ho mai provato, ma dovrebbe funzionare.
Ciao
--
- Carlo -
BSSoftware Tips Mailing-List Support

Newsgroup: it.comp.lang.delphi
Titolo: file in ogni cartella

Come posso fare x copiare un qualunque file in tutte le cartelle presenti su
harddisk?
Magari premendo un bottone...
grazie a tutti
Valerio

 harddisk?
Mi spiace, ma non ci sono metodi nella cultura dei programmatori Delphi che
lo permettono di fare! ;)

 Magari premendo un bottone...
onclick...
ciao
Matteo

 ha scritto nel messaggio
news:am46b3$2ejm6$1...@ID-123015.news.dfncis.de...


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

Newsgroup: it.comp.lang.delphi
Titolo: Aiuto!! (glyph invisibili)

Ciao a tutti. Ho un piccolo problema però mi piacerebbe capirne qualcosa di
più.
Ho trovato una collection di glyph per bottoni delphi e dato che sono
decisamente bellini (almeno per i miei gusti) mi piacerebbe usarli sui miei
bottoni. Il problema è che io sono solito mettere a enable := false i
bottoni che non devono essere attivi in quel determinato momento del
programma (evito di avere rogne di vario tipo...). Il problema è che quando
metto a enable := false il bottone queste gliph spariscono invece di
grigiarsi come le altre che utilizzo di solito.
So che questa cosa mi è già successa ma non so se c'è un rimedio, tipo
modificare le glyph che ho in qualche modo per farle vedere grigiate,
aukmentando i colori o qualcosa del genere.
Mi sapete dare una dritta?
Grazie infinite fin da subito per il tempo che mi dedicherete.
--
Demetrio Battaglia

Se non ricordo male, se vuoi che la bitmap da utilizzarsi nei bottoni
diventi 'grigia' quando disabiliti il bottone, devi disegnartela tu in
questo modo :
Poniamo l'esempio che sia il gliph sia un 16x16pixel;
Apri il bmp (anche con l'image designer di delphi, sempre che non sia true
color), e modificane le dimensioni a 32x16 (la dim.orizzontale è il doppio
della verticale), poi copia l'immagine originale (che ora è sulla sx) ed
incollala nel nuovo spazio che ti sei creato sulla dx. A questo punto
procedi con la 'modifica' della bitmap. Io non facevo altro che convertire
qualsiasi colore nei 3 grigi che hai disponibili in 256 colori, e
convertendo tutte le 'ombre' in bianco. Se ad esempio hai una riga
orizzontale grigia scura, la sua ombra è una riga bianca delle stesse
dimensioni, ma spostata di un pixel in basso a dx.
Se qualcuno conosce altri metodi (+ rapidi), lieto di conoscerli.
Saluti
Newsgroup: it.comp.lang.delphi
Titolo: CopyFile





Ciao,


non riesco a fare la copia di un file tramite API CopyFile, 
con delphi 3.0


Il bello e' che non riesco neanche a capire che errore mi 
restituisce, visto che la getlasterror restituisce un numero che non so che 
farmene.


cosa c'e' di sbagliato nel codice sotto?


 


var a, b : string;
      err : 
DWORD;


 


begin
  a := 
'd:\progetti\rientri\dbf\cacca.txt';
  b := 
'd:\progetti\rientri\dbf\pino.txt';
  if ( FileExists( b ) ) 
then
    DeleteFile( b );
  if ( not CopyFile( @a, @b, 
TRUE ) ) then
  begin
       err 
:=  GetLastError();
       
Application.MessageBox(
         
pchar(
           
format(
             
'Il file non è stato copiato: si è verificato errore %d', [err] 
)
         
),
         
pchar(Application.Title),
         
Windows.mb_IconStop);


  end;
end;





Prova a dichiararlo cosi':
CopyFile(PChar(A), PChar(B), True);
Ciao,
Massimo.
-- 
"Ciao Rex, che cavolo di situazione eh? Due dentro, due fuori, puo' succedere di tutto!"

Più che altro le stringhe a e b devono essere null terminated, per fre cio'
aggiungi +#00
nel mio caso avevo risolto così:
oldfile e newfile sono di tipo pchar
oldfile:=pchar('d:\progetti\rientri\dbf\cacca.txt'+#00);
newfile:=pchar('d:\progetti\rientri\dbf\pino.txt'+#00);
copyfile(oldfile, newfile, false);
spero di esserti stato di aiuto : )

 spero di esserti stato di aiuto : )
mi sembra un esempio un po' di cacca :)))))))))
Ciao, Sandro

 wrote in message
9e2i3l$p6tr$1...@ID-43509.news.dfncis.de...






Funziona, grazie

Newsgroup: it.comp.lang.delphi
Titolo: Object Pascal: ShortString - AnsiString - WideString

Salve a tutti, avrei un parere da chiedervi.
Mi capita spesso di creare delle classi per le mie necessità di
programmazione, e i membri privati sono spesso delle variabili stringa
che uso come parametri interni.
Domanda...
Se dichiaro una variabile S:string questa mi viene vista come
WideString o AnsiString in dipendenza di come viene settato il
compilatore....
Potrei dichiararle ShortString (max 255 car.) ma allora viene
preallocato tale spazio ad ogni dichiarazione di questo tipo.
Cosa mi conviene ? Tenere "s:string" e lasciare al compilatore
l'ottimizzazione della memoria per non farmi occupare diversi KB
invece dei 50 caratteri che magari mi servono, oppure "calibro" meglio
le mie esigenze ed uso gli shortstring o string[xx] ?
grazie di eventuali consigli, sia dal punto di vista delle performance
che cambiano relativamente alla scelta adottata, sia dell'eventuale
spreco di risorse a cui vado incontro...
Jx

 spreco di risorse a cui vado incontro...
Non per ragioni di performance, ma semplicemente per la flessibilita'
che l'uso di String consente.
Saluti
Paolo Arosio

Newsgroup: it.comp.lang.delphi
Titolo: (OT)Sapete dove possiamo trovare altri manifesti truccati di Rutelli e Berlusconi da pubblicare sul

(OT)Sapete dove possiamo trovare altri manifesti truccati di Rutelli e
Berlusconi da pubblicare sul
www.tg6.it
 ?
Grazie
Redazione Tg6

mi sa che sei trooppo OT ...
--
Consonni Davide
DavideC...@Virgilio.it
webmaster of
http://www.traduzioniellepi.com
Newsgroup: it.comp.lang.delphi
Titolo: Kylix a US$199

la versione Desktop di Kylix e' ora in vendita a US$199 anche nel sito
ufficiale di Borland:
http://shop.borland.com/Category/0,1257,3-15-1080,00.html
Purtroppo non spediscono all'estero.

 ha scritto nel messaggio
news:3b0b9c7e...@news.libero.it...


2001 il Kylix Desktop Dev Ed a L. 426000
ho effettuato l'acquisto.
Grazie
Duilio

Newsgroup: it.comp.lang.delphi
Titolo: import/export csv.....

ciao a tutti.
uso un programma, da me realizzato, con il componente tclientdataset. è una
rubrica (non ancora finita).
ho inserito la possibilità di esportare il database in un file *.csv (un
componente trovato in rete) ed anche la possibilità di importare. il tutto
funziona bene. però funziona solo se il database ha sempre gli stessi campi.
se io volessi aggiungere un campo e importare da un file *.csv i dati, non
funzionerebbe perchè il file *.csv è mancante di un campo.
esiste la possibiltà o un componente  per creare una tabella (con il
tclientdataset) con i campi di un file *.csv  qualsiasi?
spero di essermi spiegato, visto che forse chiedo una cosa impossibile.
grazie, non disdegno di qualche esempio.
ciao

Analizza il cvs prima di caricarlo, cioč leggilo e scrivilo su un'altro file
cvs aggiungendo tutte le virgole che mancano per completare i campi. Oppure
puoi creare una procedura esterna di conversione dove andrai ad indicare le
varie posizioni cosa significano nel cvs, cosě da poterlo convertire in un
tracciato standard di caricamento.
Ciao,
  Fabio
Newsgroup: it.comp.lang.delphi
Titolo: Palmari e Delphi

Ciao a tutti... ho fatto una ricerca nel gruppo... anche con google ma non
ho trovato nulla (in questo newsgroup)...
quindi posto la mia domanda quasi tranquillo :P
Mi č venuta la voglia di prendermi un palmare... che faccia anche da
telefono e altre 99999 cose.. ovviamente come sega mentale... quelle cose
che si fanno per riempire le nottate insonni con qualche ora a programmare e
smanazzare...
Programmo in delphi da tempo e adoro questo linguaggio... intuitivo e facile
nella risoluzione di problemi, tanta gente lo usa, potente e con qualche
gabola si trova sempre la soluzione.
Possibile che non facciano qualche cosa per i palmari? sto trovando qualche
cosa delphi-like o pascal-like... ma non č la stessa cosa :(
Mi basterebbe per palm os o pocketpc.... insomma... non c'č in cantiere
qualche cosa?!?!?
Pare strano...
A voi i commenti....
Ciao.

 Pare strano...
Se interessa ho appena trovato questo: 
http://www.pythia.org/
E' molto simile come grafica a delphi.... ci gioco un pochetto e vi faccio
sapere :P

 Pare strano...
Delphi genera solo codice per processori x86 compatibili, da
qui la difficolta' di usarlo sui palmari, so comunque che Borland
ha qualche progetto riguardante Symbian, non so pero' se
riguardi anche delphi.

Direi che il migliore tool per uno sviluppatore Delphi che vuole passare ai
palmari č Pocket Studio
http://www.pocket-technologies.com/
. Dagli un'occhiata.
Credo che il suo unico problema sia il prezzo.
Ciauz,
MM


Newsgroup: it.comp.lang.delphi
Titolo: salvare finestre come immagini

Chi sa come salvare una form come una immagine??
Grazie mille
Miky.

Ciao,
ho appena scritto queste 2 righe di codice per fare quello che chiedi.
Piazza un Image sulla form e setta come Allineamento (Align) la voce
AllClient.
Poi, scrivi dove ritieni opportuno queste 2 righe di codice
Var
ImageCanvas: TCanvas;
AreaRett: TRect;
begin
ImageCanvas:=Image1.canvas.Create;
ImageCanvas.Handle:=GetWindowDC(Form1.Handle);
AreaRett:=Rect(Form1.left,Form1.top,Form1.left+form1.width,Form1.Height+Form
1.Top);
Image1.Canvas.CopyRect(AreaRett,ImageCanvas,AreaRett);
end;
Adesso il componente Image contiene una riproduzione della Form, fatti un
bel
Image1.Picture.SaveToFile e ottieni la tua Form in un file grafico.
Ciao
--
- Carlo -
BSSoftware Tips Mailing-List Support

Io ho trovato questo esempio:
procedure TForm1.BitBtn1Click(Sender: TObject);
var
  FormImage: TBitmap;
begin
FormImage := GetFormImage;
FormImage.SaveToFile('d:\myimage.bmp');
end;
Ciao.


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

Ciao a tutti, sto facendo un programma con "MySql 3.29" e devo salvare in un
campo di tipo stringa il percorso di un file. Quando lo salva non mi scrive
il  "\".
Es: Invece di "C:\readme.txt" scrive "C:readme.txt"
Qualcuno sa indicarmi una soluzione????

 wrote in message
news:gl4M8.16375$5i1.5...@news2.tin.it...

Newsgroup: it.comp.lang.delphi
Titolo: TQuery problema con Data su INSERT INTO

un piccolo esempio per chiarire il problema su una tabella Paradox;
la Strina Risulatante e' simile
'TST01','16/04/2004','TST02','Prova','0','0'
{  StrSQL:='INSERT INTO Movimenti (Scheda, Data, Contropartita, Operazione,
Dare, Avere)' +
           'VALUES ('+ #39+ QryMov['CONTROPARTITA'] + #39 + ',' +
                    #39 + DateToStr(QryMov['DATA']) + #39 + ',' +
                    #39 + QryMov['SCHEDA'] + #39 + ',' +
                    #39 + QryMov['OPERAZIONE'] + #39 + ',' +
                    #39 + FloatToStr(QryMov['AVERE']) + #39 + ',' +
                    #39 + FloatToStr(QryMov['DARE']) + #39 +')' ;
  Query1.Close;
  Query1.SQL.Clear;
  Query1.SQL.Add(StrSQL);
  Query1.ExecSQL;
il problema e' la conversione della Data, anche con un solo elemento da
errore
Naturalmente nel file il campo DATA e di tipo Date.
{  StrSQL:='INSERT INTO Movimenti (Data)' +
                  'VALUES ('+ #39+ DateToStr(QryMov['DATA']) + #39 +' )';
si puo' aggirare il proberma ?

si puo' aggirare il proberma ?
ti conviene usare i parametri della query ... fanno
loro le conversioni a stringa, si utilizzano proprio
per questi problemi ... ti rimando ad un post di "Marco
Bortolani" di poco tempo fa.
http://groups.google.it/groups?hl=it&lr=&ie=UTF-8&selm=88hzc.462757%24rM4.19224214%40news4.tin.it
	Ciao
	MassimoB
 
---------------------------
http:\\
www.massimobeschi.it

xche non usi un query parametrica?
A

Scusami, ma non ti conviene utilizzare
QuotedStr(QryMov['CONTROPARTITA'])
al posto di


 Bortolani" di poco tempo fa.
Wow: mi hai citato!
Voglio torglierti dalle spine: hai scritto il mio nick tra virgolette, ma in
verità io mi chiamo veramente Marco Bortolani! :-))
        Marco

        Marco


Newsgroup: it.comp.lang.delphi
Titolo: Info Licenza Delphi

Salve a tutti,
Solo una curiosità:
Avete idea di cosa può costare in termini economici
la licenza d'uso di Delphi (intendo quella minima)?
Vorrei farmi 2 calcoli per verificare se conviene
investire 2 soldini e cominciare a proporre
qualche softwareino con tanto di licenza.
Gentilissimi. Grazie a tutti

www.consist.it
ciao
Tymba
Newsgroup: it.comp.lang.delphi
Titolo: IBQuery OutofMemory

 Ogni tanto la mia applicazione che contiene due oggetti Albero di 
dimensione spropositati, mi da errore OUTofMemory...
Per settimana ho creduto che l'errore fosse dovuto a questi alberi ora 
casualmente è partito il debug su questa procedura "IBAlloc" che c'erca 
di aumentare la dimensione della memoria...
Mi chiedo se a questo punto gli Oggetti TIBQuery abbiano qualche 
problema o semplicemente è l'insieme delle cose?
--- posted by geoForum on 
http://www.delphiedintorni.it

 problema o semplicemente è l'insieme delle cose?
Abbastana difficile da capire senza un po di codice!!! ;)


 problema o semplicemente č l'insieme delle cose?
Purtroppo la suite IBX non č scritta benissimo e in quanto al 
consumo di memoria non ci sono grandi attenzioni.  Bisognerebbe 
vedere, poi, quanti dati ci carichi effettivamente dentro.  A 
livello applicativo, avere dati di dimensioni "spropositate" non č 
cosě normale.

Newsgroup: it.comp.lang.delphi
Titolo: Controllo campi vuoti

In una form ho una serie di DBcomponent che fanno riferimento a vari dataset 
(ADO).
Vorrei controllare se tutti i campi della pagina sono stati compilati prima 
di salvare.
Come fare?
Grazie.
Pippo

 ha scritto nel messaggio
news:46360c60$0$37195$4faf...@reader3.news.tin.it...


Newsgroup: it.comp.lang.delphi
Titolo: Problema con più schede di rete e connessioni TCP

Ciao a tutti,
ho creato un'applicazione che si connette ad un dispositivo tramite
TCP e funziona correttamente ma mi chiedevo:
nel caso ci fossero più schede di rete, come faccio a recuperare l'IP
dalla scheda che voglio utilizzare? E' possibile far visualizzare
l'elenco delle schede di rete attive sul PC in modo da selezionare
quella desiderata e ricavarne l'IP direttamente dall'applicazione?
Grazie

E' così stupida la mia domanda? Non è possibile fare quello che
chiedo?
Datemi una vostra opinione please.
Grazie

 Datemi una vostra opinione please.
al solito.. come scrivevo giorni fa, prima di postare qui dentro spendi 
almeno un paio di minuti provando ad interrogare google.
Ad esempio digita:
delphi  "network adapters"
e premi invio..
oppure sui gruggpi:
http://groups.google.it/groups/search?hl=it&q=delphi++
"network+adapters"&qt_s=Cerca+nei+gruppi
Ciao
PS: io non e' che non ti voglio rispondere, il fatto e' che a me non e' 
mai capitato di gestire questo problema, pertanto non avevo niente da 
risponderti...
-- 
Morde


Grazie mille..è già un aiuto. Ho cercato un po su google ma non ho
trovato niente..però non ho fatto quella ricerca..non ci avevo nemmeno
pensato.
Grazie ancora :)
Newsgroup: it.comp.lang.delphi
Titolo: Funzionie per il max di un campo esiste?

Ciao provengo da access volevo sapere se ci sono in delphi delle funzioni
che dandogli da mangiare il campo di una tabella mi ritornano il valore
massimo?
se la risposta "affermativa " è si dovè che mi leggo qualcosa?
Ciao E grazie per l'attenzione             ETTORE
-------------
questo è un mondo di adulti si sbaglia da professionisti.

 se la risposta "affermativa " č si dovč che mi leggo qualcosa?
No, devi usare l'SQL. Prova questo:
function DMax(Tabella : TTable; NomeCampo, Where : string = '') : 
Variant;
var
  Q : TQuery;
begin
  Q := TQuery.Create(nil);
  try
    Q.SessionName := Tabella.SessionName;
    Q.DatabaseName := Tabella.DatabaseName;
    Q.SQL.Text := Format('SELECT MAX(X.%s) FROM %s X',[QuotedStr
(NomeCampo), QuotedStr(Tabella)]);
    if Where <> '' then
      Q.SQL.Add('WHERE ' + Where);
    Q.Open;
    Result := Q.Fields[0].Value;
  finally
    Q.Free;
  end;
end;
Attenzione, non l'ho provato - l'ho buttato giů direttamente nel 
newsreader.
-- 
Roberto Lupi

 Roberto Lupi
molte grazie!!! or ora ci provo......
ettore

Newsgroup: it.comp.lang.delphi
Titolo: Aiuto x un programma da far girare on line...

Ciao a tutti...
Sono un delphiano alle prime armi, e sto preparando un programma per il
tirocinio (in bioinformatica) che a partire da alcuni parametri fornisce
una visualizzazione grafica.
Il passo successivo che vorrei fare è renderlo eseguibile via web
quindi:
  1) ricevere i dati da una form;
  2) generare un'immagine GIF;
  3) mandare l'output al browser;
Il problema (ma va'?) è che non so nulla di Webapps, e purtroppo i tempi
tecnici del tirocinio... mi remano contro?
Vi chiedo: qualcuno ha un esempio di webapp da mandarmi per lo meno per
i punti 1 e 3? MI rendo conto che con 0.4 secondi google mi
risponderebbe, ma la lettura dei risultati è un po' meno rapida,
purtroppo! XD
Un saluto e grazie,
Proch
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

Proch
	Ciao
	MassimoB

Newsgroup: it.comp.lang.delphi
Titolo: Lettura STRING da seriale

Salve a tutti, ho un problema ho un apparecchio che mi invia i dati al PC
tramite porta seriale e devo leggere la strig, qualcuno sa come si fa?
Jojoba
--------------------------------
Inviato via 
http://usenet.libero.it

 tramite porta seriale e devo leggere la strig, qualcuno sa come si fa?
Ti conviene usare il componente TComPort e usare l'evento OnRxChar.


Dove posso trovare TComPort?


 Dove posso trovare TComPort?
Non vuoi proprio googlare vero ? :)
http://www2.arnes.si/~sopecrni/

Newsgroup: it.comp.lang.delphi
Titolo: [d3] could not create output file

salve, dovendo ricompilare un vecchio sorgente delphi3, eseguendo il build
mi genera:
could not create output file 'c:\xxxxxxxxx
a cosa può essere dovuto??? ho provato a compilare anche un nuovo progetto
ma non cè verso di creare l'exe, sembra che il nome dell'output file sia
sbagliato o contenga spazi, dove posso settarlo???
Simone

 settarlo???
La directory non e' accessibile in scrittua, la directory non esiste,
il file di destinazione e' in esecuzione o comunque bloccato da qualche
altro processo ...
Chi piu' ne ha piu' ne metta.
-- 
I'am what I'am, I do what I can

già controllato, la directory è c:\sviluppo\gestfatt
non è usato il file
e se compilo una form vuota con  un solo bottone mi da:
error(0): could not create output file 'c:\programmi\borland\delphi
3\project1er exc:\programmi\borland\delphi 3\project1er ex'

Chi piu' ne ha piu' ne metta.
Il 99% dei casi da me sperimentati riguarda il file in uso dallo stesso IDE di
delphi.
-- 
Morde. 
(morde at programmer dot net)

 3\project1er exc:\programmi\borland\delphi 3\project1er ex'
Mi sembra strana come cosa, al massimo reinstalla delphi.


grazie a tutti per le risposte... se reinstallo d3, perdo la palette e le
varie impostazioni dei componenti oppure rimangono???

varie impostazioni dei componenti oppure rimangono???
Cerca tra i post passati, si parlava dei fali da salvare per mantenere la
configurazione. Se reinstalli sopra, perdi ugualmente le impostazioni.
Ciao


Cerca tra i post passati, si parlava dei fali 
Ovviamente intendevo dire "si parlava dei file ...".
Come vedi il rinco###onimento da "e' autunno sto sotto le coperte calde un po'
di piu'" si fa notare...
LOL 


 ha scritto nel messaggio
news:0manovk37joggffi3...@4ax.com...

Newsgroup: it.comp.lang.delphi
Titolo: Variabile Stringa e righe vuote

Ho una variabile stringa che viene formattata per essere stampata come
da richiesta di un mio cliente.
In pratica questa variabile è su diverse righe. Capita però che alcune
di queste righe siano vuote lasciandomi quindi in fase di stampa una
riga bianca.
E' possibile formattare la stringa in modo da non avere righe vuote ?
In pratica la mia variabile stringa viene creata nel seguente modo :
stringa := a + #10 + b + #10 + c + #10 ecc....
Al termine di questa assegnazione vorrei ricontrollare la stringa e
cancellare eventuali righe vuote.
La mia stringa è solo un esempio altrimenti avrei potuto fare i
controlli sulle varie a b c .... ma non posso.
Saluti
Alberto

Se il carattere che usi per spezzare le righe e' #10 basta usare:
While Pos(#10#10, MiaStringa) > 0 Do Delete(MiaStringa, Pos(#10#10, 
MiaStringa), 1);
Ti generalizzo la cosa:
Function EliminaRigheVuote(Stringa, Terminatore : String) : String;
Var
   S : String;
Begin
   While Pos(Terminatore+Terminatore, S) > 0 Do Delete(S, 
Pos(Terminatore+Terminatore, S), 1);
   Result := S;
End;
Dove Stringa e' la stringa da stampare e Terminatore e' il carattere o 
la sequenza di caratteri usati per andare a capo
Ciao

Opps... mancava l'assegnazione
  Function EliminaRigheVuote(Stringa, Terminatore : String) : String;
  Var
    S : String;
  Begin
    S := Stringa;


Alberto ha scritto:

Usi la classe TStringList e riempi la lista solo con stringhe valide per 
poi passare alla tua routine di stampa la proprietà text della stringlist
Qualcosa del tipo:
if Trim(<Variabile>) <> '' then
   TStringList.add(<Variabile>)
Stampa = TStringList.text
^_Goblin_^
-- 
Ibis et redibis non morieris in bello
http://goblinland.myminicity.com/

Alberto ha scritto:

personalmente userei un Tmemo o un Trichedit così puoi controllare anche 
l'output finale, cosa molto gradita, e all'occorenza salvarlo ;)
saluti

Newsgroup: it.comp.lang.delphi
Titolo: [D2009] Descrizione di un campo Firebird

Salve ragazzi,
come da oggetto ho D2009, vorrei leggere la descrizione di un campo di 
un db firebird, come posso fare? grazie in anticipo :)


Delphi c'entra poco o niente.
Magari qualche componente di accesso ai dati specifico per fb ti dia
un wrapper per leggere informazioni di questo tipo...
Queste informazioni in genere sono reperibili su tabelle di sistema
del database.
Ad esempio, per leggerle su oracle fai una cosa di questo tipo:
SELECT * FROM user_col_comments WHERE table_name='MyTableName
A.

 
quindi dovrei identificare la tabella di sistema che contiene queste 
informazioni, poi la tabella ed infine il campo, giusto?
Newsgroup: it.comp.lang.delphi
Titolo: Stampa diretta

Ciao a tutti.
Ho una necessita', penso comune a qualcun altro ... almeno spero :)
Devo poter inviare dei caratteri direttamente alla stampante, ad esempio 
dei codici di controllo o semplicemente testo puro, ma la stampante deve 
ricevere QUEI caratteri, e non un raster che li disegna, stile windows.
Se con le stampanti parallele e' un gioco (accedendo alla porta), con 
quelle di rete e' piu' difficile (ma ci sono riuscito), con quelle usb 
non so proprio che pesci pigliare.
Ho scaricato e provato tutto quello che c'e' su torry in proposito, ma a 
parte il fatto che molti componenti hanno problemi e vanno messi a 
posto, non ho trovato niente di veramente universale , per un povero 
cristo che voglia stampante un carattere su una stampante di qualsiasi 
tipo senza che win ci metta le mani :))
Spero di essere riuscito a spiegarmi, e che qualcuno abbia un'idea :)
Grazie e buon lavoro a tutti.
Ciao.Alberto.
-- 
Alberto Rubinelli - A2 SISTEMI               posted with Gravity 2.60b
Via Costantino Perazzi 22 - 28100 NOVARA (NO) - ITALY     ICQ 49872318
E-Mail : 
alb...@retrocomputing.net
  Tel. 0321 640149 
Web    : 
www.retrocomputing.net
      Fax  0321 391669 BBS  0321 392320

var TFile:TextFile;
begin
   Assignprn(TFile);
   Rewrite(TFile);
   Writeln(TFile,'stringa');
   Closefile(TFile);
end;

    Assignprn(TFile);
ecc
Ti ringrazio, lo provo immediatamente. Non mi sembra vero che sia cosi' 
semplice e non ci avevo provato. La stampante ovviamente e' quella 
predefinita, vero ?


    Rewrite(TFile);
ecc
Ho provato questo sistema, ma presenta due inconvenienti, che lo 
invalidano :
- alla stampante vengono inviati non i caratteri puri, ma il raster di 
una linea, il tutto quindi viene stampato con font di windows ecc ecc Io 
ho proprio bisogno di inviare solo caratteri puri.
- non viene stampato niente fino a quando non chiudo il file, come 
pensavo, mentre io ho bisogno la stampa riga per riga (questioni 
fiscali). Se aggiro aprendo e chiudendo il file ogni volta, ottengo 
purtroppo anche un form feed.
Adesso sto provando un componente scaricato da Torry, che non funzionava 
con Delphi 6, ma che sto modificando assieme all'autore (solito problema 
di unit diverse). Faro' sapere, se di interesse comune :)


Newsgroup: it.comp.lang.delphi
Titolo: Compattazione InterBase

Salve a tutti volevo sapere se qualcuno sa la procedura per compattare un
database di InterBase da codice.
Grazie


Guardati l'help del comando gbak di Interbase.
Saluti
        Marco Bortolani
 
infoN...@marcobortolani.it
Newsgroup: it.comp.lang.delphi
Titolo: Problema evento OnKeyPress

Salve,
sto realizzando un piccolo software dove dentro ci sta un sistema di 
ricerca nel quale c'è un EditBox dove io..man mano che scrivo la parola 
cerca le chiavi che la contengono fino ad arrivare al risultato voluto.
In linea di massima funziona tranne una cosa:
 In pratica all'evento OnKeypress io scrivo:
_________________________________________________________________________
AdoQuery.Sql.text := 'Select * FROM tabella WHERE campo LIKE ''' + 
editbox.text + ''' + '%' ';
AdoQuery.Open;
__________________________________________________________________________
Potrei dire che funziona correttamente tranne in fatto che:
Se ho le parole Arcangelo, Aristotele, Archivio
se scrivo solo 'A' mi compaiono tutti i campi anche diversi da 'A'.
Se scrivo 'Ar' mi compaiono tutti i campi che includono la 'A', anche se 
diversi da 'Ar'
Se scrivo 'Arc' mi compaiono tutti i campi che includono 'Ar' anche se 
diversi da 'Arc'.
In pratica a quanto ho capito la ricerca avviene per le parole che digito 
meno l'ultima digitata!
Come posso risolvere? Avete qualche idea? Grazie!
--- posted by geoForum on 
http://www.delphiedintorni.it

 
Secondo me č il carattere jolly che usi. Se usi un database mysql il 
carattere jolly č % (percentuale) mentre se usi access allora č * 
(asterisco). Inoltre nei db le stringhe sono case sensitive cioč fanno 
distinzione tra maiuscole e minuscole.
Omega

Prova ad inserire il controllo nell'evento OnChange invece che su 
KeyPress in quanto (almeno fino alla versione 5 del Delphi - dopo non 
so') il cambio effettivo della stringa contenuta nel TEdit avviene dopo 
la chiamata all'evento OnKeyPress. Questo è voluto dato che alcuni 
software fanno un controllo sul tasto e permettono o meno di accettarlo.
Ciao,
David


grazie mille la soluzione era infatti OnChange.
Per dirla tutta ho provato con l'* ma non va...forse ti sei confuso ma il 
carattere jolly in access č proprio %!
Ciao e grazie


Newsgroup: it.comp.lang.delphi
Titolo: Problema con form MDI

Ho creato un progetto con la form principale di tipo "fsMDIForm". Ho
inserito un Panel allineato "alTop" alla form principale. Ho inserito una
seconda form di tipo "fsMDIChild" e quando la crea e la visualizzo
massimizzata la parte superiore della form mi finisce sotto il Panel. Se
minimizzo e massimizzo l'applicazione tutto diventa normale. Tutto questo
utilizzando Delphi 5 e Delphi 4.
Qualcuno è in grado di suggerirmi qualcosa?
Grazie mille!

 wrote in message
bYG74.28730$m62.3...@news.infostrada.it...

Autosize deve essere false e align diversa da alClient.
Newsgroup: it.comp.lang.delphi
Titolo: D4, immagini JPG, campi blob vuoti.

Vi sottopongo questo codice che utilizzo per visualizzare delle immagini jpg
all'interno di componenti TImage, le immagini sono immagazzinate dentro due
distinti campi blob di una tabella paradox.
Mi succede che quando all'interno dei campi non č memorizzata alcuna
immagine viene mostrata una finestra con il messaggio "JPEG ERROR # 41".
Ho inserito una condizione if ed else, quest'ultima dovrebbe attivarsi se il
campo blob č vuoto e caricarmi un'immagine esterna in un file jpg. Ma la
condizione non viene rilevata, perchč?
Grazie a tutti
Carlo
procedure TF_legge_155.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  action := cafree;
end;
procedure TF_legge_155.FormShow(Sender: TObject);
var
  jpeg: TJPEGImage;
  memStream: TMemoryStream;
begin
  if not DM_2.doc_img_tblDoc_lato1.IsNull then
  begin
    try
      JPEG := TJPEGImage.Create;
      memStream := TMemoryStream.Create;
      DM_2.cli_155_tblDoc_lato1.SaveToStream(memStream);
      memStream.Seek(0, 0);
      JPEG.LoadFromStream(memStream);
      doc_1_img.Picture.Assign(JPEG);
    finally
      JPEG.Free;
      memStream.Free;
      JPEG := nil;
      memStream := nil;
    end;
  end
  else doc_1_img.Picture.LoadFromFile('stop,jpg');
  if not DM_2.doc_img_tblDoc_lato2.IsNull then //carica img2
  begin
    try
      JPEG := TJPEGImage.Create;
      memStream := TMemoryStream.Create;
      DM_2.cli_155_tblDoc_lato2.SaveToStream(memStream);
      memStream.Seek(0, 0);
      JPEG.LoadFromStream(memStream);
      doc_2_img.Picture.Assign(JPEG);
    finally
      JPEG.Free;
      memStream.Free;
      JPEG := nil;
      memStream := nil;
    end;
  end
  else doc_2_img.Picture.LoadFromFile('stop,jpg');
end;

 ha scritto nel messaggio
news:Yp6cf.29215$65.8...@twister1.libero.it...

Newsgroup: it.comp.lang.delphi
Titolo: Programmi Delphi su Windows CE

Gentilmente, qualcuno è a conoscenza se fosse possibile far girare
programmi scritti in Delphi su piattaforma Windows CE?
Grazie
Francesco

 programmi scritti in Delphi su piattaforma Windows CE?
Purtroppo no. CE gira su processori NON Intel, non ha le API di Win, i
supporti di memoria non sono dischi ma "zone" di RAM, ecc.ecc.
Insomma CE di Windows ha solo il nome, ma niente di piu'.
Ciao, Sandro
Newsgroup: it.comp.lang.delphi
Titolo: [OT] Bannare il TROLL

MI domando cosa servirebbe BANNARLO, potrebbe iscriversi a newsland o 
entrare con IP mascherato.
Visto che il TROLL non fa spam, il metodo migliore è quello di non 
rispondergli come dice MARCO così da non moltiplicare i post.
Leggo però quando è successo... Nel post degli interi...
ALE SCRIVE:
Salve a tutti mi sto scervellando su come capire se il risultato di
X/Y è un intero. Con X e Y due interi.
________________________________________________________________________
JAX RISPONDE:
Se è solo per la divisione puoi usare mod altrimenti puoi usare
Trunc(z) = z 
________________________________________________________________________
LUCA SERAFINO:
Io uso sempre mod, che ovviamente restituisce i decimali... Quindi se 
sono nulli si ha un intero
________________________________________________________________________
JAX RISPONDE:
E questo l'avevo già detto. Ma se devi controllare se X * Y genera un 
intero come fai utilizzando il mod?
________________________________________________________________________
Commento X * Y è per forza un intero poichè è il prodotto di due interi, 
continuiamo....
________________________________________________________________________
LUCA SERAFINO:
if (Cosa Cazzo Vuoi) mod 1 = 0 then INTERO
Nell'esempio:
if X * Y mod 1 = 0 ....
Scusa l'ironia matematica...
________________________________________________________________________
ANDREA (NASCOSTO):
Come CAZZO puoi fare il MOD a 1 se l'operatore MOD in Delphi accetta solo
interi?
________________________________________________________________________
LUCA SERAFINO:
Faccio due esempio chiari: X e Y interi
ESEMPIO 1:
if Y*X mod 1 = 0 then INTERO
ESEMPIO 2:
(Y-X)/X+1
risolvo:
(Y-X)/X+1 = ((Y-X) + X )/X   -->  if ((Y-X) + X )/X mod 1 = 0 then INT
if ((Y-X) + X ) mod X = 0 then INT
Mi domando quindi chi siano i TROLL ?
Io bannerei Jax o comunque gli darei un credito per 4 in matematica, 
vedete un po' voi.
Sai qual'è il vero problema ? I diplomati, non hanno la testa di un 
laureato e la differenza si sente....
--- posted by geoForum on 
http://www.delphiedintorni.it

In definitiva....
Divertiamoci pure, ma non diamo troppa pappa ai troll. Un troll grasso 
non piace a nessuno.
Un troll ciccione suda e puzza (più del solito). Un troll obeso costa 
una fortuna in iscrizioni alla palestra
Non è affatto bello tenersi una palla di ciccia verde in salotto, specie 
se ha una clava.
Per cui non rispondere al troll, grazie. Pensa alla sua salute.


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

Ho un'applicazione che utilizza il BDE. Come faccio a visualizzare un "mio"
messaggio di errore nel caso il BDE non sia installato?
Ps. Anche mettendo come 1° istruzione del "Project Source" uno
SHOWMESSAGE('Pippo non ha trovato il BDE') l'applicazione "crasha"
ugualmente con il classico "Runtime errore 217", senza ovviamente
visualizzare "'Pippo non ha trovato il BDE"!!!!
Grazie.

 ha scritto nel messaggio
news:oKbK7.129229$sq5.6...@news.infostrada.it...

Newsgroup: it.comp.lang.delphi
Titolo: Informazione

Mi servirebbe un'informazione.
Dovendo realizzare un programmino che realizzi una trasformata di Fourier
Discreta (DFT) volevo sapere se qualcuno sa consigliarmi quale linguaggio di
programmazione mi conviene imparare. I dati in ingresso dovranno essere un
array bidimensionale di numeri complessi, a dimensioni variabili, e non so
qual'è il linguaggio più adatto (e semplice) a fare questo.
Grazie.

 programmazione mi conviene imparare.
Delphi fa il caso tuo:
http://homepages.borland.com/efg2lab/Library/Delphi/MathFunctions/Engineering.htm
-- 
Ciao!
Marco Kregar
marco....@FirebirdSQL.it
www.FirebirdSQL.it
"over the bench the goat sings, under the bench the goat dies"

 ha scritto nel messaggio
news:c06c62$sct$1...@lacerta.tiscalinet.it...


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

Ho creato una specie di winamp alla povera con un TMediaPlayer. Funziona
tutto, riesco tranquillamente ad aprire tutti gli mp3 che ho sull'hdd tranne
1 di kelly minogue. (Mi solleva un eccezione "impossibile inizializzare
MCI")
Non credo dipenda dal genere musicale o dall'autrice perchè le altre me le
apre tranquillamente ( :-P )
Eppure è un mp3 come un altro qualsiasi... L'unica cosa che ho notato è che
è a 160 kb/s e gli altri a 128 ma non credo che dipenda da questo perchè ho
provato anche con mp3 a 192 e funzionano perfettamente... e cmq credo che
non avrebbe senso fare un componente che riesce a leggere solo brani a
128kb/s.
Da cosa dipende secondo voi? Con winamp (quello vero) lo legge alla
perfezione...
Attendo risposte.
Ciao
--
----------------------------------------
Carlo Camarda
chiamac...@tiscalinet.it
]@#[ Anna I Love You ]#@[

 ha scritto nel messaggio
news:y3Bw8.9831$8D3.2...@news1.tin.it...


 prima non funzionasse...
Il TMediaPlayer si appoggia sulle periferiche MCI di Windows e, di conseguenza, sui codec
installati e non.
Se, provando ad aprire lo stesso mp3 con il media player di windows, ti dà un errore, può
darsi che sia il decoder mp3 della microsoft (o chi per lei) a non essere aggiornato
oppure, ipotesi forse più plausibile, il file ha qualcosa che a wmp non piace, mentre
invece winamp sa come sorvolare e/o risolvere il problema.
Tutto questo IMHO, visto che sono tre anni che non paciugo più con i file multimediali :)
--
Jax

 wrote in message
news:y3Bw8.9831$8D3.2...@news1.tin.it...


 altri software.
Se non ho capito male, lui dice che winamp lo legge, mentre il wmp (č una mia deduzione,
visto che usa TMediaPlayer...) no.
Ma forse sarebbe meglio se si facesse vivo lui :)
--
Jax

 MCI")
...snip...
Forse è un formato "lame", o altro tipo di mp3 con compressione dinamica 
(non costante).
Fallo leggere a winamp e guarda se il numeretto che indica il tipo di 
compressione varia. Winamp per default gestisce i lame e gli altri tipi, 
ma windows no.
Ciao.
Mimmo.
Newsgroup: it.comp.lang.delphi
Titolo: Binario o testo? Metodo probabilistico....

devo evitare che qualcuno apra un file binario nel mio text editor.
Pensavo di fare qualcosa del genere:
leggo il primo kb e se contiene particolari simboli non testo standard
allora non lo apro... che ne dite?
altre vie?
Che velori sono sicuro non ci saranno mai in un file di testo? (credo
#0 xche non ne ho visti in nessun file di testo)
Ciao e grazie
Kirys
-- 
.     _  _______  ļ,ø*°`°*ø,ļ_ļ,ø*°`°*ø,ļ_ļ,ø*°`°*ø,ļ_ļ,ø*°`°*ø,ļ_
  /| // /__  __/  Kirys <Remove DELTHIS from the address to reply>
 / |/ \   / /     Kirys Tech 2000: 
http://www.kt2k.com
/__|\__\ /_/ 2000 ļ,ø*°`°*ø,ļ_ļ,ø*°`°*ø,ļ_ļ,ø*°`°*ø,ļ_ļ,ø*°`°*ø,ļ_

hai sbagliato newsgroup, vai su crittografia
Il 28 Giu 2002, 08:57,
Kirys <uniK...@DELTHIShotmail.com> ha scritto: 

--------------------------------
Inviato via 
http://usenet.iol.it
 

hai sbagliato newsgroup, vai su crittografia
? sul mio server news non c'e nessun *.crittografia
poi ho scritto qui per una ragione molto semplice il programma e'
fatto in delphi e magari in delphi esiste una funzione che fa proprio
questo :)
Io voglio solo evitare che nel mio programma vengano aperti file
binari essendo un text editor :D
Ciao


 #0 xche non ne ho visti in nessun file di testo)
Ma pressoche' tutti quelli sotto il 32, a parte il tab (che se non ricordo
male e' il 9), e quelli dopo il 200..
Comunque se vuoi la mia opinione, e' sbagliato impedire di aprire un file
binario.. non vedo il perche' di questa restrizione. Nessun editor ce l'ha
:)
Certo, non mostra quasi nulla di utile, ma sono io che decido se farlo o no
:)
Sarebbe carino piuttosto una conferma:
"il file che hai selezionato sembra essere un file binario. Vuoi aprirlo lo
stesso ?"

Sarebbe carino piuttosto una conferma:
si mi sa che hai ragione, ma il problema e' il seguente.
il file di testo viene aperto da una tstringlist. Che essendo una
spece di array di stringhe legge solo al primo 0 credo perche lo
interpreta come se fosse una NULL terminated string (o forse e' il
memo che si ferma li non saprei).
Comunque quindi ottengo solo i primi x byte.
Lo sto facendo in realta' xche sotto alcune versioni di win ottengo
una caterba di access violation quando apro un file binario. (e non ho
capito bene perche')
E fino a che non lo scopro volevo evitarli fino a che non comprendo la
causa (che risiede forse nel tsyneditmemo....).
Comunque credo che mettero un confirmation dialog come mi hai
proposto, ed in un futuro magari ci infilo dentro un ex editor read
only che credo sia + utile che ne pensi?
Ciao


 >male e' il 9), e quelli dopo il 200..
No, ci sono i caratteri accentati dopo il 200, e prima di 32 ci sono anche
13 e 10, per il vai a capo, e forse qualcos'altro... ma non penso. In ogni
caso, so che le utility Gnu come less, diff ecc. controllano se c'è un NULL
nel primo Kb, e allora è binario. Infine, non capisco che c'entri la
crittografia, penso chi t'ha mandato là abbia preso un forte abbaglio.
Ciao
--
Paolo Giarrusso
Per rispondere togliere solo "TOGLIMI" dall'indirizzo, non _spam.
Newsgroup: it.comp.lang.delphi
Titolo: D3: OpenDialog dell e versioni recenti  di Windows (W2000,  ...), cioè ridimens ionabile

E' un mio vecchio cruccio: ho un programma in Delphi 3 che permette
richiamare il dialogo per scegliere/aprire un file; la difficoltà sta
nel fatto che mi si apre sempre una finestra di dialogo stretta e non
ridimensionabile (invece W2000 dispone anche di finstre di dialogo e
ridimensionabili).
Possibile che non ci sia modo di verificare la corrente versione del
sistema operativo e, se disponibile, richiamare la funzione di dialogo
di scelta file più "moderno" ?
Grazie
Simone
_______________________________________________________
      "Try not! Do, or do not. There is no try."                           
     by Yoda, Jedi Master  (from anonymous poster)
( remove/togli 'FalselinK' to reply/per rispondere )

di scelta file più "moderno" ?
Mi autorispondo, avendo trovato la soluzione su Internet:
http://www.scalabium.com/faq/dct0156.htm


Newsgroup: it.comp.lang.delphi
Titolo: Incompatibilita' con StrToData

Salve,
ho un problema con la funzione StrToData.
Ho un programma che gira sotto PC configurati:
- Inglese con data 12/25/2007
- Italiano con data 25/12/2007
Questa funzione quando non trova la data esatta si incazza...
Esiste qualche modo per stabilire il tipo di dato da passare a StrToData,
in modo che lo converto prima...
Grazie
xoooox
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

OK,
risolto tutto... utilizzando la funzinoe EncodeDate
Grazie
xoooox

Newsgroup: it.comp.lang.delphi
Titolo: BDE Errori

Chi sa dirmi dove trovare una lista di tutti i codici di errori del bde?
grazie

 wrote in message
8pa8gk$5l$1...@fe1.cs.interbusiness.it...


 ha scritto nel messaggio
news:8pa8gk$5l$1...@fe1.cs.interbusiness.it...


Newsgroup: it.comp.lang.delphi
Titolo: richiesta sorgenti software di magazzino

buongiorno a tutti
vorrei chiedere se c'è qualcuno che ha sviluppato un piccolo software di gestione di magazzino in delphi (compilabile nelle ultime versioni embarcadero) ed è interessato a vendermi i sorgenti ad un prezzo "congruo".
Non sono in cerca di un software complesso e che gestisce le scorte-avvisi o altro
mi occorre poter gestire le introduzioni di merci (descrizione colli peso e codici vari) ed estrazione singola o multipla. che faccia un report personalizzabile per data
deve gestire la concorrenza in rete per poter essere gestito in rete 
e che abbia una interfaccia utente per l'inserimento dei dati che sia "elaborata" per il controllo dell'input utente, abbia griglie di accesso ai lookup etc.
potrei anche chiedere delle personalizzazioni ovviamente a pagamento
grazie
Alessandro


Ciao, se vuoi scrivimi ne parliamo.
Fabio

Newsgroup: it.comp.lang.delphi
Titolo: Delphi & CGI

salve a tutti,
   volevo sapere se è possibile richiamare da Delphi un CGI hce gira su
di un server remoto. Sto realizzando un sistema c/s che interroga un DB.
Avevo in mente di inviare le query in forma di stringhe in mesaggi http
e di far eseguire dei CGI che eseguissero le query sul DB, ritornando
indietro, sempre in un messaggio http, il risultato della query, magari
in formato XML...Che ve ne pare?E' una cosa fattibile?
grazie a tutti in anticipo!!

 ha scritto nel messaggio
news:3ACB5878...@numerica.it...

Newsgroup: it.comp.lang.delphi
Titolo: ricorsione tipo esplora file e cartelle



procedure prendifile(Path: String; Contenitore: 
TStrings);
var
TSC: TSearchRec;
begin
try
  if 
FindFirst(Path, faAnyFile, TSC) = 0 then
     
begin
      
repeat
       
Contenitore.Add(TSC.Name);
       if TSC.Attr = 
faDirectory then
       prendifile(TSC.Name, 
Contenitore);
       until FindNext( TSC ) 
<> 0;
      end;
  finally
  
FindClose( TSC );
 end;
end;


 


dove' che sbaglio il risultato provato con un 
button mi da :


diciamo che glio ho passato la directory 
c:\programmi


.


projects


.


..


acer


questo 


quello


 


PERO' NON MI ENTRA NELLE SOTTO CARTELLE, il compito 
per cui l'ho create... ma cosa e' quel projects??


il resto e' una lista di cartelle come se non 
riciamasse la ricorsione in prendifile(TSC.Name, Contenitore);


qualcuno sa come aiutarmi?


poi dovrei passare il tutto ad un treeview, 
ho provato con le cartelle a passargliele cosi ma mi da 
not enough actual 
parameters
  in 
"with
 
treeview1.Items.Add 
do"


 


 


procedure TForm1.Button3Click(Sender: 
TObject);
var
  treeview1: TTreeView;
  Z: 
TStringList;
  I: Integer;
begin
  listview1.Clear;
  
Z := TStringList.Create;
  try
    
prendifile(Combobox1.Text+'\*.*', Z);
    for I := 0 to 
Z.Count-1 do
    begin
      with 
treeview1.Items.Add do
       Caption := 
Z.Strings[I];
    end;
   finally
   
Z.Free;
  end;
 end;
end.


 


qualche idea?


 


Grazie


Daniel







procedure prendifile(Path: String; Contenitore: 
  TStrings);
var
TSC: TSearchRec;
begin
try
  if 
  FindFirst(Path, faAnyFile, TSC) = 0 then
     
  begin
      
  repeat
       
  Contenitore.Add(TSC.Name);
       if TSC.Attr 
  = faDirectory then
       
  prendifile(TSC.Name, Contenitore);
       
  until FindNext( TSC ) <> 0;
      
  end;
  finally
  FindClose( TSC 
  );
 end;
end;


 


dove' che sbaglio il risultato provato con un 
  button mi da :


diciamo che glio ho passato la directory 
  c:\programmi


 


prova con


 


if (TSC.Attr And faDirectory)<>0 
then


 


Giorgio


   
    



 ha scritto nel 
  messaggio 
news:447f0748$0$976$5fc...@news.tiscali.it
...

Newsgroup: it.comp.lang.delphi
Titolo: QuickReport e fatture

 Salve.
Ho da creare un report di una fattura avendo perň su carta gia il 
modello prestampato, devo aggiungere solo gli articoli e i vari prezzi.
Il problema che incontro č: come faccio a far stampare su una nuova 
pagina quando lo spazio x gli articoli si č esaurito? 
Spero di essermi spiegato e confido nel vostro aiuto: devo completare il 
programma x domani sera! mi manca solo questo
--- posted by geoForum on 
http://www.delphiedintorni.it

 pagina quando lo spazio x gli articoli si è esaurito? 
Non conosco QR, ma in generale in tutti i tool di report si può definire 
un'area definita di "detail" dove il report sa che può stampare i record 
di dettaglio; quando aggiungendo un nuovo record va al di fuori di 
quell'area, automaticamente genera una pagina nuova.
Alternativamente in altri tool puoi definire una zona di piè di pagina, 
e quando le righe di dettaglio arrivano in quella zona, si crea una 
nuova pagina... comunque il tutto dovrebbe avvenire automaticamente.
-- 
Jax


è proprio questo che non riesco a fare. NN riesco a definire le 
dimensioni della zona di dettaglio: ridimensionandola mi cambia la 
dimensione con cui viene stampato ogni record. Ho provato anke con i la 
proprietà frame, ma nulla da fare.


 proprietà frame, ma nulla da fare.
Allora prova a definire una zona piè di pagina in modo da coprire la 
zona dove non vuoi stampare il dettaglio.
-- 
Jax

> mrfree ha scritto:
PS: Metti a posto l'orologio! :)
-- 
Jax

 --- posted by geoForum on 
http://www.delphiedintorni.it
Devi Impostare la banda di piede PageFooter con AlignToBottom e come
LinkBand la banda detail
La pagefooter verrà stampato ogni pagina ( se non è l'ultima, a
runtime la salti o ci metti un "--->SEGUE"


Infatti in QR le bande di tipo detail non determinano quanto spazio hai 
nella pagina ma quanto spazio hai per ogni singola riga.
Per ottenere l'effetto che ti serve puoi definire una banda di tipo 
PageFooter.
In questo modo imponi un limite alle bande Detail che, quando viene 
raggiunto, forza una nuova pagina.
ciao
Giacomo