mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.delphi
Titolo: JPEG e TDBImage

Dopo aver popolato un database SQLSERVER con delle immagini Jpeg in un campo
blob, non riesco a leggerle tramite TDBImage. Il solito errore è che
TDBImage si aspetta una bitmap.
Come faccio a fargli leggere un JPEG????
Grazie a tutti
Gerardo

 ha scritto nel messaggio
news:8raiar$gjn$1...@lacerta.tiscalinet.it...

Hai già provato con il metodo Assign?
Ciao!
--
- Carlo -

Newsgroup: it.comp.lang.delphi
Titolo: Operatore relazionale come variabile?

Vi risulta possibile l'operazione in oggetto?
Mi spiego:
procedure TMyForm.SelAzzeraTutti(Sender: TObject);
var
  TBName: TToolButton;
  SBn: TSpeedButton;
  A: byte;
begin
  TBName := (Sender as TTollButton);
  for A := 0 to High(MyArray) do
  begin
    SBn := TSpeedButton(FindComponent('SB'+inttostr(A)));
    if (TBName.Name = 'tbtnSelTutti') then
      if SBn.FontStyle = [] then IfFontStyle(A)
        else
          if (TBName.Name = 'tbtnSelNessuno') then
            if SBn.Font.Style <> [] then IfFontStyle(A);
  end;
  UpdateHead(VNumGrid, VP, VD, cbData.ItemIndex);
  if (TBName.Name = 'tbtnSelTutti') then
  begin
    TuttiSelTrue;
    AggiornaCBNum(0);
  end
    else
      if (TBName.Name = 'tbtnSelNessuno') then
      begin
        TuttiSelFalse;
        AggiornaCBNum(1);
      end;
end;
se all'inizio della procedura potessi definire in un'istruzione IF di
verifica del ToolButton chiamante tutte le variabili seguenti:
if SBn.FontStyle = [] then IfFontStyle(A) // il segno dell'operatore
relazionale
if SBn.FontStyle <> [] then IfFontStyle(A)
TuttiSelTrue // mia procedura
TuttiSelFalse
AggiornaCBNum(0) // variabile byte
AggiornaCBNum(1)
potrei evitare inutili ripetizioni di codice.
Ma come passare il segno di '=' o '<>' come variabile se si puň?
Grazie
Valter

Ma come passare il segno di '=' o '<>' come variabile se si può?
type
  TCompareKind = (ckEqual, ckNotEqual);
function Compare(A, B: Integer; ACompareKind: TCompareKind): Boolean;
begin
  case ACompareKind of
    ckEqual: Result := A=B;
    ckNotEqual: Result := A<>B;
  end;
end;

Newsgroup: it.comp.lang.delphi
Titolo: [OT] GNOME+KDE

Buone notizie per Kylix:
(dal sito di GNOME: 
http://www.gnome.org
 )
"Positive GNOME/KDE CORBA discussions
Posted by Gerry Chu on Monday June 19, @10:21PM
from the what will they call it--GNOMKDE? dept.
A Bonobo / KParts (the KDE embedding system) merger would have major
positive implications for both the KDE and GNOME communities. It would allow
KDE components to be used in GNOME programs and vice versa. Nothing is final
yet, though."
Ciao,
-=Simo=-

Attenzione perchè si parla solamente di una ipotesi di volontà
di fusione, quindi la situzione è ancora tutta da definire.
Se poi fanno come per il merger tra Corel e Inprise/Borland siamo
a posto ;-)
In ogni caso questa prospettiva è di buon auspicio per il futuro
di Kylix.
Ciao,
Gabriele Giacomelli


di fusione, quindi la situzione è ancora tutta da definire.
Vero..però qualcosa si muove..meglio di niente.
Ciao,
-=SIMO=-
Newsgroup: it.comp.lang.delphi
Titolo: ADO Query > risorse di sistema insufficienti.

Ciao a tutti.
WinXP, Delphi 6, ADO e MDAC 2.8.
All'interno del mio software chiamo piů volte una query (2500-3000
volte a ciclo) che creo a runtime e all'interno della quale faccio
eseguire piů query per volta, ad es.:
var
   qryQuery: TADOQuery;
begin
    qryQuery := TADOQuery.Create(nil);
    try
        qryQuery.ConnectionString := connessione.ConnectionString;
        with qryQuery do
        begin
            Close;
            SQL.Clear;
            SQL.Add('SELECT * FROM');
	    [RESTO DELLA PRIMA QUERY]
	    Open;
etc.
poi eseguita la prima query davo un bel Close, SQL.Clear e giů di
nuovo con SQL.Add e Open di una nuova query.
8 query di fila cosě...
Alla fine dell'ultima Open e dello store del risultato nella variabile
result:
        end;
    finally
        qryQuery.Free;
    end;
Ebbene, cosě dopo circa 150-200 record il programma mi si piantava
dando "Risorse di sistema insufficienti".
Allora ho concepito una mega query unica:
var
   qryQuery: TADOQuery;
begin
    qryQuery := TADOQuery.Create(nil);
    try
        qryQuery.ConnectionString := connessione.ConnectionString;
        with qryQuery do
        begin
            Close;
            SQL.Clear;
            SQL.Add('SELECT * FROM');
	    [RESTO DELLA QUERY UNICA]
	    Open;
        end;
    finally
        qryQuery.Free;
    end;
...In questo modo ho macinato record su record senza alcun problema.
Aggiungo che monitorando la RAM e il pagefile questi durante la prima
query mantenevano quasi le stesse dimensioni che avevano prima
dell'avvio della funzione che chiamava la query di primo tipo.
Adesso ho risolto ma... Qualcuno me ne spiega il motivo?
Grazie!

 Adesso ho risolto ma... Qualcuno me ne spiega il motivo?
Scusa, ma di che ti meravigli ? che il sistema lamenti mancanza di risorse
?
Mi sembra sia plausibile, per un'elaborazione cosě pesante...
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

?
No: mi meraviglio del fatto:
A) che le risorse di fatto c'erano (memoria disponibile e pagefile);
B) che le stesse query (LE STESSE) accorpate in un'unica query non
dànno lo stesso problema.
Mi meraviglio di questo.
Grazie per la risposta comunque.
Ciao,
delphifan

 dànno lo stesso problema.
M query, eseguite N volte, non hanno *MAI* lo stesso impatto di 1 query.


M query, eseguite N volte, non hanno *MAI* lo stesso impatto di 1 query.
...lo stesso impatto di una query (eseguita sempre N volte però) anche
se il recordset che produce è il prodotto delle 8 sottoquery?
Grazie,
ciao.
delphiphan
Newsgroup: it.comp.lang.delphi
Titolo: Internet

Volendo scaricare una pagina Internet, e successivamente manipolare il
contenuto HTML quale componente mi consigliate?
Grazie

File -> Salva con nome ... e via di notepad ;-))))



Non in modo interattivo ma da codice, portando il contenuto in un memo


cerca nel ng, si e' parlato molte volte di grabbare l'html di una pagina, di
base ti dico che devi usare i componenti indy. il resto, trovalo con google,
anche perche' io non l'ho mai fatto e non ti so dire di piu'.
Ciao
-- 
Morde. 
Una radio seria da ascoltare al lavoro?
http://www.radiomontecarlo.net
 e clicca
su RMC Live !

Si ma quale?
Che ne dici del TWebBrowser?
Come si può beccare il testo HTML?

Si ma quale?
http://groups.google.it/groups?hl=it&lr=&ie=UTF-8&q=Getting+HTML+source++TwebBrowser&btnG=Cerca


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

Salve gente volevo chiedervi una mano per la risoluzione di un problema.
Devo realizzare un programma per l'editing dei file mpeg, ma non so da dove
partire, volevo sapere :
I GOP sono di dimensioni fisse all'interno di un file? Cioč se trovo il
primo Gop posso accedere che sň al 1000 spostandomi su file di 1000 volte la
dimensione del primo?
Se non č cosě come si puo accedere ad uno specifico Gop direttamente?
Dove posso trovare qualcosa o qualcuno che mi dia una mano a scrivere uno
stralcio di codice?
Grazie a tutti Ciao!
Emanuele 'Harlan_Draka' Albero

 stralcio di codice?
Prova su 
http://www.wotsit.org
 nella sezione che tratta del formato mpeg,
troverai sicuramente qualcosa che fa al caso tuo.
Ciao

Newsgroup: it.comp.lang.delphi
Titolo: Domanda difficile: realizzare una PROGRESSBAR





Come posso realizzare una progress bar che avanzi 
nel momento in cui apro una query? 


Io ho una tabella di migliaia di record e il 
programma ci mette un bel po' di tempo prima di 


completare l'operazione OPEN o ACTIVATE della 
query. Per non l'asciare l'utente aspettare


che il pc gli si "schiodi" vorrei realizzare una 
progressbar.... è possibile???


 



 progressbar.... =E8 = possibile???
hmmm, domanda interesante, mi aggiungo alla richiesta.
Penso cmq dipendi anche dal RDMS che stai usando, perche' deve essere
quest'ultio ad informarti dello stato di avanzamento della query.
InterBase, ti posso sire, non mi risulti abbia niente di simile,
e neanche la possibilita' di abortire (che verrà messa nella versione 7
si spera...)
Ciao,
Alan Solo

"Dario" ha scritto nel messaggio
| Come posso realizzare una progress bar che avanzi nel momento in cui apro
una query?
Nei componenti RX LIB 2.75 c'e' il componente TDBProgress che fa quello che
chiedi.
Funziona via BDE e nemmeno con tutti drivers.
Purtroppo non l'ho mai usato a fondo e non posso darti informazioni piu'
dettagliate.
Ciao.
---------------------------
ACSH
"Non voglio un mondo migliore:
 voglio un mondo piu' interessante!"

 ha 
  scritto nel messaggio 
news:000801c09b46$390fd9d0$7400000a@acs
...

Newsgroup: it.comp.lang.delphi
Titolo: [D6] Chiudere una applicazione WinExe in C#

Salve,
sto cercando un modo per chiudere una applicazione WINEXE svilupata in
C#.
In D6 sono in grado di avviarla con le varie funzioni per la shell (es.
ShellExecute), ma non so come fare a chiuderla :(.
Sono aperto anche a soluzionmi del tipo sviluppare una mini app in C#
che ha l'unico biettivo di chiudere l'app C# principale.
Grazie.
-- 
I'am what I'am, I do what I can

 (es. ShellExecute), ma non so come fare a chiuderla :(.
[]
I normali metodi per chiudere un'app Win32 non funzionano?
es: avendo il PID, usare JclSysInfo.TerminateApp (che prima manda un
WM_CLOSE alla topmost window del processo (se esistente) se il processo
ancora esiste allo scadere del timeout chiama TerminateProcess)
Saluti
Paolo Arosio
-- 
"La dimostrazione dell'esistenza di specie intelligenti nell'universo
 e' che non ci vengono a trovare"

 TerminateProcess)
Ti ringrazio, spesso ci si dimentica di provare le cose piu' semplici ;)
Ora funziona =)
Navigando ho trovato questo sito: 
http://www.madshi.net
Dei componenti bestiali per quello che riguarda programmazione a basso
livello.
Saluti.

Newsgroup: it.comp.lang.delphi
Titolo: File Maker 8.5

Salve a tutti, mi sono appena iscritto ed ho subito una questione da
porvi, io sono notti che non dormo più, qualcuno di voi conosce un modo
per accedere dei dati su File Maker 8.5 tramite Delphi? (io utilizzo
Delphi 6 SP1)
Grazie e buon lavoro a tutti,
Massimo
-------------------------------------------------------
Messaggio inviato da 
http://www.sandlab.org/newsgroup/
Accesso gratuito via web ai Newsgroup


Magari cercando su Google....:  FileMaker 8.5 odbc
http://prof.estat.com/cgi-bin/ft/209009181771?class=Download_PDF&page=FM8_ODBC_JDBC_Sviluppatori.pdf&type=40&estat_url=http%3A%2F%2Fwww.filemaker.it%2Fdownloads%2Fpdf%2FFM8_ODBC_JDBC_Sviluppatori.pdf%3F
Mah ?
Torna a dormire !
C. 

Si, questo documento l'avevo già trovato anch'io, ma nonostante tutto non
sono riuscito a leggere i dati in delphi, ho provato con gli ADO, ma
niente... sicuramente sbaglio qualcosa io :-(


 niente... sicuramente sbaglio qualcosa io :-(
Se magari ci specificassi meglio cos'č quel "niente".......
-- 
Jax

Hai ragione, io ho installato i driver ODBC di FileMaker 8.5, poi volevo
tramite gli ADO in Delphi poter accedere alle tabelle di FileMaker, ma
quando vado a creare la ConnectionString, tra i vari provider disponibili
non ce n'è nessuno che mi permette di raggiungere il risultato desiderato.
Magari sono io che sbaglio strumento, invece di ADO, dovrei utilizzare
qualche altro componente di Delphi, ammetto la mia ignoranza in materia,
visto che fino ad oggi al massimo mi sono sempre connesso ad un database
di SQL. Spero di essere stato abbastanza chiaro...
Grazie. 


 non ce n'è nessuno che mi permette di raggiungere il risultato desiderato.
Non ho la possibilità di provare in quanto non ho Filemaker e quindi 
neanche i driver odbc... comunque prima di tutto devi crearti una DSN 
(sistema o utente), e lo puoi fare sia dall'Origine Dati ODBC (pannello 
di controllo/strumenti di amministrazione) che dalla maschera di delphi 
durante la costruzione della ConnectionString (quando hai scelto 
Microsoft OLE DB Provider for ODBC drivers clicca su Utilizza stringa di 
connessione e clicca su Genera e poi Nuovo).
-- 
Jax

 Massimo
Guarda questo sito, ci sono le stringhe di connessione un pò per tutto
compreso FileMaker:
http://www.connectionstrings.com/
Ciao M.

tempo fa avevo provato odbc con delphi e filemaker, però mi dava un sacco di 
problemi in quanto i tipi di dati non corrispondevano e dava exception anche 
eseguendo post su tabelle
Simo 

Grazie, qualcosa sono riuscito ad ottenere!!!
Massimo


Davvero molto utili questo sito (già aggiunto nei preferiti!!!).
Grazie e ciao,

Newsgroup: it.comp.lang.delphi
Titolo: Blank caption

Ciao
perch� in D2009 ogni componente che ha il caption a blank, automaticamente 
si setta come il name?
Mi sono ritrovato vecchi dpr D6 ricompilati in D2009 che avevano label 
vuote, con detta propriet� uguale al name.
Andrea 

 si setta come il name?
designtime, runtime o entrambi?
A.

 si setta come il name?
designtime, runtime o entrambi?
gi� scusa, in particolare il componente TLabeledit a designtime.
Impossibile settare la label caption vuota, poi a runtime si setta in 
automatico come il name.
ho ovviato settando uno spazio per non dover scrivere una riga di codice che 
azzera a runtime. 

 automatico come il name.
brrrr... che cosa brutta....
A.

 
scusa non le puoi settare con un valore? tipo se ï¿œ un totale la setti 
con zero..

 con zero..
e quando lo fa? E oltre al quando se tiene 1000 label deve mettere
almeno una riga per ogni label??
.....
A.

 
intendevo a design time, comunque volendo pu� creare una funzione da 
usare allo show o al create delle form, in modo da settare le label come 
meglio gli aggrada..

 zero..
Si ok ma che c'entra? I workaround sono diversi e pi� o meno funzionali, non 
� questo il punto
Quello che mi fa inca@@  � un errore logico del D2009. Per quale motivo non 
posso settare una caption vuota?
Avete novit� se in D2006/D2007 f� uguale?
Fino al delphi 7 tutto ok. 

 
ps.
con d2009 le caption vuote vanno provato adesso.

 con d2009 le caption vuote vanno provato adesso.
sul TLabelEdit? 

sui TLabelEdit da me non va.
setto vuote le caption e salvo, ma alla compilazione prendono il valore del 
name. Stessa cosa se chiudo e riapro il dpr 

Sembra comunque un problema noto.
http://groups.google.com/group/alt.comp.lang.borland-delphi/browse_thread/thread/3f0d4c05a99945b6#
Punto 1 

 
avevo provato sulle Tlabel ed ok
ora ho provato sulle Tlabeledit ed anche ï¿œ ok espandi la proprietï¿œ 
editlabel->caption cancella tutto premi invio...
a me funziona ma ho tutti gli update...

 a me funziona ma ho tutti gli update...
A me il caption del TLabeledit non va. Si autosetta a runtime!
Newsgroup: it.comp.lang.delphi
Titolo: Autenticarsi sul server

Ciao a tutti,
   piccolo problemino ...
 
Prologo ....
 
Rete di pc composta da server e 9 pc in rete; Per semplicita' cilent1..9
 
Tutti i pc quando vengo o avviati si autenticano in automatico al server 
.... tranne il client9 che viene connesso al server quando serve (e' 
quasi sempre scollegato dalla rete).
Per collegare il client9 al server devo aprire "risorse del computer" e 
nell'edit digito \\server
A questo punto si apre la form di login sul server con username e password.
 
Problema.
Sul client9 gira un mio programma che si connette al DB sul server ... 
se e' connesso ... se non e' connesso firedac mi dice che non e' 
stabilita la sessione con "server".
Ora
1 - come posso cpaire se il client9 e' connesso al server o no ?
2 - se non e' connesso come posso invocare una mia form dove chiedo 
username e password per l'autenticazione?
3 - per la disconnessione ??
 
Logica, lancio il programma, non e' collegato al server chiedo se si 
vuole connetere, se si chiedo l'autenticazione e quando esco dal 
proramma (visto che era disconnesso) disconnetto l'utente ..
 
Probabilmente mi saro' spiegato male ..
 
Grazie a tutti
 
Ciao
Daniele
 
PS: Ho provato con
If LogonUser(PChar(UserName), PChar(Host), PChar(Password), 
LOGON32_LOGON_NETWORK, LOGON32_PROVIDER_DEFAULT, TokenHandle) Then
 
ma restituisce sempre false (host e' "server" o "\\server" ma non cambia 
niente ....)
 

Banalmente io utilizzo il test di esistenza di un file sulla cartella 
del server: se è "visibile" sono connesso, altrimenti no.
 
Il problema è nel mio caso il timeout, cioè il tempo entro il quale il 
tentativo viene concluso con errore
 
Alessandro
 


Grazie Alessandro, mentre per richiamare il login ??

Newsgroup: it.comp.lang.delphi
Titolo: BitBtn ritorno a capo

ciao,
ho la necessità di scrivere nella proprietà Caption di un Bitbtn una
stringa di lunghezza variabile.
Come posso fare per far andare a capo la stringa se va oltre la
lunghezza del bottone.
|---------|
|  abcde  |   
|---------|
|---------|
|  abcde  |
|  defgh  |    
|---------|
grazie.
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 lunghezza del bottone.
AFAIK, puoi farlo solo a runtime, in questo modo:
    BitBtn1.Caption := 'abcd' + #13#10 + 'efgh';
--
Jax

     BitBtn1.Caption := 'abcd' + #13#10 + 'efgh';
Grazie.


     BitBtn1.Caption := 'abcd' + #13#10 + 'efgh';
Puoi anche modificare il file DFM manualmente
-- 
 < 
http://www.reactos.com/
 >  Open source clone of Windows NT. Current
     Don't stand, REACT!      version 0.0.19. C, C++ and ASM developers
                              and beta testers are welcome!

 Puoi anche modificare il file DFM manualmente
E' vero, non mi era mai venuto in mente, grazie!
--
Jax

 Puoi anche modificare il file DFM manualmente
si, ma a me serve a Runtime.

Newsgroup: it.comp.lang.delphi
Titolo: Chiamanti di procedure

Dunque io vado a creare un form al volo in due punti distinti del mio
programma.
Questo form, A SECONDA DI CHI L'HA CHIAMATO [non sto urlando, ma mettendo
enfasi sul punto], mi deve eseguire cose leggermente diverse proprio nella
sua creazione. Per sapere chi ha chiamato la creazione del form io vado a
controllare il valore contenuto nella variabile Sender della procedura
OnCreate del mio form.
Quindi l'idea assomiglia a qualcosa del tipo:
punto A del programma
mioform:=Tform.create(nil);
mioform.showmodal;
mioform.free;
punto B del programma
mioform:=Tform.create(nil);
mioform.showmodal;
mioform.free;
procedure Tform1.OnCreate (Sender: TObject);
begin
    if Sender = A
    then
        showmessage('sono stato creato nel punto A del programma')
    else
        showmessage('sono stato creato nel punto B del programma');
end;
pensando che il valore Sender gli venisse passato in automatico.
In realtà quando eseguo il codice delle OnCreate del mioform il sender non
assume mai valore A e quindi eseguo sempre il codice del ramo ELSE
Qualche soluzione?
Grazie

 ha scritto nel messaggio
news:pl09b.317289$lK4.10...@twister1.libero.it...


 mettendo enfasi sul punto], mi deve eseguire cose leggermente diverse
per enfatizzare :  *a seconda di chi l'ha chiamato*
Alcuni newsreader mettono direttamente in grassetto le parole che si
trovano fra asterischi.
Ciao!
   miyomo

 Ciao
Forse mi son espresso male.....
se metto il codice che mi hai scritto nel form che viene creato al volo (e
che è lo stesso utilizzato in due punti del programma distini) il valore è
form23, che è proprio il nome del form creato al volo.
Io invece voglio mettere nella OnCreate del form23 un if che mi distingue il
chiamante, ossia se il chiamante è form1 allora faccio il THEN, se è form2
allora faccio l'ELSE.
Spero di essermi spiegato meglio
Grazie ancora

 ha scritto nel messaggio
news:bk2ms5$qoe$1...@le1.cs.unibo.it...


Mi č venuto un dubbio. Se non funziona prova cosě:
if tForm(Owner).name = 'A' then
Ciao

 Ciao :-)
Access violation..... ^__^
preciso che 'A' nel mio caso è il nome di un form, quindi nel mio codice c'è
if 
owner.name
='form1'
then
    codice da eseguire perchè il chiamante è form1
else
    codice da eseguire perchè il chiamante è form2;
Davide

trovano fra asterischi.
Infatti. Usa gli asterischi, che sono piu' comodi e meno equivoci.
;-)
-- 
Morde. 
(morde at programmer dot net)

 Sender della procedura OnCreate del mio form.
OnCreate non e' una procedura, ma un puntatore a metodo. Se si assegna
un metodo, questo viene chiamato (normalmente da AfterConstruction)
assegnando Self a Sender, cioe' Sender e' un riferimento all'istanza di
TForm1.
Saluti
Paolo Arosio

 procedure Tform1.OnCreate (Sender: TObject);
[cut]
Sender sarà sempre uguale all'oggetto appena creato (i.e. la form).
Il parametro Sender è stato inserito per fare cose differenti da ciò che 
vuoi fare tu.
-- 
Roberto Lupi
Newsgroup: it.comp.lang.delphi
Titolo: Muovere un punto

Devo fare in modo di muovere un punto all'interno di una finestra
secondo delle posizioni.
Fin qui nessun problema,
Ora voglio che questo punto si muova simulando una cera velocità !
Esempio pratico:
ho una pista lunga 300m in cui un'auto gira in 20 secondi.
Bene, voglio risimulare il percorso in modo che il punto sullo schermo
si muova alla stessa velocità e che quindi impieghi lo stesso tempo
per fare il percorso (20 secondi).
QUALCHE IDEA?

 QUALCHE IDEA?
Potresti estrarti le coordinate del punto (preinserite in una lista per
esempio) ad ogni ciclo while true in cui inserisci anche uno sleep (x) e
facendo delle prove di trovi l'x esatto.
Per curiosità, a cosa ti serve tutto ciò ?
Ciao
Fabio

 ha scritto nel messaggio
news:da443c53.04022...@posting.google.com...

Io farei una semplice proporzione, fra i metri reali e i punti che hai
disegnato sullo schermo.
Se la mc si muove a x m/sec, sullo schermo si muoverà di x*k pixel/sec (dove
k lo calcoli facendo la proporzione fra i metri reali, i pixel da percorrere
e la risoluzione dello schermo).
Poi fai partire un ciclo che ad intervalli fissi, es. ogni secondo (o meno,
dipende dalla fluidità che vuoi ottenere) ti muove il punto di x pixels.
Legandoti al tempo assoluto e non a cicli di ritardo, sei sicuro che anche
in seguito a rallentamenti del pc, riprendi sempre la posizione corretta.
Ciao, Robby

Sto gestendo un software di telemetria per automodelli e aerei e
siccome registro la posizione degli stick e quindi la posizione del
modello, vorrei riproporre la corsa a video in replay per avere un
aspetto grafico dei dati.

Newsgroup: it.comp.lang.delphi
Titolo: Re: Errore in kilix

Io non uso :
 linux:/usr/local/bin startkylix
uso
 linux:/usr/local/bin startdelphi
Ciao
Mario (
mari...@inwind.it
)
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

 ha scritto nel messaggio
news:213Z174Z185Z14Y...@usenet.libero.it...


Mi dispiace.
Io quello che posso fare è spedirti una copia del cd di Kylix 3 ent se tu
possiedi la licenza.
Nell'eventualità che il problema fosse nel cd.
O una copia di Red Hat 9 se invece tu ritieni che sia dovuto a suse.
Ho però bisogno di un indirizzo fisico.
Dipende anche che cosa hai installato con Suse.
Ciao
Mario - (
mari...@inwind.it
)

Newsgroup: it.comp.lang.delphi
Titolo: dbcombobox - LOOKUP DISPLAYWIDTH

come si fa ad impostare la larghezza massima di una dbcombobox alla sua
apertura oppure di una dblookupcombobox ??? Secondo me dovrebbe esistere una
proprietą tipo LOOKUP DISPLAYWIDTH, che ti permetta di impostare la
larghezza del componente una volta che questo viene aperto (cioč quando ci
si schiaccia sopra)
Grazie,
           Alberto

 Grazie,
prego
Ciao, Anto.

"PK"  ha scritto nel messaggio
| come si fa ad impostare la larghezza massima di una dbcombobox alla sua
| apertura oppure di una dblookupcombobox ??? Secondo me dovrebbe esistere
| una proprietà tipo LOOKUP DISPLAYWIDTH, che ti permetta di impostare la
| larghezza del componente una volta che questo viene aperto (cioè quando
| ci si schiaccia sopra)
|
Nell'evento onDropDown del componente inserisci questa riga:
SendMessage(ComboBox1.Handle, CB_SETDROPPEDWIDTH, LarghezzaVoluta, 0);
LarghezzaVoluta e' la dimensione in pixel della listbox.
Ciao.
ACSH
[D4]
---------------------------
Chi fa da se'
fatica il doppio
Newsgroup: it.comp.lang.delphi
Titolo: includere wav nell'exe

volevo chiedere se è possibile includere un file wav nell'exe  e  utilizzalo
con  la funsione playsound();
ciao
erik

 utilizzalo con  la funsione playsound();
ti riporto testualmente il post di Andrea Casati ($yd) che ha risposto a un 
mio quesito simile il 13 marzo 2002 su libero.delphi (NG di Marco Cantů):
=========================================================
Crei un file SOUNDS.RC con una riga del tipo
101    RCDATA    "SUONO.WAV"
Lo compili con brcc32. In Delphi scrivi
{$R SOUNDS.RES}
Var
  Param : Word;
  FindHandle, ResHandle: THandle;
  ResPtr: Pointer;
begin
  FindHandle:=FindResource(HInstance, pchar('#101'), RT_RCDATA);
  if FindHandle<>0 then
  begin
    ResHandle:=LoadResource(HInstance, FindHandle);
    if ResHandle<>0 then
    begin
      ResPtr:=LockResource(ResHandle);
      if ResPtr<>Nil then
        SndPlaySound(PChar(ResPtr), snd_ASync or snd_Memory);
    end;
  end;
end;
============================================================
-- 
Mauro Falzari ( 
http://digilander.libero.it/mauro.falzari
 )
"Se guardi nell'abisso, anche l'abisso guarda in te." (Friedrich Nietzsche)

 {$R SOUNDS.RES}
come faccio a compilarlo con brcc32?
 non l'ho mai usato e dove lo trovo?
grazie!
erik

ho trovato grazie :)

 ha scritto nel messaggio
news:Bjtba.57298$zo2.1...@news2.tin.it...


rispondo a Giuseppe Di Grande  
che ha scritto nel messaggio:
 Nel tuo programma inserisci il file 
risorsa.
{$r miofilerc.res}
 Sempre nel tuo programma per 
mandare in play il suono basta 
quest'unica
 linea:
playsound('miosuono',hinstance,sn
d_async+snd_resource);
posso mettere tranquillamente più 
di un suono e richiamarlo con 
"miosuono" per differenziarlo dagli 
altri?...tipo..
playsound('miosuono1',hinstance,s
nd_async+snd_resource);
playsound('miosuono2',hinstance,s
nd_async+snd_resource);
ecc
end question 1
un'altra cosa quando io scrivo 
playsound('suono.wav',0,snd_asyn
c);
lo 'zero' in mezzo che stà a 
significare?
!! ma tu alle 6 di mattina mandi 
msg al Ng?
il lavoro già ti chiama a quell'ora?
ciao Giuseppe  e grazie 
ciao a tutti

 msg al Ng?
[Giuseppe...]
Effettivamente mi sono svegliato tardi! :-)
Guarda adesso...
La mente fresca e la tranquillità dell'alba crea un ottimo ambiente per la
programmazione. Comunque è anche insonnia. :-)
Ciao!
Giuseppe
Newsgroup: it.comp.lang.delphi
Titolo: gestione evento di un oggetto creato "run-time"

Ciao a tutti, come preannunciato in oggetto ho un problema riguardante 
la gestione eventi di un oggetto creato "run-time" (è giusto definirlo 
cosi?)
Immaginatevi una griglia di TPanel contenenti ognuno una TImage e un TLabel
(delle Tumbnails stile AdcSee...)
sia i pannelli che le immagini e le scritte sono degli array
quindi vengono creati dopo che premo un pulsante.
ora, il mio problema sta nel gestire gli eventi click e Dblclick 
sull'immagine.
mettiamo ad es. che col click devo cambiare immagine...
var  evento1 : TNotifyEvent;
begin
evento1 := Image1.OnClick;
end;
ok... ( ? )
e adesso????
procedure evento1();
begin
Image1.Picture....
Sono vicino alla soluzione oppure sono già in campo FantaPascal?
Ringrazio eventuali aiuti!
bye
Fox

 
Abbastanza vicino come idee, ti posto un esempio compilabile.
procedure TForm1.Button1Click(Sender: TObject);
begin
  button2.onclick := Evento;
end;
procedure TForm1.Evento(Sender: TObject);
begin
  caption := 'ciao';
end;
ciao
-- 
---------------------------------------
Per rispondere in privato togliere 1975

 Abbastanza vicino come idee, ti posto un esempio compilabile.
-cut-
grazie mille!
corro a provare!
;)

Newsgroup: it.comp.lang.delphi
Titolo: Quale componente utilizzare?

Ciao Ragazzi,
quale componente dovrei utilizzare se volessi collegarmi a Server Remoti.
Vorrei creare infatti un programma simile al telnet, perň non saprei che
componenti utilizzare per la connessione remota ai servers.
Avete qualche idea?
Grazie.

 Avete qualche idea?
Tra i demos dei componenti Indy dovrebbe esserci sia il client che il server
telnet.

Dove li trovo i componenti Indy?



Io li ho trovati con una semplicissima ricerca con Google...
Basterebbe provare...
Cmq prova qui:
http://www.nevrona.com/Indy/
Bye

 Vorrei creare infatti un programma simile al telnet, però non saprei che

Newsgroup: it.comp.lang.delphi
Titolo: 2 dubbi Delphi Xe (Trial) con Firebird 2.5

di solito per fare calcolare al db il valore univoco di in ID
creo un "Generatore" ed una "Procedure"
es Procedure
Input Parameter
begin
   ID_OPERATORE = gen_id(gen_id_operatore, 1);
   suspend;
end
Output parameter : ID_OPERATORE
  //chiama ed esegue la procedure
  //componente dbExpress TSQLStoredProcedure
   SqlSp_Operatori.StoredProcName := 'CON_OPERATORI_ID';
   SqlSp_Operatori.ExecProc;
   //assegna  ID calcolato dal DB
   Cds_Operatori.FieldByName('ID_OPERATORE').AsInteger := 
SqlSp_Operatori.Params[0].Value;
   //conferma inserimento
   Cds_Operatori.Post;
Firebird usa anche i Trigger : es TRG_OPERATORE
AS
BEGIN
     if (new.ID_OPERATORE is null) then
     new.ID_OPERATORE = gen_id(GEN_ID_OPERATORE, 1);
END
Client/Server su db Remoto
1 - dubbio
volendo far eseguire il calcolo ID al trigger, vi e' un
modo da invocarlo, dato che con la StoredProcedure non si puo' fare ?
il risultato ottenuto e' lo stesso.
2 - dubbio
Ho letto che le Transazioni usando dbExpree sono implicite , quindi non 
serve piu' chiamare "Commit" o "Rollback", ne definere il livello 
"TransIsolation"
procedure Tfrm_ConnettiFb.ConfermaOperazione;
var TD: TTransactionDesc;
begin
   TD.TransactionID := 1;
   TD.IsolationLevel := xilREADCOMMITTED;
   SQLConnection1.StartTransaction(TD);
   try
     SQLConnection1.Commit(TD);
   except
     SQLConnection1.Rollback(TD);
   end;
end;
Ma sono implice con Edit / New / Post o anche con gli statement
INSERT INTO etc. ?
Maurizio

 il risultato ottenuto e' lo stesso.
Che vuol dire "invocarlo"?
Un trigger scatta lato db a seconda dell'evento al quale e' associato.
A.
Newsgroup: it.comp.lang.delphi
Titolo: cancellazione Oggetti

Salve a tutti e scusatemi se scoccio ancora ma vorrei sapere come si
cancellano gli oggetti creati in run time.
Ri posto il codice di creazione:
 while not qry_tipo.Eof do
     begin
          fPanel := TPanel.Create(Self);
          fPanel.Parent := Scr_Esami;
          fPanel.Width := 89;
          fPanel.Height := 25;
          fPanel.BevelInner := bvRaised;
          fPanel.BevelOuter := bvRaised;
          fPanel.Color := clSkyBlue;
          fpanel.Name := 'pnl_m' + qry_tipo.fieldByName('Nome').AsString;
          fPanel.OnClick := ClickPannello;
          qry_tipo.Next
     end;
ho provato con il comando tpanel(fpanel).destroy ma mi cancella solo
l'ultimo pannello creato.
Grazie a tutti per la diponibilità.
--------------------------------
Inviato via 
http://usenet.libero.it

 cancellano gli oggetti creati in run time.
Ti dò un consiglio: quando crei i panel, raggruppa quelli creati a runtime
ad esempio impostandone la property Tag a 1. Quando vuoi distruggerli, usa
un ciclo del tipo
        for i := 0 to ComponentCount - 1 do
            if TPanel(Components[i]).Tag = 1 then
                TPanel(Components[i]).FreeAndNil;
In questo modo distruggerai solamente quelli creati a runtime :-)
Saluti
        Marco Bortolani
 
infoN...@marcobortolani.it

 In questo modo distruggerai solamente quelli creati a runtime :-)
Ti ringrazio per il gentil aiuto ma il comando FreeAndNil non me lo prende
ed allora ho messo solo free non mi cancella tutto mi ad questo errore "List
Index out of Index (19)"
ComponentCount = 22.
Ti ringrazio in anticipo se vorrai aiutarmi un'altra volta


 ComponentCount = 22.
Prova ad usare il codice seguente. Il ciclo è al contrario perché ad
ogni distruzione il valore di ComponentCount diminuisce, per questo poi
hai un'eccezione Out of Index:
FreeAndNil è una procedura, per cui andrebbe usata in questo modo:
FreeAndNil(Self.Components[i]).
Ciao
Antonio
procedure TForm1.Button2Click(Sender: TObject);
var
  i: integer;
begin
  for i:= Self.ComponentCount - 1 downto 0 do
  begin
    if (Self.Components[i] is TPanel) and (Self.Components[i].Tag = 1)
then
      Self.Components[i].Free;
  end;
end;

 Antonio
Ottimo.
        Marco Bortolani
 
infoN...@marcobortolani.it
Newsgroup: it.comp.lang.delphi
Titolo: Oggetto TPrinter

Salve a tutti. Sto facendo una stampa scrivendodirettamente sul canvas
dell'oggetto printer. E fino a qui è tutto ok.
Adesso dovrei realizzare un preview ma non saprei come fare. Chi sa
suggerirmi un modo?
Grazie Marco Cotroneo

 un preview ma non saprei come fare. Chi sa suggerirmi un modo?
non ho mai provato ma potresti usare ad es. un TImage
e fare Image.Picture.Canvas := Printer.Canvas;
non lo so, prova
Ciao,
Alan Solo

suggerirmi un modo?
Ridefinisci il metodo di stampa in modo che riceva il canvas
destinazione come parametro. Se vuoi stampare su Printer gli passi
Printer.Canvas, se vuoi stampare su una form gli passi Form.Canvas. 
Personalmente ho usato una form apposita con una PaintBox alClient;
disegni un rettangolo bianco (la pagina) proporzionale alla dimensione
del foglio, infine chiami il metodo che ti fa la stampa sul canvas.
Saluti
Paolo Arosio

 wrote in message
3a238394...@news.cis.dfn.de...


un canvas normale come fai a gestire il salto pagina?
Si' hai perfettamente ragione. Ho dimenticato la cosa essenziale: nel
mio caso stampavo/mostravo 1 pagina alla volta.
Saluti
Paolo Arosio

 Paolo Arosio
Penso che il problema principale sia la risoluzione.
Sul canvas del TPrinter hai la risoluzione rilevata dalla stampante (es.
300 o 600 dpi), mentre nel canvas di un form o in qualsiasi canvas video
hai la risoluzione di 96 dpi.
Comunque secondo me fai prima a guardare su Internet; ci sono moltissimi
componenti che faranno al caso tuo.
Francesco

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

Sto cercando il componente AbZipper ma non lo trovo... qualcuno mi puň 
postare un link? Grazie
--- posted by geoForum on 
http://www.delphiedintorni.it

postare un link? Grazie
Si parla di Abbrevia: 
http://sourceforge.net/projects/tpabbrevia/
Ciao
-- 
Morde. 
(
mo...@despammed.com
)
M-List di icld: 
http://it.groups.yahoo.com/group/icld/


abZipper č un componente di Abbrevia ex Turbopower, lo trovi qui
http://sourceforge.net/projects/tpabbrevia/
ciao.
-- 
Ore 18.30: premo invio.

Newsgroup: it.comp.lang.delphi
Titolo: Giapponese Cinese e UnitCode

Qualcuno sa di cosa parlo?
Qualcuno mi sa dire come faccio a visualizzare i caratteri in
giapponese/Cinese?
Qualcuno mi sa dire come fare una gestione per l'Unitcode?
Grazie
Sto veramente impazzendo!
Mary
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 Mary
Andrea

Credo che tu ti riferisca all' UniCode.
Puoi provare su torry a cercare, io ho trovato due librerie di controlli che
supportano testo unicode (labels, edits, memos ecc ecc)
Ciao!
--
{MSX}  -  
http://msx.rules.it
Mantenitore delle FAQ di it.comp.lang.delphi,
reperibili qui: 
http://gpi.infomedia.it/abc/delphi/FaqDelphi.txt
Newsgroup: it.comp.lang.delphi
Titolo: TreeView





Da ieri sono alle prese con il TTreeView, "caro" 
componente che mi stà 
distruggendo 
sotto 


tutti gli aspetti, specie quello psicologico. Cos'è 
un 
TTreeNode? ...e che differenza 
c'è tra 


questo è il TTreeNodes? 
Nella guida 
in linea ho trovato ben poco 
(non ho trovato 
alcun esempio) 


e tra i programmi 
demo in allegato con il Delphi tanto meno. Allorchè mi 
sono detto "vado in 
qualche 



sito di Tips e magari lì trovo qualcosa"... e 
difatti non ho trovato 
nulla! :) 


 


Accetto qualsiasi genere di consiglio, suggerimento 
(non ditemi solo di cambiare lavoro perchè è troppo 


tardi!)


 


Grazie a tutti!


Dario





TTreeNodes non e' altro che una lista contenente tutti i TTreeNode che
non sono altro che * i nodi * del tuo albero. 
Qundi: TTreeView e' il "contenitore", TTreeNodes la lista e TTreeNode
il singolo nodo.
esempietto:
con
  MyTreeView: TTreeView;
  MyNode1, MyNode2: TTreeNode; //uso due variabili per non incasinarti
:)
//Aggiungo il primo nodo
MyNode1 := MyTreeView.Items.Add(nil, 'Nodo1); //Items è un TTreeNodes,
//Aggiungo un nodo "figlio" del primo
MyNode2 := MyTreeView.Items.AddChild(MyNode1, 'Nodo2');
Ciao,
Massimo.
RI P.S.
Dovresti gentilmente evitare di postare HTML
Domandare e' lecito, rispondere e' cortesia.
(15-2)

 ha scritto nel messaggio
news:000801c0b75e$804b9620$7400000a@acs...


Domandare e' lecito, rispondere e' cortesia.
^^^^^^^^^^^^^^^^
Un copia e incolla malandrino ha aggiunto questa frase che letta nel
contesto piu' sembrare sgarbata. Chiedo venia.
-- 
"Ciao Rex, che cavolo di situazione eh? Due dentro, due fuori, puo' succedere di tutto!"

In primis grazie per la risposta... spero di non rompere piů con questi
TTreeView!
In secondo.... che cosa intendi dicendo "Dovresti gentilmente evitare di
postare
HTML"? Adesso ho disattivato la formattazione HTML...cosě č ok? Io non ci
capisco nulla di 'ste cose!
Dario
-- 
Posted from IDENT:qmailr@[217.57.169.195] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

Dario
Ora va bene!
Sul TreeView non ti preoccupare, all'inizio puo' risultare decisamente
ostico, alla fine diverrai un "TreeView Master" :)
Ciao,
Massimo.


Non ti preoccupare... non l'ho intesa come un insulto! Anzi... se commetto
delle
cretinate è giusto che me lo fate capire: anche perchè è grazie agli errori
che si
impara, no? TRANNE CHE CON IL TTREEVIEW DI DELPHI!!! Con quello
sbaglio e non imparo! :)

Newsgroup: it.comp.lang.delphi
Titolo: ASP.NET error

 
          Ciao a tutti,
sto smanettando un pò con Delphi 2005, ma non riesco a far partire
un pagina 
ASP.NET
 in Delphi.
Stavo usando il progetto demo : NavigationReg.
Dopo un pò che è partita su delphi mi dà questo errore :
"Unable to start debugging on the web server. Unable to attach to 
ASP.NET
worker
process (typically aspnet_wp.exe or w3wp.exe)"
I dati li vedo, li scorro, ma poi all'improvviso cade...
Qualcuno sà in cosa sbaglio?
Grazie.
Rino
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

 Qualcuno sà in cosa sbaglio?
Bisognerebbe anche conoscere qualcosa in più in merito alla 
configurazione di IIS sulla tua macchina.
Quello che descrivi avviene sistematicamente? Quando "all'improvviso 
cade", ti viene restituito un errore?
Ciao! :-)
-- 
Marco «Alka» Breveglieri
  ABLS Team S.n.c. - Software & Web
  Via De Gasperi, 14
  42019 Scandiano (Reggio Emilia)
 
http://www.abls.it

 cade", ti viene restituito un errore?
Si sempre, quando cade, restituisce l'errore che ho scritto prima.
Si alza l'eccezione anche se avvia il progetto e non faccio nulla...


 Si alza l'eccezione anche se avvia il progetto e non faccio nulla...
Mi sembra molto strano...quando hai installato la trial, ha confermato 
la modifica al file "machine.config" necessaria per il debugging 
integrato all'interno di Delphi2005?


 integrato all'interno di Delphi2005?
NO..... :-o


 NO..... :-o
Forse il problema č quello. Puoi tentare di eseguire la "riparazione" 
del setup di Delphi2005 sperando che ti venga riproposta la domanda (ma 
ho qualche dubbio).
In alternativa, reinstalla il software (tanto il conteggio dei giorni 
non si azzera...) :-D


Qualcuno sà in cosa sbaglio?
Dovrebbe essere sufficente da Start->Esegui eseguire
C:\WINDOWS\Microsoft.NET\Framework\v1.1.4322\aspnet_regiis.exe -i
che serve per abilitare IIS ad eseguire applicazione 
ASP.NET
.
Se non funziona puoi tenare di reinstallare il framework 1.1 con il suo 
sp1 e a ripetere il comando di prima.
--- posted by geoForum on 
http://www.delphiedintorni.it
Newsgroup: it.comp.lang.delphi
Titolo: TQRPreview

Vorrei crare delle anteprime di stampa personalizzate,tipo nascondere i 
pulsanti di chiusura di QuicKReport,nonostante tanti sforzi non riesco ad 
utilizzare il componente TQRPreview,chi a grandi linee mi sa dire come 
usarlo?
Grazie
Paolo 

 ha scritto nel messaggio
news:oRoqd.55364$Ni.19...@twister1.libero.it...

dopo avere creato la maschera di Report con le Bande , etc, aggiungi
QRPreview (ti presenta un riquadro bianco con le barre di scorrimento.
crei dinamicamente la finestra dell'anteprima di Quick Report, come un
qualunque form MDI, ipotesi se hai chiamato il tuo form FormAnteprima:
 nomeform:=TFormAnteprima.Create(Self);
//nascondi la vista di QuickReport
nomeform.QuickRep1.Visible:=False;
//adatti le dimensioni di QRPreview al form ospte
 nomeform.QRPreview1.Top:=0;
 nomeform.QRPreview1.Left:=0;
 nomeform.QRPreview1.Align:=AlClient;
 nomeform.QuickRep1.Preview;
sul tuo report nell'evento OnPreview , inserisci
QRPreview1.QRPrinter := TQRPrinter(Sender);
ciao Maurizio 

 ha scritto nel messaggio 
news:jVWqd.429752$35.18...@news4.tin.it...


 pulsanti di chiusura di QuicKReport,nonostante tanti sforzi 
cosa hai provato a fare? Posta un po di codice.
-- 
Alberto Salvati
A NEAPOLITAN Delphi Developer who is studing c# and .net
"Dicette 'o pappece 'nfaccia 'a noce dammi 'o tiempo che pure te spertoso"

Premetto che sono riuscito a creare correttamente l'anteprima del report,il 
problema e' che non riesco a creare uno zoom all'apertura dell'anteprima,ma 
in un secondo momento tramite una ComboBox ,comunque ecco il procedimento 
che ho seguito.
Ho creato una form chiamata SchedaAnteprima,ho inserito un componente 
QRPreview1,ho creato un report su un'altra form chiamata FormReport,il 
report l'ho chiamato QuickRep1,sull'evento onpreview di codesto QuickRep1 ho 
inserito il seguente codice:
 SchedaAnteprima.QRPreview1.QRPrinter := TQRPrinter(Sender);
 SchedaAnteprima.Show;
Ho creato una form principale con un Button1 con codesto codice 
Formreport.QuickRep1.preview;
Ciccando su Button1 mi si apre la SchedaAnteprima in cui vedo perfettamente 
l'anteprima del report QuickRep1
Contemporaneamente sull'evento onShow della SchedaAnteprima ho inserito:
 SchedaAnteprima.QRPreview1.zoom:=50;
Ma lo zoom e' sempre quello standard.
Da notare che se da una combobox  posta sulla SchedaAnteprima scelgo il 
valore dello zoom questo li si crea perfettamente
Sull'evento onchange della ComboBox
QRPreview1.Zoom:=50 e crea lo zoom al 50.
Grazie per l'aiuto
Paolo

io sempre seguito le indicazioni di QS che sono diverse da queste.
Sul sito qsoft trovi un bel .doc che spiega come fare questa e altre cose.

Newsgroup: it.comp.lang.delphi
Titolo: Controllo ChildForm...

La mia applicazione è composta da una MDIForm contenente un menù da cui
avviare le Form figlie. E' possibile controllare se una Form figlia è già
avviata così avviso l'utente che non può aprire un'altra copia?
Grazie!
--
________________________________
Antonio Signoriello
High Information Technology S.r.l.
Corso Aldo Moro 171/A
71042  Cerignola FG
Italy
Tel.   
+390885417950
Fax   
+390885417942
Cell.  +3903391199968
antonio_s...@hotmail.com
________________________________

hai provato la prop MDIChildren?
Bye
A.

Grazie!
Guarda la mia risposta al thread distruzione form del 2 luglio
-- 
Ore 18.30: premo invio.

 avviata così avviso l'utente che non può aprire un'altra copia?
Prova a fare cosi:
...
for i := 0 to ComponentCount -1 do 
   if Components[i] is TMioForm then  // qui potreti gia fare un primo
controllo
      if TMioForm(Components[i]).caption = 'sono il form gia aperto'
then // per esempio
         showmessage('form gia aperto');
Spero ti possa essere utili.
Ciao
Linus!   
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

Newsgroup: it.comp.lang.delphi
Titolo: Connettersi a Kataweb

Ciao,
sto cercando di connettermi al sito di Kataweb sulla finanza in automatico
per poter scaricare le pagine html,
solo che non ci riesco.
www.kwfinanza.kataweb.it
qualcuno sa come si fa ?
io ho provato così
http://servlets.kwfinanza.kataweb.it/jservlets/login/login?login=MIOLOGIN&pw
d=MIAPASSWORD
senza riuscirci.
Ciao Stefano Tampieri.


http://servlets.kwfinanza.kataweb.it/jservlets/login/login?login=MIOLOGIN&pw
d=MIAPASSWORD
Ciao, cosa intendi per "ho provato così..." ? con explorer o con un app.
delphi ?
E poi : controlla che non abbia bisogno di cookie.
Prova a dare maggiori info... bye!            Davide DG

 Ciao, cosa intendi per "ho provato cosě..." ? con explorer o con un app.


Newsgroup: it.comp.lang.delphi
Titolo: Aprire una finestra del browser...

Come faccio a far partire il browser predefinito aprendo una URL che voglio??
ShellExecute qualcosa... Se mi potete fare un esempio...
Grazie 
-- 
Posted from  [213.82.192.70] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 Grazie
Includi la Unit ShellAPI e usa ShellExecute.
 ShellExecute($80, 'open', PChar('
http://www.tuosito.it
'), '', '',
SW_SHOWDEFAULT);
HTH
 Marco

Ma non era nelle FAQ, una volta?
Andrea

Newsgroup: it.comp.lang.delphi
Titolo: Uso di idTimeServer

Sto cercando di creare un semplicissimo server sntp usando questo
componente, ma sono un po' a piedi (mi mancano le basi)... non č che
qualcuno ha un esempietto?
--
Jax
Journeying Artificial Xenomorph

 qualcuno ha un esempietto?
http://www.indyproject.org/teams/Demo/demolisting80.html
http://www.indyproject.org/indy/demodownloads/I9D6_Demos_24Nov02.zip
-- 
I'am what I'am, I do what I can

 
http://www.indyproject.org/indy/demodownloads/I9D6_Demos_24Nov02.zip
Grazie 1000 del link, č veramente utile.
L'esempio client/server č semplicemente disarmante, ma purtroppo il server
non funziona con il servizio "Ora di windows"... forse perchč Winzozz usa il
SNTP e non il NTP :(

Newsgroup: it.comp.lang.delphi
Titolo: Link a manuale delphi IT

Qualcuno chiedeva se esiste una piccola guida on line di delphi, ne ho
trovata casualmente una a questo link.
http://programmazione.html.it/delphi/index.html
Ciao
Gianni Giusti
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 
http://programmazione.html.it/delphi/index.html
grazie per la segnalazione utile. Tra le altre cose l'autore (Carlo Marona)
mi pare fosse un vecchio partecipante di questi gruppi ... non vorrei
sbagliarmi!
--
- Carlo -
c.b...@libero.it

> 
http://programmazione.html.it/delphi/index.html
Ne ho letto un po' sembra ben fatto! Ora lo faquo :)
Colgo l'occasione per dire che chi trova link utili come questo puo'
gentilmente postarli o farmeli avere per metterli nelle faq!
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

Newsgroup: it.comp.lang.delphi
Titolo: filtrare i record

Come si fa ad effettuare la ricerca in una DBgrid mentre l'utente digita il
testo da cercare un campo text??? Mi spiego meglio:
L'utente digita "D" nel campo "nome" e nella griglia vengono mostrati tutti
i nominativi che iniziano per D....
ciao!
__________________
Maurizio Manna
www.f1grandprix.it
News, foto, storia, cifre, chat, forum, wallpaper, screen saver e altro
ancora sulla Ferrari e la Formula 1

Devi usare l'evento OnChange della editbox.
Qui, ti leggi il suo contenuto e sui i metodi del dataset che sta sotto la
dbgrid per posionarti sul nuovo record.
Questa tecnica è poco consigliata, sopratutto in ambiente di rete.
Bye
AS

io faccio cosi':
(sempre nell'evento onChange di edit1)
Table1.findnearest(edit1.text);
porta il puntatore sul primo campo che
soddisfa il match ma non spariscono ne' i
record sopra ne i sottostanti.
altrimenti:
Table1.filtered:=false;
Table1.filter:='nomecampo =' + edit1.text;
Table1.filtered:=true;
e vedi solo i record che soddisfano il criterio
saluti
airenzo

Usa Locate nell'evento OnKeyUp
TuaTabella.Locate ('Campo', Edit1.text,[loCaseInsensitive,
loPartialKey)
Ciao
Robin
