mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.delphi
Titolo: Parametri di NetFileEnum

 
          Ciao,
è tutta mattina che ci provo ma non capisco dove sbaglio. Sto provando ad
usare NetFileEnum per verificare quali files in rete sono vincolati e da
chi, ma ogni volta mi restituisce l'errore "Imposiibile trovare il percorso
di rete".
Da quello che ho capito, nei primi 2 parametri di NetFileEnum, devo passare
il nome del servere ed il file su cui voglio fare il test.
Ora, supponendo che il mio server si chiami PIPPO e che voglia testare il
file g:\tmp\PLUTO.DOC, io lancio:
  dwResult:=NetFileEnum('\\PIPPO',
                        'g:\tmp\PLUTO.DOC,
                        nil,
                        3,
                        @pfi3,
                        MAX_PREFERRED_LENGTH,
                        @dwRead,
                        @dwTotal,
                        nil);
però mi da l'errore che segnalavo prima.
Dove sbaglio?
Grazie, Mario
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

Sbagli a non leggere attentamente la guida:
NET_API_STATUS NetFileEnum(
    LPTSTR servername,
    LPTSTR basepath,
    LPTSTR username,
    DWORD level,
    LPBYTE *bufptr,
    DWORD prefmaxlen,
    LPDWORD entriesread,
    LPDWORD totalentries,
    LPDWORD resume_handle
   );
I primi 3 parametri sono di tipo lpstr. in delphi questo corrisponde a
pchar....
AS

Newsgroup: it.comp.lang.delphi
Titolo: info D5

dove posso acquistare una licenza originale di delphi 5?
si trovano ancora?!?!
qualcuno sa qualcosa?
grazie a tutti e ciao
Pier

Non so qui se qualcuno te la vende di seconda mano.
Altrimenti E-bay.
CIao
Mario - (
mari...@inwind.it
)
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

Newsgroup: it.comp.lang.delphi
Titolo: Errore in importazione OCX fatto in VB

Ciao, ho la necessità di impotare un componente OCX fatto in VB in un 
mio progetto Delphi 5, ma ogni volta che provo a importarlo mi si genera 
l'errore: GhostMethod_1968 already exists
Sapete cosa può essere?
Grazie
tomas

Immagino che "GhostMethod_1968" sia il nome del componente OCX...giusto?
L'errore di "IMPORTAZIONE" è quanto importi dalla TypeLibrary o quando 
trascini l'oggetto dala PALETTE al FORM?
Ma l'oggetto OCX è registrato correttamente? (RUN da CMD --> 
regsvr32 "C:\test\test.ocx")
Prova con un altro Delphi se ne hai la possibilità...
--- posted by geoForum on 
http://www.delphiedintorni.it

 regsvr32 "C:\test\test.ocx")
Si, perchè quando scelgo importa Activex me lo ritrovo tra quelli nella 
lista, quindi è registrato correttamente.
Grazie
Tomas

purtroppo non ho mai sentito "GhostMethod_1968"...ho fatto una ricerca su 
Google ma quel apio di persone che hanno il tuo stesso problema non 
sembrano aver trovato risposta da nessuno...
e io piu' di osi' nn so aiutarti se nn so cosa sia il "GhostMethod_1968"
m spiace


 m spiace
Grazie lo stesso per l'interessamento :)
ciao
Newsgroup: it.comp.lang.delphi
Titolo: Thread & DB

Salve a tutti.
Vorrei un consiglio su come risolvere un problema con i thread.
In un thread posso mettere del codice che viene eseguito
"contemporaneamente" (lo metto tra virgolette, sò che se il microprocessore
è uno solo o se il prog gira sotto windows 95/98/ME, il microprocessore a
funzionare è uno solo e fa una istruzione alla volta) all'esecuzione del mio
programma.
Se devo accedere a delle variabili o aggiornare dei valori sulla form, devo
usare il metodo synchronize per evitare che il thread principale del
processo e quello che ho creato io accedano alla stessa area di memoria
contemporaneamente.
Tutto ok fino qui. Nessun problema.
Ora, la domanda che pongo è: Tutti quei splendidi componenti che vengono
sviluppati per essere droppati su una form, andranno molto bene, non lo
metto in dubbio, ma come faccio ad accederci in maniera sicura dal mio
thread?
Se vengono richiamati dal thread principale del processo (quello della form
su cui risiedono), ovviamente tutto funzia benissimo. Ma se ci accedo da uno
thread?
Es, voglio che quando premo un bottone o viene lanciato un qualsiasi evento,
parta un thread che faccia un select sql su una tabella, analizzi i dataset
e aggiorni una tabella mia (non Tdbgrid). E' sicuro accederci dal mio thread
secondario? E se l'applicazione viene terminata prima che il thread finisca?
Potrei fare un controllo che il programma termini solo se il thread ha
completato il lavoro, ok, ma è sicuro?
Se se per caso il thread ci mette molto tempo e parte ancora l'evento e
viene eseguito un'altro select da un'altro thread sulla stessa tabella? Non
si imbrodella tutto?
Potrei creare una Ttable quando parte il thread, ma essa è un bel
Tcomponent, e vuole essere adagiato su una form, e io come faccio, che ho
solo un piccolo thread? La metto su quella principale? Siamo al punto di
partenza...
O forse è meglio che syncronizzi ogni accesso alla Ttable con la form
principale? In questa caso addio multi-cippalippa-tasking: Degrado di
prestazioni mostruoso...
E' possibile creare una istanza di un oggetto che deriva da Tcomponent senza
adagiarlo su una form? e se il componente esige di essere su una form per
intercettare che so quale evento? Ciccia, immagino...
Qualcuno mi sa dare qualche ideuccia o consiglio?
Ciao
Matteo

 thread?
mah, penso si possa fare, basta che metti un campo TTable all'interno
della tua classe TThread e lo creai quando la usi, in questo modo sei
sicuro che ogni thread creato ha al suo interno un *suo* oggetto TTable
Ciao,
Alan Solo
Newsgroup: it.comp.lang.delphi
Titolo: fare grafica in delphi

Premetto che lo scopo è di creare delle piantine a cui sovrapporre 
oggetti di qualsiasi forma e colore 2D i cui dati possano risiedere in 
db. Gli oggetti devono essere manipolabili dall'utente così come le 
piantine,  deve essere possibile effettuare zoom e pan. Esistono delle 
librerie grafiche magari open o gratuite che permettano di ottenere 
quanto sopra con una discreta facilità ?

 ottenere quanto sopra con una discreta facilità ?
A pagamento sicuramente qualche activex lo trovi, del resto basta 
importarne la type library e fare delle chiamate al COM.
Torry che dice ? Se non trovi lì, la vedo dura.
-- 
Morde


Acc speravo che aveste già visto qualcosa. Tempo fa ho sentito parlare 
di una libreria open 2d/3d (Irrlich, OpenGlScene etc), darò senz'altro 
uno occhio a Torry's. Grazie lo stesso.
Dani.

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

Ciao a tutti,
ho un problema con i memo..... Ho una tablella dbf, che contiene un campo
memo. In questo campo, ovviamente, vengo inserite delle stringhe di
caratteri. Il mio programma, prevede la cancellazione di record; ebbene, se
nel campo memo c'è scritto qualcosa, mi viene segnalato un'errore di
scrittura su disco..... Se cancello la stringa del memo, e poi cancello il
record, tutto ok. Altra stranezza (magari no): questo non succede dal
computer su cui è stato creato il programma (il mio), ma su un'altro, dove
il programma è stato installato successivamente (con dbf, ndx e dbt....).
Qualcuno sa dirmi dove sta il problema? Grazie.
D.

 ha scritto nel messaggio
news:oftzb.4727$5o6....@tornado.fastwebnet.it...



Posta il codice che usi per la cancellazione e l'errore esatto che ti esce e
magari la versione Delphi.
Io utilizzo DBF + DBT con DBE e non ho problemi (o quasi).
Vedi di aiutarti se mi dai altre informazioni.
Ciao
Marco
-- 
MaoSw
Reporter Professional srl
supporto...@reporterprofessional.it

 ha scritto nel messaggio
news:JxYzb.157883$hV.57...@news2.tin.it...


 ha scritto nel messaggio
news:pc8Ab.9080$5o6....@tornado.fastwebnet.it...


 ha scritto nel messaggio
news:pc8Ab.9080$5o6....@tornado.fastwebnet.it...


 ha scritto nel messaggio
news:pc8Ab.9080$5o6....@tornado.fastwebnet.it...



Non fai compattamenti del file ?
Non funzionano con il file DBase contenenti memo !
Hai controllato gli handles nella configurazione del BDE per Dbase ?
Forse sono bassi. Di default sono 48, aumenta questo valore in base al nr.
dei files (dbf, indici e dbt) che il tuo programma apre contemporaneamente.
Prova a vedere questi link forse trovi qualche help.
http://community.borland.com/article/0,1410,15283,00.html
http://www.delphifaq.com/fq/q0004.shtml
http://www.cbuilder.ru/faqs/faqd_en/
http://www.elevatesoft.com/faq.htm
http://www.delphi-fundgrube.de/files/bdeerror.txt
http://mirwin.homestead.com/files/tips/TableCorruption.html

Newsgroup: it.comp.lang.delphi
Titolo: Ancora SQL e TQuery

Ho sviluppato una applicazione database che all'apertura carica tutti i dati
in varie TTable.
Ora la sto modificando ed invece delle ttable vorrei usare le tQuery in modo
da caricare ogni volta solo i dati che mi interessano.
Quando l'utente immette un nome da ricercare nel db :
with Query1 do
     begin
          Close;
          DatabaseName := 'D:\Database';
          SQl.Clear;
          Sql.Add('SELECT Cognome,Nome,DataDiNascita FROM Anagrafica'+
                  ' WHERE Cognome LIKE :nome' ORDER BY Cognome);
          Query1.Params[0].AsString := Edit1.Text + '%';
          ExecSQL;
          Active:=True;
          CheckBox1.Checked := Query1.CanModify;
          if Query1.RecordCount > 1 then      \\    Se i nominativi trovati
sono piu' di uno...
             frmScegliNominativo.ShowModal; \\<-- Contiene una dbgrid che
permette di scegliere tra i nominativi trovati ordinati alfabeticamente
      end;
A questo punto funziona tutto ma se poi voglio modificare qualche dato nella
TQuery, il BDE non me lo permette perche usando la clausola ORDER BY
il record e' solo read-only.
Per modificare il record trovato devo togliere ORDER BY ma poi perdo
l'ordinamento per cognome.
Come posso fare per modificare il record trovato?
Spero di essermi spiegato...
       Ciao

Come posso fare per modificare il record trovato?
Io ti consiglio di togliere l'order by e di usare oltre alla query un
TClientDataset + TDatasetProvider.
A questo punto usi il ClientDataset per lavorare sui dati, potendo
sfruttare tutte le sue potenzialitŕ.
Ciao, Rocco.

prima di tutto, metterei ordine nel tuo codice.
Non ti serve ne assegnare una serie di cose ogni volta ne
mettere active := true dopo execsql.
Per query che restituiscono un cursore meglio usare Open.
Infine, usare recordcount è un suicidio su dataset grandi.
Per calcolarlo deve scorrere tutti i record.
Quindi, se la sintassi è FISSA:
with Query1 do
begin
  Close;
//  SQl.Clear;
//  Sql.Add('SELECT Cognome,Nome,DataDiNascita FROM Anagrafica'+
//  ' WHERE Cognome LIKE :nome' ORDER BY Cognome);
  ParamBYNAME('NOME').ASSTRING := Edit1.Text + '%';
  Open;
  CheckBox1.Checked := CanModify;
Vedi TUpdateSql nella guida di delphi.
Bye
AS
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 ha scritto nel messaggio
news:2dc1fa77a77a59e65c...@mygate.mailgate.org...


 da caricare ogni volta solo i dati che mi interessano.
Ribadisco per l'ennesima volta: se stai usando Paradox,
continua a usare le TTable.  Usare le TQuery ed SQL con 
Paradox e' un massacro.


 tanto per iniziare.
A parte gli esempi, hai letto la guida in linea di delphi?


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

Si sto usando Paradox, ma vorrei usare le tquery al posto delle ttable
Sbagli, a mio avviso.
-- 
Andrea Laforgia (
walkie...@libero.it
)
"Usenet is a strange place" [Dennis Ritchie]
Newsgroup: it.comp.lang.delphi
Titolo: Dimensione Form

Salve a tutti,
 Premetto che ho guardato nelle altre FAQ prima di scrivere questa domanda:
Avrei la necessità di avere un Form con una larghezza di almeno 1260.
Purtroppo la max larghezza consentita è 1036.
Questo perchè dipende dalla risoluzione video del sistema sul quale lavoro?
Se si come posso fare? Grazie.
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it


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

 P.S.: come mai ti serve una form così grande?
Perchè ho delle combobox con dimensioni min. di
50(combo)50(combo)20(edit)80(combo) che si ripetono per 7 volte e non
posso sfalsarle.
ciao


 lavoro?
Sì, credo che sia per questo. Prova ad aumentare la risoluzione (se puoi)...
al momento non mi vengono in mente altre soluzioni valide.
--
Jax
Journeying Artificial Xenomorph

 Jax
Ho provato, cosě facendo posso aumentare la gramdezza del form.Il problema
č che non tutti hanno risoluzioni piů alte del 1024x768 e poi ovviamente
diventa tutto piccolo, troppo piccolo.
Cercherň un'altra strada. Grazie e se hai idee, fammi sapere.


 posso sfalsarle.
Hai preso in considerazione di paginarli (PageControl) ?
Saluti
Paolo Arosio

 posso sfalsarle.
Non ti ho risposto prima perche' temevo che dicessi una cosa del genere.
Come gia' detto, ti manca qualche concetto piu' generale, non strettamente
legato a Delphi.
Il problema della tua applicazione e' che non ha un progetto di base, il
fatto che tu ti stia concentrando sulle dimensioni del form invece di
affrontare il problema non e' un bene. Cerca di capire PERCHE' ti serve un
form cosi' grande, e non cercare di aggirare il problema. Imparerai molto di
piu', e risparmierai tempo se domani ti servira' una combo box in piu'
nell'applicazione.
Newsgroup: it.comp.lang.delphi
Titolo: TDatabase + AliasName

Ciao a tutto il NG,
sto creando un nuovo componente derivato a TDataBase.
Ho la necessità di cambiare la proprietà *AliasName* a run-time.
Inizialmente ho proveto a farlo nel "constructor" ma non funziona (l'alias
viene riassegnato)
Allora ho provato a sovrascrivere l'evento "BeforeConnect" ma, se
ridefinisco l'evento mi perdo il codice.
Qualcuno può aiutarmi ?
grazie
--
Solid Snake IT
"Nemo mortalium omnibus horis sapit" (Plinio il VECCHIO)

 Qualcuno puņ aiutarmi ?


Newsgroup: it.comp.lang.delphi
Titolo: funzioni da form ereditate

Salve a tutti
utilizzo una form "new" ereditata da un'altra "old" ,
nella "old" ho generato alcuni eventi per dei bottoni e fin qui tutto
ok, ma se nell'evento voglio chiamare una funzione "myfunc" non riesco
a farsi che nella "new" riesca a riscrivere la "MyFunc"
deve esserci sicuramente un metodo di dichiarazione della "MyFunc"
qualcuno può aiutarmi ?
Mille grazie anticipatamente.
DA

 a farsi che nella "new" riesca a riscrivere la "MyFunc"
Senza modificare il sorgente dell'ancestor (il form origine) hai provato a
riassegnare l'evento onclick con la myfunc del "new" form?
-- 
Morde. 
ICLDweb: 
http://www2.samatel.com/icld/

 deve esserci sicuramente un metodo di dichiarazione della "MyFunc"
MyFunc deve essere definita "virtual" nella form madre.

Andrea Laforgia (Work) ha scritto:

Fatto! Grazie .... ma non va
quando da "new" chiamo un onClick scritto nella "old" (madre) questi
chiama "MyFunc" presente nella "old" (madre) solo per il codice ma non
quella riscritta nella "new"

 Fatto! Grazie .... ma non va
Non l'hai fatto nel modo corretto.
Questo č il codice della form madre:
type
   TForm1 = class(TForm)
     Button1: TButton;
     procedure Button1Click(Sender: TObject);
   private
     { Private declarations }
   protected
     procedure MyFunc; virtual;
   public
     { Public declarations }
   end;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
   MyFunc;
end;
procedure TForm1.MyFunc;
begin
   ShowMessage('MyFunc della old');
end;
Questo č invece il codice della form ereditata:
type
   TForm2 = class(TForm1)
   private
     { Private declarations }
     procedure MyFunc; override;
   public
   end;
procedure TForm2.MyFunc;
begin
   ShowMessage('Sono la MyFunc della figlia');
end;
E' cosě che funziona.

Spettacolo!
Mille grazie.

Newsgroup: it.comp.lang.delphi
Titolo: Come faccio? (oggetto printer)

Qualcuno di voi sà come posso ricavare l'errore di carta esaurita
dall'oggetto TPrinters?
Grazie
Simo

 dall'oggetto TPrinters?
AFAIK, con TPrinter non puoi, devi ricorrere alle API (nell'help dell'SDK 
alla voce "Printing and Print Spooler Functions"). Così a okkio alla 
funzione GetLastError.
-- 
Mauro Falzari ( 
http://digilander.libero.it/mauro.falzari
 )
"Se guardi nell'abisso, anche l'abisso guarda in te." (Friedrich Nietzsche)
Newsgroup: it.comp.lang.delphi
Titolo: Errore di MySql

Ciao
Ho appena iniziato a programmare i db e subito mi pianto
General SQL error.
[MySQL][ODBC 3.51 Driver]Accesso non consentito per l'utente: 
'ODBC'@'localhost' (Password: NO)
Alias: DB_prova
Allora vado passo passo :ho creato il database con MySql Front 1 tabella e 2 
campi ho aggiunto ,dopo aver installato i driver per MySql, in ODBC il mio 
db.
Ora utilizzo una TTable(in delphi) e dopo aver selezionato il database e la 
tabella ho attivato il TTable e  ho fatto il login  inserendo user="pippo" 
password='' avvio il programma da delphi e
come premo il bottone il cui metodo contiente Table1.Open; mi appare 
quell'errore.
Perche non mi mette pippo@localhost?
Un'altra domanda non posso fare il login dal form tipo con due TEdit?
grazie
spero di essermi spiegato
erik 

 
L'errore che ti dą č dovuto alla mancata configurazione dell'utente in 
MySql prova ad usare localhost e root come user lasciando vuota la pass 
dovresti accedere.

Newsgroup: it.comp.lang.delphi
Titolo: Hooks per tastiera

Qualcuno sa come mettere un hook che intercetti tutti i tasti premuti?
Grazie
Stefano

 Qualcuno sa come mettere un hook che intercetti tutti i tasti premuti?
Scarica SysKeyLogger dal mio sito, fa proprio quello che chiedi.
Ciao
--
- Carlo -
c.b...@libero.it
http://members.fortunecity.it/cbertu

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

Ciao a tutti,
sò che è odiato da molti ma purtroppo a me serve
legare ad un oggetto degli oggetti field come
accade negli oggetti : cds, query etc etc....
Sapete come potrei fare?
Rino

 Sapete come potrei fare?
Derivando da uno di quelli summenzionati, e customizzandone il
comportamento.
Ciao!
-- 
Morde. 
FAQ di icld (beta-version): 
http://icld.altervista.org
 
M-List di icld: 
http://it.groups.yahoo.com/group/icld/

 Ciao!
Grazie
Ciao...
Rino

 anche non usando "uno di quelli summenzionati" ?
E perche' no? Diminuisci il lavoro...
Se derivi da tdataset, hai la proprieta' tfields che ti permette di gestire
i campi persistenti.
Se e' questo che intendi,almeno..


ma il componente custom è un frame, 
con all'interno griglia, bottoni e metodi vari...
fra le varie property dovrà avere una property dove andrò
ad impostare i vari fields....
tali fields poi verranno passati ad un clientdataset 
all'interno del progetto.
Non sò se sono stato chiaro...

 Non sò se sono stato chiaro...
Si cerdo di si: non so che te ne fai di un frame con dentro tutto questo,
ma tant'e': il progetto lo conosci e l'hai pensato tu, quindi...
Aggiungigli un dataset e sfruttane la proprieta' fields.


infatti... 
alla fine, già dopo la prima tua risposta avevo 
deciso di fare una cosa del genere....
Però, speravo in qualcosa di meglio...
Va bè non fa niente....
Purtroppo spiegarti a cosa mi serve... è un pò lungo e difficile...
ti dico solo che, il mio team(è un'offesa a tutti i team chiamarlo così),
è fatto da persone che di OOP non conoscono quasi niente,
quindi per evitare codice "simil VB" creao quanti più componenti possibili!
Ciao
Rino.
Newsgroup: it.comp.lang.delphi
Titolo: [Semi-OT] Acquisto Delphi 5 o 6

Cerco (chiaramente originale) delphi 5 o 6 in edizione personal o
professional.
Rispondetemi eventualmente in email perchè mi sa che sono un po' OT....

Rispondetemi eventualmente in email perchè mi sa che sono un po' OT....
Delphi 6 Personal è gratuita e la scarichi dal sito della borland
--
Rhymes (
rhy...@myself.com
)
http://www26.brinkster.com/rhymes
" ride or die "

> Delphi 6 Personal č gratuita e la scarichi dal sito della borland
Sě ma dopo qualche giorno scade e se lo si vuole completo bisogna sborsare
sui 100Euro. :(

sui 100Euro. :(
non la trial ma la personal... e non scade
http://www.borland.com/products/downloads/download_delphi.html


 
http://www.borland.com/products/downloads/download_delphi.html
--
Giulio Pipitone (
www.fighters4web.com
 )
#sito per la lotta agli abusi in rete#

Newsgroup: it.comp.lang.delphi
Titolo: 2 quesiti

1   all'apertura del form inserisco
var
  Data_Ora: TDateTime;
  Year, Month, Day, Hour, Min, Sec, MSec: Word;
 begin
  Data_Ora:= Now;
  DecodeTime(Data_Ora, Hour, Min, Sec, MSec);
  label1.caption := IntToStr(Hour) + ':'+IntToStr(Min)+':'+IntToStr(sec);
Ma il label non si auto aggiorna (cambia il minuto nell'orologio ma sul mio
prog no ) !! cosa manca ?
2 se al  click del bottone inserisco :
ExitWindowsEx(EWX_REBOOT, 0);
non fa nemmeno un effetto ! anche qua cosa manca o dove sabaglio ?
grazie a tutti quelli che mi rispondono con risposte sensate ,adeguate e
SERIE !

2 se al  click del bottone inserisco :
Non saprei....
ciao
-- 
Morde. 
morde[at]programmer[.]net

 ExitWindowsEx(EWX_REBOOT, 0);
Che sistema operativo usi?
Ciao
Matteo

 ha scritto nel messaggio
news:b715qf$9v5mf$1...@ID-123015.news.dfncis.de...

Newsgroup: it.comp.lang.delphi
Titolo: SSH

Ciao a tutti,
quancuno ha avuto esperienza in connessioni ssh tramite delphi?
Le indy non supportano ssh e non ho trovato componenti (gratuiti) in
giro.
Consgile e/o esperienze?
Grazie
massimiliano

massimiliano
Andrea
--- posted by geoForum on 
http://www.delphiedintorni.it

 Rete le RFC( Request For Comments ), quindi sul sito del W3C.
sinceramente non avevo pensato di cercare la rfc, ora ci do un'occhiata,
anche se ho paura che l'impresa di espandere le Indy con il protocollo 
ssh non sia alla mia portata.
Grazie comunque
Ciao,
massimiliano

hai gia visto il sito di OpenSSH?
A

 Ciao,
Ciaux


giro.
Indy non ha nessun componente SSH, puoi trovare materiale per Delphi a
questo sito: 
http://www.i-tree.org/gpl/ixplorer.htm
e per C++Builder qui, WinSCP che tra l'altro e' un otimo tool (front end
SCP): 
http://winscp.vse.cz/eng/
Ciao,
Paolo.


ciao, ti rispondo con il messaggio che ho messo in libero.internet
ciao, sai che su libero.internet non riesco a vedere questo thread?
Infatti mi sono deciso a postare qua dopo che non appariva il mio
messaggio nella lista...
Sto comuqnuen anche facendo delle prove con dei componenti commerciali
www.secureblackbox.com
Grazie
Massimiliano

Newsgroup: it.comp.lang.delphi
Titolo: Creare un oggetto (es: Label) a runtime (domanda per gli esperti ;)

E' a volte molto piu' semplice ricorrere a puntatori agli oggetti per
utilizzarli.
Ad esempio, se ho 10 label e di tutte voglio cambiare il colore, nell
evento di FormCreate mi associo "a manina" 10 puntatori alle 10 label,
e poi uso direttamente i puntatori.
Esempio:
P[0] := @Label1;
P[1] := @Label1;
P[2] := @Label1;
...
e cosi' via (spero di ricordarmi bene, ma gia' l'ho fatto altre volte
e funziona).
Ora, il problema e' che io avrei TANTI oggetti (esempio, 100 label) da
inizializzare, e NON VOGLIO disegnarli prima sulla form, voglio
crearmeli a runtime.
Ho provato con cose tipo New ma non funziona con gli oggetti, ho
provato a derivarmi un oggetto nuovo discendente da label che erediti
tutte le properties ed i metodi ma poi non so come usare il metodo
"create", anche perche' mi chiede un component a cui fare riferimento
e... piu' o meno qualsiasi cosa gli dico si pianta con un'eccezione...
Come si puo' fare?


Guarda un po' questo esempio in cui si crea dinamicamente un array di
CheckBox.
.........
ChkBox: array [1..n] of TCheckBox;
.........
procedure TForm1.FormCreate(Sender: TObject);
  var i: Integer;
begin
  for i := 1 to n do
    begin
      ChkBox [i] := TCheckBox.Create (Self);
      ChkBox [i].Parent := Self; // forse ti dimenticavi di questa
istruzione ?
      ChkBox [i].Top  := 10 + (i - 1) * 20;
      ChkBox [i].Left := 10;
      ChkBox [i].Caption := 'ChekBox [' +  IntToStr (i) + ']';
    end;
end;

end;
Grazie! Gia' provato e funziona perfettamente.
Si', hai ragione, ed inoltre non conoscevo "Self" :) :) :)
Stasera con calma mi guardo bene l'utilizzo di "parent"...
Grazie ancora
Newsgroup: it.comp.lang.delphi
Titolo: richiesta

Salve a tutti, qualche tempo fa avevo chiesto se qualcuno sapesse come
accendere e spegnere i led della tastiera, e 2 di voi mi avevano risposto,
ma il codice che mi avete suggerito non riesce a girare con win nt, sapete
se devo usare  qualche funzione diversa?, ho provato di tutto ma non mi
riesce,
Grazie Alfio

Ciao Alfio,
Alfio ha scritto:

hai provato "tutto" ma cosa di preciso ?
Al messaggio avevamo risposto io e Andrea Magni. Entrambi non usiamo Windows
NT.
Ma sei tu l' amministratore di sistema ?
Comunque forse è una questione di privilegi che puoi aggiustare con
"AdjustTokenPrivileges",
ma io non ti posso aiutare perchè non ho Windows NT !!
Cioè per utilizzare l'api non ci dovrebbero essere grossi problemi, ma poi
come la provo ?
Se nessun altro ti risponde, prova nel newsgroup di Marco Cantù
 
news.marcocantu.it
 ) nell' area
"libero.delphi.winapi".
Però posta il codice che ti abbiamo suggerito e spiega il problema.
Li qualcuno dovrebbe lavorare con NT e forse saprà aiutarti !!
Per ora ti saluto.....ciaoo !!!!
Antonio Tarolla
BSSoftware Tips Mailing - List Support
Newsgroup: it.comp.lang.delphi
Titolo: forzare chiamata a procedure

Ho inserito del codice nel metodo oncustomtreeview di un treeview che viene
quindi invocato quando viene richiesto di ridisegnare l'oggetto treeview. A
questo punto ho la necessitŕ di forzare la chiamata a questa procedura anche
se nn viene invocata da nessun oggetto.
Il mio problema č che questa procedura prende come parametri
procedure TForm1.TreeView2CustomDrawItem(Sender: TCustomTreeView; Node:
TTreeNode; State: TCustomDrawState; var DefaultDraw: Boolean);
Che io non so passargli manualmente.
Come posso forzare questa chiamata???
Saluti
Giň

 Come posso forzare questa chiamata???
Per "forzare" la chiamata ti basta chiamare quel metodo... circa i parametri
inizia a dare un occhio all'help in linea e poi posti i tuoi dubbi.

Newsgroup: it.comp.lang.delphi
Titolo: Aggiungere file

Salve, volevo sapere come aggiungere in un compilato un file (ad esempio un
txt) e usarlo nel programma...

 ha scritto nel messaggio
news:RoDB7.90329$1H1.9...@news.infostrada.it...


Newsgroup: it.comp.lang.delphi
Titolo: Intercettare ESC e ENTER...

Ciao a tutti,
1)
sto sviluppando un componente derivato da TEdit e vorrei, premendo ESC o
ENTER, che mi venga visualizzato un messaggio.
La procedura appare abbastanza semplice infatti non ho fatto nientaltro che
"overridare" l'evento KeyPress e tutto è andato a posto.
Il problema nasce quando nella form dove uso questo componente ho anche dei
bottoni (TButton) con settate le proprietà Default = TRUE oppure Cancel =
TRUE oppure quando sulla form ho impostato KeyPreview = TRUE; in questi casi
il controllo passa PRIMA dai bottoni o dalla form. Come posso fare a
bypassare questo problema ?
2)
mi piacerebbe anche fare in modo che quando l'utente scrive viene
visualizzato un HINT sotto l'oggetto con delle informazioni...come posso
fare a visualizzare un HINT che rimanga visibile fino a quando non perdo il
fuoco...
grazie
Ciao
Solid Snake

 fuoco...
Ricordo che c'è una classe che implementa gli hints, dovrebbe avere una
proprietà che setta il delay di scomparsa (se lo metti a zero dovrebbe
dipendere da te la visualizzazione/scomparsa dell'hint).
Ciao
--
(¯`·.¸¸.·´¯`·.¸¸.-> Andrea <-.¸¸.·´¯`·.¸¸.·´¯)
AntiSpam: rimuovere il trattino basso dall'indirizzo per rispondere
AntiSpam: remove the underscore from the e-mail address to reply

 Io cmq avrei intercettato direttamente il WM_KEYDOWN...
Ho provato intercettare direttanmente WM_KEYDOWN o a "overaidare" il KeyDown
ma niente da fare.
Ciao
Solid Snake

 ma niente da fare.
Ciao,
            ho provato anch'io oggi, senza risultati...
Ho provato a intercettare pure il WM_CHAR ma credo che la cosa venga gestita
a monte del controllo (probabilmente a livello della Form)...
Forse sbirciando nei sorgenti di TForm (o anche di TScreen, forse sfruttano
la proprietà ActiveForm...)

Newsgroup: it.comp.lang.delphi
Titolo: Tray Icon

Come posso fare per visualizzare l'icona del mio programma vicino l'orologio
e far si che quando riduco a icona vada solo lģ???
Grazie in anticipo!!!
Ciao, ciao!!!!!

Vedi un pò qua......
function FmtMem (N: Integer): string;
begin
  if N > 1024*1024 then
    FmtMem := Format ('%.1f MB', [n / (1024*1024)])
  else
    FmtMem := Format ('%.1f KB', [n / 1024])
end;
procedure TMemForm.Timer1Timer(Sender: TObject);
var
  MemInfo : TMemoryStatus;
begin
  MemInfo.dwLength := Sizeof (MemInfo);
  GlobalMemoryStatus (MemInfo);
  RamGauge.Progress := MemInfo.dwAvailPhys div
    (MemInfo.dwTotalPhys div 100);
  VirtualGauge.Progress := MemInfo.dwAvailPageFile div
    (MemInfo.dwTotalPageFile div 100);
  Caption := Format ('Memory: = %d - %d',
    [RamGauge.Progress, VirtualGauge.Progress]);
  Label1.Caption := Format ('RAM:'#13'%s'#13'(%s)',
    [FmtMem (MemInfo.dwAvailPhys),
    FmtMem (MemInfo.dwTotalPhys)]);
  Label2.Caption := Format ('Swap:'#13'%s'#13'(%s)',
    [FmtMem (MemInfo.dwAvailPageFile),
    FmtMem (MemInfo.dwTotalPageFile)]);
  // set icon color
  if RamGauge.Progress > 5 then
    Icon.Handle :=
      LoadIcon (HInstance, 'GREEN')
  else if VirtualGauge.Progress > 20 then
    Icon.Handle :=
      LoadIcon (HInstance, 'YELLOW')
  else
    Icon.Handle :=
      LoadIcon (HInstance, 'RED');
  // update the NotifyIcon structure
  nid.hIcon := Icon.Handle;
  strcopy (nid.szTip, PChar(Caption));
  nid.uFlags := nif_Icon or nif_Tip;
  Shell_NotifyIcon (NIM_MODIFY, @nid);
end;
procedure TMemForm.IconTray (var Msg: TMessage);
var
  Pt: TPoint;
begin
  if Msg.lParam = wm_rbuttondown then
  begin
    GetCursorPos (Pt);
//    SetForegroundWindow (Handle);
    PopupMenu1.Popup (Pt.x, Pt.y);
  end;
  if Msg.lParam = wm_lbuttondblclk then
    Details1Click (self);
end;
procedure TMemForm.FormCreate(Sender: TObject);
begin
  // load the initial icon
  Icon.Handle :=
    LoadIcon (HInstance, 'GREEN');
  // fill the NotifyIcon data structure
  nid.cbSize := sizeof (nid);
  nid.wnd := Handle;
  nid.uID := 1; // icon ID
  nid.uCallBAckMessage := wm_IconMessage;
  nid.hIcon := Icon.Handle;
  nid.szTip := 'Free memory';
  nid.uFlags := nif_Message or
    nif_Icon or nif_Tip;
  Shell_NotifyIcon (NIM_ADD, @nid);
  // update the output ASAP
  Timer1Timer (self);
end;
procedure TMemForm.FormDestroy(Sender: TObject);
begin
  nid.uFlags := 0;
  Shell_NotifyIcon (NIM_DELETE, @nid);
end;
procedure TMemForm.Details1Click(Sender: TObject);
begin
  ShowWindow (Handle, sw_ShowNormal);
  SetForegroundWindow (Handle);
  Show; // enables the creation of window controls
end;
procedure TMemForm.About1Click(Sender: TObject);
begin
  MessageDlg ('Windows 9x Memory Meter'#13 +
    'Alfabetica'#13 +
    '
li...@alfabetica.com
',
    mtInformation, [mbOk], 0);
end;
procedure TMemForm.Close1Click(Sender: TObject);
begin
  Application.Terminate;
end;
procedure TMemForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action := caNone;
  ShowWindow (Handle, sw_Hide);
end;

 e far si che quando riduco a icona vada solo lì???

Newsgroup: it.comp.lang.delphi
Titolo: Delphi 2006 Recuperare la Form dall HANDLE

Caio a tutti, 
volevo sapere se avendo HAndle di una determinata form , riesco a
recuperare la form stesssa? 
Se si in che modo?
Grazie
Ciao
Loris
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 Se si in che modo?
Si, penso che si riesca a fare sfruttando le API di windows:
devi inserire il puntatore alla tua form come "user data" associato
all'handle della finestra creata da windows:
procedure TForm1.FormCreate(Sender: TObject);
begin
  SetWindowLong( Self.handle,
                    GWL_USERDATA, Integer(pointer(self))));
end;
In questo modo puoi risalire alla form partendo dall'handle:
  Form := TForm1(TObject(pointer(
    GetWindowLong( MyHandle,  GWL_USERDATA )
  )));
Il tutto rigorosamente non provato e non garantito! ;)
ciao
Giacomo

 recuperare la form stesssa?
var
 frm : TForm;
begin
  frm := FindControl(HAndle) as TForm;
  if frm <> nil) then [....]
end;
-- 
Morde


Fantastico! C'e' sempre da imparare! :)
ciao
Giacomo

Grazie Ragazzi!
CIao


Newsgroup: it.comp.lang.delphi
Titolo: gestire una lista di record

Il problema è assai complesso (almeno per me)....
Ho una tabella i cui record sono collegati da una struttura simile ad
una lista:
In ogni record c'è un campo idcodice univoco e un campo idprecedente che
lo aggancia al record precedente.....esempio:
idcodice          idprecedente
AA                   00
BB                   AA
CC                   BB
DD                   CC
Ovviamente nella tabella ci sono diverse liste.....quello che vorrei
ottenere è la selezione di tutti i record della lista partendo dal
basso, se ad esempio seleziono il record con campo idcodice="CC", vorrei
ottenere tutti i record con idcodice=CC,idcodice=BB,idcodice=AA
Attualmente eseguo una query per ogni record (immaginate quello che
succede quando la lista è composta da migliaia di record)...il mio
sistema non risulta certo ottimizzato. Esiste una query o un sistema che
mi permette di recuperare l'intera lista con un'operazione unica?
Io uso Delphi 5 C/S e MySql
Ciao e Grazie
Gianni
 
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 DD                   CC
prova la seguente query
SELECT IDCODICE, IDPRECEDENTE
FROM Test
WHERE IDPRECEDENTE IN
      (SELECT IDCODICE
      FROM TEST
      WHERE IDCODICE < "CC")
nell'esempio di tabella sopra esposto tuttavia il primo record non verrá
incluso
in quanto IDPRECEDENTE = "00" non esiste, si dovrebbe a mio avviso se
quello é il
primo record della lista inserire "AA".
Non so se questo possa risolvere il tuo problema comunque fai un
tentativo.
Ciao
Micky


 
non funge..... da alcune ricerche on line (e quesiti su vari NG), sono 
arrivato alla conclusione che con SQL standard non si possono fare delle 
query che possano estrarre dei dati gerarchici, con esclusione di alcuni 
server SQL che hanno funzioni specifiche (ad esempio oracle)
Mi piacerebbe comunque essere smentito (cosě risolvo anche il mio 
problema) :-)
Ciao e grazie comunque
Gianni
Newsgroup: it.comp.lang.delphi
Titolo: Come aprire mail con un testo

Ciao!
Ho bisogno di un piccolo aiutino per un programma che sto scrivendo: 
avrei bisogno che, premendo un button dal mio programma, si aprisse una 
nuova mail con un oggetto e un testo (che comprende diversi ritorni a 
capo) che è scritto un un memo invisibile, possibilmente SENZA usare 
copia/incolla, e senza inviare la mail (verrà inviata tramite il 
pulsante del programma). Dovrebbe essere compatibile con Outlook (NON 
express) e, possibilmente, con Thunderbird.
Speroi di essermi spiegato bene....  :O
Mi date una mano?
Grazie!

Grazie!
	Ciao
	MassimoB
 
---------------------------------
http://www.massimobeschi.it/
---------------------------------
Se tu pagare come dici tu ...
Io lavorare come dico io ...
Se tu pagare come dico io ...
Io lavorare come dici tu ...
---------------------------------

 	MassimoB
Grazie ancora, ciao Massimo!
Stefano

 apposta per me!
Quale sarebbe? condividi la tua conoscenza con il ng!
ciao!
-- 
Morde. 
FAQ di icld (beta-version): 
http://icld.altervista.org
 
M-List di icld: 
http://it.groups.yahoo.com/group/icld/

 ciao!
Giusto, hai ragione ;)
Il cmponente si trova appunto su Torry sezione Components/Communications 
/MAPI.
Si chiama MapiControl di Sven Lohmann.
E veramente facilissimo da usare e funziona troppo bene :D
Ciao!

 Mi date una mano?
Se ti interessa una maniera facile č possibile mettere tutti i parametri
che hai richiesto tramite un semplice shellexecute contenente un mailto:
con gli adeguati parametri, ma non avendo il tutto sotto mano dimmi se
vuoi che lo cerchi.
-- 
PoochieŠ

 con gli adeguati parametri, ma non avendo il tutto sotto mano dimmi se
Ti ringrazio!
In effetti avevo provato quella soluzione ma (forse perchè non sono 
capace io :O ) non riuscivo a inserire nel testo i ritorni a capo.... 
Praticamente se inserivi i soliti #13#10, ti scriveva due caratteri 
strani e NON effettuava il ritorno a capo, è per questo che ho chiesto 
un altra soluzione..... Se però mi dici che la soluzione è quella mi 
puoi dare un aiuto a come risolvere questo problema ti ringrazio!
Ciao!

 puoi dare un aiuto a come risolvere questo problema ti ringrazio!
hai provato con % al posto di #? Le pagine HTML fanno così!
-- 
Poochie©
Newsgroup: it.comp.lang.delphi
Titolo: Report con QuickReport - come si fa?

Tempo fa ho scritto con Delphi 3 un programma per il mio ufficio 
(Tribunale) con cui gestisco la cancelleria civile.
Ora ho bisogno che qualcuno gentilmente mi spieghi come fare - con 
QuickReport - un report che mi dica quanti fascicoli ci sono per ogni 
udienza.
Esempio:
Udienza 6/8/07  ---------> contiene n. X fascicoli
Udienza 8/8/07  ---------> contiene n. X fascicoli
e così via, fino all'ultima udienza del 2009.
Qualcuno di Voi può essere così paziente da spiegarmelo in modo molto 
semplice, visto che non sono un programmatore, ma solo un appassionato 
che, purtroppo, non ne sa molto di programmazione?
Grazie.

 semplice, visto che non sono un programmatore, ma solo un appassionato
onestamente, non ho tempo.
E poi, credo che ognuno debba fare il prp mestiere, senza offesa.
A.

Mazinga ha scritto:

Io capisco che tu lo faccia per hobby, ma non trovo giusto che programmi 
amatoriali vengano usati in ambiti pubblici, per ragioni che puoi ben 
immaginare. Parlando fuori dai denti, ci sono tanti bravi programmatori 
a spasso, magari anche economici, che saprebbero fare quello che stai 
facendo tu (che, perdonami, è banale per un programmatore), in modo 
probabilmente migliore, e garantendo l'assistenza necessaria. Per non 
parlare di problemi di licenza, che probabilmente non hai.
D'altro canto ammiro la tua volontà di rendere migliore il servizio 
pubblico (o almeno del tuo ufficio) nonostante la probabile mancanza di 
budget...
Questo è uno dei tipici casi in cui sarebbe stato meglio non esplicare 
l'ambito di utilizzo dell'applicazione, provocherai sicuramente reazioni 
molto più scomposte della mia ;)
Ritornando al problema, come ripetiamo da tempo a chi non lo fa, 
dovresti indicare *almeno* che database usi...
-- 
Jax

 
Paradox.
P.S. : Sono d'accordo su tutto quello che mi avete risposto, ma in 
Tribunale ho il consenso di chi comanda. Ma non credevo di ricevere 
risposte tanto polemiche e scoraggianti.
Comunque, grazie lo stesso. Se non avrò risposte, mi scervellerò da solo.
Credevo che per i "programmatori" fosse una passeggiatina spiegarmi come 
fare.
Alla prossima.

Mazinga ha scritto:

la risposta l'hai già avuta, leggi il post di Alberto Salvati:
 > Ti serve una select che conti i fascicoli raggruppati per udienza.
 > Dopodiche, usi questa select per stampare i dati.
 >
fanta-sql: ;)
select magistrato, udienza, count(fascicoli)
from tabella
group by magistrato, udienza
ciao.

 ciao.
Grazie mille. Era quello che volevo sapere. Ancora grazie.

QuickReport - un report che mi dica quanti fascicoli ci sono per ogni 
Vorrei parlarti in privato.
scrivimi su 
nio...@virgilio.it
ciao
Antonio
NioBi
--- posted by geoForum on 
http://www.delphiedintorni.it
Newsgroup: it.comp.lang.delphi
Titolo: Errore ADO

 Ciao
questo è un pezzo di codice che inspiegabilmente genera un ( " l'oggetto
parameters non è stato definito correttamente o è incompleto ")  solo quando
passo al parametro una stringa di lunghezza zero.
E' un db Access con 6 campi di tipo stringa. Se passo ai parametri stringhe
'piene' va tutto OK e l'insert genera un nuovo record, ma se invece uno solo
o più parametri hanno lunghezza zero allora non va..
Ho anche settato i campi di Access abilitando l'immissione di stringhe a
lungh zero, senza però risultato.
Uso D5 ed ho addirittura scaricato dalla Borland l'aggiornamento per i comp
ADO, anche in questo caso senza effetti...
procedure TForm1.BitBtn1Click(Sender: TObject);
  q1.Close ;
  q1.sql.text:= 'INSERT INTO dati  VALUES (:0, :1, :2, :3, :4, :5)';
  q1.Parameters[0].Value :=trim(editcog.text);
  q1.Parameters[1].Value :=trim(editnome.text);
  q1.Parameters[2].Value :=trim(editind.text);
  q1.Parameters[3].Value :=trim(edittel.text);
  q1.Parameters[4].Value :=trim(edittel2.text);
  q1.Parameters[5].Value :=trim(editnote.text);
  q1.ExecSQL ;
  q1.Close ;
  messagedlg('Contatto archiviato',mtinformation,[mbok],0);
end;
...Ciao e grazie
Andrea Cocci

1 la query dovrebbe stare in un datamodule e non sul form
2 nomi poco significativi. tra 10 minuti io avrei gia dimenticato cosa fa q1
3) xche nomi numerici? forse che in delphi usi una variable che chiami 1543?
usa nomi di parametri alfanumerici:
q1.sql.text:= 'INSERT INTO dati  VALUES (:cognome, :nome, :indirizzo,
:telefono1, :telefono2, :note)
Bye
A


Ciao e grazie

 lo so... è solo un programmino prova per testare ADO (mai usato prima)
Insisto: anche x programmi scemi è meglio abituarsi sin dall'inizio a fare
le cose come si deve.
Quindi: nomi significativi, pochi iterazioni tra moduli, tenere la loigca
nei data module staccandola dai form....
A

Newsgroup: it.comp.lang.delphi
Titolo: Risultato di una query in un combobox

Salve, volevo sapere come fare per avere il risultato di una query fatta su
un db access mediante il componente ADOQuery in un combobox...
O meglio faccio una select di  un campo dal db... INTO ? Ho trovato solo
esempi che restituiscono su tabelle...ma su componenti standard quali
combobox? (e non dbcombobox).
Dritte? (non rovesci)

Risolto...sono andato a farmi i capelli e quando sono tornato ho pensato al
result set della query...fieldbyname...etc...
Chiedo scusa per il post :(

result set della query...fieldbyname...etc...
L'ossigenazione del cervello conta molto nella
programmazione :)
	Ciao
	MassimoB
 
---------------------------
http://www.massimobeschi.it/
Newsgroup: it.comp.lang.delphi
Titolo: Delphi, VB, comunita'...

Ciao a tutti!
Sto' cercando di convincere qualche persona che Delphi e' meglio di VB per
molti aspetti. Qualcuno di voi ha voglia di ripostare una lista di features
di Delphi o di mandarmela via e-mail :P
Mi sento spesso dire che la comunita' di Delphi sta' morendo. Voi cosa ne
pensate?
Come faccio a far capire alla gente che Delphi e' utilizzatissimo e non e'
un prodotto di nicchia? :(
Chris

pensate?
Chi lo dice ?
-- 
The Follet

 wrote in message
news:4ZeJ7.109118$sq5.5...@news.infostrada.it...



Io, sto ancora morendo dalla risate pensando ai problemi che ho visto con
VB+CR.
A confronto Delphi + QR1.1 è un paradiso.
--------------------------------------------
Per rispondere in privato rimuovere "1975"
--------------------------------------------

un prodotto di nicchia? :(
Basta dire : tu usi un prodotto Microsoft, io Borland !!!!!
ciao ciao Maury

 contenuti seri o validi, ma fanno comunque volume
il numero dei siti amatoriali e' legato alla diffusione del prodotto, che
per VB e' notevole. Non dimentichiamo che VB ha dalla sua una bella serie di
gadget tecnologici che Delphi si sogna, come la possibilita' di compilare
per WinCE, e il .NET che ora e' in fase di sviluppo ma che nei prossimi anni
portera' alla connettivita' globale di una miriade di dispositivi, dagli
elettrodomestici ai cellulari ai pc. Delphi sara' in grado di competere o si
potra' adeguare? Per ora la risposta e' BOH. Quindi, a dispetto di tutte le
pecche di VB, di interfacce utente penose, eseguibili legati a filo doppio a
dll e ocx di sistema con tutti i problemi del caso, VB ha qualcosa in piu'
di Delphi che per ora la Borland non e' riuscita a colmare. Probabilmente
l'ideale sarebbe avere la padronanza di entrambi gli ambienti e usarli a
seconda delle esigenze. Ma ci vuole tempo, e gia' Delphi ne richiede molto
per essere sfruttato a dovere..
Ciao, Sandro

 - Delphi è molto piu' PROFESSIONALE
E' TUTTO VERO!!!
Pierluigi
Newsgroup: it.comp.lang.delphi
Titolo: modifica Query SQL

Salve, sono un principiante e mi serve il vostro aiuto.
In una form ho una dbgrid associata, tramite datasource, ad una
query che contiene una ben precisa stringa SQL inserita in fase di
progettazione.
Nella stessa form esiste un dblookupcombobox, che associato a due
datasource, legati ad una table, mi visualizza un elenco di campi, esistenti
anche nella query, che mi possono servire per filtrare nella query, solo i
record che contengono quel particolare campo. Chiaramente mi serve
modificare la query a runtime in base al valore del dblookupcombobox.
1) non riesco a modificare la stringa della query e farle fare un refresh;
2) se metto un valore io, fisso per intenderci, mi risponde "record locked
by another user" e quindi non effettua nessuna modifica nella dbgrid.
Scusate se è un quesito semplice, ma mi blocca!!
ecco il codice:
procedure TfrmRicerca.DBLookupComboBox1Click(Sender: TObject);
var campogruppo: String;
begin
     campogruppo:=DbLookupComboBox1.Text;
Query1.Close;
Query1.SQL.Clear;
{Query1.SQL.Add('select z.artcod, r.artcod, z.cod_artic, z.descriz,
z.giacenza, z.unit_mis, r.gruppo, r.classe, r.catego from zartic as z, ricer
as r order by z.descriz where z.artcod=r.artcod and
r.gruppo='campogruppo'');}
{se uso la linea sopra mi da errore nella compilazione}
Query1.SQL.Add('select z.artcod, r.artcod, z.cod_artic, z.descriz,
z.giacenza, z.unit_mis, r.gruppo, r.classe, r.catego from zartic as z, ricer
as r order by z.descriz where z.artcod=r.artcod and r.gruppo=''FIAT''');
Query1.ExecSQL;
end;
Thanks,        Turi

 {se uso la linea sopra mi da errore nella compilazione}
cambia la Query in questo modo
 Query1.SQL.Add('select z.artcod, r.artcod, z.cod_artic, z.descriz,
z.giacenza, z.unit_mis, r.gruppo, r.classe, r.catego from zartic as z, ricer
as r order by z.descriz where z.artcod=r.artcod and
r.gruppo=:gruppo');}
poi aggiungi le riga
Query1.Parameters.ParamByName('gruppo').Value:= campogruppo;
per maggiori info guardati l'help dei parameters della query
Ciao Gianluigi


ok, ma mi risponde "record locked by another user" .
come lo sblocked???
grazie di nuovo


:o((
Non saprei non è che l'hai aperta con access in modifica struttura o hai un
altra query sulla stessa tabella con accesso esclusivo ??
Il problema comunque è in qualche cosa fatto 'altrove', almeno questa è la
mia senzazione.
Ciao Gianluigi

se usi TRXQuery dei componenti RX è molto più semplice in quanto gestisce 
non solo parambyname ma anche macrobyname che è più semplice da gestire 
a run time
ciao
-- 
Posted from 
ppp-62-11-87-214.dialup.tiscali.it
 [62.11.87.214] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG
Newsgroup: it.comp.lang.delphi
Titolo: DELPHI 6 e piu' linguaggi

Che programma usate per installare le dll prodotte da delphi 6 per i
linguaggi aggiuntivi ?
Io mi sono visto 
www.innosetup.com
Possibile che non esista qualcosa di bello, completo e gratis ?
Inoltre ho notato dei buchi nel programma translator tool di delphi. Si
inchioda.
ciao.
my home page 
http://www.spazioweb.inwind.it/yuden/

> Io mi sono visto 
www.innosetup.com
e non è comodissimo ?? ti danno pure i sorgenti ....
Davide Consonni

Possibile che non esista qualcosa di bello, completo e gratis ?
ehm 
+ bello e completo di Innostup?????
la versione con pasc scripting :) 
My InnoSetup Exstension c'e' il link sulla pagina di innosetup sezione
terze parti :D
ciao
-------------------------------------------------
Kirys <Remove DELTHIS from the address to reply>
 /|// /____/ Kirys Tech 2000: 
http://www.kt2k.com
/_|\\  // 2000
Newsgroup: it.comp.lang.delphi
Titolo: stringgrid: selezione ed esportazione

Salve,
le tstringgrid , lo sappiamo, sono poco flessibili, io vorrei riuscire a
fare due cose:
1) riuscire a selezionare un intervallo di celle e poi portare queste celle
in memoria (tipo copytoclipboard) per poi copiarle su Excel per esempio..
2) se fosse possibile mi piacerebbe anche trasportare l'intero stringgrid su
excell, senza fare copia incolla, mantenendo l'intera formattazione.
purtroppo  non esiste il metodo selection. copytoclipboard e nemmeno
esportainexcel.
Avete qualche dritta da darmi ?
Uso D5 Standard.

Non conosco tstringgrid (mai usata)...
Se non prevede qualcosa per etichettare le celle selezionate, crei tu
un sistema basato su una lista di qualche tipo che contenga in
riferimenti alle celle selezionate
Riguardo l'export su excel col copia e incolla non so...
Ma esiste pur sempre ole.
AS

 ha scritto nel messaggio
news:1122901448.4...@g14g2000cwa.googlegroups.com...

per quanto riguarda le ole...purtroppo il mio D5 non possiede i file di help
..
c'e' solo un esempio che riguarda word...
se hai qualche link da consigliarmi..
grazie

delphi non c'entra un tubazzo...
ti serve la guida vba di excel.
AS

 grazie
Prego, Vittorio

 ha scritto nel messaggio
news:WlpHe.33899$fm.23...@news4.tin.it...

Era quello che cercavo.. Grazie di nuovo

> usa 
http://www.maxcomponents.net/download.html#NATIVEEXCEL
   Sono molto comodi e funzionano bene.
Grazie dell'attenzione.
A presto.
 
Massimiliano Monti
Cellulare: 0039 - 335 - 8477278
Mail: 
massimili...@matia.it
--- posted by geoForum on 
http://www.delphiedintorni.it