mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.delphi
Titolo: Re: Tipi di dati in una dll

end;
TDataset non č un problema essendo di fatto un puntatore, per quanto
riguarda invece il tipo string, fai attenzione.
Usa la unit sharemem o meglio ancora usa degli array of char.
-- 
Ore 18.30: premo invio.

All'interno di una dll che utilizzerò solo con software delphi è
possibile inserire una funzione di questo genere o devo utilizzare solo
tipi di dati semplici?
function prova(dset: TDataset; filepath: string):boolean;stscall;
begin
 // codice
end;
 Ciriciao
  Giovanni
-- 
/*
 * Solutions for New Business - 
http://www.snb.it
 */


Per quanto riguarda String non c'è problema, uso sharemem e ho altre
funzioni nella dll che utilizzano questo tipo, TDataset mi dava un
errore di invalid pointer e temevo che non fosse utilizzabile, ora
riguardo il codice.
 Grazie
  Gio'


Newsgroup: it.comp.lang.delphi
Titolo: Componente x Mp3

Ciao,
Sapete indicarmi un componente per usare mp3 e m3u all'interno di un mio 
programma.
Per ora lancio il player predefinito di windows ma volevo usare qualcosa di 
interno al programma..
Grazie.
Gianluca Gaggi 

 interno al programma..
Puoi provare questo:
http://clarktisdale.com/d-mp3.php
-- 
Jax

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

Salve a tutti!
Tempo fa ho avuto per le mani una copia di Delphi (1.0) ,per curiosità l'ho
provato,e devo dire che é un ambiente fatto piuttosto bene. Purtroppo quella
versione non posso più usarla perché l'avevo solo installata sull'hd,e
sfortunatamente,ho dovuto formattare a seguito di problemi con i driver
della scheda video. Quindi sono alla ricerca di una qualunque
versione(possibilmente superiore) di questo
ambiente.Qualcuno sa dirmi se e quando qualche rivista lo distribuisce?
Tnx.
P.S.Scusate per il post lungo.
--
Firmato:L'Ammiraglio.
Comandante della USS "Defiant" NX74205.
Attualmente in missione sul confine cardassiano.

P.S.Scusate per il post lungo.
Strano concetto di 'Lungo'..... :)
Bye
--
- Carlo -
BSSoftware Tips Mailing-List Support

Strano concetto di 'Lungo'..... :)
Strano concetto di 'Corto'........:)))))
--
Firmato: L'Ammiraglio.
Comandante della USS "Defiant" NX74205.
Attualmente in missione al confine cardassiano.

Newsgroup: it.comp.lang.delphi
Titolo: [OT][Oracle] Esiste...

.. un qualcosa tipo FlameRobin da usare con Oracle XE. L'interfaccia su
browser mi sta facendo sclerare.
Va bene freware oppure da pochi US$.
-- 
http://www.kiva.org
Per il ng it.hobby.hi-fi: a*fan*ulo 'sta ca**o di hifi/hiend, tutte
put*an*te.
Per il ng it.comp.lang.delphi: astenersi perditempo e lamer.
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 questo articolo e` stato inviato via web dal servizio gratuitohttp://
www.newsland.it/newssegnala
 gli abusi ad 
ab...@newsland.it
toad
oppure
ems oracle manager

Puoi scaricare SqlDeveloper
A.

 Puoi scaricare SqlDeveloper
Mo' me li guardo. Un grazie ad entrambi.


Oracle SQL Developer: P-E-R-F-E-T-T-O !


 Oracle SQL Developer: P-E-R-F-E-T-T-O !
..ed e' agratis.... :-D
A.


anche toad e ems manager se per questo! versione lite!
Newsgroup: it.comp.lang.delphi
Titolo: Librerie per print Barcode

 
Salve
sto realizzando un progetto in Delphy che tra le varie cose dovrebbe anche
stampare,
su delle buste per lettere, dei codici a barre che verranno letti dagli
appositi lettori.
Ora a prescindere dal tipo di codice utilizzato,
chiedo se qualcuno conosce dove reperire delle librerie o dei componenti
free
che permettono tale stampa.
vi ringrazio anticipamente.
acaro
 
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/


Il report (free) Fuzzy report le stampa in vari formati anche con campo 
preso da db, io lo uso con successo.
Giulio 

gia visto sui soliti siti indicati sulle faq del ng e nei vecchi post 
accessibili tramite google-gruppi?
Bye
AS


mi dai ulteriori delucidazioni su come reperirlo ?
e come utilizzarlo?



si ma non trovo nulla di free ....


 Giulio
 
mi dai ulteriori delucidazioni su quest'oggetto?
dove reperirlo?
ciao
acaro_delphy


Uso da anni con soddisfazione Barcode Component, è freeware e con codice
sorgente.
http://mitglied.lycos.de/AJSchmidt/index.html
Permette di generare vari tipi di codici a barre tra cui il "CodePostNet",
quello presente sulle lettere.
Per la stampa su busta puoi usare il componente per QuickReport compreso;
altrimenti visto che il componente standard ti crea un'immagine, puoi
usare qualsiasi altro software che crea report (fastreport, ecc.) e
assegnare ad un componente di tipo immagine, l'immagine generata dal
Barcode Component.
Antonio
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 Antonio
grazie Anto
dal codice che mi sono scaricato dal sito su indicato, il test è andato
bene!!!
ora devo solo inserirlo nell'applicazione e farlo comparire in quickreport.
acaro delphy

Newsgroup: it.comp.lang.delphi
Titolo: Stampare grafica e testo

Salve. Devo fare un programma che stampi un modulo e ci inserisca i dati
nello stesso tempo. Si può fare? Oppure devo prima stampare il modulo, poi
stamparci il testo sopra?
Grazie
Iding
--
www.acquarioweb.com
 : tutto
sui pesci d'acqua dolce!

 stamparci il testo sopra?
si può fare facilmente con QuickReport. Tengo a precisare che non sono
affatto soddisfatto di QuickReport, ma visto che sta insieme a Delphi uso in
genere quello anche se in giro ci sono Report certamente migliori tra cui
qualcuno freeware.
Per ora ti saluto e ti auguro un buon natale !!
Antonio Tarolla

stamparci il testo sopra?
puoi fare tutto in un colpo solo, sia gestendo tu la stampa
attraverso il canvas (o il device context) della stampante
sia con un sistema di reporting (come quick report).

 tra cui qualcuno freeware.
infatti, a me piace FastReport, molto ma molto piu' veloce e leggero,
l'ho usato per un programmino su macchine vecchiotte ed andava bene
(poi ha la possibilita' di permettere la costruzione di report all'utente,
che puo' essere comodo)
ne conosci altri da consigliarmi ;)
Ciao,
Alan Solo

 ne conosci altri da consigliarmi ;)
magari DuckReport. L'ho scaricato ed ho dato un'occhiata ai vari esempi. Si
presenta molto bene ma io non l'ho ancora usato in nessun progetto perchč
stranamente ( non so nemmeno io il perchč ) mi sono fossilizzato su
QuickReport !! eheh
Poi ne conoscevo anche un altro freeware ma ora non mi viene il
nome....grrrrr
Vabbč, per ora ti saluto.....buon natale !!
Antonio Tarolla

 !!
buon natale anche a te... e anche ai altri NGisti
(anche a quelli che mi "odiano" va... e' Natale ;))
Alan Solo
Newsgroup: it.comp.lang.delphi
Titolo: COMPONENTE DELPHI

Cerco urgentemente un componente delphi o qualcosa del genere che mi
permetta di fare stampe eleganti tipo fatture, certificati, ecc. da un
database.
Ringrazio chi mi rispondera
mmar...@infinito.it

database.
ReportBuilder e/o QuickReport ("shipped" con Delphi).
--
Andrea Laforgia (ICQ 87230455)
http://www.geocities.com/AndreaLaforgia
"ci sono tre tipi di persone nel mondo : quelli che
 sono bravi in matematica e quelli che non lo sono."

 ha scritto nel messaggio
news:8hW96.87641$eB2.6...@news.infostrada.it...


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

Ho un progetto in cui è usato un componente chiamato TVCFormulaOne.
Non ho il  .pas, ma mi hanno detto che e un ActiveX dei Delphi 4 o un OCX di
D2.
Ho provato, ma non ho trovato nulla.
Posso sperare in un aiuto anche stavolta?????
Mille grazie.

 Posso sperare in un aiuto anche stavolta?????
Sì, ma qual'è il problema? Trovare l'ocx in questione?
Ciao
--
(¯`·.¸¸.·´¯`·.¸¸.-> Andrea <-.¸¸.·´¯`·.¸¸.·´¯)
AntiSpam: rimuovere il trattino basso dall'indirizzo per rispondere
AntiSpam: remove the underscore from the e-mail address to reply

Newsgroup: it.comp.lang.delphi
Titolo: Immagini e TRichEdit

Ciao a tutti, vorrei sapere come posso inserire delle immagini in un
componente come TRichEdit....
Grazie.....

 componente come TRichEdit....
Non e' per niente facile, soprattutto con il richedit "base" offerto dalla
VCL.
Hai due possibilità:
1) Vedi se questo codice funziona:
http://www.swissdelphicenter.ch/en/showcode.php?id=1332
2) Scarichi un wrapper più avanzato del TRichedit standard. Per esempio, il
componente della suite Jedi permette, con una sola linea di codice,
di inserire nel testo un'immagine presente in un TGraphics (usa OLE
per farlo).
Ciao
-- 
ACSH
[TurboDelphi]
Chi fa da se', fatica il doppio
Newsgroup: it.comp.lang.delphi
Titolo: Quesito su varie versioni Delphi

Allora premetto che sono abbastanza inesperto al riguardo, mi piacerebbe
sapere le seguenti cose, se potete aiutarmi.
Sapete la versione standard di Delphi perchè costa così poco rispetto a
tutte le altre? Quali sono i componenti che non supporta?
A me interessano sostanzialmente queste cose:
La licenza che viene fornita è differente dalle altre cioè nel senso che,
c'è qualche restrizione nella diffusione dei prodotti realizzati con la
versione standard, oppure costa così poco solo perchè ci mancano dei
componenti?
Contiene i componenti per gestire i DataBase?
Compila il codice Assembler con la direttiva Asm{...}?
Grazie se conoscete le risposte a queste domande, vi ringrazio
anticipatamente.
Ciao da Giovanni.
--
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
                           Giovanni Ceglia
                WebMaster & WebDesigner
 
http://www.xungame.com/
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

 Compila il codice Assembler con la direttiva Asm{...}?
Questo non saprei ma penso di si.
--
Giuseppe Fraddosio
fradd...@libero.it
fradd...@supereva.it


Si, si... :=)
Però attenti quando usate il codice nelle DLL... :=)
In D3 c'era un bug( credo nessuno l'abbia mai segnalato, però non lo so )
per il quale le DLL contenenti _SOLO_ procedure e funzioni scritte in
assembler non compilavano proprio... :=)
Usciva un errore fatale del compilatore.  :=)
Andrea


 componenti?
da quello che ho letto su altri ng, a partire dalla versione 6 la standard
sarà chiamata personal e, oltre ad avere meno componenti, i programmi
prodotti con questa versione non sara distribuibili, in poche parole
potrà essere usata solo per studiarci su,. per gli altri quesiti non so,
prova a fare un salto su 
www.dedonline.com
, ciao.
Antonello.

 prova a fare un salto su 
www.dedonline.com
, ciao.
Non credo proprio. Ma e' comunque talmente scarnificata (niente componenti
database) che farci qualcosa di vendibile e' duretta.

database) che farci qualcosa di vendibile e' duretta.
Non e' duretta, e' illegale.
La licenza per la versione Personal non consente di sviluppare
prodotti commerciali.
--
Walkie...@Libero.It (ICQ# 8143647)

 ha scritto nel messaggio
news:9djcls$kbi$1...@nreadA.inwind.it...


 prodotti commerciali.
I stand corrected, nell'ultima feature matrix manca la spunta a Commercial
development license per la Personal..

Newsgroup: it.comp.lang.delphi
Titolo: Aiuto costruzione Query

Ciao Ragazzi,
dovrei calcolarmi la Media di più campi di un db sommati tra loro.
Es. la media del campo A + la media del campo B + la media del campo C.
Qual è la Query che devo utilizzare?
Grazie.

 ha scritto nel messaggio
news:EdFz8.120441$SR5.2...@twister1.libero.it...

Ti ho già risposto qualche post sotto cmq il comado da usare (Pdox) è AVG
select AVG(<Campo>) as media from tabella
Saluti NEA

2 post x la stessa cosa?
Siamo alle solite.
Inoltre, troppo faticoso consulate l'help per vedere le funzioni di
aggregazione, vero?
AS
Newsgroup: it.comp.lang.delphi
Titolo: Directory Corrente [Delphi 5]

Qualcuno del NG ricorda qual'è la funzione che mi restituisce il percorso
della directory corrente? Per essere più preciso il percorso della cartella
che contiene il file exe ?
Grazie anticipatamente
PS: non mi riferisco alla funzione Applicarion.ExeName


ABLS Team - 
www.abls.it
SINTESI S.r.l. - 
www.sintesi.com

ExtractFilePath(GetModuleFileName);
GetCurrentDir è pericolosa... in quanto se il programma viene lanciato da un
altro programma prende la currentdir del primo.
Ho fatto delle prove al riguardo, ma se qualcuno ne sa di +, mi corregga
pure. CIAOUX

getcurrentdir
Bye
A.

Grazie mille

 ha scritto nel messaggio
news:aqoghp$bkn$1...@newsreader.mailgate.org...

Ti dò pienamente ragione...ma non ho letto attentamente il messaggio. :-)
Non ho ben capito come mai è stata esclusa la Application.ExeName...è
utilissima.
Per ottenere la directory corrente, sono già state date diverse
risposte...per ottenere la cartella in cui si trova il file eseguibile, che
potrebbe non essere quella "corrente", puoi scrivere
    ExtractFilePath(Application.ExeName)
poichè Application.ExeName restituisce il percorso completo incluso il nome
del file, mentre la ExtractFilePath elimina quest'ultima parte restituendo
esclusivamente il percorso.


 esclusivamente il percorso.
perchč questo io lo so :))
cmq ok. CIAOUX


Rispondevo ad entrambi... a te per la precisazione, a 01cs per la domanda...
Sorry...oggi non ci sono con la testa. :-D


 che contiene il file exe ?
ExtractFilePath(paramstr(0)); // funziona anche con eseguibili lanciati in
remoto
Ciao
Michele

Newsgroup: it.comp.lang.delphi
Titolo: Delphi, Post e ASP

Salve a tutti,
ho un problema che mi assilla da parecchio tempo.
Da un mio programma devo "postare" dei dati ad una pagina ASP.
Ho provato vari componenti (TNMHTTP dei FastNet, TWebPost della
TMSsoftware.com)
ma ognuno ha dei pregi e dei difetti complementari che non mi permettono di
fare
completamente quello che voglio.
Qualcuno conosce del codice per "postare" dei dati a delle pagine senza
dover usare questi componenti?
Grazie a tutti!

...


 ha scritto nel messaggio
news:eae5f7a6.02081...@posting.google.com...

Grazie per il consiglio ma da quel che ho visto in questo esempio tu fai un
post tramite il carattere "?" dopo l'indirzzo (es:
pagina.asp?ID=22&Colore=Rosso).
Così facendo mi sembra che ci sia un limite di lunghezza se non sbaglio.
Io invece cercavo qualcosa che non faccia così ma che simuli l'invio di una
pagina
contenente un form con i relativi dati. Cmq vado a cercare questi componenti
e vedo
cosa riesco a fare...
Grazie e buone ferie anche a te


sono cosě ben fatti che Borland li ha scelti come i componenti 
ufficiali per le versioni di Delphi dalla 6 in poi
-- 
 < 
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!
Newsgroup: it.comp.lang.delphi
Titolo: AIUTO URGENTE!!!! PERFAVORE!!!!! :-(

Ciao a tutti! ho un problema che devo risolvere entro lunedì!!!!!
il problema è abbastanza una stupidaggine per tutti scommetto ma io non ho
mai lavorato in questo ambito e non sò minimamente come si possa risolvere
la questione..
io ho un numero casuale e devo posizionare sulla form tante immagini quanto
è il numero casuale che mi è uscito... devo fare in modo che il programma mi
crei a runtime gli oggetti TImage senza però sapere quanti dovranno
essere... ho provato con questo codice ma non sono riuscito a farlo
funzionare.. mi potete dare una mano?
{INIZIO CODICE}
Procedure prova();
  Var  Ar_images: array [1..40] of  TImage;
  Var  Numero_casuale  :integer;
  Var  I  :integer;
Begin
     Numero_casual:=random(39)+1; {Scelgo il numero casuale}
     For I:=1 to Numero_casual do
           Begin
                Ar_images[I]:=TImage.Create;  {creo l'oggetto}
                Ar_images[I].Pictures.LoadFromFile('<Path>/image.gif'); {gli
infilo dentro una immagine il path non è importante}
                Ar_images[I].Top:= <top (integer)> ;  {posiziono}
                Ar_images[I].Left:= <left (integer)> ;
                Ar_images[I].visible:=true; {lo rendo visibile}
           End;
End;
{FINE CODICE}
Ma non riesco a farlo funzionare.. mi potete aiutare?
Vi prego non sò a chi rivolgermi :P
Forse devo mettere qualche parametro sul costruttore del TImage ma non sono
riuscito a capire quale!
Grazie in anticipo a tutti per la pazienza!!!

 Ar_images[I]:=TImage.Create;  {creo l'oggetto}
devi aggiungere
Ar_images[I].Parent := Form1;
La prox volta cerca di mettere un topic un po' più significativo, stavo già
per chiamare il 118...
--
Jax
====
Dal sito di un albergo bolognese:
OFFERTA SPECIALE : PER NAVIGATORI INTERNET E NON
"Chiunque arrivi alla reception dell'Hotel con un floppy o (e) un CD
usufruirà di uno sconto di £ 10.000 ($ 6 o E 5)"

 End;
Devi settare anche la proprietà Parent al form che contiene l'oggetto.
E segui il consiglio di Jax
Giulio


già scusate... :-P
cmq grazie per l'aiuto!!! sembra che ci sono riuscito!! il fatto è che non
avevo mai creato a runtime degli oggetti e non sapevo molto come fare
Newsgroup: it.comp.lang.delphi
Titolo: Esiste in Delphi un eval?

Ciao, a tutti,
mi chiedevo se esiste in Delphi una cosa tipo l'eval di Javascript.
Mi spiego: ipotizziamo di avere 3 componenti chiamati pippo1, pippo2, 
pippo3. Se io avessi una funzione che riceve un int e deve fare 
un'azione sul pulsante apposito, c'è qualche comando che mi permetta di 
fare (pippo+int)?
So che in Javascript è possibile fare stringa=eval("pippo"+i); e mi 
chiedevo se c'era qualcosa di simile in Delphi.
Altrimenti potrei mettere questi componenti in un array, etc ma mi 
sembra un po' troppo articolata come soluzione.
Grazie.
Fabio

 chiedevo se c'era qualcosa di simile in Delphi.
no, non esiste niente che "dall'esterno" consenta di accedere alle variabili
interne dell'applicazione.
Ciao, Sandro

 
Puoi provare cosi':
  MyButton := FindComponent('pippo' + IntToStr(i));
occhio che la FindComponent restituisce un dato di tipo TComponent, che va
eventualmente typecastato al tipo che ti interessa (ad es. TButton).
Se ne sei certo:
  MyButton := TButton(FindComponent('pippo' + IntToStr(i)));
altrimenti
  try
    MyButton := FindComponent('pippo' + IntToStr(i)) as TButton;
    ...
  except
    //Non e' un TButton. Che fo'?
    ...
  end;
NB: FindComponent e' una funzione membro di TComponent, la quale cerca fra
i suoi componenti figli
-- 
Ciao,
Stefano
Home page: 
http://www.lazyclan.com
ICQ#:      24140153
Newsgroup: it.comp.lang.delphi
Titolo: rave databand resize a runtime codice allegato

Ciao a tutti, vorrei che a runtime si potesse modificare l'altezza
della databand su una riga specifica. Ho provato il seguente codice ma
si modifica solo la visibilità del componente text e la linea ma non
l'altezza del riga e la posizione dei componenti. Dove sbaglio ?
testGlob è una variabile globale che tiene traccia di un valore di
confronto per interagire con una riga specifica
rvDS1 è il datasetconnection
procedure TForm1.RvDS1Next(Connection: TRvCustomConnection);
var Ogg : TRaveHLine;
    pag : TRavePage;
    DTQ : TRaveText;
    DTP : TRaveText;
    DTPor : TRaveText;
    DTMod : TRaveText;
    Indi1 : TRaveText;
    MyDataBand: TRaveDataBand;
    test: string;
begin
  RvDS1.DoNext;
  With RvP1.ProjMan do begin
    pag := FindRaveComponent('Report1.Page1',nil) as TRavePage;
    Ogg := FindRaveComponent('HLine1',pag) as TRaveHLine;
    DTQ := FindRaveComponent('DTQ',pag) as TRaveText;
    DTP := FindRaveComponent('DTP',pag) as TRaveText;
    DTPor := FindRaveComponent('DTPor',pag) as TRaveText;
    DTMod := FindRaveComponent('DTMod',pag) as TRaveText;
    Indi1 := FindRaveComponent('Indi1',pag) as TRaveText;
    MyDataBand   := FindRaveComponent('DataBand1',pag) as
TRaveDataBand;
  end;
  test :=RvDS1.DataSet.FieldValues['test'];
  if (testGlob <> test) then begin
    testGlob := RvDSComanda.DataSet.FieldValues['test'];
    MyDataBand.Height := 20;
    //MyDataBand.Resize;// provato ma non funziona
    DTQ.Top := 15;
    DTP.Top := 15;
    DTPor.Top := 15;
    DTMod.Top := 15;
    Indi1.Text := 'Test ' + testGlob;
    Indi1.Visible := True;
    Ogg.LineStyle := psSolid;
    Ogg.Top := 15.1;
    end
    else begin
      MyDataBand.Height := 5.080;
      MyDataBand.Resize;
      DTQ.Top := 0.5;
      DTP.Top := 0.5;
      DTPor.Top := 0.5;
      DTMod.Top := 0.5;
      Indi1.Visible := False;
      Ogg.LineStyle := psDot;
      Ogg.Top := 4.5;
  end;
end;

Avrei trovato una soluzione non molto elegante utilizzando un
componente memo con la proprietà expanded su true e ancorato a top,
ancoro i datatext su bottom e a runtime aggiungo o tolgo dei caratteri
di nuova riga al memo così simulo il ridimensionamento della riga
specifica:
individuo il componente
memo := FindRaveComponent('Memo1',pag) as TRaveMemo;
nella condizione metto:
memo.Text := #13#10+#13#10; se true
memo.Text := '';                       se false
così funziona il ridimensionamento della riga ma non è molto elegante
forse dovrei provare a utilizzare degli ancoraggi diversi.
Newsgroup: it.comp.lang.delphi
Titolo: Keyboard Intercept

 Salve a tuttti con due semplici righe di codice intercetto tutti i 
pulsanti della tastiera ma ciò avviene solo se il software creato con 
delohi è in primo altrimenti nisba. Come risolvere questa situazione, 
ovvero come intercettare pulsanti anche se il prog non è in primo piano? 
Grazie a tutti
p.s Posto il codice di due righe
procedure TForm1.Memo1KeyPress(Sender: TObject; var Key: Char);
begin
memo1.ReadOnly:=true;
Memo1.Text:=key;
end;
--- posted by geoForum on 
http://www.delphiedintorni.it

Devi creare un hook di tastiera dedicato alla tua appliazione.
Ps. dato che è integrato non servono dll


La soluzione e' l'hook di tastiera. Locale se ti interessano solo i tasti 
premuti nella tua applicazione, altrimenti globale se desideri intercettare 
anche i tasti premuti in altre applicazioni nel qual caso avrai bisogno di 
una dll.
Cerca con le parole keyboard hook che ne trovi anche nel web.
Ciao Giorgio

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

ecco qui un bel copia e incolla dall'esempio ownerdraw di delphi usa una
listbox, ma il funzionamento dovrebbe essere equivalente.
procedure TForm1.FormCreate(Sender: TObject);
begin
  Listbox1.Items := Screen.Fonts;
end;
procedure TForm1.ListBox1Click(Sender: TObject);
begin
  FontLabel.Caption := ListBox1.Items[ListBox1.ItemIndex];
end;
procedure TForm1.DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
begin
  with ListBox1.Canvas do
  begin
    FillRect(Rect);
    Font.Name := ListBox1.Items[Index];
    Font.Size := 0;    // use font's preferred size
    TextOut(Rect.Left+1, Rect.Top+1, ListBox1.Items[Index]);
  end;
end;
procedure TForm1.ListBox1MeasureItem(Control: TWinControl; Index: Integer;
  var Height: Integer);
begin
  with ListBox1.Canvas do
  begin
    Font.Name := Listbox1.Items[Index];
    Font.Size := 0;                 // use font's preferred size
    Height := TextHeight('Wg') + 2; // measure ascenders and descenders
  end;
end;
ciao
--
Gna...@Wappi.com
ICQ# 76488613

Scusa la mia ignoranza, ma in che punto del sorgente dovrei incollarlo?
Newsgroup: it.comp.lang.delphi
Titolo: file esterni

Ciao,
vorrei allegare in un file esterno delle icone
da poter riulizzare nel programma senza che se le inglobi nell'exe e'
possiible?
come fare?
si puo' fare anche per le immagini dei pulsanti?

 come fare?
Le puoi stipare in una dll e richiamarle dal tuo programma. Ora che Antonio Tarolla me le ha spiegate, sono davvero semplici da realizzare.
se vuoi chiedi pure ti mando l'esempio che lui ha mandato a me.
Ciao !                {MSX}
--
Posted from 
oink.dsi.unive.it
 [157.138.20.12] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 wrote in message 3969CE2A...@hotmail.com...


 ha scritto nel messaggio
news:3969CE2A...@hotmail.com...


Visto che ci sei lo mandi anche a me ?

 wrote in message 3969CE2A...@hotmail.com...


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

 
Saluti a tutto il newsgroup.
Oggi sono alle prese con la JITPipeline e dall'help non ho capito un tubo
Creo l'oggetto
Definisco a mano i campi nel field editor e.......
come si fa ad assegnare un contenuto a questi campi?
Non c'č un datasource da abbinare e il campo non si lascia valorizzare in
quanto read only
Ciao
Ilenia
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

Presumo che tu parli di Report Builder. La JITPipeline non l'ho mai
utilizzata, ma sembrerebbe utile per assegnare ai valori dei campi degli
oggetti di Delphi.
Per assegnare il valore ad un campo prova il metodo
GetFieldForName(NomeCampo).SearchExpression:=ValoreCampo;
Saluti
    Luigi Nalli
Newsgroup: it.comp.lang.delphi
Titolo: Dlphi+OpenSSL DLL

Ciao a tutti io ho un file con estensione P7X e vorrei estarrre da
esse le informazioni riguardanti la marcatura temporale, è possibile
utilizzando OpenSSL DLL perchè ho provato ma sembra non piacergli
quella estensione?
Qualcuno mi può dare spirgazioni?
Grazie a tutti!

 quella estensione?
posta un po di codice.
A.
Newsgroup: it.comp.lang.delphi
Titolo: Server di Marco Cantu'

Salve a tutti,
che voi sappiate il server di Marco Cantů ha qualche problema???? Mr Coke l'ha
versata sugli hard disk e non funzionano piů?? ;PPPP

 ha scritto nel messaggio
news:8rg9vg$1s8$7...@nslave1.tin.it...


Newsgroup: it.comp.lang.delphi
Titolo: manipolare tabelle database

Ancora non sono riuscito a spiegarmi..... ci provo con un esempio:
devo mettere una colonna di una tabella (caricata da un database di access
in un oggetto DBGrid) in un array di stringhe, devo modificarla e
ricaricarla nel database (non voglio farlo con il DBNavigator e neanche
inserire e modificare direttamente dalla tabella). Spero di essere stato
chiaro questa volta..... qualcuno sa dirmi come fare?



Sinceramente non è chiaro quello che vuoi fare.. spero sia solo un esercizio
o
qualcosa di simile perchè non ha molto senso cmq....
Se vuoi lavorare con strutture in memoria non serve memorizzare su array di
stringhe oppure su altre strutture
basta utilizzare i clientdataset dove le operazioni effettuate rimangono in
memoria fino all'ApplyUpdate.
se poi ti vuoi per forza sbattere con questa tecnica basta avere un array
dinamico
settatre la lunghezza dell'array con il count della tabella e momerizzare i
valori dentro.
poi per scrivere i dati nel db ti scorri l'array e fai gli appositi update
magari segnandoti solo i record
modificati facendo un array a 2 dimensioni.
ciao
gabriele

 chiaro questa volta..... qualcuno sa dirmi come fare?
Gabriele ti ha già risposto, io però vorrei sapere qual è il problema di
partenza preciso...

"Andrea Laforgia" <x@x.x> ha scritto nel messaggio
news:cl7q52$n2u$1...@newsread.albacom.net...

il problema di partenza e' che non voglio visualizzare le tabelle ma
lavorarci tramite delle maschere di inserimento, cancellazione ecc.


Non molto chiaro (perchč in uun array di stringhe ? ) ,ma suppongo tu non 
vuoi lavorare con una griglia ma con una form  giusto ?
In tal caso o ti affidi ai componenti dataaware tipo dbedit , dbmemo, 
dbcheckbox ecc (palette data controls) oppure metti degli edit standard e li 
"popoli" a manina tu dal record selezionato , e poi con un pulsante fai 
l'edit del dataset originale ,e aggiorni i dati.
Sul form metti dei pulsanti con i quali fare "nuovo" , "salva" , "elimina" , 
"avanti" , "cerca" , utilizzando i metodi del dataset tipo  .append .post 
.delete , .next .locate   e cosě via ....
Ti ricorso che in ogni caso finchč non fai il post , le modifiche non 
vengono salvate, se poi usi un "vero" database c'č anche il discorso 
transazioni ecc.
Spero di averti aiutato , Giulio

 tipo  .append .post .delete , .next .locate   e così via ....
non gli passa più....
Ciao
  Gabriele
p.s. Ciao Guilio tutto ok?? qualche volta devo passare a salutarti ciao!!!
scusate!!!:)
Newsgroup: it.comp.lang.delphi
Titolo: MessageDlg

Con che criterio Windows (o Delphi) stabilisce la larghezza della finestra 
di un messaggio ? Perch� il mio testo, oltre ad andare a capo quando decido 
io con un #13 nella stringa, va a capo anche quando decide lui, rendendo 
confuso il messaggio (e anche brutto). Non l'avevo mai notato... E' cambiato 
qualcosa o ho fatto io qualcosa senza accorgemene ? Ho Delphi Win32 e 
Windows Vista. 
 

 Windows Vista.
 
Si, i criteri cambiano tra le diverse versioni di windows. 
Qui c'e' qualche (scarna) spiegazione:
 
http://blogs.msdn.com/b/oldnewthing/archive/2011/06/24/10178386.aspx
 
 
ciao
Giacomo

 Si, i criteri cambiano tra le diverse versioni di windows.
 
Io ho "risolto" il problema creando tre form (in verit� ne basterebbe 
uno, personalizzato sul momento) per mostrare messaggi riguardanti 
informazioni (conteggio righe, termine operazioni lunghe,...), errori 
(validazione e controllo dati, operazioni non permesse,...) e richieste 
di conferma (eliminazione record, dati incompleti ma accettabili,...).
 
In ognuno c'� un'icona e due label, una in un carattere pi� grande 
l'altra un po' pi� piccola, che danno la spiegazione ed i pulsanti per 
la chiusura, la conferma e l'annullamento a seconda dell'operazione.

Newsgroup: it.comp.lang.delphi
Titolo: Qual è il Browser di default?

    Come da oggetto, sapete dirmi qual č la chiave del registro dove sta
scritto chi č il browser di default?
    Vi ringrazio in anticipo!
_________________________________
Gian Luca Dalla Torre
E - Mail: 
gianluca....@casteo.net
_________________________________

 scritto chi č il browser di default?
ciao, provo a risponderti al volo...
potresti vedere chi e' associato ai .htm / .html
in HKEY_CLASSES_ROOT
poi non so se c'e' una chiave specifica per il browser di default...
Ciao!
Alan Solo
Newsgroup: it.comp.lang.delphi
Titolo: grafici

Ciao a tutti ho una domanda da sottoporvi:
Sto cercando un componente per disegnare grafici collegato ad un database.
Attualmente sto usando dbchart ma non mi soddisfa a fondo.....
A proposito di dbchart: Ho creato un grafico a torta collegato ad una
tabella contenente un campo testo (descrizione) e un campo value (importo).
Le varie fette corrispondono alle varie descrizioni con i relativi importi.
Fin qui tutto bene il problema nasce nel momento in cui voglio scrivere
nella Legend le varie descrizioni............. non me lo permette......
..........mi sapete aiutare???
Grazie di cuore     ciao
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 Grazie di cuore     ciao
Se le tue descrizioni sono i nomi delle serie, nel grafico devi settare
LegendStyle:=IsSeries
ciao, Vittorio

Ciao a tutti ho una domanda da sottoporvi:
Sto cercando un componente per disegnare grafici collegato ad un database.
Attualmente sto usando dbchart ma non mi soddisfa a fondo.....
A proposito di dbchart: Ho creato un grafico a torta collegato ad una
tabella contenente un campo testo (descrizione) e un campo value (importo).
Le varie fette corrispondono alle varie descrizioni con i relativi importi.
Fin qui tutto bene il problema nasce nel momento in cui voglio scrivere
nella Legend le varie descrizioni............. non me lo permette......
...........mi sapete aiutare???
Grazie di cuore     ciao







 ciao, Vittorio
purtroppo avendo io un grafico a torta di serie ne ho una sola quindi
dovrei elencare non la serie ma il contenuto del campo descrizione della
tabella



Ok, allora devi settare la proprietà XLabelSource del grafico al campo
descrizione, vedi nei demo il TeeDemo ed apri l'esempio TablePie.
Ciao, Vittorio
Newsgroup: it.comp.lang.delphi
Titolo: chi mi aiuta per favore???

Ciao a tutti... sono nelle vostre mani: a questo punto solo voi potete
aiutarmi !!!!!
Vi prego....
Ho provato ad implementare le funzioni di stampa - salva con successso.
Applicando lo stesso metodo ho tentato anche di emttere "anteprima di
stampa" ma , quando clicco sulla relativa voce di menu, mi esce il seguante
errore:
"tentativo di revoca di un obiettivo di rilascio che non è stato registrato"
Questo è il codice che uso:
implemento CON SUCCESSO la funzione di stampa :
WebBrowser1.QueryStatusWB(OLECMDID_PRINT);
  webbrowser1.execwb(OLECMDID_PRINT, OLECMDEXECOPT_PROMPTUSER,a,b);
implemento con successo la funzione salva:
  WebBrowser1.QueryStatusWB(OLECMDID_SAVEAS);
  webbrowser1.execwb(OLECMDID_SAVEAS, OLECMDEXECOPT_PROMPTUSER,a,b);
NON FUNZIA LA FUNZIONE DI ANTEPRIMA:
  WebBrowser1.QueryStatusWB(OLECMDID_PRINTPREVIEW);
  webbrowser1.execwb(OLECMDID_PRINTPREVIEW, OLECMDEXECOPT_PROMPTUSER,a,b);
Chi mi sa aiutare si faccia vivo please !!!!!!
Il programma lo dovrei presentare *completo & funzionante* entro pochi
giorni (lo porto all'esame di stato...è molto importante ch4e non abbia
bugs), quindi per favore chi sa aiutarmi mi dica qualcosa: io non ci capisco
niente!!!!
Ciao a tutti e grazie
Mr.BadGuy

Ma l'anteprima di stampa e' supportata SOLO a partire dalla versione 5.5 di
IE. Se hai IE5 come fai a richiamare una funzione non implementata?
Ciao, Sandro

 wrote in message
gI82Cz9y$GA....@news1.galactica.it...


Newsgroup: it.comp.lang.delphi
Titolo: Non riesco a visualizzare immagini in delphiX!!!!

dunque,se metto una form vuota,con un componente directdraw e dximagelist e
dxtimer,setto il tutto facendo fare il ciclo in dxtimer una sessantina di
volte al secondo,metto l' immagine(ho saputo come si fa a metterla vedendolo
dagli esempi di delphiX).risultato?non funziona!!non lo visualizza!
mi sono dovuto ridurre a fare una copia del sample fornito in
delphiX,cancellare quasi tutto e far rimanere solo lo stretto indispensabile
per visualizzare una immagine,e lì funziona!(il form così configurato pare
identico a quello fatto prima,ma questo funziona e quello no...)
l' unica differenza è che il primo è una applicazione mentre il secondo è un
mainform...sarà questo?
help me thx :)

 dagli esempi di delphiX).risultato?non funziona!!non lo visualizza!
Hai settato sull'OI
DxImagelist1.DxDraw = DxDraw1; ?
Se non e' quello, magari posta o mandami i sorgenti..
Ciao !                MSX

 ha scritto nel messaggio
news:9du991$rjo$1...@nreadA.inwind.it...


 lo stesso MSX che ha fatto Kill them all vero?se sei tu complimenti :))
Eh si, sono io :)
pero' non mi e' arrivata nessuna mail.. se e' tornata indietro, ricordati di
togliere NONSPAMMARMI dall'indirizzo.
altrimenti rimanda a 
nic...@lugato.org
Ciao !
Newsgroup: it.comp.lang.delphi
Titolo: Curiosità TTimer

Lavorando con i timer mi è sorto un dubbio
Supponiamo di avere un TTimer con Interval = 2000
Nell'evento OnTimer ci sono un paio di query che estraggono dei dati da db
Se le query sono complesse e la mole di dati è elevata e il tutto richiede
più di 2 secondi per essere eseguito, che succede?
Se nell'evento OnTimer le funzioni da svolgere richiedono più tempo
dell'intervallo cosa succede in realtà?
Forse il Timere si autodisabilita temporaneamente? E se non fosse così, è
opportuno disabilitarlo e riattivarlo rispettivamente all'inizio dell'evento
e alla fine?
Ciao
Andrea


Mars University: «Knowledge brings Fear»

Grazie mille
Forse userň un thread...
Ciao

Newsgroup: it.comp.lang.delphi
Titolo: Valori Array

Ho una serie di 100 textbox a video nominati
Prz1
Prz2
Prz3
la domanda è come posso fare ad inserire i valori di un array che ho
x[1..100] facendo un ciclo
For i:=1 to 100 do
Begin
    Str(x[i],s)
    Prz????.caption:= x[i];
End;

FindComponent?
Bye
A

Newsgroup: it.comp.lang.delphi
Titolo: Invio Email e cartella "inviati"

Ciao a tutti,
  e' da tempo che nelle mie applicazioni metto a disposizione la possibilta' 
di inviare email.
L'email avviene tramite i componenti Indy di Delphi via yahoo.
Ad ora l'email inviata viene registrata in un db locale; Considerato che 
transita da yahoo e per questo motivo ci si logga, pensavo di dare la 
possibilita' di registrarla anche nella cartella "inviati" di yahoo.
Sapete se si puo' fare ?
Se si .... esiste qualche api o pezzo di codice da studiare?
 
Grazie
 
Ciao
Daniele 
 


Non si puo fare con TidSmtp, quindi non perdere tempo.
Qualcuno li manda in copia utilizzando 'CC', ma lascia il tempo che trova.
 
TidImap4 ha questa possibilita, è un po piu complesso di TidSmpt dovresti studiarci un po sopra. Se trovo qualche spezzone di codice te lo invio (non sto promettendo) ho scritto qualcosa un po di tempo fa, poi ho lasciato perdere perche in effetti non mi serviva.
paolo


Specifico, TidMap4 ti permette di creare cartelle, spostare messaggi, cancellare messaggi e cose del genere.

Ciao Paolo,
  grazie per la risposta, mi ci dedico sopra per vedere cosa riesco a fare 
(nelle mie limitate possibilita').
Concordo con te che NON serve dato che viene salvata (l'email) i un db 
locale.
Purtroppo c'e' chi manda l'email integrata con l'applicazione e chi in modo 
tradizionale con yahoo.
Da qui il problema, di chi non usa l'applicazione, di cercare l'email 
inviate nella cartella di yahoo anziche' nell'applicazione.
Ogni commento e' suprfluo (anche perche' li abbiamo gia' fatti noi !!)
 
Grazie di tutto
 
Ciao
Daniele
 
 

Ciao Paolo,
nuova funzionalita' aggiunta ...
Grazie davvero !!!
 
Ciao
Daniele
Newsgroup: it.comp.lang.delphi
Titolo: ShFileOperation

Ciao a tutti,
 
dunque spiego il mio problema... ho la necessità di copiare un intero direttorio (sotto cartelle comprese) da una parte all'altra dell'HD e fino a qui' tutto a posto ed uso shFileOperation. Ora capita che alcuni file siano danneggiati e quindi mi ritorna il classico dialogo Riprova, Salta, Annulla (ovviamente faccio Salta).
Il problema è che parecchi clienti non siano proprio a loro agio con le dimande di windows quindi chiedevo se esiste un modo di evitare il dialogo e fare come se l'utente avesse premuto Skip.
Ho letto la documentazione ma non c'è nulla. Idee?
 
Grazie

 Ho letto la documentazione ma non c'è nulla. Idee?
 
io proverei con il flag FOF_NOCONFIRMATION nei parametri.
 
Ciao da Enrico Giudici c/o Anthelios

Newsgroup: it.comp.lang.delphi
Titolo: ADOCommand ed errori

Ciao,
ho un ADOCommand tramite il quale inserisco
dei records all'interno di una tabella access (con una INSERT).
Come posso intercettare un errore
restituitomi, ad esempio, per una chiave duplicata?
Esiste una lista dei vari errori possibili?
Ciao!

Esiste una lista dei vari errori possibili?
Prova l'ADO SDK di M$
fe...@delenda.net
Any expressed opinions are mine; but feel free to share.
I disclaim all responsibilities, all shapes, all sizes, all colors.
Newsgroup: it.comp.lang.delphi
Titolo: [D8] Code Navigation

In Delphi 8 i sorgenti sono tutti accessibili? 
Si può ancora liberamente "navigare nel codice" (CTRL+CLIC) delle unit di 
sistema, come si può fare x esempio in Delphi 6 (e 5, e penso 7, e 4..) ?
-- 
Mauro Falzari 
   [ 
http://digilander.libero.it/mauro.falzari
 ]
 
 "Se guardi nell'abisso, anche l'abisso guarda in te." 
   (Friedrich Nietzsche)


Open Delphi Manual (
http://groups.yahoo.com/group/delphi_open_manual/
)

Newsgroup: it.comp.lang.delphi
Titolo: errore required package Rxctl6

Ciao a tutti ho delphi6 e volevo usare i componenti fuzzy report.... Ho
provato con i nuovi report versione beta ma mi da il seguente errore:
required Package Rxctl6 not found
qualcuno sa come lo installo quel package?

Andrea,

c'č un posto poco piů giů con subject
"Installazione FuzzyReport"
Ciao, Antň.

Newsgroup: it.comp.lang.delphi
Titolo: Qualcosa come winsock di vb?

Come avrete potuto capire sono nuovo di delphi, ho la versione 1,6 e
desidero gestire la rete.
Come posso iniziare? Ad esempio per inviare un msg di posta attraverso un
mio programma che permette l'inserimento del server alla porta 25 etc etc?
Grazie
Focala

Su D4 ci sono TServerSocket e TClientSocket, oltre ad una luuuuuuuuuuunga
serie di vcl per fare questo e molto altro.
Saluti
AS
"Se è Microsoft non funziona"
Newsgroup: it.comp.lang.delphi
Titolo: Scripting in Delphi

Ciao
Esistono delle librerie per inserire dello scripting in programmi Delphi?
Va bene anche qualcosa di molto semplice.
Grazie
Ciao

 Va bene anche qualcosa di molto semplice.
Sicuramente di VbScript o JScript.
Non credo che esista un linguaggio di scripting simile al Pascal.

 Non credo che esista un linguaggio di scripting simile al Pascal.
Certo che esiste, ce ne sono addirittura 2: il DelphiWebScript
(
http://www.dwscript.com/
) e l'Innerfuse Pascal Script
(
http://www.carlo-kok.com/ifps.php)!!
!!

 ha scritto nel messaggio
news:agn14m$8id$1...@fe2.cs.interbusiness.it...


Newsgroup: it.comp.lang.delphi
Titolo: Delphi/400

C'è qualcuno che lo usa?
E un tool separato rispetto a Delphi5 o sono dei compinenti a sestanti?
Quanto costano?
Indirizzi dove informarsi.
Ciao
Adolfo
----------------------------------------------------------------------------
-
http://utenti.tripod.it/vico_pisano

 wrote in message
9gph5c$d7f$1...@fe1.cs.interbusiness.it...


Indirizzi dove informarsi.
http://www.systemobjects.com/
-------------------------------
Message Posted by  <dedGateway>
http://www.dedonline.com/forump

Newsgroup: it.comp.lang.delphi
Titolo: Qualcuno mi aiuti!

Io sto cercando il modo di Aprire e Chiudere il cassetto del CD col delphi
ma nun ce la fň
grazie
--
<< Fred...@Libero.it >>

 << Fred...@Libero.it >>

vedi se qui c'è quello che ti serve...
http://www.gnomehome.demon.nl/uddf/tocfrm.htm
Saluti
AS

Newsgroup: it.comp.lang.delphi
Titolo: fate subito voi

a dire "mm meglio interbase di paradox!"
sono 10 giorni che cammino in un vicolo cieco
Ma usciro!!
ciao

Ne varrà la pena, te l'assicura chi c'è già passato in questo stadio della
"vita"...
Ciao,
  Fabio

 ciao
Ciao, Antò.
Newsgroup: it.comp.lang.delphi
Titolo: Ereditarietà multipla

E' possibile l'ereditarietą multipla in delphi?
Vorrei cioč che una classe X erediti sia dalla classe A che dalla classe B.
Grazie!
Ciao!

 Vorrei cioè che una classe X erediti sia dalla classe A che dalla classe
B.
No, l'ereditarietà multipla non è implementabile in Delphi
--
- Carlo -

 Vorrei cioč che una classe X erediti sia dalla classe A che dalla classe
B.
Si', ma solo quella di interfaccia, non quella di implementazione.
type
  IDisegnabile = interface(IUnknown)
    ['{33B5C9CF-F0EF-4994-AEBA-F30AA61F2624}']
    procedure Disegna;
  end;
  TCubo = class(TInterfacedObject)
          public
            procedure RuotaX(Angle: Extended);
            procedure RuotaY(Angle: Extended);
            procedure RuotaZ(Angle: Extended);
          end;
  TCuboDisegnabile = class(TCubo, IDisegnabile) // <----
                     public
                       procedure Disegna;
                     end;
  procedure TCubo.RuotaX;
  begin
    // rotazione in base all'asse X
  end;
  procedure TCubo.RuotaY;
  begin
    // rotazione in base all'asse Z
  end;
  procedure TCubo.RuotaZ;
  begin
    // rotazione in base all'asse Z
  end;
  procedure TCuboDisegnabile.Disegna;
  begin
    // routine di disegno
  end;
--------------------------------
Inviato via 
http://usenet.libero.it

No, l'ereditarietą multipla non č implementabile in Delphi
ma puoi aggirare in parte il problema facendo uso delle interfacce
--
Rhymes (
rhymes_...@myself.com
)
http://www26.brinkster.com/rhymes
http://bw-crema.blogspot.com

 Si', ma solo quella di interfaccia, non quella di implementazione.
L'eredità di interfaccia vale solo per i metodi o anche per le proprietà?
Grazie
Ciao!
Newsgroup: it.comp.lang.delphi
Titolo: Filtro nome file

Ciao ragazzi,
ho provato a cercare qualcosa su Internet ma non sono riuscito a
trovare nulla e non mi va di scriverla da solo.
Sapete di qualche routine o libreria che mi permette di filtrare i
file nelle directory? Qualcosa che, a fronte di una maschera del tipo:
   ???prova*.d?c
mi restituisca tutti i file che soddisfano la maschera?
Oppure una funzioncina che, passandogli nome file e maschera mi dica
se il nome file è la soddisfa?
Ciao,
Gp

xche? findfirst sta cosa non la fa?
A.

 xche? findfirst sta cosa non la fa?
In effetti mi ero spiegato male.
Sto implementando una sorta di multi-filtro: a fronte di una maschera
multipla (multi-mask) del tipo:
    "*.avi;*.mpg;*.qt?"
vorrei tutte i file della dir. che soddisfano una delle sotto-maschere
(sub-mask) e sempre e comunque tutte le sottocartelle.
Aggiungo anche che in questi utlimi minuti ho trovato la func. che fa
per me nelle mitiche JVCL:
    JvJCLUtils.FileEquMasks(...)
e ho implementato un metodino su questa falsa riga (magari interessa a
qualcuno):
<--- CUT HERE --->
// Get all files and folders. You'll filter them later
fldPath := IncludeTrailingPathDelimiter(_Command) + '*.*';
if (FindFirst(fldPath, attrs, srcRec) > 0) then begin
    eoFound := False;
    while (not eoFound) do begin
      // check if it's a folder
      canAdd := ((srcRec.Attr and faDirectory) <> 0);
      // if it'isnt a folder, it's a file. Check its name is
compatible with given Masks.
      canAdd :=  canAdd or FileEquMasks(srcRec.Name, myMultiMask);
      if (not canAdd) then continue; // nothing to do for this entry,
skip it.
      // ok. do what you like with this file/folder
     ....
end;
<--- CUT HERE --->
Ciao e grazie!
Gp
Newsgroup: it.comp.lang.delphi
Titolo: Connessione caduta con TServerSocket

Salve a tutti, sto stropicciando le palle ad un sacco di gente e ora anche a
voi del ng, perche' dovrei risolvere un problema che da spiegare e' facile
ma di dubbia soluzione:
Ho una applicazione server che comunica con i vari client tramite socket, ma
se un client viene terminato in modo anomalo (task manager di NT, brutale
spegnimento del computer client, etc.) il programma server deve accorgersi
che il client in oggetto non e' piu' connesso e deve essere rimosso
dall'elenco delle "connections" dell'oggetto TServerSocket.
Per rilevare una connessione caduta e' semplice con l'evento OnClientError;
il problema e' che una volta rilevata la connessione caduta del si tenta di
chiuderla con un close della clientsocket si ottiene una exception del
programma server, che termina e scollega quindi anche tutti gli altri
client...mi servirebbe, per intenderci, un metodo del tipo
"SocketServer.Socket.Connections[I].Chiudi_la_connessione_e_fregatene_degli_
errori",
ma come potete immaginare non esiste...qualcuno ha delle idee?
PS: Non mi e' possibile intercettare l'evento exception del server per
evitare che termini in quanto e' un servizio, non un'applicazione standard.
Spero che qualcuno mi possa dare una dritta..CIAO!

 evitare che termini in quanto e' un servizio, non un'applicazione
standard.
mmm... e allora ?  Non capisco perchè dici che non puoi intercettare
l'evento.
(pur premettendo che non ho mai creato un servizio, ma un componente è un
componente!!)
Ciao! Davide DG


Io ho risolto cosi e mi sembra funzionare bene, prova:
  Try
    StatusBar1.SimpleText:='Errore: '+IntToStr(ErrorCode);
    Socket.Close;
    Socket.Destroy;
  Finally
    ErrorCode:=0;
  End;
Carlo
-----------------------------------------------------
Brain Access Error : (A)bort, (R)etry, (S)hutdown ?
-----------------------------------------------------


Non intendevo a livello di componente, ma a livello di applicazione...in un
programma "normale" l'oggetto Application ha un evento "OnException", mentre
in un servizio l'oggetto Application non ha nemmeno un evento...ho anche
pensato di creare io tale evento, ma credo che se lo hanno fatto in questo
modo ci sara' un perche'.
Il componente TServerSocket ha solo l'evento "OnClientError", che si
verifica con un errore da parte di un client e non dal componente
TServerSocket stesso...spero di essermi spiegato bene...

 Carlo
Ho gia' provato a mettere il close della socket in un try ... except per
intercettare l'eccezione ma il servizio termina ugualmente...ora provo nel
tuo modo poi ti faro' sapere...per ora grazie 1000!



Avevo fatto una piccola cacata...il socket.close che avevo messo in un
try...except andava benissimo, il fatto era che all'evento
OnClientDisconnect del server avevo un'istruzione del tipo
Socket.SendText('Arrivederci!');
L'istruzione andava bene normalmente, ma se la socket era stata chiusa per
una caduta della connessione, quell'istruzione ovviamente causava un errore
e io non mi ero accorto dell'inghippo...
GRAZIE A TUTTI!