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

Salve NG,
Avrei bisogno di una dritta...
Ho realizzato un algoritmo che richiede una grande potenza di calcolo
soprattutto per l'eccessivo uso della random.
Come tutti sappiamo potrebbe succedere che se io chiedo la random(2) mi esca
per 10000 volte lo 0 e mai l'1.
Praticamente ciò non accade ma in teoria è possibile oppure sbaglio?
Questo algoritmo è basato sullo stesso schema e l'algoritmo complicato a
volte va a buon fine ed a volte no.
Vorrei sapere un metodo per dirgli che se è passato un tot di tempo o se ha
fatto già tot iterazioni senza risultati di bloccare lo sviluppo e terminare
il programma (altrimenti si blocca).
Come posso dire ciò?
Grazie.
--
Karletto
chiamac...@tiscalinet.it
http://www.carletto.cjb.net

 Come posso dire ciň?
Conti all'interno di un tuo ciclo il numero di iterazioni (magari non il piů
interno, basta un qualche ciclo che venga iterato qualche volta al
secondo)...
poi per esempio potresti fare un timer che ogni 5 secondi ti controlla che
il numero di iterazioni sia almeno TOT se č meno esci, altrimenti azzeri il
contatore delle iterazioni e continui...
Ciriciao,
    Dariosky


Esatto...
Ma... in pratico la funzione come si chiama?
Grazie.

Mmm, la funzione quale?
 se la funzione che rischia di bloccarsi l'hai fatta tu,
 basta che la cambi aggiungendo un contatore che conta le iterazioni...
Se ci metti anche un Application.Processmessages;
fai in modo che il programma non si inkiodi e che ti esegua anche
l'OnTimer...
Va beh, non riesco a essere più chiaro :-P
Passo al programma...
ho creato un pulsante dove nell'Onclick metto la funzione della quale voglio
controllare che faccia almeno un tot di iterazioni al secondo...
E ho creato un Timer che farà ogni 3 secondi il controllo
PS. Con i thread il codice verrebbe più pulito e probabilmente più veloce
perchè la ProcessMessages rallenta un po'...
var
  Form1: TForm1;
  iteraz: integer=0;
  cicla:boolean;
implementation
procedure TForm1.Button1Click(Sender: TObject);
begin
 cicla:=true; Label1.Caption:='Partiti';
 Timer1.Enabled:=true; //da ora mi controlla che vada tutto bene
 while cicla do begin
  inc(iteraz);
//  sleep(6000);
  Application.ProcessMessages;
 end;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
 begin
  if iteraz<10 then begin
                     cicla:=false;
                     Label1.Caption:='Fermati o sole!';
                     Timer1.Enabled:=false;
                    end
               else Label1.Caption:='ok continua';
  iteraz:=0;
 end;
Se per esempio tolgo il commento alla riga con lo sleep la procedura button1
si ferma troppo senza ciclare e quando il timer controlla la fa fermare...
Ciao ciao,
    Dariosky
Newsgroup: it.comp.lang.delphi
Titolo: Alla scoperta di Delphi.

Sto studiando Delphi da pochi mesi. Un mio amico mi da una mano, i libri
sono buoni e la guida on line (anche se è in inglese) è ottima. Tuttavia le
difficolta che sto incontrando sono notevoli. Non desidero dire da quale
linguaggio provengo, posso solo ammettere che tra Visual Basic e Delphi
quest'ultimo ha avuto la meglio. E' stata una scelta difficile poichè andavo
comparando procedura per procedura, funzione per funzione; in parole povere
ho realizzato in entrambi i linguaggi le medesime routine per scoprire pro e
contro nello sviluppo. Non so' se sia stato giusto fare così, ma ormai la
decisione è presa.
Come primo quesito vorrei chiedere, se mi permetette, quali differenze
sostanziali vi siano tra Delphi Professional e Delphi Enterprise. Quale
delle due versioni è più idonea allo sviluppo di database.
Cordialità.
Toni

 delle due versioni č piů idonea allo sviluppo di database.
Non vorrei dire una cavolata, ma mi pare che entrambe le versioni abbiano i
componenti e controlli per i Database (qualcuno mi corregga se sparo
cavolate).
Comunque ti conviene controllare direttamente sul sito della borland nel
caso tu debba acquistare una delle due versioni (per andare sul sicuro).
Intanto benvenuto nel newsgroup :)
Ciao!            {MSX}
--
{MSX}  -  
http://msx.rules.it
Mantenitore delle FAQ di it.comp.lang.delphi,
reperibili qui: 
http://gpi.infomedia.it/abc/delphi/FaqDelphi.txt

Visto che stai cominciando, la professional ha tutto quello che ti serve, e
anche molto di piu' che probabilmente non userai mai. Prendi la pro, poi
quando ti sentirai sicuro e sempre che tu ne abbia la necessita' potrai
sempre fare l'upgrade. La enterprise va intorno ai 3500 euro, comunque, non
e' esattamente economica ;)
Ciao, Sandro
Newsgroup: it.comp.lang.delphi
Titolo: indy e threading con idTCPServer, gestire clients

salve a tutti, ho un problema con indy e il threading, e non riesco a capire
nemmeno da dove iniziare..
ho letto guide e scaricato sorgenti, ma le guide erano troppo generiche e i
sorgenti non erano per i componenti che ho io, per cui continuo a non
capirci niente =b
ho delphi 7+indy 9 (mi pare siano il 9.. beh, quelli che c sono assieme), e
volevo realizzare un piccolo mud utilizzando i componenti idTCPServer e
idTCPClient.
ho gia' fatto un programma server con un database di utenti, e un client che
gli si collega e invia username e password, che vengono poi controllate..
insomma, la connessione e disconnessione funziona, ma non so come iterare
dal server tra i vari client connessi, ad esempio per mandare a tutti quel
che ha appena detto un giocatore..
per contare i client uso:
    iutenti:=idTCPServer.Threads.LockList.Count;
    idTCPServer.Threads.UnlockList;
ma da idTCPServer.Threads.LockList in poi non trovo + niente che mi sia
utile..
ho provato a guardare le altre proprietą e i metodi, ma non ho capito quale
usare..
grazie kmunke, c ya!

 continuo a non capirci niente =b
I demos li hai scaricati?
http://www.indyproject.org/indy/demodownloads/I9D6_Demos_24Nov02.zip
-- 
I am what I am, I do what I can
Cerchi un programmatore PHP/MySQL? 
http://url.repository.biz/go/1Y
L'uomo, conscio di sbagliare, persevera.

 ho provato a guardare le altre proprietà e i metodi, ma non ho capito


grazie, ho provato le demo e ho mezzo capito!
il metodo di marco devo ancora provarlo bene però..
nella demo 'Chatdemo' però si pianta il client, proprio come fa il mio
client ora..
in compenso la demo 'IDTCPDemo' funzia bene, sfrutterò quella.
rigrazie a tutti!
Newsgroup: it.comp.lang.delphi
Titolo: Info su oggetti

Salve a tutti,
scusate la domanda banale ... ma dove posso recuperare una guida (o qualcosa
del genere) che mi spieghi cosa fanno i vari controlli OCX (i piu' semplici
si capiscono) che si trovano nella barra di delphi? Ne sono tanti :->
Grazie e Ciao

 Ne sono tanti :->
Non sono controlli OCX ma componenti scritti in Object Pascal (ooops
Delphi Language ;) ) per la maggior parte oppure delle classi wrapper.
Il modo più semplice di procedere, a mio avviso, è quello di piazzare
un componente sul form e premere F1 per invocare la guida in linea.
Antonio

 si capiscono) che si trovano nella barra di delphi? Ne sono tanti :->
IMO, non e' una buona idea usare controlli OCX in Delphi. Meglio usare
- ovviamente se esistono - dei componenti VCL dalle caratteristiche
corrispondenti. In ogni caso i pochi componenti "non VCL" presenti nella
Palette in maniera standard - cioe' non installati successivamente
dall'utente - sono documentati in help a parte (vedi la pagina 
"ActiveX page components" dell'help per un esempio).
Pero', mi sorge un dubbio: non e' che consideri tutti i componenti della
palette come controlli OCX?
Ciao
ACSH
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 ha scritto nel messaggio
news:TbLFd.404257$b5.19...@news3.tin.it...


> Hai qualche sito (con codice sorgente) per vedere qualche esempio?
Ce ne sono molti. Fai qualche ricerca con google. Di seguito alcuni
link:
delphi.about.com
 (contiene anche dei corsi)
www.torry.net
 (o uno dei suoi mirror)
Antonio
Newsgroup: it.comp.lang.delphi
Titolo: TObjectList.Delete distrugge l'oggetto? Help in linea contraddittorio...

Salve, ho un dubbio che spero non sia già stato discusso.
Utilizzando l'oggetto TObjectList per contenere vari oggetti, sono 
arrivato al punto di voler cancellare un oggetto a partire dal suo indice.
L'oggetto è ovviamente stato creato con OwnsObject a true.
ObjList := TObjectList.create(true)
ObjList.delete(1);
Il codice funziona ma il dubbio viene dal fatto che nell'help della 
TObjectList si dice che delete distrugge l'oggetto, mentre nell'help del 
metodo delete (che è ereditato da TList) dice il contrario. Controllando 
il codice della TList mi sembra che non faccia altro che spostare i 
puntatori... ma magari mi sbaglio.
Ciao.
Smario

 spostare i puntatori... ma magari mi sbaglio.
Non ti sbagli. Il metodo Delete in TList non distrugge l'oggetto ma
chiama semplicemente la procedure Notify(..) che è semplicemente vuota,
praticamente un metodo astratto.
In TObjecList viene effettuato l'override del metodo Notify che
verifica la proprietà OwnObjects, e nel caso distrugge l'oggetto.
Il metodo Remove in TObjectList non fa altro che chiamare il metodo
ereditato dalla classe TList.
Il metodo Notify è stato aggiunto in seguito al framework VCL, proprio
per supportare la nuova classe TObjectList. Non so quanto questo sia
stato corretto ;-) come abbiamo avuto modo di discutere precedentemente
qui.
Ciao
Antonio

 metodo delete (che è ereditato da TList) dice il contrario. 
momento, è chiamato sì il TList.Delete però in esso c'è una chiamata a Notify 
(Notify di TObjectList e non di TList)
procedure TObjectList.Notify(Ptr: Pointer; Action: TListNotification);
begin
  if OwnsObjects then
    if Action = lnDeleted then
      TObject(Ptr).Free;
  inherited Notify(Ptr, Action);
end;
da cui si deduce che se OwnsObjects è True, l'oggetto viene anche distrutto 
(ovvero viene chiamato il suo metodo Free).
-- 
Mauro Falzari 
   [ 
http://digilander.libero.it/mauro.falzari
 ]
 
 "Se guardi nell'abisso, anche l'abisso guarda in te." 
   (Friedrich Nietzsche)

 Salve, ho un dubbio che spero non sia già stato discusso.
Grazie, non avevo notato il metodo notify nella TobjectList.
Ciao
SMario
Newsgroup: it.comp.lang.delphi
Titolo: DbExpress

Ciao!
Qualcuno che usa d6 saprebbe indicarmi quali db sono
supportati da dbexpress?
Credo che di sicuro ci sia interbase e naturalmente Oracle.
Ma oltre cio?
Saluti
AS
-- 
Posted from 
ammi.mclink.it
 [195.110.128.1] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 Ma oltre cio?
attualmente:
dbExpInt Applications connecting to InterBase databases
dbExpOra Applications connecting to Oracle databases
dbExpDb2 Applications connecting to DB2 databases
dbExpMy  Applications connecting to MySQL databases
Marco

Tnx.
Rompo un po di +... :))
Sti driver dbexpress li ha fatti Mamma Borland o ogni singola
casa che produce il db, tipo le interfacce ODBC?
Inoltre, si sa qualcosa sulla disponibilità di altri driver?
Tipo SqlAnywhere di Sybase?
Non chiedo quello id MsSql di zio Billy: con quello ti tocca ADO...


casa che produce il db, tipo le interfacce ODBC?
Non conosco DBExpress, ma le interfacce ODBC non le produce
necessariamente chi produce il DB.
Microsoft ne mette a disposizione diverse che, nella maggior
parte riguardano i suoi DB, ovviamente, ma anche Paradox e DBF.
p.s.: fai in modo che i tuoi messaggi si incolonnino bene, nelle
risposte.  Attualmente le tue risposte appaiono allo stesso
livello di chi ti ha risposto in precedenza, con la conseguenza
che non si sa bene a chi ti stai rivolgendo.
--
CyberWalkie - walkietalkie(at)
libero.it

Newsgroup: it.comp.lang.delphi
Titolo: Componente Zeos in Delphi 5

Salve a tutti...
Scusate lo sconforto ma comincio ad aver dubbi ovunque...
Ho un progetto che utilizza un DB in Interbase
Utilizzando i componenti zeos, nella fatti specie, ZIBsqlQuery chiudo e apro 
una tabella con un classico Select * from table1
e vedo gli elementi presenti ... Descriz = 'aaa'
Ora chiudo quella form e mi metto sul menù principale ... apro sql explorer 
e metto al posto d aaa ... CCC
se apro nuovamente quella form (runtime) trovo sempre aaa
Se chiudo e riapro l'eseguibile trovo CCC
Com'e' possibile? La close/open nn dovrebbe rileggersi ex novo la tabella? X 
inciso nn sto utilizzando transazioni
Grazie 

Se chiudi la form all'interno dell'applicazione, molto probabilmente la 
stai solo nascondendo, quando la mostri di nuovo il dataset non è 
aggiornato, dovresti fare il refresh della ZIBsqlQuery.
Mabi ha scritto:


 ha scritto nel messaggio 
news:YNbGi.716$O12...@news.edisontel.com...


Newsgroup: it.comp.lang.delphi
Titolo: Quick Report - Semplice intestazione

Salve,
utilizzo quick Report su Delphi.
Ho la necessità di creare un report di questo tipo
PAGINA 1
------TESTATA----
---INTESTAZIONE--
    ---dati---
    ---dati---
    ---dati---
    ---dati---
PAGINA 2
---INTESTAZIONE--
    ---dati---
    ---dati---
    ---dati---
    ---dati---
Vorrei che se nella pagina corrente non ci stanno tutti i dati meli
metta nella seconda riportandomi l'intestazione.
Grazie.
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 metta nella seconda riportandomi l'intestazione.
Guardati l'help di band type della TQRBand... ColumnHeader o PageHeader...
        Marco Bortolani
 
infoN...@marcobortolani.it
Newsgroup: it.comp.lang.delphi
Titolo: apertura / chiusura TForm

da una form1 devo aprire una form2 e senza eseguire manualmente nessuna
operazione, tramite l'evento TButton1.Click della Form2 eseguo alcune
elaborazioni e quindi devo richiudere la form2. Il problema č che 
questa form2 non ne vuole sapere di chiudersi. il codice che uso č:
form1
var DevoAprire:Boolean
...
if DevoAprire then
  begin
  Form2:TForm2.Create(self);
  Form2.showmodal;
  Form2.Free;
  end;
-----
Form2
procedure TForm2.OnShow;
begin
if Form1.DevoAprire then Button1.Click;
end;
 
procedure TForm2.Button1click(Sender:TObject);
begin
....
//  ESEGUO LE ELABORAZIONI
...
Close;
end;
ma la benedetta Form2 č sempre presente....
anche mettendo nell' OnClose  Action:=caFree
dove sto sbagliando ????
ciao
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 ciao
Ciao, leggendo velocemente...
1: Button1click(self) non Button1.click (in TForm2.OnShow)
2: Stai usando ShowModal... controlla la documentazione: la form chiamata
con ShowModal non ritorna se il suo ModalResult non è impostato ad un
valore diverso da 0. Quindi per chiudere, in TForm2.Button1Click, non
usare Close(); ma ModalResult = mrOk; (ad esempio).
Ciao.
Davide DG.
-- 
All resistance is futile! Prepare to be disassembled !

Newsgroup: it.comp.lang.delphi
Titolo: Ado Dbgrid

Utilizzando i componenti ado mi sta accadendo una cosa strana.
Quando scorrevo le righe nella dbgrid mi dava errore, allora ho provato a
impostare la dbgrid a sola lettura e non mi da nessun errore fino a che
lasci in esecuzione il programma, appena chiudo il programma mi genera un
errore e non riesco a capire da cosa dipenda!

Dare qualche info in più non fa mai male!!!
Che errore viene fuori?
Il DB? Versione di Delphi? 
Numero di scarpe?
Acqua
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 errore
Se specificassi gli errori, forse ti si potrebbe aiutare.
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 Dare qualche info in piů non fa mai male!!!


 Errore :  è qualcosa tipo che sono attivi sia eof che bof.
Metti la patch da scaricare sul sito della Borland...

> Errore :  è qualcosa tipo che sono attivi sia eof che bof.
Ti è così difficile *trascrivere* il messaggio che vedi a video!
--
Acqua

 Ti è così difficile *trascrivere* il messaggio che vedi a video!
Senza contare che non e' necessario scriverlo: Ctrl-C copia il messaggio
di errore sulla clipboard.
Saluti
Paolo Arosio
--
"La dimostrazione dell'esistenza di specie intelligenti
 nell'universo e' che non ci vengono a trovare"
Newsgroup: it.comp.lang.delphi
Titolo: GLScene

Salve,
è da qualche giorno che sto smanettando con questo stupendo set di
componenti e devo dire che le soddisfazioni non mancano!
Ora sto disperatamente cercando di ridurre l'area renderizzata ai poligoni
compresi nel frustrum però non ho idea di come fare, c'è qualcuno che mi può
aiutare?
Grazie.


Ehm, non sono esperto di OpenGL o di grafica 3D in generale (sto
cominciando a leggermi il libro "OpenGL SuperBible"), quindi non credo
di essere la persona piu' adatta a darti una mano.
Potresti chiedere sui newsgroup dedicati di GLScene (sono sul server
news "
forums.talkto.net
", i ng sono "glscene.general" e
"glscene.support"), dovresti trovare i link dal sito di GLScene.
Comunque, per curiosita', non credo di aver ben capito cosa vuoi
ottenere. Vuoi ridurre il numero di poligoni renderizzati o vuoi ridurre
l'area 2D di proiezione?
--
Roal Zanazzi

 l'area 2D di proiezione?
Pensa di visualizzare una sfera: sullo schermo vedi solo una parte dei
triangoli usati per costituire la sfera eppure vengono renderizzati anche
quelli nella parte posteriore che non vedi, ora il mio scopo è quello di
visuallizare solo i poligoni che fanno effettivamente parte dell'area
visibile in modo da ridurre il carico di lavoro per la scheda grafica ed
ottenere prestazioni migliori (è la stessa cosa che fa quake3). Spero di non
aver detto stronzate e di essere stato abbastanza chiaro :-) .
Usi ICQ o MSN Messenger?


No, ci tengo alla salute ;-)
--
Roal Zanazzi

Newsgroup: it.comp.lang.delphi
Titolo: Buon manuale per principianti?

Sapreste consigliarmi un buon manuale per principianti per imparare il
Delphi 7 partendo dalle basi, cioč un testo basilare che spieghi bene i
concetti di base anche per chi come me non ha nessuna conoscenza sulla
programmazione.
In libreria ho avuto modo di sfogliare veloemente un manuale Apogeo 
"Delphi 7 tutto ed oltre" ma mi č sembrato troppo avanzato e quindi non
indicato per chi come me non ha le fondamenta.
Mi consigliate voi qualke titolo? Grazie.

 ha scritto nel messaggio
news:1dcjp6ug7gjyi.1...@40tude.net...

---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (
http://www.grisoft.com
).
Version: 6.0.605 / Virus Database: 385 - Release Date: 01/03/2004

 "Delphi 7 tutto ed oltre" ma mi è sembrato troppo avanzato e quindi non


Ti do un link dove ci sono on-line 43 lezioni su delphi.
http://programmazione.html.it/delphi/index.html
Ciao
Mario
mari...@inwind.it
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/


In italiano non vi sono libri per principianti, purtroppo.
Newsgroup: it.comp.lang.delphi
Titolo: Problema con copia incolla

Salve a tutti, ho il seguente problema. Io vado ad inserire su un oggetto
Timage un'immagine presente in clipboard con i metodi che sono stati postati
qualche tempo fa non so da chi. L'immagine è vero che viene copiata ma viene
copiata male in quanto ha i colori tutti sbagliati. Quasi come se l'immagine
venisse copiata in 256 colori anzicheè i suoi originari....
Un altro problema è che quando vado a salvare l'imamgine copiata con questo
codice:
                 jpeg:=Tjpegimage.Create;
                  try
                    jpeg.CompressionQuality := 88;
                    jpeg.ProgressiveEncoding := false;
                    jpeg.assign(image1.picture.bitmap);
                    jpeg.SaveToFile(savepicturedialog1.FileName);
                  finally
                    freeandnil(jpeg);
mi viene restituito il seguente errore: I/O Error 103
Chi mi riesce ad aiutare?
Grazie a tutti

Chi mi riesce ad aiutare?
il tuo problema e' forse questo:
http://snipurl.com/3hjv
Ad ogni modo, prova questo componente open:
http://pngdelphi.sourceforge.net/
"The official page for TPNGImage component, a complete/free/source code
library to read Portable Network Graphics images in Delphi/Object Pascal"
e facci sapere come ti trovi, visto che cmq il png e' ul formato emergente in
fatto di grafica.
Ciao!
-- 
Morde. 
(
mo...@despammed.com
)

 fatto di grafica.
Ti ringrazio, ora provo poi nel caso vi farò sapere.. ma per quale motivo
scusa dovrebbe succedere una cosa del genere? Cioè se io prendo una bit,ap
da un programma e la salvo in clipboard, per quale motivo deve essere
incollata con qualità ridotta?
Grazie

 incollata con qualità ridotta?
perche' la bitmap destinazione e' settata a 256 colori. Hai visto sull'help
le proprieta' della classe TBitmap? Mi sa di no. Fallo.
Ciao, Sandro

 le proprieta' della classe TBitmap? Mi sa di no. Fallo.
ok, chiarito questo (e cmq non mi spiego il fatto che di default venga messa
a 256 colori [se lo hanno fatto ci sarà un precisissimo motivo, non ne
discuto]) come posso portarla al formato originale? Questo l'Help lo dice?
Grazie

 le proprieta' della classe TBitmap? Mi sa di no. Fallo.
Dunque per il problema della qualità del colore ho risolto, sbagliavo a fare
l'assegnamento.
io facevo image1.picture.assign(clipboard) mentre in realtà ci andava
image1.picture.bitmap.assign(clipboard).
Mea culpa, ma rimane il fatto che quando vado a salvare l'immagine mi salta
fuori I/O Error 103....
Bah, cmq ho capito una cosa. Quando ci si spacca la testa per risolvere un
problema che non se ne ha un'idea andate fuori a bere, non a dismisura ma
giusto per essere un attimo allegri. Tornate a casa, accendete il PC, aprite
delphi e tutto vi sembrerà molto più chiaro.  ^__^
Opinioni del tutto personali
Saluti a tutti

 problema che non se ne ha un'idea andate fuori a bere
in questo modo, dopo gli anni necessari per farsi le ossa, quando finalmente
il programmatore potrebbe considerarsi un vero professionista, avrebbe il
fegato a pezzi, la tessera dell'anonima alcolisti in tasca, un alito
pestilenziale 24h/24, gli occhi sempre rossi e appallati :D
Ciao, Sandro
Newsgroup: it.comp.lang.delphi
Titolo: Maskedit e valuta

Ciao a tutti,
avrei la necessità di creare una mask in un TMaskedit
per poter inserire un valore  valuta dove devono essere visibili le migliaia 
separati da un punto e due decimali separati da una virgola
Qualcuno può aiutarmi?
Ciao e grazie. 

 ha scritto nel messaggio 
news:rsMaj.23458$8j3....@tornado.fastwebnet.it...

Io ti consiglio di scaricare le Jedi (componenti gratuiti per Delphi). Li 
troverai la
TJValidateEdit che fa proprio al caso tuo.
-- 
______________________
O^O
Gaetano - RoccoTanica

Newsgroup: it.comp.lang.delphi
Titolo: Conversione da Delphi 16 bit a Delphi 32 bit

Devo valutare, da assoluto neofita di Delphi, le difficoltà di conversione
di un'applicazione Delphi 16 bit a Delphi 32..mi sapreste indicare quali
potrebbero essere i problemi e quali saranno i problemi??
Conviene riscrivere direttamente tutto (tanto più che non si tratta di
programma scritto da me)!
Grazie per l'aiuto
Carlo

Se hai usato esclusivamente i componenti della VCL senza chiamate API ne'
componenti di terze parti tutto e' indolore; in caso contrario, va
verificato se le chiamate API nell'ambiente 32 bit funzionano; per i
componenti di terze parti devi trovare, ammesso che esistano, le versioni a
32 bit.
Ciao, Sandro

 wrote in message news:86chhd$i4k$1...@serv1.iunet.it...

E se poi il programma salva dei file custom in formato binario devi tener
conto delle differenze di dimensioni del tipo Integer e dei vari tipi di
Windows che, se usati nei SizeOf, possono procurare parecchi guai
Ciao,
Stefano

 Windows che, se usati nei SizeOf, possono procurare parecchi guai
Verissimo!! e importantissimo!!
Cmq in compenso, una volta fatto "il salto", se il programma e' fatto bene
funziona da W95 a W2000. I miei li sto testando e vanno alla grande anche
con W2000.. a maggior ragione quando uscira' Windows Millennium dovrebbero
funzionare.
Ciao, Sandro

 wrote in message news:86ct99$ice$1...@serv1.iunet.it...

Visto che siamo in argomento....
La M$ esorta caldamente a tener conto dello sviluppo futuro a 64 bit.
Le modifiche da Win32 a WIn64 come tipi di dato saranno molto minori, ma
occorre comunque tenerne conto.
Mentre da Win16 a Win32 tutti i tipi integer sono passati da 16 a 32 bit e i
puntatori sono rimasti invece, almeno come dimensione, a 32 bit, da Win32 a
Win64 l'unico tipo di dato a essere modificato sara' il puntatore, che
passera' ovviamente a 64 bit.
Tenerne conto ora significa fare meno lavoro quando occorrera' fare il
grande passo
Ciao,
Stefano
Newsgroup: it.comp.lang.delphi
Titolo: Password database Access e accesso da Delphi

Ho un database Access protetto da password e devo accedervi tramite un
programma delphi. Per interfacciarmi al database uso i componenti ADO.
Quando inserisco la stringa di connessione in Microsoft JET gli vado a
mettere la password del database. Chiaramente appena lancio il programma mi
dice che la password per accedere al database non è valida...
1) perchè devo perforza mettergli un nome utente? Delphi mi propone di
default Admin.
2) mi viene restituito il seguente errore: "Impossibile avviare
l'applicazione. Il file di informazioni sul gruppo di lavoro è mancante o
aperto in modo esclusico da un altro utente".
Che devo fare? Nessuno di voi si è trovato in questa situazione?
Davide

 ha scritto nel messaggio
news:b6ed5g$uck$1...@le.cs.unibo.it...


 ha scritto nel messaggio
news:8Xzia.45208$Jg1.1...@news1.tin.it...


 ha scritto nel messaggio
news:b6eida$ho6$1...@le.cs.unibo.it...

Newsgroup: it.comp.lang.delphi
Titolo: DLL Mixed-Language scambio

Ho una dll scritta in cobol che accetta come parametro una stringa.
ora senza buttare giů tutto il codice accenno il prg COBOL:
 LINKAGE SECTION.
 01  LN-REC.
     02  LN-AGE             PIC 9(4).
     02  LN-NOTA            PIC 9(6).
 PROCEDURE DIVISION using BY reference LN-REC. (LN-REC č un
alfanumerico)
*
Praticamente Delphi manda una stringa di 10 caratteri alla DLL che
scrive su un file ecc. ecc. e tutto funziona.
Dalla parte di delphi invece mi succede una cosa assai strana, cioč la
variabile che passo alla dll e che la dll modifica mi torna indietro
perfettamente, l'unico problema č che da quel momento in poi qualnque
valore assegno a quella variabile alla fine risulta sempre quella
restituita dalla DLL.
La chiamata č dinamica cosě fatta:
procedure TForm1.Button3Click(Sender: TObject);
type
TCallMeDll = function(a: ansistring): INTEGER stdcall;
var
CallMeDll: TCallMeDll;
FuncPtr: TFarProc;
hDll: THandle;
result: INTEGER;
a1 : ansistring;
begin
hDll:=LoadLibrary('trcorpi.dll');
FuncPtr:=GetProcAddress(hDLL,'TRCORPI');
@CallMeDll:=FuncPtr;
if @CallMeDll <> nil then
begin
  a1 := '0028903135';
  Memo1.Lines.Add(a1);
  result:=CallMeDll(a1);
  Memo1.Lines.Add(a1);
  Memo1.Lines.Add('Return Code: '+IntToStr(result));
  FuncPtr:=nil;
  FreeLibrary(hDll);
end
Praticamente al primo passaggio a1 č uguale al valore assegnato
('0028903135'), al secondo passaggio a1 (anche se passa da  a1 :=
'0028903135') ha sempre il valore che ha restituito la DLL.
Ho provato a mettere var  sulla func. TCallMeDll = function(var a:
ansistring): INTEGER stdcall;
ma restituisce "Project10.exe raised exception Class EaccessViolation
vith message Access Violation of address 00438EA in module ecc.)
Qualcuno puň aiutarmi?
Possibile che non riesco ad riinizializzare la variabile a1 col valore
che preferisco ?
Grazie a Tutti (confido in A. Magni) e scusate la lunghezza
Francesco Gatti

 Grazie a Tutti (confido in A. Magni) e scusate la lunghezza
Mi spiace ;-)
Ciao
--
(¯`·.¸¸.·´¯`·.¸¸.-> Andrea <-.¸¸.·´¯`·.¸¸.·´¯)
AntiSpam: rimuovere il trattino basso dall'indirizzo per rispondere
AntiSpam: remove the underscore from the e-mail address to reply

 TCallMeDll = function(a: ansistring): INTEGER stdcall;
.....
Newsgroup: it.comp.lang.delphi
Titolo: Precisione

Salve a tutti, effettuo il seguente codice per far comparire la somma
totale di ore in un Edit.
Tutto va bene, l'unica cosa che non mi piace č che quando i minuti sono 0,
l'Edit box visualizza es. 12.0 e non 12.00 come vorrei.
var
Tot: TDateTime;
iOre,iMin,iSec,iMsec: Word;
begin
  //Calcola il totale
  DataMod.Query_BAG.First;
  Tot:=0;
  while not DataMod.Query_BAG.Eof do
  begin
    Tot :=Tot+(DataMod.Query_BAGTOT_ORE.AsDateTime);
    DataMod.Query_BAG.Next;
  end;
  DecodeTime(Tot, iOre, iMin, iSec, iMsec);
  iOre := iOre + (24*Trunc(Tot));
  Edit_ORETOT.Text:=Format('%d.%d',[iOre, iMin]);
end;
Qualcuno sa dirmi come posso fare?
Grazie e a presto
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

   Edit_ORETOT.Text:=Format('%d.%d',[iOre, iMin]);
Se ricordo bene, 
Edit_ORETOT.Text:=Format('%2d.%2d',[iOre, iMin]);
-- 
Lis
ICQ@Home #7317603sette     ICQ@Work #16285702tre
Mercatino: 
http://lis77.bravepages.com
 (aggiornato *con foto*: 16/06/03)

Hai dato un occhio alle stringhe di formato che si possono passare come
parametri alla funzione format?
C'è un link dalla pagina di help di Format.
Bye
A

 Edit_ORETOT.Text:=Format('%2d.%2d',[iOre, iMin]);
Purtroppo questo mi sposta di uno spazio il valore.
Risultato Es. 12. 0
Cmq grazie.


 C'è un link dalla pagina di help di Format.
Si ho guardato, ma non trovo niente che mi vada bene.
Grazie.
E.


 Cmq grazie.
Ok, prova cosě, dovrebbe funzionare:
Edit_ORETOT.Text:=Format('%2.2d.%2.2d',[iOre, iMin]);


 Edit_ORETOT.Text:=Format('%2.2d.%2.2d',[iOre, iMin]);
PERFETTO !!! Grazie mille e alla prossima.
Buon lavoro.
Ciao


Newsgroup: it.comp.lang.delphi
Titolo: delphi5 & XML..

ciao,
Mi sembra che in delphi5 non ci sia niente per gestire l'XML, sbaglio?
Avete qualche componente/libreria di terzi da consigliarmi??
devo leggere/scrivere semplici file XML..
grazie..
maz

maz wrote:

Puoi utilizzare OpenXML oppure importi l'XMLDom di MsSDK.
-- 
I'am what I'am, I do what I can
Newsgroup: it.comp.lang.delphi
Titolo: Packages e dintorni.....

Ho provato ad usare i packages in un applicazione di prova. Ho compilato un 
nuovo package (runtime) con una unit (per la precisione una unit + un form ) 
e fin qui tutto ok.
Per fare delle prove,  in un applicazione inserisco il package (.dcp) da 
project, options, build with runtime packages.
Ma quando da codice richiamo una funzione, non la trova.......
Ho provato a copiare il pack compilato (.bpl) in una directory presente nel 
path (windows\system32), ma non cambia nulla.
Dove sbaglio?
Grazie a chi mi risponderà.

> Ma quando da codice richiamo una funzione, non la trova.......
Un po di codice?
AS

 Ma quando da codice richiamo una funzione, non la trova.......
In genere, l'uso - o meno - dei runtime package non richiede modifiche 
al codice sorgente in quanto tale.
Il codice veniva compilato correttamente prima di utilizzare il runtime 
package?
Se disabiliti (temporaneamente) l'uso dei runtime package, ottieni lo 
stesso effetto?
Ciao,
   Marco.
-- 
MARCO BREVEGLIERI
  (
http://www.marco.breveglieri.name
)
Newsgroup: it.comp.lang.delphi
Titolo: Programador . NET - Recife

VAGA – ANALISTA PROGRAMADOR. NET - RECIFE
Estado: Recife
Cidade: Recife – Boa Viagem ' NECESSÁRIO RESIDIR PRÓXIMO' (NÃO SERÁ
AVALIADO VC'S DE OUTRO ESTADO)
Número de vagas: 2
Descrição: Experiência em desenvolvimento na linguagem C# DOT. NET;
Banco de dados SQL SERVER;
Regime de contratação: CLT
Faixa salarial: R$1.000,00 á R$2.800,00( NÃO SERÃO AVALIADOS
CURRÍCULOS COM PRETENSÃO SUPERIOR A ESTA)
Horário: de segunda a sexta-feira dás 09h00 ás 18h00
Diferencial: Grandes possibilidades de crescimento
Os interessados deverão enviar currículo atualizado em formato Word
para o seguinte e-mail: 
miriam....@funcao.com.br
 com o título
‘Analista Programador. NET – RECIFE’.
AVALIAREMOS SOMENTE OS CV'S QUE ESTIVEREM DENTRO DO PERFIL
Att. Miriam Claudino
Recursos Humanos

 CURRÍCULOS COM PRETENSÃO SUPERIOR A ESTA)
Al netto o lordo? Sono un pò bassini, 2800 real sono circa 1200 euro.
Voi cosa dite? Questo sarebbe un cambiamento di vita!
Ho sempre sognato di fare il mio lavoro in una città di mare senza 
cambiare guardaroba, maniche e calzoni corti tutto l'anno, pesce fresco 
alla griglia tutti i giorni, movida notturna, e poi... il brasile è 
sempre il brasile: popolo fantastico!
-- 
morde
QT 4.7
Delphi (5,6,7.. expired)
Firebird Database

 brasile è sempre il brasile: popolo fantastico!
ti consiglio la Thailandia, allora: clima tropicale, gente fantastica,
posti mozzafiato, il buddhismo che ha un fascino straordinario e, al
contrario del brasile, non ci sono trafficanti di droga nè rischi di
trovarti sequestrato o sgozzato se pesti i piedi sbagliati o diventi un
pochino ricco..
-- 
Alessandra
Puoi chiamare Dio in mille modi: Dio, Allah, Buddha, Geova, Yahvè,
Ernesto? tanto non ti risponde - Corrado Guzzanti.

 pochino ricco..
Ma non avevano problemi coi fondamentalisti religiosi? O mi sbaglio?


 Ma non avevano problemi coi fondamentalisti religiosi? O mi sbaglio?
no, non mi risulta. Ci sono problemi interni, tra re e primo ministro
(18 tentativi di colpo di stato in 50 anni), ma non di religione: gli
islamici sono appena l'8%, il resto è buddhista con piccole minoranze
di giapponesi e cinesi, che in buona sostanza non contano nulla. I
cattolici sono quasi inesistenti. Il problema è la lingua (scritta e
parlata), ma esistono corsi. La vita costa pochissimo, con uno
stipendio-tipo italiano, con cui un italiano qui fa la fame, là ci si
vive da re. Il problema è che non danno permesso di soggiorno
permanente, a meno di condizioni molto particolari, e costringono ad un
espatrio forzato ogni 30/60 giorni per poi poter rientrare con un altro
permesso temporaneo.
-- 
Alessandra
Incurabilmente religioso, questo è il modo migliore di descrivere la
condizione mentale di così tanta gente - Thomas Edison
Newsgroup: it.comp.lang.delphi
Titolo: Componenete Zip free

Mi sapete indicare un buon componente free (visuale o no) per gestire i file
Zip?!!?
Grazie e buon anno a tutti !!!!

 i file Zip?!!?
Delphi Zip, lo trovi su 
www.torry.net
--
Jax
====
Come puoi pretendere l'amore di Dio, se non sai nemmeno farti amare da
chi ti è vicino.

 ha scritto nel messaggio
news:sh9Ib.20471$VW.10...@news3.tin.it...


 ha scritto nel messaggio
news:sh9Ib.20471$VW.10...@news3.tin.it...


Newsgroup: it.comp.lang.delphi
Titolo: carattere ?

Qualcuna sa dirmi come mai,
se scrivo il carattere ? in una TDBEdit, quando salvo il database, nel campo 
viene memorizzato il carattere # invece dell'?
grazie
Alessandro 

 se scrivo il carattere ? in una TDBEdit, quando salvo il database
hai sbagliato ng. questo è un ng di sviluppatori.
A

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

Ciao a tutti,
ho una ListView con 4 colonne: Autori, Titoli, Editori, Anno che vengono
riempite estraendo dati da un database, non riesco o meglio non so come si
fa (sarà banale) a estrarre
il dato quando clicco su una "cella" da trasferire ad una variabile per
essere elaborato. Ho necessità di usare proprio questo componenete (questo
per prevenire coloro che potrebbero consigliarmi StringGrid)
Grazie per la collaborazione. Lanfranco

Immagino che la risposta non sia di tuo gradimento ma esistono i componenti
per facilitare quelle azioni che si presentano migliaia di volte.
Per me tu devi usare un componente tDataSource, un componente tTable o
tQuery e un componente tDBGrid con un tDBNavigator.
Dopo di che il gioco è fatto.
Ciao
Mario

--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

Newsgroup: it.comp.lang.delphi
Titolo: adoquery errore sintassi

Salve raga, ho la seguente linea di codice che mi da sempre errore 'errore 
di sintassi'
dm.queryclienti.SQL.Add('insert into nota (data, nota, check) values 
('+inttostr(d)+','+quotedstr(n)+','+quotedstr('No')+')');
il campo data è numerico intero, e non dovrebbe avere problemi, idem il 
campo nota, che è memo, mentre il campo check e del tipo Si/No (boolean)
nel codice, ricavo d con d:=trunc(date) ed n:=memonota.text
uso ADO, ed il nome della tabella è corretto.
Suggerimenti su dove sbaglio? Grazie 

Prima di tutto è meglio lavorare con i params ed evitare di usare
possibili parole riservate. Inoltre è opportuno usare tipi di campi
appropriati; per il campo data ad esempio è meglio usare un campo
datetime e non un intero
dm.queryclienti.SQL.text := 'insert into nota (data, nota,
check_value) values (:d, :n, :cv)';
dm.queryclienti.parameters.parambyname('d').value := date;
dm.queryclienti.parameters.parambyname('n').value :=
memonota.lines.text;
dm.queryclienti.parameters.parambyname('cv').value :=
Tuocheckbox.checked;
...
Ciao,
Andrea

 ha scritto nel messaggio 
news:4dcea077$0$38643$4faf...@reader1.news.tin.it...


 > ('+inttostr(d)+','+quotedstr(n)+','+quotedstr('No')+')');
tanto per cominciare, non racchiudendo il valore tra virgolette :)
Ale

 ha scritto nel messaggio 
news:2cdfad0d-fe63-4c37...@cu4g2000vbb.googlegroups.com...

Newsgroup: it.comp.lang.delphi
Titolo: ONENTER in Timage

Salve,
Mi serve poter cambiare una immagine
di una mia TImage quando ENTRO sopra
con il mouse.
TImage non ha un ONENTER, avete
qualche consiglio/trucco  ?
grazie
Mauro.

 con il mouse.
Ciao,
         puoi sfruttare i due messaggi CM_MOUSEENTER e CM_MOUSELEAVE...
Decidi tu se ereditare un nuovo TImageConOnMouseEnterLeave o se subclassare
al volo la WndProc...
Ciao :-)
--
(¯`·.¸¸.·´¯`·.¸¸.-> Andrea <-.¸¸.·´¯`·.¸¸.·´¯)
AntiSpam: rimuovere il trattino basso dall'indirizzo per rispondere
AntiSpam: remove the underscore from the e-mail address to reply

Newsgroup: it.comp.lang.delphi
Titolo: ZOES TZMySqlTable.filter, Come si usa?????

Con Delphi 6 update pack 2, Zoes beta 5.3.0 build 6 l'oggetto TZMySqlTable
nella proprietà filter cosa devo mettere per ottenere un filtro??
Il metodo classico che si usa sembra non funzionare: es Nomecampo =  'Ciao'
da un errore: 'False is not a valid floating point value'.
Qualcuno sa come si usa?
Grazie

> da un errore: 'False is not a valid floating point value'.
dall'errore sembrerebbe che tu stai cercando di filtrare un campo numerico
con una stringa ("False" appunto)
ciao
Gianni

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

 Come faccio in runtime ad avere un valore GUI tipo 
{28DDC366-EC01-45B7-B8CC-050BA98F9E0D} ?
Grazie.
AtcBrambo
--- posted by geoForum on 
http://www.delphiedintorni.it

 {28DDC366-EC01-45B7-B8CC-050BA98F9E0D} ?
http://www.google.it/search?hl=it&q=create+guid+delphi&btnG=Cerca+con+Google&meta=
Ci vuole tanto?
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

Newsgroup: it.comp.lang.delphi
Titolo: RS232 e registratori di cassa quali componenti ?

Come da oggetto mi è stato chiesto di poter emettere scontrini dal 
gestionale invece che direttamente dal registratore.
Il registratore in questione è un Vis modello Graphics ed è collegabile 
attraverso seriale. Mi è stato detto che sul manuale c'è il codice per 
comunicare con il registratore.
Quali componenti mi consigliate per comunicare con il registratore ?
Daniele

 Ciao
Ok grazie !

Quali componenti mi consigliate per comunicare con il registratore ?
Prova con gli Async di turbopower, 
http://sourceforge.net/projects/tpapro
Ciao
-- 
Morde. 
(
mo...@despammed.com
)
M-List di icld: 
http://it.groups.yahoo.com/group/icld/

Newsgroup: it.comp.lang.delphi
Titolo: Elementi dimensionabili

Non so come si fa a ridimensionare degli oggetti su una form (in alto una
listview e in basso una memo) a mo' di Outlook express per intenderci.
Potete aiutarmi?
Grazie a tutto il NG. Lanfranco

 Potete aiutarmi?
Prova ad usare il componente Splitter (palette Additional)
Saluti

 intenderci.  Potete aiutarmi?
Metti un TPanel nella form e imposta Align a alClient. Inserisci nel
TPanel la TListView e setta la sua Align a alTop.
Metti nel panel anche uno TSplitter e setta la sua Align ad alTop.
Infine, metti il TMemo sempre nel TPanel ed imposta la sua Align ad
alClient.
Cosě dovrebbe andare, se ho capito bene quello che volevi.
Antonio
Newsgroup: it.comp.lang.delphi
Titolo: CHECK FOR UPDATES

Qualcuno mi sa indirizzare su dei componenti delphi "freeware" per la
gestione degli update delle mie applicazioni sul mio sito?
Ho bisogno di fare un "check for updates"
Ciao
grazie.

"Filippo" ha scritto nel messaggio
| Qualcuno mi sa indirizzare su dei componenti delphi "freeware" per la
| gestione degli update delle mie applicazioni sul mio sito?
| Ho bisogno di fare un "check for updates"
Vedi qui: 
http://www.tmssoftware.com/wupdate.htm
 ("enhances your
application with automatic software updates via http,ftp,files" ecc...)
Free per usi NON commerciali.
--
Ciao.
ACSH
[D4]
---------------------------
Chi fa da se'
fatica il doppio

Newsgroup: it.comp.lang.delphi
Titolo: Upload FTP

Salve,
vorrei un'informazione sull'uso componente TNMFTP di Delphi.
Il mio scopo è quello di fare l'upload di un file su un server ftp.
Mi sapete elencare le istruzioni da fare?
Ad esempio per creare l'oggetto cosa passo al costruttore "Create( )" ?
Grazie mille
Apu

 Mi sapete elencare le istruzioni da fare?
Dai un'occhiata alle demos delle indy,c'è un client ftp completo da studiare
:)


 Mi sapete elencare le istruzioni da fare?
L'esempio che segue è stato implementato con i componenti Indy (TIdFtp).
Alla pressione di un bottone, vengono impostati i parametri di
autenticazione per la sessione FTP (mediante lettura da un file Ini), e
viene effettuato l'upload.
<note on>
-Di default, i files remoti vengono sovrascritti (il meccanismo per la
gestione dell'esistenza dei files presenti in remoto non è stato
implementato, all'epoca, in quanto per le mie esigenze era perfettamente
inutile), ma la sua implementazione risulta comunque molto semplice.
-Il codice è per C++ Builder, ma la conversione in delphi dovrebbe essere
abbastanza immediata
-il nome del componente Ftp è "Transfer", quello del file ini è GetFromIni.
-La funzione ExceptionShowMessage() non fa altro che visualizzare il
messaggio d'errore generato dall'eccezione, dopo che questo è stato
catturato mediante la GetLastError().
<note off>
void __fastcall TForm15::ToolButton1Click(TObject *Sender)
{
        Transfer->User=GetFromIni->ReadString("Startup", "FTPLog", "");
        Transfer->Password=GetFromIni->ReadString("Startup", "FTPPwd", "");
        Transfer->Host=GetFromIni->ReadString("Startup", "FTPHost", "");
        try{
                        Transfer->Connect(); //provo ad effettuare la
connessione
                        Transfer->ChangeDir("remotesavedir"); // mi
posiziono nella dir remota dove avverrà al'upload
                        Transfer->Put(LocalFilePath, RemoteFileName, false);
//invio il file
        }
        catch(...){
                        Application->MessageBoxA(ExceptionShowMessage(),
ErrorMessageText, MB_OK|MB_ICONERROR);
                        Transfer->Disconnect();
        }
}
Buon lavoro,
A.
Newsgroup: it.comp.lang.delphi
Titolo: MIDI (o karaoke) con delphi

Qualcuno sa dove posso trovare qualche componente (anche shareware) per
leggere (e eseguire) MIDI (sarebbe l'ideale i .KAR).
grazie
ciao
Solid Snake IT

"Solid Snake IT":
| Qualcuno sa dove posso trovare qualche componente (anche shareware) per
| leggere (e eseguire) MIDI (sarebbe l'ideale i .KAR).
per i MIDI ti dovrebbe bastare il TMediaPlayer ...
Ciao,
Alan Solo

Prova questo URL.
http://www.wilsonc.demon.co.uk/
Ci sono componenti per il basso livello del MIDI veramente di qualità.
Ciao Renzo
--
Posted from 
smtp4.libero.it
 [193.70.192.54] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG
Newsgroup: it.comp.lang.delphi
Titolo: TADOQuery

ciao,
vorrei passare al componente tadoquery una select che mi ritorna una 
valore...
es.
select
      max(id)
into 
      :iMax
from
      tabella
come faccio a prendermi il valore di iMax?
grazie a tutti.
------------------------
Diego Di Filippo
  R&amp;D Software Developer
 
www.ada-project.com
-----------------------
--- posted by geoForum on 
http://www.delphiedintorni.it

 come faccio a prendermi il valore di iMax?
Con questo approccio non saprei, non l'ho mai usato, però se fai
select max(id) as iMax from tabella
ti restituirà un unico record con un unico campo, quindi poi vai di
iMax := query.Fields[0].Value;
-- 
Jax
====
L'occasione non fa solo i ladri, ma anche i grandi uomini. (Edwin
Lichtenberg)

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

 x := adoquery.params[0].value;
Ho provato ma non va, la proprietą params non esiste in un tadoquery.
Ho provato cosi :
adoquery.Close;
adoquery.SQL.Clear;
adoquery.SQL.Add( Memo2.Text );
adoquery.Parameters.ParamByName( 'imax' ).DataType := ftInteger;
adoquery.Parameters.ParamByName( 'imax' ).Direction := pdReturnValue;
adoquery.Open;
ho cercato e sto ancora cercando in giro, anche nel forum non c'č niente.
chi mi helpa!


 chi mi helpa!
LEGGI MEGLIO LE RISPOSTE!
Jax ti ha detto tutto quello che c'e' da fare.
-- 
Morde. 
M-List di icld: 
http://it.groups.yahoo.com/group/icld/


Ho letto la risposta di Jax e funziona anche! ma mi chiedevo come si puň 
fare ad usare i parametri.
grazie Jax


 fare ad usare i parametri.
ma che db stai usando? Pensavo avessi almeno verificato che lo statment sql
fosse corretto ma facendo delle prove con sqlserver non sembra funzionare.
Usa una store procedure.


 Usa una store procedure.
Sto usando Access XP, ho provato a creare una stored procedure in access 
ma come si fa?
Ho creato una semplice query ma il componente TADOStoredProc non la vede.


 Ho creato una semplice query ma il componente TADOStoredProc non la vede.
con access non puoi, l'unica soluzione è quella suggerita da Jax.


 fare ad usare i parametri.
Puoi fare una query parametrica se hai delle condizioni di selezione.
Se fai
/
select max(id)
from tabella
/
la tua query non necessita di alcun parametro, semplicemente perchè la 
selezione non ha alcuna clausola "where".
Quindi non puoi usare i parametri.
Se avessi una situazione tipo:
/
select max(id)
from tabella
where campo_esempio = "valore_esempio"
/
allora potresti convertire il tutto in
/
select max(id)
from tabella
where campo_esempio = :pCampoEsempio
/
in modo da permettere a Delphi di rilevare e gestire correttamente il 
parametro.
Ciao,
Gianluca.

parametro.
grazie del chiarimento Gianluca! questa notte non ho dormito per questa 
cosa... :)

Newsgroup: it.comp.lang.delphi
Titolo: Trascinare file fuori dal programma

Ciao a tutti, scusate il titolo ma non sapevo come spiegarla.
Avrei la necessità di, per esempio, selezionare una riga di una griglia e fare in modo che trascinandola fuori dal mio programma venga salvato un file dove mi posiziono:
Esempio: ho una griglia dove ogni riga contiene una stringa col percorso di un file sul computer. Voglio far si che se seleziono una riga e la trascino sul desktop o su una qualsiasi cartella, mi venga salvato il file di quel percorso dove rilascio il mouse.
E' fattibile? il problema per me non è tanto istanziarmi il file quanto intercettare dove rilascio ecc, vorrei anche fosse possibile trascinare quel file direttamente su una mail di outlook per aggiungerlo come un allegato.
 
grazie mille a chiunque riesca a darmi qualche dritta.
 
-- 
mnoga


Devi creare una classe che implementi un'interfaccia OLE di windows per
implementare il Drag&Drop (SOURCE e/o TARGET a seconda che vuoi fare
il drag da o verso la tua applicazione)
 
Cercando su google "delphi drag drop files example" tra i vari link ho
trovato questo.
 
https://www.swissdelphicenter.ch/en/showcode.php?id=2335
 
 
Non ho provato personalmente quindi non so se funziona! :)
 
ciao
Giacomo
 

 Giacomo
 
-- 
mnoga