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

Salve a tutti.
Ho installato Delphi5 su Win2000 Professional e se lo uso come Administrator
tutto bene, se entro come un utente Power-user il programma viene caricato
ma non mi appaiono le caselle degli strumenti solo la standard e totalmente
incompleta.
Ho forse sbagliato qualcosa ?
Grazie
Alessandro

non hai sbagliato niente, anche NT si comporta allo stesso modo. Non sono mai
riuscito a trovare una soluzione efficace a questa cosa.
alex ha scritto:


 ha scritto nel messaggio
news:vDgF5.13417$Z95.4...@news.infostrada.it...



    Questo accade perché Delphi salva la sua configurazione nei registri di
Windows... In NT/2000 questa parte di registri è collegata al profilo di un
utente perciò quando si entra con un altro identificativo, Delphi non trova
i suoi dati e si comporta come avete visto.
    La soluzione è utilizzare l'installazione di Delphi che (dalla versione
4). include una voce apposita per re - installare tutte le informazioni del
registro... Se effettui quest' operazione dovrebbe tornare tutto a posto...
    Saluti!
_________________________________
Gian Luca Dalla Torre
E - Mail: 
gianluca....@casteo.net
_________________________________

Newsgroup: it.comp.lang.delphi
Titolo: Tabelle dbf in rete

Ciao a tutti,
ho realizzato un'applicazione single-user in delphiI che utilizza una decina
di tabelle dbf.
Nasce adesso l'esigenza di condividere tali tabelle in rete, e cioe, la
stessa applicazione, instanziata su diversi PC, condivide le stesse tabelle.
Chi sa suggerirmi un modo semplice per fare questo senza perdere i dati
nelle tabelle e senza ricorrere all'acquisto di software per la gestione di
databases?,
Grazie a tutti,
Antonio.

 che utilizza una decina di tabelle dbf.
Non devi fare nulla di particolare, se non configurare l'alias sulle
macchine client, perche' punti alla macchina che fa da server.
La macchina server sara' l'unica a conservare i dati.
Bada, pero', che il formato DBF/Paradox si corrompe molto facilmente,
se usato in multi-user.
Forse ti conviene pensare ad una soluzione piu' alta: vedi Interbase
o MySQL, studiati per essere client/server e per avere molti accessi
contemporanei.
Non hai bisogno, d'altronde, di acquistarli.
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

Newsgroup: it.comp.lang.delphi
Titolo: [IB6] Creazione Utenti

Da un pò di tempo sto cercando di  sviluppare una piccola applicazione che
riesca a gestire gli utenti su ib6, l'unico modo che ho trovato è quello di
usare GSEC.. (con tutti i problemini conseguenti.)
Possibile che la borland abbia creato le librerie per c++ e non per delphi
?? (spero si tratti solo di una mia mancanza di attenzione)
Se qualche anima gentile riesce a farmi avere informazioni  gliene sarò per
sempre grato.
Sauro.

 ha scritto nel messaggio
news:a43e7f$i5f$1...@newsreader.mailgate.org...

Se hai la versione 5 o superiore di Delphi puoi sfruttare i componenti IBX
per creare degli utenti.
Ci sono anche degli esempi sulla documentazione di IB 6.01
Ciao
Simone
Newsgroup: it.comp.lang.delphi
Titolo: Programma già in esecuzione...

Salve a tutti, vorrei conoscere se c'è un modo per sapere se il mio
programma è già in esecuzione (per non lanciare una nuova istanza del
programma )
Grazie
Luca

 programma )
http://gpi.infomedia.it/abc/delphi/FaqDelphi.txt
Faq 2.11
--
- Carlo -
c.b...@libero.it

Newsgroup: it.comp.lang.delphi
Titolo: [d5] soluzione del punto sulla retta (calcolando la distanza tra punto e retta)

Ciao a tutti, ho trovato la soluzione per sapere se il punto X0,Y0 č sulla 
retta che passa tra X1,Y1 e X2,Y2... usando la distanza del punto sulla 
retta:
Simo
function TFormMain.DistanzaPuntoLinea(X0,Y0,X1,Y1,X2,Y2:integer):integer;
var
 nRet:integer;
 Dx,Dy,DxNum,DyNum,Den,Dxx,Dyy:extended;
begin
 Dx:=x2-x1;
 Dy:=y2-y1;
 DxNum:=Dy* (x0*Dy-y0*Dx+x2*y1-x1*y2);
 DyNum:=Dx* (Y0*Dx-x0*Dy+x1*y2-x2*y1);
 Den:=(Dx*Dx+Dy*Dy);
 Dxx:=DxNum/Den;
 Dyy:=DyNum/Den;
 nRet:=round(sqrt(Dxx*Dxx+Dyy*Dyy));
 DistanzaPuntoLinea:=nRet;
end;

Anche più semplice...
Infatti poichè:
equazione della retta passante per due punti  : 
(y-y1)(x2-x1)-(x-x1)(y2-y1)=0
quindi se (x0,y0) la soddisfa significa che vi appartiene e quindi se:
if (y0-y1)*(x2-x1)-(x0-x1)*(y2-y1)=0 then ....
--- posted by geoForum on 
http://www.delphiedintorni.it

retta:
Per verificare che un punto P(x,y) passi sulla retta a cui
appartengono i punti A(x1,y1) e B(x2,y2) basta che esso soddisfi
l'equazione della retta e che quindi sia:
(y2-y1)/(y-y1)=(x2-x1)/(x-x1)
con (ovviamente) (x,y)<>(x1,y1)
p.s.: sei OT.

Grande Andrew mi avevi fatto un po preoccupare, pensavo che fossi 
passato a Java ;-)


(y2-y1)/(y-y1)=(x2-x1)/(x-x1)
che risolta diventa:
(y-y1)*(x2-x1)-(x-x1)*(y2-y1)=0
Quindi oserei sbilanciarmi sul PLAGIO !
;-) Ciao a tutti e buona programmazione

Newsgroup: it.comp.lang.delphi
Titolo: Riempimento a gradiente

Nessuno conosce qualche algoritmo in delphi che permetta di eseguire il 
riempimento a gradiente di una zona non rettangolare?
Ho cercato in giro ma si fa riferimento solo a zone rettangolari o 
quantomeno regolari (cerchi, ellissi e linee).
Praticamente mi servirebbe una funzione simile a FloodFill che supporti 
il gradiente.
Grazie a tutti,
David

Se proprio non esiste una funzione simile a FloodFill mi accontenterei 
anche di una funzione tipo RoundRec. Nelle API ce ne' una ma lavora solo 
con un rettangolo puro.
Ciao,
David

microges ha scritto:

Non sono al corrente di un API specifica...forse GDI+ contiene funzioni 
simili (visto che, se non ricordo male, queste opportunità di disegno 
sono disponibili per la libreria Windows Forms di Microsoft).
Prova a dare un'occhiata ad alcune implementazioni di terze parti.
Ad esempio, la libreria *Graphics32* contiene funzioni di questo tipo, 
anche se non ricordo bene la loro applicabilità alle forme geometriche 
che hai citato tu nei messaggi precedenti... comunque, essendo 
disponibile un file della Guida, si fa presto a vedere. :-)
Il progetto è qui:
http://www.graphics32.org/
-- 
MARCO BREVEGLIERI
  (
http://www.marco.breveglieri.name
)

Di API ne esiste una sola e serve per il riempimento di una zona 
rettangolare.
Ora do un'occhiata a graphics32
grazie,
david

Come non detto. nel pacchetto Graphics32 non esiste una funzione simile 
a quelle che mi servono
Grazie comunque,
David

 a quelle che mi servono
Non me ne intendo di grafica e non vorrei dire una cazzata ma guardando i
componenti globus che trovi nella jvcl, ci sono dei riempimenti a gradiente
nei componenti. Forse usando un effetto che si basa sulle maschere con
bitmap come sorgente, riesci a ritagliare un'area rettangolare nella forma
che vuoi sovrapponendogli, appunto, la bitmap.
Se non li conosci gia', li trovi nella jvcl ma non offrono i demos che
trovi invece nella loro distribuzione nativa
http://www.torry.net/authorsmore.php?id=3733
Buona fortuna :)
-- 
Morde. 
ICLDweb: 
http://www2.samatel.com/icld/

Grazie della "dritta" ho risolto con una maschera sulle bit map.
Ciao,
David

 Grazie della "dritta" ho risolto con una maschera sulle bit map.
wow, questa cosa mi fa piacere :)
ciao


 ha scritto nel messaggio 
news:dq2qdh$ns2$1...@newsreader.mailgate.org...

Newsgroup: it.comp.lang.delphi
Titolo: indy components

mi serve spostare una zona di memoria da un computer che fa' da server (con
il controllo tcp server) su un computer client,probababilmente sbaglio
qualche cosa, fino ad ora sono riuscito a trasmettere solo delle stringhe,
ma per quello che devo fare io non e' abbastanza....
ho utilizzato tmemorystream...come faccio a sapere sul client la lunghezza
dello stream che mi arriva dal server? i dati li devo prendere per forza dal
metodo Memory? mah!
nessuno di voi ci ha mai giocato con questi? mi sapete indicare dove trovare
esempi di questi simpatici controli? (perfavore non ditemi sul sito
nevrona...ho gia' guardato)

 metodo Memory? mah!
credo che ci sia una tecnica apposita migliore e più elegante di quella che
sto per proporti, tuttavia questa non dovrebbe essere difficile
implementare...
Prima di mandare lo stream invii una stringa (magari formattata in modo
particolare) contenente la dimensione dello stream pronto sulla macchina
remota, così dal lato ricevente puoi già preparare uno TMemoryStream
sufficientemente grande.
Ciao
--
- Carlo -
c.b...@libero.it

 Ciao
si ok, pero' cosi deve inviare 2 messaggi al client...

 si ok, pero' cosi deve inviare 2 messaggi al client...
purtroppo non ho mai lavorato troppo con i componenti indy ... questo
spezzone di codice č tratto da una mia applicazione e riceve un' immagine
jpg da un PC remoto, se riesci ad adattarla buon per te.
var
  Stream: TWinSocketStream;
  Buffer: Array [0..9999] of Byte;
  MemoryStream: TMemoryStream;
  Received: Integer;
  JPeg : TJpegImage;
begin
  Form1.ClientSocket1.Socket.SendText('#D1_'+IntToStr(Trackbar1.position));
  Form1.ClientSocket2.Active:=True;
  JPeg := TJpegImage.Create;
  Stream:= TWinSocketStream.Create ( Form1.ClientSocket2.Socket, 360000 );
  MemoryStream:= TMemoryStream.Create;
  try
    if Stream.WaitForData ( 360000 ) then
    begin
      while True do
      begin
        Received:= Stream.Read ( Buffer, SizeOf ( Buffer ) );
        MemoryStream.Write ( Buffer, Received );
        if Received <= 0 then
          break;
       end;
       MemoryStream.Position:= 0;
       JPeg.LoadFromStream ( MemoryStream );
       JPeg.SaveToFile(WindowDir+'\screenshot.jpg');
       Image1.Picture.Assign(Jpeg);
    end;
  finally
    Stream.Free;
    JPeg.Free;
    MemoryStream.Free;
    Form1.ClientSocket2.Active:= False;
  end;
end;
Io dovrei aver preso spunto da un codice di Cantů, se non ricordo male ...


 Io dovrei aver preso spunto da un codice di Cantù, se non ricordo male ...

Newsgroup: it.comp.lang.delphi
Titolo: Esite un componente cosi?

Esiste un componente tipo DBGrid dove cliccando
su una colonna viene ordianata la griglia in funzione di essa?
Ciao

 su una colonna viene ordianata la griglia in funzione di essa?
esisterà pure, ma anche se non fosse, non vedo la difficoltà.
L'ordinamento lo fai secondo un indice su un campo che rappresenta la
colonna cliccata.
Ti saluto......con poche righe di codice ( 3 o poche più )  risolvi !!
Ciaoooo !!!!
Antonio Tarolla

 wrote in message
93kl8j$e1a$1...@lacerta.tiscalinet.it...


su una colonna viene ordianata la griglia in funzione di essa?
Le Rx (credo 
www.rxlib.ru
) contengono una dbgid con i titoli clickabili
(nel senso che sono disegnati come pulsanti std, e possono mostrare la
freccina giu' o su per indicare l'ordinamento).
Una volta che hai il click e la colonna puoi tranquillamente modificare
l'sql della query che usi per popolare la grid.
In generale trovo consigliabile utilizzare il + possibile TQuery al
posto di TTable, ed nelle query quel subset di sql che ti consente una
ragionevole sicurezza in un eventuale porting su un altro db.
Saluti
Paolo Arosio

 Immagina una tabella con 30 campi.
ok, ma tu puoi definire un indice a run-time per poi eliminarlo quando non
serve più.
Oppure come ha detto Paolo, usi un TQuery che ti permette di ordinare come
vuoi senza nessun indice, ma grazie all' SQL.
Però non pensare che su grandi tabelle l'operazione sia velocissima ( o
perlomeno istantanea ).....vedi tu !!
Ti saluto.......ciao e buon lavoro !!
Antonio Tarolla

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

 wrote in message
93ndr2$t0s$1...@lacerta.tiscalinet.it...



scusa: 
(questa volta e' dal Readme delle rx)
 RX Library Web Site:
 
http://www.rxlib.com
Saluti
Paolo Arosio
ps: Consentimi un suggerimento: tieni sotto controllo Outlook Express
(R: invece di Re:, quoting del testo in fondo).

 gli indici esistenti.
ma tu fino ad ora non hai parlato affatto di Oracle ne di database
centralizzato o di utenti !!
Il sistema che ti ho suggerito è usato. Altrimenti su un'applicazione che
usa database paradox ( in locale ), come fai a fare quello che chiedi
senza usare componenti aggiuntivi ne query e quindi l' SQL in generale ?
Ti saluto......ciao !!
P.S. Per ora che soluzione hai intenzione di adottare ?
Antonio Tarolla

Newsgroup: it.comp.lang.delphi
Titolo: try.. except

Devo gestire le eccezioni che mi genera un blocco di codice in modo che per 
una eccezione che sparo io faccia determinate cosi, per un eccezione 
generica invece mi scriva un messaggio a video.
Questo il codice
try
[...]
except
    on e:exception do
    begin
    [codice A]
   showmessage(e.message)
     end;
    on e1:MyException do
    begin
    [codice B.]
     end;
end;
Il problema e' che quando sparo MyException viene eseguito anche il [codice 
A]
Come faccio?
Se uso "else" al posto del primo "on" non riesco a catturare il messaggio 
dell'eccezione
ciao!
maz

 Come faccio?
Preponi la cattura della tua eccezione, rispetto a quella generica:
 > except


 [codice A]
Scusate, ho scritto una cosa falsa.. funziona benissimo..
sono fuso... ho bisogno di ferie...
maz
Newsgroup: it.comp.lang.delphi
Titolo: adattare larghezza celle stringgrid

Per adattare la larghezza della colonna alla dimensione massima della
stringa precente nella colonna ho provato a fare cosi', ma
evidentemente il parametro font.size non è quello piu' indicato....
Voi come fareste
Procedure adatta;
begin
with mystringgrid1 do
for x:= 0 to colcount-1 do
for y:= 0 to rowcount-1 do
if length(cells[x,y]) * cells[x,y].font.size>Cols[x].width
 then Cols[x].width:=length(cells[x,y]) * cells[x,y].font.size
end;

end;
procedure TForm1.Button1Click(Sender: TObject);
var
  X, Y: Integer;
  S: String;
  DC: HDC;
  SaveFont: HFont;
  TextSize: TSize;
begin
  S := '';
  X := 2; // colonna
  for Y := 0 to StringGrid1.RowCount-1 do
  begin
    if Length(StringGrid1.Cells[X,Y]) > Length(S) then
      S := StringGrid1.Cells[X,Y];
  end;
  DC := GetDC(0);
  SaveFont := SelectObject(DC, StringGrid1.Font.Handle);
  GetTextExtentPoint32(DC, PChar(S), Length(S), TextSize);
  StringGrid1.ColWidths[X] := TextSize.cx +
(GetSystemMetrics(SM_CXBORDER) * 4);
  ReleaseDC(0, DC);
end;
Newsgroup: it.comp.lang.delphi
Titolo: Aiuto!

procedure TForm1.RubricaClick(Sender: TObject);
var
CLines, I : Integer;
begin
Lista.items.loadfromfile('Rubrica.Txt')
CLines := 0;
for I := 0 to  Lista.Items.Count - 1 do
begin
CLines := CLines + 1;
end;
Label7.Caption := 'Ci sono '+ IntToStr(CLines) + ' linee!';
end;
Ho letto il manuale di inglese delphi ma non ho capito dove sta l'errore.
[Error] Email.pas(211): Missing operator or semicolon
mi dovrebbe caricare la rubrica in listbox e diovrebbe dirmi anche 
quanti ne sono.

Camaleonte ha scritto:

lascia perdere ho sbagliato non avevo messo ";" distrazione.

> quanti ne sono.
Io la farei molto più semplice ..
Lista.items.loadfromfile('Rubrica.Txt')
Label7.Caption := 'Ci sono '+ IntToStr(Lista.Items.Count) + ' linee!';
^_Goblin_^

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

Salve...ho un bel problema...ho un programmino sviluppato in D7 e un DB
access 2003...se utilizzo questo programma da HD tutto ok,ma se
masterizzo il tutto mi genera 1 errore...ovviamente il db diventa di
sola lettura e quindi mi da problemi...Sapete dirmi come fare per
creare una copia all'avvio dell'exe sul disco C:\ e una distruzione
automatica?????
Sono un principiante,quindi se possibile vorrei una soluzione poco
laboriosa!!!!!!!!
Ps....Salvati!!!!!!!!!!!!!!!!!!

 laboriosa!!!!!!!!
La soluzione è laboriosa in proporzione a quello che desideri ottenere, 
non al tuo grado di apprendimento. :-)
Ad ogni modo, come ti è già stato suggerito più volte, è meglio se usi 
dei titoli più consoni per le discussioni che apri, invece di "help", 
"aiuto" e così via, traducendo in tutte le lingue esistenti. :-)
Ciao,
   Marco.
-- 
MARCO BREVEGLIERI
  (
http://www.marco.breveglieri.name
)

OK....
cmq il comando copy file dove devo inserirlo, prima dell'application
Run????

e.pa...@email.it
 ha scritto:

Da Access riesci ad aprirlo? In sola lettura?
Se ci riesce Access non c'č motivo per cui possa farlo anche tu. Magari 
č sufficiente approfondire le opzioni di connessione e specificare un 
percorso "scrivibile" in cui permettere al Jet di memorizzare i suoi 
file temporanei.
Ciao,
Gianluca.

Ottima idea...Ma x xaso (visto che in delphi)so fare poco,sapresti
darmi una dritta su come fare?????
Grazie Comunque.....
Ciao
Ciao

hai sbagliato ng. questo è un ng di sviluppatori.
Quando scriverai un post come cristo comanda ti rispondo.
AS

Suggeriscimi uno "come cristo comanda"!!!!!!!!
Ciao

1) SUBJECT SIGNIFICATIVI
2) RIPORTARE CODICI E MESSAGGI DI ERRORE
3) INDICARE VERSIONI DI DELPHI, DB E TECNOLOGIE DI ACCESSO AI DATI
UTILIZZATE
4) POSTARE SOLO DOPO AVER CERCATO NELLA GUIDA, SU MSDN E NEI VECCHI
POST
AS
Newsgroup: it.comp.lang.delphi
Titolo: Delphi 6

Quanto ha senso programmare in Delphi 6(ho la prog) quando si parla della
8??
Per quanto potro ancora usarlo???
Tnk

> Per quanto potro ancora usarlo???
realisticamente, potrai usarlo ancora per altri 5-7 anni.
Ciao, Sandro

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

Kleidemos wrote:

Fino a quando i tuoi clienti non ti chiederanno qualcosa che con Delphi 
6 non puoi (o impiegeresti troppo tempo) a fare. Se consideri che ci 
sono tantissime aziende che usano programmi fatti in clipper...

CLipper?
E il 5 e cmq superato, no?

E il 5 e cmq superato, no?
Non e' proprio cosi': per gli sviluppi ci sono societa' che utilizzano ancora
il 4, in verita' dipende da quello che devi sviluppare. In base a quello che
devi fare, avrai bisogno di alcuni strumenti che potrebbero essere inclusi nel
tuo delphi. Ad esempio, se ti chiedono un servizio web, non basta avere la
professional: devi avere la architet: cosi' potrai usufruire dei componenti
intraweb.
Ora tu faccio io qualche domanda ;) 
Cosa devi sviluppare ? Che versione possiedi di Delphi? Ti posso invitare a
cena ?
^___^
-- 
Morde. 
(
mo...@despammed.com
)
Newsgroup: it.comp.lang.delphi
Titolo: lanciare applicazione Help!!!

Ciao
ho questo problema: vorrei lanciare un mio vecchio applicativo da un
programma nuovo semplicemente cliccando su un btn. Ho provato con le
seguenti funzioni:
**    winexec('C:\programmi\ac storedata\acstoredata.exe',SW_SHOWNORMAL);
**   ShellExecute(form1.Handle, nil, 'C:\programmi\ac
storedata\ACStoreData.exe','c:\programmi\ac storedata', nil,
SW_SHOWDEFAULT);
Il problema è che il programma in questione viene sì lanciato ma con un
fastidioso messaggio d'errore (File not found)
Così mi chiedo: se non lo trova come fa a lanciarlo?? Questo messaggio
d'errore poi viene ripetuto ad ogni movimento che faccio.
Premetto ke tale exe è perfettamente funzionante, quindi non so proprio
spiegarmi perkè accade ciò!
Chi mi aiuta?
Ciao e grazie
Andrea

Non ho capito un kakkio....!
Il file not found lo da l'applicazione che esegue shellexecute o la
applicazione eseguita con lo shellexecute?
sii + chiaro
Bye
AS

 fastidioso messaggio d'errore (File not found)
Cosě a prima vista mi viene da pensare che sia ACStoreData a generare quell'errore...
controlla meglio e prova a far partire l'exe da solo per vedere se ti da lo stesso errore.
--
Jax

 applicazione eseguita con lo shellexecute?
Lo dà l'applicazione chiamata, quella eseguita dalla shellexecute
Mi appare lo splashscreen e poi genera l'errore
Il punto è che se il problema fosse dell' applicazione chiamata, questo
dovrebbe verificarsi anche quando lancio questa da sola, e invece niente! Se
la lancio da sola funziona perfettamente
Bhoo!!
Ciao


 la chiamata
Effettivamente è strano....... però mi sembra che la shellexecute sia sbagliata.
Prova con:
ShellExecute(Application.Handle, 'open', 'c:\programmi\ac storedata\acstoredata.exe', nil,
'c:\programmi\ac storedata\', SW_SHOWNORMAL);
Ciò non toglie che la WinExec invece dovrebbe andare... fammi sapere.
--
Jax

 fastidioso messaggio d'errore (File not found)
Dall'help:
"The lpOperation parameter can be NULL. In that case, the function opens
the file specified by lpFile.
...
If lpFile specifies an executable file, lpParameters is a pointer to a
null-terminated string that specifies parameters to be passed to the
application."
Che, a quel che vedo, e' una directory e non un file; se l'app. si
aspetta un parametro che sia un nome di file, mi pare il minimo che si
lamenti.
Suppongo che tu volessi passare la directory in lpDirectory.
btw & infine, CreateProcess puo' sembrare avere un po' piu' parametri da
sbagliare, ma consente una maggior flessibilita' per lanciare degli exe.
ShellExecute(Ex) e' piu' adatta a _lanciare_ documenti.
Saluti
Paolo Arosio
Newsgroup: it.comp.lang.delphi
Titolo: TGIFImage... affidabile o meno?

Tempo fa scrissi un CGI che generava una sorta di tabella, la salvava in GIF
attraverso il componente TGIFImage 2.2 e poi la sparava indietro e nel
browser tale immagine compariva bella bella.
Dopo poco tempo, un cliente chiamň, dicendo che la tabella non funziona piů,
allora feci una prova ed infatti in IE appariva la arcinota croccetina
rossa.
Dopo un'analisi del problema scoprii che il CGI crashava per colpa di quel
TGIFImage con un exception "Out of system resources" o similare.
Strano, visto che comunque la macchina non faceva altro ed era un 733 con 1G
di RAM e 80Gb di HD...
Resettata la macchina il componente tornava a funzionare...
Siccome perň il problema persisteva e non potevo permettermi il lusso di
andare a rianalizzare il software ed il componente TGIFImage, ho spostato il
tutto su una macchina gemella e, fatto strano, non č piů crashato.
Ora mi ritrovo a dover fare una cosa molto simile, ovvero tirare in ballo il
TGIFImage in un progetto, solo che questo č molto piů grosso e non posso
permettermi rischi di alcun genere.
La domanda ora č: posso fidarmi ancora di quel componente? Qualcuno di voi
ha avuto problemi? E se si, siete riusciti a capire il perché e/o a
risolverli?
Grazie in anticipo
Christian

 Resettata la macchina il componente tornava a funzionare...
Che sistema operativo hai su quella macchina? E su quella nuova?
--
Jax
Journeying Artificial Xenomorph
Newsgroup: it.comp.lang.delphi
Titolo: sostituto per TListView [urgente]

Ciao,
mi servirebbe un componente come il TListView (uso ViewStyle=vsReport) che
mi permetta di modificare tutti i campi della tabella visualizzata e non
solo il primo come fa il TListView.
grazie mille
Giuliano

solo il primo come fa il TListView.
Non credo d'aver compreso.
La ListView ti consente di modificare tutti campi della
tabella mediante le proprieta' Items e SubItems.
Puo' darsi che il mio cervello abbia imbroccato la strada
sbagliata, in questo caso avvertimi.
--
Andrea Laforgia (mica uno qualunque...)


Una griglia? :-)
Vabbe', ho capito che hai bisogno di qualcosa di diverso di DBGrid o
StringGrid...spiegati meglio e vediamo se c'e' qualcosa che fa al caso
tuo.
Ciao
--
Piero Bonanno
bop...@libero.it
pie...@tiscalinet.it
bpie...@hotmail.com
______________________________________________
"Madame, lei ha tra le gambe uno strumento
che puo' offrire piacere a migliaia di persone,
e tutto quello che sa fare e' grattarlo"
- Sir Thomas Beechan a una violoncellista

 ha scritto nel messaggio
news:3ba10e69...@news.tin.it...

intendevo che l'utente deve modificare i dati a run time. da quello che ho
potuto provare può modificare solo i campi nella prima colonna. ho
tralasciato qualcosa ?
giuliano

 tuo.
ok. al momento ho un TListView con alcuni campi (codice, descrizione,
quantità, prezzo, iva, sconto, etc). l'utente deve poter editare tutti i
campi a runtime direttamente sul controllo (non è collegato direttamente ad
un database), mentre il TListView mi permette di modificare solo il primo
campo (nel mio caso "codice"), ovvero quello che è indicato dalla proprietà
"caption" (gli altri sono "subItems[index]".
ciao
giuliano

tralasciato qualcosa ?
Da' uno sguardo alla TStringGrid.


"caption" (gli altri sono "subItems[index]".
Allora andrebbe bene una TStringGrid. Se la trovi limitata, vai al
sito 
http://www.tmssoftware.com
 e scaricati il Grid Pack, trovi delle
belle griglie molto personalizzabili, e con editor per tutti i tipi di
dato


sbagliata, in questo caso avvertimi.
Il fatto e' che la LV ti fa editare a runtime solo la prima colonna,
ma non le colonne dei subitem


 Da' uno sguardo alla TStringGrid.
Nella TStringGrid mancano alcune cosette (credo, non ho approfondito molto)
e mi sà che risolverò con una TMemoryTable (RXLib) e relativi componenti.
grazie mille
giuliano

ma non le colonne dei subitem
Ah... non sapevo...
Il fatto e' che l'ho sempre usata solo per visualizzare
informazioni.


Newsgroup: it.comp.lang.delphi
Titolo: DLL e ParentForm

Chi conosce un metodo per visualizzare un TPanel (contenuto in una
DLL) all'interno di una form contenuta in un'altra DLL?
-=SIMO=-

 DLL) all'interno di una form contenuta in un'altra DLL?
Ho abuto lo stesso problema qualche tempo fa. Penso che anche a te capiti lo
stesso problema: "cannot assign TFont a TFont" quando tenti di impostare la
proprietà "parent".
L'unica soluzione che ho trovato (e a me per ora va bene) è utilizzare i
package ovvero se imposti "use runtime packages" tutto funziona
perfettamente !
ciaooo
Solid Snake IT
Newsgroup: it.comp.lang.delphi
Titolo: edit e array

 ho una griglia di edit di 4 righe e 4 colonne.
avrei bisogno di riferirmi ad ognuno utilizzando delle coordinate, ad 
esempio a[1,3] si riferisce al terzo edit. potete aiutarmi? grazie
-----------------
...ora che ho perso la vista ci vedo di più...
--- posted by geoForum on 
http://www.delphiedintorni.it

var
  EdtArray : array[0..3, 0..3] of TEdit;
begin
  EdtArray[0,0]:=Edit1;
  EdtArray[0,1]:=Edit2;
  EdtArray[1,1]:=Edit22;
  ...
  ...
  EdtArray[0,0].Text:='pippo'
end;
Bye,
Raktzo


grazie
le cose piu semplici sono sempre le piu efficaci :-)


Newsgroup: it.comp.lang.delphi
Titolo: Rinominare una directory

Ciao a tutti
Come posso rinominare una directory in un programma fatto con delphi 3?
La funzione RenameFile pare non andare sulle dir...
Vime

 wrote in message
7sunstgud2386agng...@4ax.com...


 La funzione RenameFile pare non andare sulle dir...
per queste operazioni esiste un'unica mitica funzione dell'API, la
SHFileOperation(). E' una funzione della Shell, per utilizzarla devi
includere la unit ShellAPI. Ecco un esempio per rinominare una directory.
Function RenameDir(DirName, NewName: String): Boolean;
var RecInfo: SHFileOpStruct;
begin
  result := false;
  with RecInfo do begin
       wFunc  := FO_RENAME;
       pFrom  := PChar(DirName+#0);
       pTo    := PChar(NewName+#0);
       fFlags := FOF_ALLOWUNDO or FOF_SILENT;
  end;
  if SHFileOperation(RecInfo) = 0 then
     result := true;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
  if RenameDir('c:\prova1','c:\prova2') then
     ShowMessage(Operazione effettuata con successo')
  else
     ShowMessage('Operazione fallita ... controllare i nomi delle
cartelle');
end;
Saluti!
--
- Carlo -
c.b...@libero.it
http://members.fortunecity.it/cbertu

includere la unit ShellAPI. Ecco un esempio per rinominare una directory.
Si, cosi' dovrebbe funzionare.
Pero' ho visto che quell'API funziona solo x Win95
Io ne avrei bisogno una per WinNT/2000
Come posso fare??
Vime

 Io ne avrei bisogno una per WinNT/2000
quell'API è stata da tempo inserita in Windows NT/2000, semplicemente hai
una documentazione vecchia (per info sempre aggiornate:
www.msdn.microsoft.com
).
La funzione che ti ho scritto è per Windows 2000, magari su NT è presente
solo dopo un certo Service Pack. Se hai problemi nell' utilizzo fammi
sapere.
Saluti


 La funzione che ti ho scritto è per Windows 2000
Rettifico: è stata provata su Windows 2000


Io ne avrei bisogno una per WinNT/2000
L'API in questione funziona su tutte le piattaforme, meno
WindowsCE.
Tratto da MSDN:
SHFileOperation
...
Windows NT/2000: Requires Windows NT 4.0 or later. 
Windows 95/98: Requires Windows 95 or later. 
Windows CE: Unsupported. 
-- 
The Follet

sapere.
Purtroppo non riesco a usarla:
Non mi trova la struttura "SHFileOpStruct"
Ho incluso "shellAPI"
Delphi 3 e W2K
Grazie...
Vime
Newsgroup: it.comp.lang.delphi
Titolo: Per cortesia, Ho un piccolo problema....

Possiedo delphi4.
Il mio problema è il seguente:
un form con due button che per dafault sono disabilitati.
Appena premo la lettera 'q' oppure 'w' si abilitano (enabled:= true)
rispettivamente i tasti 1 e 2.
Fin qui nessun problema perche ho risolto con onkeypress, ma per far
ritornare i pulsanti disabilitati devo premere con il mouse il bottone
abilitato.
Solamente che quando clicco per disabilitare il button, non si
riattiva più premendo i tasti assegnati!
Oppure se al verificarsi dell'evento onkeypress, volessi comunicare
con un finestra dialog che è stato premuto il pulsante 'q',  premendo
il tasto OK (di uscita dalla dialog), vorrei che continuasse a
cambiare lo stato dei pulsanti allla pressione dei tasti 'q' e 'w'.
Ma questo non avviene!
Come faccio per richiamare dall'evento onclick del pulsante la
procedura onkeypress che me lo riattiva?
Spero di essermi spiegato bene, ma è più difficile a dirlo che a
vederlo direttamente con Delphi.
Domanda secondaria: esiste una maniera per cambiare colore ad un
pulsante?
Ringrazio tutti.
Salutoni
Gianni
e-mail: 
gian...@hotmail.com

Gianni62 <no_spam_giann...@hotmail.com_tagliaqui_> wrote in
message q6l5isov83d5uhlp1...@4ax.com...

Spiegarlo così sul momento è un po difficile in quanto appena la form perde
il focus automaticamente gli eventi della form vanno a farsi friggere. La
soluzione sarebbe intercettare il messaggio comunque inviato da Windows
all'applicazione. Se rispondi alla mail privata posso farti un qualche
esempio. Ti aspetto.
                                                                        Ciao
Davide Carrara
cci...@libero.it

Newsgroup: it.comp.lang.delphi
Titolo: Master/Detail

Ciao a tutti, vi sottopongo un paio di domande sulle relazioni 
master/detail:
1) puï¿œ un detail essere a sua volta un master ? Esempio: table1, 
table2, table3. Table1 ï¿œ master del detail table2, table2 ï¿œ master del 
detail table3. Quando navigo su table1 table2 mostra i record collegati 
e quando navigo table2 table3 mostra solo i record collegati.
2) non mi funzionano le relazioni con indici composti da campi di tipo 
diverso. Es: "character, integer, integer" NON funzia mentre "integer, 
integer, integer" sï¿œ. Vi risulta?
Delphi 2010, PostgresDAC su PostgreSQL.
Grazie
-- 
Scrivo su Usenet da quando il Mar Morto era solo indisposto.

 integer, integer" s . Vi risulta?
In che senso "non funzionano"? Esattamente cosa succede che non
corrisponde
a quello che ti aspetti?
ciao
Giacomo

 integer, integer" sì. Vi risulta?
Con i componenti TClientDataSet non ho mai avuto di questi problemi, 
basta settare nel modo giusto i vari indici e tutto funziona.
^_Goblin_^
-- 
Ibis et redibis non morieris in bello
http://goblinland.myminicity.com/


La grid associata alla detail table non mostra nulla. Ovviamente con 
dati controllati e a posto. In sostanza la detail table sembra vuota.



Ok, grazie. Per me è importante sapere se è il componente o "il manico" 
a non funzionare :-)

Newsgroup: it.comp.lang.delphi
Titolo: [Lazarus - Linux] Interfacciarsi alle api di linux...

Salve gente!
Non evndo trovato altro ng adatto, provo qua (visto che di "pascal" 
sempre si parla...)
Mi son installato Lazarus su Linux (impressionante quanto sia vicino a 
delphi...) e non riesco a trovare una via per ottenere la lista delle 
interfacce disponibili (eth0,eth1,wlan0,etc...).
Esistono componenti o robe simili per far ciò o devo appoggiarmi a 
qualche sorta di "api" in ambiente linux? Se fosse questa la via, 
qualcuno può indirizzarmi verso qualche esempio?
Non voglio la pappa pronta, ma qualche dritta per affrontare il problema.
Grazie infinite!

 interfacce disponibili (eth0,eth1,wlan0,etc...).
Le info che chiedi sono "pubblicate" dal kernel nello pseudo filesystem 
sotto /proc, quindi potrebbe bastarti listare il contenuto di 
/proc/net/dev e farne il parsing.
cat /proc/net/dev
-- 
Design for the future, because it will be here sooner than you think.
(C) Eric S. Raymond, from "The Art of Unix Programming"


grazie, è quel che stò facendo al momento...parsing e basta (ifconfig | 
grep hwaddress è ciò che ho usato).
Ma non esiste un modo un pò più "pulito" a parte fare il parsing?

 Ma non esiste un modo un pò più "pulito" a parte fare il parsing?
Se ti serve sapere il MAC address di una scheda di rete, puoi leggere il 
file /sys/class/net/<interfaccia>/address
Enrico
P.S. e` comunque probabile che studiando l'implementazione della unit Socket 
tu possa implementare del codice che ti restituisce lo stesso risultato, ma 
secondo me non ne vale la pena


..........forse mi son spiegato male.....vorrei evitare il parsing dei 
files di linux...........................

 files di linux...........................
non ne vedo il motivo[1], in quanto quello e` il metodo standard per il 
kernel di mettere a disposizione dell'utente informazioni sui dispositivi 
presenti sulla macchina (a tal proposito, tieni presente che non ti sto 
dicendo di fare il parsing dell'output di un comando, ma di leggere il 
contenuto di un file di testo)
Enrico
[1] a dire il vero ne vedo uno: essere indipendenti dalla piattaforma. Ma, a 
questo punto, sarebbe preferibile capire quali sono i tuoi scopi e 
considerare a prescindere di scrivere una piccola unit che recuperi queste 
informazioni mediante i metodi standard dei vari os e le riporti in modo 
uniforme

 uniforme
Questo č ottimo...al momento, ma mano che mi servono dei dati,aggiungerň 
le funzioni ad una unit :)
thanks!
Newsgroup: it.comp.lang.delphi
Titolo: [d6] indy10 e messaggi email contenenti jpeg

ciao a tutti, è possibile mandare email html contenenti immagini che puntano 
a oggetti locali con indy?? cè un sistema per ricodificarle all'interno 
dell'email?
Simone 

 dell'email?
Che intendi per "oggetti locali" e "ricodificarle"?
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

tipo outlook o outlook express... io creo un email e ci inserisco un html
nel body però invece di avere oggetti che puntano a c:\pippo.jpg fare in
modo che vengano inglobati nell'email e vengano riferiti internamente (non
so come si chiama il termine giusto)
Simo
Newsgroup: it.comp.lang.delphi
Titolo: Conversioni stringa numer / numero stringa

Allora per convertire il contenuto di un oggetto TEdit in numero e viceversa
so usare la funzione StrToInt o IntToStr ma se non ho un numero Integer e ho
un real o altro come posso fare?
grazie in anticipo
Fiz

un real o altro come posso fare?
FloatTostr StrToFloat
Ciao,
Alan Solo

Se può interessare, esiste anche questa, soloper gli interi però:
function StrToIntDef(const S: string; Default: Integer): Integer;
Se avviene un errore durante la conversione della stringa passata in
ingresso nel primo parametro, non viene generata una eccezione ma come
result della chiamata verrà reso quello che hai specificato come secondo
parametro.
In questo modo puoi evitare di trappare (try except) la StrToInt
Saluti
________________________________
 David Marcucci
                Programmatore
            Direzione Sistemi Informativi
   SITA S.p.a.
-- 
Posted from 
sita.adsl.fol.it
 [213.26.241.44] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

Newsgroup: it.comp.lang.delphi
Titolo: SQL Server

Ciao a tutti!
Ho un problemino da sottoporre a questo NG  e ringrazio tutti coloro che 
vorranno darmi un parere.
Ho prodotto, per un cliente che usa BDE e SQL server con una serie di 
applicativi Delphi, un sistema per "clusterizzare" il server SQL.
Il mio programma infatti verifica la connessione con il server principale e 
con un server secondario (mediante alias temporaneo) ogni n minuti. Il 
server secodario è replicato in tempo reale.
Appena il mio programma verifica la mancata connessione al server primario 
invia una serie di Mail e popup ai destinatari predefiniti e poi comincia 
una sorta di countdown al termine del quale, dopo in altro invio di mail e 
popup, modifica i parametri degli alias bde utilizzati dagli applicativi 
(che oramai sono bloccati) portandoli dal server primario al server 
secondario.
Devo aggiungere che gli applicativi in questione condividono lo stesso file 
di configurazione del BDE.
Con Interbase (Firebird) fuziona tutto egregiamente.
Con SQL Server la mancata connessione al DB (utilizzo un semplice DB.Open := 
true all'interno di un try except) l'applicazione mi rimane inchiodata 
finchè ,penso , non vada in timeout. Questa attesa blocca per interi minuti 
tutto l'applicativo e quindi il countdown (che il cliente vuole).
C'è qualcuno che sa come non perdere il controllo nella verifica della 
connessione oppure come abbassare i tempi di timeout?
Spero che sappiate darmi qualche dritta, perchè sto un pochino sulle 
spine..... ho perfino provato a generare dei thread separatiche virifichino 
la connnessione al db..... ma niente il sistema si blocca lo stesso!!!
La  cosa triste è che non posso effettuare delle prove collegandomi io 
stesso alla rete e debuggando runtime il codice..... SOB e AIUTO!!
Grazie
Renato 


Utilizza una TADOConnection per fare il polling al server MSSQL.
-- 
Ore 18.30: premo invio.
Newsgroup: it.comp.lang.delphi
Titolo: Delphi e pagine web

Qualcuno mi potrebbe dire se č possibile estrarre elementi di pagine web
pubblicate su internet (Pezzi di testo) e recuperarli con delphi?
--- posted by geoForum on 
http://www.delphiedintorni.it

 pubblicate su internet (Pezzi di testo) e recuperarli con delphi?
Usa il componente *TIdHttp* (Indy Components) per scaricare la pagina; 
quando hai il testo della pagina, puoi cercare al suo interno tutto ciò 
che ti serve. :-)
Ciao,
   Marco.
-- 
MARCO BREVEGLIERI
  (
http://www.marco.breveglieri.name
)

che ti serve. :-)
e per cercare del particolare testo c'č una funzione tipo quelle di php,
che ti dice se in una stringa č contenuto un certo testo?
Grazie ancora
Nicola


 che ti dice se in una stringa è contenuto un certo testo?
Pos(sottostringa, stringa)
ritorna 0 se non trova la sottostringa oppure la posizione dove inizia
la sottostringa.
ciao
S

Come posso fare però a vedere se esiste prima la pagina web.. prima di
fare una copia con idhttp indy??


 fare una copia con idhttp indy??
Non puoi, o almeno non direttamente così come verifichi un file.
Tu provi ad effettuare una GET utilizzando l'indirizzo relativo alla 
pagina; se non riesci ad effettuare il download, verrà segnalata la 
relativa eccezione con il codice di errore appropriato (es. il classico 
404 per "File not found"), come previsto dal protocollo.


Ho provato a mettere il try except, ma non riesco a dirgli di saltare se
non trovo la pagina.
Inserisco il pezzo di codice..
OutputFileStream := TFileStream.Create('pippo.htm', fmCreate);
try
  IdHTTP1.Get('
http://www.brodec.net/nick/schedaprova.htm
', OutputFileStream);
except
  on EIdHTTPProtocolException do ShowMessage('Pagina non trovata') ;
end;
OutputFileStream.Free;
Grazie


 non trovo la pagina.
Sei sicuro che l'eccezione corrisponda a *EIdHTTPProtocolException*?
Chiedo solo per accertarmene, senza aprire Delphi e verificare. :-)


si si ce l'ho fatta con vari tentativi..
grazie a tutti..
Nicola
http://www.brodec.net/nick


Newsgroup: it.comp.lang.delphi
Titolo: Funzione di conteggio parole su Word...

Salve a tutti, ho questo problema; con la funzione
WordApplication1.ActiveDocument.Words.Count, mi viene ritornato ilnumero
delle parole contenute in un documento Word aperto tramite OLE; esiste un
modo per sapere ed eventualemente per posizionarsi su tutte le parole che
iniziano per esempio con "Nr." ??
Altrimenti con un ciclo devo scorrermi tutte le parole, ma ovviamente vorrei
ottimizzare. Grazie a tutti

nella guida vba trovi la descrizione completa della interfaccia offerta 
da word, compresi (credo) i metodi x la ricerca di parole, visto che 
word la ricerca la fa.
Bye
A

 word la ricerca la fa.
infatti:
    WordApplication1.Selection.HomeKey(Unidad,Extended);
    WordApplication1.Selection.Find.ClearFormatting;
    WordApplication1.Selection.Find.Text := 'Pippo';
    WordApplication1.Selection.Find.Execute;
    if WordApplication1.Selection.Find.Found then
      .....
Newsgroup: it.comp.lang.delphi
Titolo: GSM Nokia

Salve a tutti
Ho un problema, devo interfacciare un nokia (6150 credo) via com2. Ho
preso qualche componente che mi fa "vedere" le prte seriali ma non
riesco proprio a comunicare con il cellualre, qualsiasi stringa viene
ignorata, nel senso che non mi risponde proprio. Nessuno di voi sa dirmi
dove reperire informazioni per comunicare con 'sto celluare ?
Grazie in anticipo a chi vorrą aiutarmi
Massimo
l.sky...@iname.com
Che la forza sia con te

 ha scritto nel messaggio
news:3920765C...@iname.com...


Grazie, ho guardato su torry ma non ho trovato nulla di interessante, in
verità mi servono le specifiche di accesso al cellulare l'interfaccia la
faccio via com2
Grazie ugualmente
Max


Newsgroup: it.comp.lang.delphi
Titolo: Licenza per proprio software freeware.

Salve a tutti
sto cercando il testo di una licenza che permetta l'uso in modalità
freeware, non open source, di un mio programma.
La vorrei in italiano e che impedisse la modifica del programma
senza mia autorizzazione.
Vorrei poi sapere se posso distribuire programmi freeware
senza avere partita iva etc visto che non avrei utili oppure
se c'è comunque qualche obbligo.
Grazie
Mirko

 se c'è comunque qualche obbligo.
ovviamente si, purche' sia tu l'autore. Potresti addirittura cedere il tuo
software in licenza d'uso, a pagamento, e tutto senza bisogno di partita
iva, pagando solo la ritenuta d'acconto.
Ciao, Sandro
Newsgroup: it.comp.lang.delphi
Titolo: Dubbio dell'ultim'ora...

Allora...di solito uso un file INI per salvare le impostazioni dei
miei programmi...
Inizialmente (non sapendo come altro fare), per creare il file nella
stessa dir dell'eseguibile, ho usato './NOME.INI'... pero' ora mi
viene un dubbio: se il prog viene lanciato in qualche modo
particolare, il '.\' potrebbe non corrispondere alla sua dir, ma a
qualche altra... e' possibile?
In alternativa, e' meglio usare ExtractFilePath(Application.ExeName)?
In questo modo sono sicuro di prendere sempre la dir giusta?
Grazie...
Bye!
-- 
        <<* VeGeTa_CuBe *>>
 
http://members.xoom.it/vegeta3/

 In questo modo sono sicuro di prendere sempre la dir giusta?
Ti sei risposto da solo :)
L'unica cosa è che devi stare attento se la tua app può essere lanciata
da CD... tu sai bene che non è possibile scrivere su un cd ;)
--
Jax

Il giorno Mon, 18 Nov 2002 07:31:47 GMT, Jax parlo' riguardo a Re:
Dubbio dell'ultim'ora... e disse:

Non ci avevo pensato... :-)
Piu' in generale, e' possibile capire se una determinata unita' e'
readonly oppure no?


 readonly oppure no?
Non so, ti posso suggerire il metodo che usavo io tempo fa (quindi non
so se nel frattempo si è trovato qualcosa di più "giusto"), ossia, con
un
 GetDriveType('D:\')
reperisci il tipo di drive, e se è DRIVE_CDROM, puoi mostrare un
messaggio di errore.
Altrimenti (forse) è più corretto che ti gestisca il tuttto testando gli
I/O errors, ma su questo qualcun altro ti saprà essere più utile.
--
Jax

I/O errors, ma su questo qualcun altro ti saprà essere più utile.
Nell'attesa provero' a darci un'occhiata io...


 Nell'attesa provero' a darci un'occhiata io...
Guarda l'esempio di IOResult nella guida; non l'ho mai utilizzata ma non
dovrebbe essere difficile.
--
Jax

dovrebbe essere difficile.
Infatti... faccio brutalmente un controllo che IOResult<>0 prima di
proseguire... dovrebbe funzionare...


Newsgroup: it.comp.lang.delphi
Titolo: Orario di sistema

Ciao Ragazzi,
come posso inseire nella mia form, ad esempio in una label, l'orario di
sistema
che si aggiorni in tempo reale?
La funzione NOW restituite l'orario in un dato momento, ma non si aggiorna
secondo per secondo.
Come posso fare?
Grazie.

 ha scritto nel messaggio
news:pbQi9.67314$Hc7.4...@twister1.libero.it...

Usa il componente Timer  (system->timer)
usa questa procedura come esempio:
procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Form1.Caption:=TimeToStr(Time);
end;
Posrta Interval sotto i 1000.. es. a 500
By MAX
Newsgroup: it.comp.lang.delphi
Titolo: [DELPHI 6]

Salve a tutti,
giuro che č l'ultima domanda (per oggi :P).
Sapete se č possibile fare una sorta di "ping" ad un indirizzo IP ? E se sě,
come ?
Vorrei fare in modo che se il ping č positivo, compaia una certa scritta (ad
es. "Attivo");
Grazie,
--
*Admin Kaldais*
Euphrasia, NWN Server
http://euphrasia.igz.it

 se sě, come ?
Yup, datti un'occhiata alla dir
C:\Programmi\Borland\Delphi6\Demos\Indy\PingGUI
e buon appetito :)
--
Jax

 C:\Programmi\Borland\Delphi6\Demos\Indy\PingGUI
Eheh, grazie per l'aiuto :)
Ora perň ho un problema, inserisco l'host e tutto il resto e metto questo
evento:
ICPM.Ping;
if ICPM.ReplyStatus.BytesReceived = 0 then Label4.Caption:= 'Non attivo'
else Label4.Caption:= 'Attivo';
Se riceve il ping il programma va benissimo, mentre se l'host č down non
funziona neanche .. si blocca tutto e mi da come errore:
"Socket Error # 11001"
Perchč succede questo ?


 Grazie,
E' normale, succede perché il componente, dopo aver mandato la richiesta
ICMP all'host,
attende la risposta per tot secondi, dove tot è il valore della
proprietà ReceiveTimeout.
Se l'hai impostato (di default) a 5000, il programma aspetta per 5000
secondi (francamente
è un po' tantino, ma dipende da cosa devi pingare, se un indirizzo
internet o un IP
locale).
Se non ricevi risposta, il componente solleva un'eccezione, quindi basta
che gestisci il
tutto in un blocco try...except et voilà.
--
Jax

 tutto in un blocco try...except et voilà.
Hem, l'ignoranza dilaga, ... ho provato a leggere l'help per il try...except
solo che non c'ho capito molto.
Cioè dovrei fare:
try if ICPM.ReplyStatus.BytesReceived = 0 then Label4.Caption:='Non attivo'
else Label4.Caption:='Attivo';
except on .........
E poi ? Cosa dovrei fare ?
Scusate per la mia ignoranza ma è da poco che studio delphi, vi ringrazio.


 ringrazio. Grazie,
Ciao
Andrea

Newsgroup: it.comp.lang.delphi
Titolo: data dal calendario

Salve,
come faccio a:
cliccando due volte su una DBEdit far compare un MonthCalendar e
cliccando su una data farlo scomparire ed avere la data nel DBEdit.
GRAZIE 1000
faf...@tiscalinet.it

potresti trovare un componente che te lo fa da solo...
Mi pare ke sia anke negli RX Component... ma non ricordo dove li avevo
trovati... e manco li ho +... :/ ... è un abella collezione di componenti
piena di chicche...
Raptor


Se scarichi le librerie RX trovi un componente che weredita da
dbedit che ti permette di editare delle date e di avere una piccola
combo che motsra il calendario da cui scegliere la data.
Gli RX sono magici!
Si portano dietro un po' di cose magari inutili, ma altre sono
decisamente preziose....
Saluti
AS
-- 
Posted from 
ammi.mclink.it
 [195.110.128.1] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 ha scritto nel messaggio
news:3b3044c...@news.tiscalinet.it...
