mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.delphi
Titolo: [OT] Compleanno delphi

Oggi Delphi compie 13 anni!
Auguri a tutti quelli che si guadagnano da vivere grazie a questo "giovane"
RAD tredicenne !!
:-D
-- 
Morde

AUGURI di una lunga (ma proprio lunga) vita :)

 Oggi Delphi compie 13 anni!
Un traguardo non indifferente... :-)
Ciao,
   Marco.
-- 
MARCO BREVEGLIERI
  (
http://www.marco.breveglieri.name
)


Lunga vita e prosperità!
Seek

 AUGURI di una lunga (ma proprio lunga) vita :)
Mi accodo :) una lunga vita evitera' di buttare tutti gli investimenti 
fatti :)
-- 
================================================================
Alberto Rubinelli - A2 SISTEMI 
news.aioe.org
 ThunderBird 2.0.0.4
Via Costantino Perazzi 22 - 28100 NOVARA - ITALY
Tel 0321 640149   Fax 0321 391769   BBS 0321 392320
Mail: 
alb...@oldcomputers.de
skype: albertorubinelli  ICQ : 49872318
Visita il mio museo di computers: 
http://www.oldcomputers.it
================================================================

Newsgroup: it.comp.lang.delphi
Titolo: Cerco Delphi 4 css

C'é qualcuno disposto a spedirmi una copia masterizzata di delphi 4 client
server suite? Posso pagare le spese di spedizione
Contattatemi tramite mail all'indirizzo 
byte...@hotmail.com
Grazie
Luigi
--
Posted from [195.223.215.35]
via Mailgate.ORG Server - 
http://www.mailgate.org

server suite? Posso pagare le spese di spedizione
+ problemi penali !! Ti sei dimenticato ?
Se non vuoi passare guai, fai prima ad andare in edicola e prenderti Delphi
2 oppure cerca una versione
shareware oppure fai quello che ti pare, ma non ti esporre così proponendo
la pirateria informatica !!!
Ma quando scrivete questi messaggi, a cosa pensate ?
Ciao..
Antonio Tarolla
BSSoftware Tips Mailing - List Support

2 
scusa, ma quale rivista lo regala?
Con Delphi 2 è possibile implementare il nome dei file lunghi nelle
savedialogbox?

Delphi 2 Viene relgalato in versione standard con Computer Programming di
questo mese.
cmq la prossima volta evita di uscire con certi messaggi...
Saluti
Solid Snake

 wrote in message
38d08e68...@news.tiscalinet.it...

Dev di marzo regala il cd con licenza d'uso di Delphi 2 (Edizione standard)

Newsgroup: it.comp.lang.delphi
Titolo: Quickreport...come disegnare?

Ho messo le mani al quickreport...per quel che devo fare basta ed avanza....
Ma come divolo si fà a disegnare una linea?!?!
Ho provato a mettere una qrshape...nel preview la vedo ma dopo no!
Come mai?
(Mi sono tenuto eh...ho guardato su google per ore...ma nessuno con il mio
problema!)

Nemmeno le QRImage vedo! C'è qualcosa che puzza qui...mumble mumble!

 
cosa intendi che la vedi e poi no?
ciao
-- 
-------------------------------
per scrivere in privato
togliere "1975"


Nel design time la vedo...ma nel preview no :(
Cmq ho cancellato tutto e rifatto e funziona, ma non mi spiego il perchè del
comportamento :(
Newsgroup: it.comp.lang.delphi
Titolo: TIniFile, TMemIniFile

Qualcuno gentilmente mi potrebbe scpiegare a livello pratico che differenza
c'è tra usare un TIniFile o un TMemIniFile ?
Ci sono situazione dov'è meglio usare uno o l'altro ?
Grazie Nicolas :-)
---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (
http://www.grisoft.com
).
Version: 6.0.593 / Virus Database: 376 - Release Date: 20/02/2004

Ci sono situazione dov'è meglio usare uno o l'altro ?
Il TMemInifile carica in memoria il file ini, e ti permette poi di lavorare su
di esso avendo il vantaggio della velocita' di un accesso in memoria,
eliminando i problemi di scrittura/lettura sul file fisico come nel caso del
TIniFile. Quando termini di usare il tmeminifile, esso scarica sull'ini sul
disco tutti i cambiamenti eventualmente apportati.
Col tmeminifile accedi e scrivi sull'ini UNA volta sola,e' quindi preferibile
nei casi in cui devi accedervi pesantemente.
Ma a questo punto, la guida ti suggerisce di utilizzare direttamente il
registro di windows con la classe TRegistryIniFile.
-- 
Morde. 
(
mo...@despammed.com
)
M-List di icld: 
http://it.groups.yahoo.com/group/icld/


Mars University: «Knowledge brings Fear»

Quindi se utilizzo i file ini solo per memorizzare lo stato delle finistre o
altri dati che letti e scritti solo una volta per sessione è consigliabile
tinifile.
Però in ogni caso è consigliabile tmeminifile perè è più portabile e
moderno.
Ho capito bene ?
Nicolas
"Marco Breveglieri" <ma...@NOSPAMabls.it> ha scritto nel messaggio
news:mon_b.12752$IT2.4...@news4.tin.it...



 moderno.
Io uso sempre e comunque TMemIniFile. :-)
Ricordati di richiamare il metodo UpdateFile quando hai terminato la
scrittura delle impostazioni nel file per aggiornarlo a tutti gli
effetti...io a volte me lo dimentico. ;-)


Newsgroup: it.comp.lang.delphi
Titolo: AIUTO!!! QuickReport e Windows 2000

Ciao a tutti..
Questa è la mia prima volta in questa newsgroup e spero di non aver
sbagliato..
Ho realizzato un'applicazione con Delphi 4 Enterprise che ha sempre
funzionato egregiamente su Windows NT.
Recentemente le macchine su cui era installata la procedure sono state
upgradate a WIN2000..
Tutto funziona correttamente ma non l'unica stampa presente..
L'errore è di tipo Access Violation.
Qualcuno sa dirmi se sono stati riconosciuti problemi di incompatibilità tra
quickreport e W2000?
Come posso fare?
Grazie.
--
Carrai Emanuele


Con D5+QR c'era un problema dovuto hai file temporanei, io l'ho risolto
scaricando l'aggiornamento di QR.
Era state postate altre soluzione che riguardavano il cambio della dir dei
file temporanei in W2000, che probabilmente ha un 'albero' troppo lungo,
forse con D4 questa è la strada da seguire.

 scaricando l'aggiornamento di QR.
Non è che hai ancora l'urlo?
Thanks


OOOOOOHHHHHH !!! ecco l'urlo ;o) scherzo
eccolo 
www.qusoft.com

dovresti variare le variabili del sistema, + precisamente modificare il
percorso di TMP e TEMP in C:\windows\Temp
se non sbaglio tasto dx su risorse del computer, proprietą...
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG
Newsgroup: it.comp.lang.delphi
Titolo: URL di Explorer

Ciao,
qualcuno sa se esiste un componente o come posso fare per realizzare
una edit box in modo che quando inserisco del testo lui mi suggerisce cosa
scrivere
in base a quello che gli ho inserito precedentemente...
in pratica allo stesso modo di come funziona l'editbox di Internet Explorer
nella quale si inserisce l'indirizzo web
Ciao e grazie
Simone

 wrote in message
8cnj67$7er$1...@fe1.cs.interbusiness.it...


...


Newsgroup: it.comp.lang.delphi
Titolo: property con parametri?

Sto realizzando un componente che possiede alcune property con 
parametri. Ossia il relativo metodo GET dovrebbe anche avere due 
parametri di tipo Integer ma da quello che ho capito i metodi GET delle 
properties non possono avere parametri.
E' possibile ovviare al problema, magari esiste un modo alternativo?
Grazie e ciao a tutti.

Puoi fare un esempio? in quanto se per "più parametri" intendi un 
parametro classico ed un indice questo è già possibile.

perche'?
A.

morlok ha scritto:

Quello che vuoi fare collide col concetto di property.
Che tipo di property stai realizzando? dai qualche dettaglio in più..
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

E' possibile ovviare al problema, magari esiste un modo alternativo?
Una proprietą di tipo record o classe?
--- posted by geoForum on 
http://www.delphiedintorni.it

Effettivamente mi sono reso conto che forse è meglio utilizzare un 
metodo disponibile al runtime piuttosto che una property.
Grazie per i vostri interventi.
Newsgroup: it.comp.lang.delphi
Titolo: opzioni dbgrid

Ciao ragazzi,
ho un problema forse stupido ma non riesco a risolverlo.
ho diverse form con diverse dbgrid, ho una unit che contiene le 
procedure del progetto, e fin qui tutto ok. Ora voglio controllare che 
una delle opzioni della dbgrid sia attiva tipo Rowselect
ovviamente non posso scrivere
	if not (dbgrid1.option = [rowselect]) then
		dbgrid1.option := [rowselect]
perchè se sono attive altre opzioni il risultato sarebbe false anche se 
row select è attivo come devo fare?
grazie in anticipo :)

C_thelegend ha scritto:


Option e' un Set quindi devi usare la matematica propria degli insiemi, in
particolare l'operatore IN.
Saluti
ACSH
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 
if not (goColMoving in sgClients.Options) then
Questa è valida per una TStringGrid della LCL di Lazarus. Verifica con
l'help in linea di Delphi, credo ci siano anche degli esempi.
Antonio

 
Grazie ACSH a volte le cose stupide ti fanno sbattere la testa :)
posto come ho fatto se dovesse servire a qualcuno ;)
  if (goRowSelect in dbgrid1.options) then
	codicetrue
     else
	dbgrid1.options := dbgrid1.options+[goRowselect]; //codicefalse;
grazie ancora		

guastatore ha scritto:

ciao antonio e grazie dopo qualche prova ho risolto :) vedi su ;)

Newsgroup: it.comp.lang.delphi
Titolo: Tool per forms di dati

Salve a tutti,
vorrei sapere se c'è qualche tool in circolazione che permette di creare
form di dati attraverso connessioni ADO, come ad esempio il form Wizard che
presenta Delphi (ma questo crea connessioni solo a tabelle DBF o Paradox ).
Grazie

hai una tabella con 500 campi?
Bye
A.

No, però ho tante tabelle !!!
"Alberto Salvati" <x@x.x from office> ha scritto nel messaggio
news:aild57$2qlh$1...@newsreader1.mclink.it...

Newsgroup: it.comp.lang.delphi
Titolo: Tipi di Files

Salve vorrei sapere come fare a reperire il tipo di un file,
es:
.exe Applicazione
.txt Documento di Testo
ect.
Grazie per la f\gentile attenzione,
Andrea

 .txt Documento di Testo
Spero che funzioni perché l'ho fatta nel '99  ^___^;;
//*******************************************************************
function TypeFile(TipoFile: String): String;
var
  Reg: TRegistry;
begin
  Reg := TRegistry.Create;
  Reg.RootKey := HKEY_CLASSES_ROOT;
  if Reg.OpenKey('\' + TipoFile, False) then
  begin
    Result := Reg.ReadString('');
    if Reg.OpenKey('\' + Result, False) then Result := Reg.ReadString('')
    else Result := 'File ' + TipoFile;
  end
  else Result := 'File ' + TipoFile;
  Reg.Free;
end;
--
Jax

 .txt Documento di Testo
Potrebbe interessarti ShellApi.FindExecutable
Ciao,
Davide DG.
-- 
All resistance is futile! Prepare to be disassembled !

Non consiglierei di leggere direttamente le chiavi dal registro.
Credo sia sempre meglio usare le api dedicate.
Non è infatti detto che tutte le versioni di WinSozz scrivano le stesse
chiavi negli stessi rami del registro.
Un api sa dove andare a leggere il valore.
Bye
AS

 ha scritto nel messaggio
news:a9jqng$1v8$1...@newsreader1.mclink.it...

Sono d'accordissimo, ma:
1) in tutti i win che ho visto (95, 98, 2000), le informazioni sulla *descrizione* di
un'estensione vengono scritte nello stesso modo, ossia, se c'è la chiave
HKEY_CLASSES_ROOT/.ext, la descrizione è nel valore Predefinito: se questo valore
corrisponde ad una chiave HKEY_CLASSES_ROOT/descrizione, Win prende il valore Predefinito
di quest'ultima chiave.
Secondo me al 99% è così (forse ci scappano le classi definite tramite CLSID, ma non mi
sono mai state simpatiche, quelle lì :))
2) non conosco nessuna API che, data l'estensione, mi ritorni la descrizione; questo
partendo da un nome di file non necessariamente esistente, beninteso, altrimenti esistono
eccome (la stessa FindExecutable - a prescindere dal fatto che serva in questo caso o no -
necessita che il file esista).
Poi, dal 99 ad oggi magari ne hanno fatte... se mi dici quali mi faresti un grosso favore,
oltre che a AS :)
--
Jax

Newsgroup: it.comp.lang.delphi
Titolo: Banale aiuto su Teechart

Amici del ng, vorrei che il mio grafico calcolasse ed esponesse
graficamente quante volte  determinati campi appaiono in una tabella.
Esempio, il grafico dovrebbe rappresentarmi quante volte appaio il
campo "bologna" "roma" e "firenze"..qualcuno puo' aiutarmi? Il file di
esempio con d7 non mi sembra molto esaustivo...

il grafico è "passivo".
si limita a mostrare i dati di una serie calcolata da altro.
Nel tuo caso dovresti passare al grafico i dati di una select
opportunamente costruita.
AS


brevemente:
una query che fa il conteggio tipo : select count(regione) as NumRegioni 
from tabella group by regione
poi la query la colleghi  ad un serie del grafico.
Giulio
Newsgroup: it.comp.lang.delphi
Titolo: TStringList.SaveToFile aggiunge #13#10 ad ogni riga salvata, si può evitare?

Salve,
   come da oggetto. Ho una TStringList con 15 elementi. Quando vado a 
salvarla con la SaveToFile, vengono aggiunti 30 bytes al file.
Dall'help leggo che vengono aggiunti un CR+LF ad ogni riga scritta.
Si può evitare? Come?
Grazie, ciao.

Dopo dura riflessione, Luigi Siciliano ha scritto :

LineBreak := '';
Ciao
Newsgroup: it.comp.lang.delphi
Titolo: Delphi 6 personal su qualche rivista?

Ciao a tutti, in questo mese è per caso uscito il delphi 6 personal in
qualche rivista d'informatica, che voi  sappiate?
Grazie.

 ha scritto nel messaggio
news:3cb1e...@news.dada.it...


Newsgroup: it.comp.lang.delphi
Titolo: applicazioni esterne

qualcuno mi può dire come lanciare altre applicazioni
dall'interno del nostro programma in delphi?
Grazie
Gianni


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

Grazie mille
"Marco Breveglieri" <ma...@NOSPAMabls.it> ha scritto nel messaggio
news:1cZKb.234143$vO5.9...@twister1.libero.it...



che ho leggermente modificato come segue:
procedure ExecuteAndWait(const FileName, Parameters: string; Wait: 
Boolean);
var
	SEI: TShellExecuteInfo;
begin
// Inizializzo la struttura con i parametri.
	FillChar(SEI, SizeOf(SEI), #0);
	SEI.cbSize := SizeOf(SEI);
	if Wait then
// Questo flag è necessario perché il campo
// hProcess venga restituito in output.
		SEI.fMask := SEE_MASK_NOCLOSEPROCESS;
	SEI.lpFile := PChar(FileName);
  SEI.lpParameters:= PChar(Parameters);
// Per mostrare l'applicazione lanciata.
	SEI.nShow := SW_NORMAL;
	if ShellExecuteEx(@SEI) then
	begin
		if Wait then
// Aspetto che il processo termini.
			WaitForSingleObject(SEI.hProcess, INFINITE);
// Rilascio il process handle.
		CloseHandle(SEI.hProcess);
	end;
end;
-- 
Mauro Falzari 
   [ 
http://digilander.libero.it/mauro.falzari
 ]
 
 "Se guardi nell'abisso, anche l'abisso guarda in te." 
   (Friedrich Nietzsche)

 ha scritto nel messaggio
news:Xns9469DA04BD...@130.133.1.4...


Newsgroup: it.comp.lang.delphi
Titolo: RGB e quadricromia

Ciao,
mi servirebbe la formula per passare dalla rappresentazione di un
colore RGB alla rappresentazione tipografica in quadricromia, e
viceversa.
In RGB ho una rappresentazione "a byte", ogni valore (R,G,B) puo'
andare da 0 a 255, mentre in quadricromia e' "a percentuale", ogni
valore (C,M,Y,K), puo' andare dallo 0% al 100%.
Dovrebbe essere un algoritmo non del tutto biunivoco, se non sbaglio,
perche' molti valori RGB non sono rappresentabili in quadricromia.
Grazie
Fede.

 già che ci sei mi spiegheresti perchè il colore clbtnface(=clsilver nel
mio caso)
chiamando l'apposita funzione in nt4 d4cs mi restituisce un numero negativo?

Newsgroup: it.comp.lang.delphi
Titolo: come metto un campo paradox riempito con un .bmp, in una classe di tipo Tbitmap?

d4C/s
grazie Max

 wrote in message
8alq56$jfe$1...@nslave2.tin.it...

non avresti un esempio preciso?

 wrote in message
8am83k$p4i$1...@nslave2.tin.it...

Newsgroup: it.comp.lang.delphi
Titolo: Vcl per eseguire file mp3

Come da oggetto cerco tale vcl che mi permetta di eseguire file mp3.


Se non hai molte esigenze puoi usare TMediaPlayer. Legato ai codec
installati nel sistema. Solitamente ormai mp3 c'è dappertutto.
Ciao
Giuseppe

On Mon, 22 Dec 2003 20:16:45 GMT, Gennaro Cilento wrote:
su 
sf.net
 qualche tempo fa ho trovato sotto il progetto 
mac.sf.net
 delle
librerie che si chiamavano atl audio tools library. al momento non è
presente la relativa pagina. se non dovessi trovarle fammi sapere che
eventualmente le uppo da qualche parte.
ciao
-- 
Auguri a tutti di buon natale e felice anno nuovo
Fabrizio Mancini - <f[.]mancini[@]tin[.]it> 23/12/2003 11.45.22
Open Delphi Manual (
http://groups.yahoo.com/group/delphi_open_manual/
)

Newsgroup: it.comp.lang.delphi
Titolo: maximize = false

Come si fa a disattivare la funzione massimizza e minimizza prima di
compilare il programma? Io intendo il pulsante tra - (riduci a icona) e x
(chiudi).
Grazie
Luigi
--
Posted from [195.223.215.6] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 (chiudi).
Guarda la proprietà BorderIcons della form da design time.
Ciao! Davide DG
Newsgroup: it.comp.lang.delphi
Titolo: MouseMove

Come faccio a capire quando l'evento mousemove su di un componente e'
cessato?
Ovvero quando il puntatore si e' spostato su di un'altro componente.


Uh? Forse mi sbaglio, ma se non muovi il mouse su un componente, questo non ti genera più
l'evento OnMouseMove...
Se sbaglio o se intendevi un'altra cosa, forse potresti usare la variabile Sender.
Se sbaglio ancora... beh, amen :)
--
Jax

Il problema e' questo:
Ho una serie di componenti del tipo image1...imageN
Quando ho l'evento onmaousemove su image1 ad esempio, viene visualizzata una
particolare bitmap, vorrei che la visulizzazione di tale bitmap restasse
fintanto che il mouse e' sopra il controllo e al contrario quando il
puntatore non e' piu' sopra tale controllo vorrei che image1 prendesse una
bitmap diversa.
Il problema e' che non so quando termina l'evento onmousemove.
Ho provato sfruttando il fatto che quando tale evento viene attivato su
imageX implica che e' terminato su image1, ma cercavo qualcosa di +
elegante.
Bye
"Jax" <rispo...@newsgroup.grazie> wrote in message
news:EDmO8.13853$Kt3.3...@twister2.libero.it...


Vedi ControlAtPos.
Puoi passargli le coordinate della posizione del mouse.
Poi fai un cast ul risultato della funzione se esso <> nil....
Bye
AS


Volevo fare un TMouseImage per as, ma non ci sono riuscito, e adesso vorrei che mi
spiegaste il perché...
Io volevo semplicemente implementare gli eventi OnMouseEnter e OnMouseLeave, che tra
l'altro sono presenti in TLabel (e TCustomLabel).
Allora mi sono derivato TMouseImage da TImage e ho scopiazzato le righe
 private
  FOnMouseLeave: TNotifyEvent;
  FOnMouseEnter: TNotifyEvent;
  procedure CMMouseEnter(var Message: TMessage); message CM_MOUSEENTER;
  procedure CMMouseLeave(var Message: TMessage); message CM_MOUSELEAVE;
    ...
 published
  property OnMouseEnter: TNotifyEvent read FOnMouseEnter write FOnMouseEnter;
  property OnMouseLeave: TNotifyEvent read FOnMouseLeave write FOnMouseLeave;
e ovviamente anche
procedure TMouseImage.CMMouseEnter(var Message: TMessage);
begin
 if Assigned(FOnMouseEnter) then
  FOnMouseEnter(Self);
end;
procedure TMouseImage.CMMouseLeave(var Message: TMessage);
begin
 if Assigned(FOnMouseLeave) then
  FOnMouseLeave(Self);
end;
Compila, installa, tutto ok. Aggiungo il codice agli eventi, ma appena faccio partire il
programma, mi dice "Property OnMouseEnter does not exist"
Ammetto la mia ignoranza nella creazione di componenti, ma... :(((
--
Jax

 l'altro sono presenti in TLabel (e TCustomLabel).
Non li trovo. Dove stanno?
Bye
AS


In StdCtrls... io però ho D6.
--
Jax
Newsgroup: it.comp.lang.delphi
Titolo: File temporanei BDE

Sto personalizzando un gestionale che fa uso di archivi DBF.
Mi sono accorto che nell'usare il componente TQuery, esso lascia nella
directory corrente dei file temporanei, eccovi un grab della dir:
04/06/2004  11:04                  214 _QSQL000.DBF
04/06/2004  11:07                  214 _QSQL100.DBF
04/06/2004  11:04                  214 _QSQL166.DBF
08/06/2004  10:54                  838 _QSQL247.DBF
08/06/2004  11:06                  838 _QSQL272.DBF
08/06/2004  11:17                  838 _QSQL356.DBF
08/06/2004  15:47                  838 _QSQL517.DBF
08/06/2004  15:46                  838 _QSQL525.DBF
08/06/2004  15:15                  118 _QSQL612.DBF
08/06/2004  11:04                  838 _QSQL627.DBF
Domanda: come faccio a impedire questo scempio? Esiste forse un parametro o
un'impostazione del BDE? Oppure devo arrangiarmi con del codice che ripulisca
la directory per un pattern tipo "_QSQL*.*" ?
-- 
Morde. 
(
mo...@despammed.com
)
M-List di icld: 
http://it.groups.yahoo.com/group/icld/

Morde.
	Ciao
	MassimoB
 
---------------------------
http:\\
www.massimobeschi.it
Newsgroup: it.comp.lang.delphi
Titolo: File Acrobat Reader

Salve a tutti dell'ng
Io ho un problemino che non riesco a risolvere. Sto tentando inutilmente di
aprire un file PDF da Delphi, ma non ci riesco. Ho tentato con ShellExecute
mettendo come parametro il file PDF ma dopo aver visualizzato la finestra
iniziale di Acrobat (con il caricamento delle librerie) si chiude e non da
più nessun segno di vita. Mi piacerebbe capire per quale motivo non apre il
file che gli ho passato, ma viceversa si chiude addirittura.
Avevo trovato un metodo per risolvere l'arcano ed era con "Import Type
Library", ma mi piacerebbe capire perchè l'altro non funziona o perlomeno se
conoscete un metodo migliore.
Spero di essermi fatto capire.
Grazie infinite a chiunque mi darà una mano
Demetrio Battaglia

 passato, ma viceversa si chiude addirittura.
Prova a postare l'istruzione che usi...
--
Jax

Allora...ti ringrazio intanto per l'interessamento.
Il codice è questo:
procedure TForm1.Button1Click(Sender: TObject);
begin
    ShellExecute(Handle, 'open', 'c:\tmp\prova.pdf', 'NULL', 'NULL',
SW_SHOWNORMAL);
end;
...naturalmente negli uses ho usato "shellapi"
Grazie ancora.
"Jax" <rispo...@newsgroup.grazie> ha scritto nel messaggio
news:9szR8.57328$Kt3.1...@twister2.libero.it...


 > delle librerie) si chiude e non da piů nessun segno di vita. Mi


hai provato ad aprire il file direttamente da Acrobat senza passare per
delphi?
Bye
AS

 end;
Pensavo fossero i 'NULL', ma ho provato con la tua istruzione e a me funziona
benissimo.
A questo punto direi che il problema è nel file o in acrobat...
--
Jax

Potrebbe essere ma ho provato la stessa istruzione su due pc differenti e
con almeno 3 o 4 file differenti. La versione Acrobat è la 5.0.
Mah....mistero.
"Jax" <rispo...@newsgroup.grazie> ha scritto nel messaggio
news:rdCR8.58735$j65.1...@twister1.libero.it...


 ha scritto nel messaggio
news:af6prg$28j$1...@newsreader1.mclink.it...


 end;
Ciao,
prova cosi':
  ShellExecute(Handle, nil, 'c:\tmp\prova.pdf', nil, nil, SW_SHOWNORMAL);
Anche su puo' funzionare, scrivere 'NULL' (come stringa!), e' sbagliato 
concettualmente! NULL si riferisce ad un *puntatore* non definito (in 
questo caso *nil* in pascal).
Detto questo... da me funziona anche come l'hai scritto tu! (Acrobat Reader 
5.05 e Delphi 6 Ent)
Ciao.
Davide DG.
-- 
All resistance is futile! Prepare to be disassembled !

Vorrei tagliare la testa al toro defiitivamente su questa faccenda piuttosto
strana.
Il famigerato comando
    ShellExecute(Handle, 'open', 'c:\tmp\prova.pdf', nil, nil,
SW_SHOWNORMAL);
funziona benissimo....ma funziona benissimo solamente se lancio direttamente
l'eseguibile  prodotto da Delphi. Se invece lancio il programma in ambiente
Delphi non funziona per niente.
Non ho la piů pallida idea del perchč, mi piacerebbe capirlo ma non si puň
avere tutto dalla vita.
Granzie infinite a tutti e se avete qualche altra idea...

e te lo fa solo con Acrobat?
Hai provato word o altri sw?
Bye
AS
Newsgroup: it.comp.lang.delphi
Titolo: Passare da Paradox a Interbase ...

Esiste un metodo più indolore possibile per passare dal tanto amato/odiato
paradox a Interbese senza riscrivere tutto???


Il mio consiglio è quello di riscrivere propio tutto,
partendo dalla struttura del  Data Base e di abbandonare
il BDE ed utilizzare gli IBX. o altri componenti nativi
(Fibplus, IBO)
Ciao Enzo
www.scozzaro.it

 paradox a Interbese senza riscrivere tutto???
si, scegliere DBISAM anziche' interbase, e non ti tocca riscrivere proprio
niente :)
Ciao, Sandro

 ha scritto nel messaggio
news:b7fv2b$gnta$1...@ID-43509.news.dfncis.de...



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

 appena detto???
www.elevatesoft.com
il dbisam e' un motore di database nativamente multiutente e c/s, si integra
totalmente nell'exe (niente dll o robaccia varia), ha un sql completo e con
parecchie estensioni (mancano solo le stored procedure e poco altro dei
motori database piu' blasonati), e soprattutto la migrazione da paradox
diventa un vero scherzo dal punto di vista del sorgente: le modifiche sono
davvero minime.
Ciao, Sandro

 ha scritto nel messaggio
news:sMOma.15202$LB6.4...@news1.tin.it...


Newsgroup: it.comp.lang.delphi
Titolo: FMX ANDROID Chiudere programma ed eliminarlo dalla lista dei programmi in esecuzione

Ciao a tutti,
  con delphi 10.3.1 com'e' possibile  chiudere un programma ed eliminarlo 
dalla "lista dei task" ?
 
Cerco di spiegarmi meglio.
Programma test per Android 9, una form fmx con 1 bottone in cui al suo 
interno c'e' solo CLOSE.
 
Compilo, ok; si installa ok, parte e in effetti compare la form con il 
bottone.
Premo sul bottone, e il programma si chiude .... e il controllo ritorna al 
compilatore .....  ma se premo il bottoncino " ||| ' sul telefono appaiono 
tutti i programmi in esecuzione ... compreso quello appena chiuso.
 
Come posso toglierlo da quella lista ??
 
Ho cercato in rete ma i vari
 
Application.Terminate
MainActivity.Finish
FMX.TApplication.Finish
ecc...
 
ma non terminano il programma che continua ad essere presente in quella 
lista.
 
Qualche suggerimento?
 
Grazie
Daniele
 

Credo sia una caratteristica di Android...
Con l'app che ho scritto io ho lo stesso comportamento


 Con l'app che ho scritto io ho lo stesso comportamento
 
Ho letto un paio di articoli (piu' che altro blog tecnici ... scusa ma ho 
perso i link) dove suggeriscono di lasciare al OS il compito di chiudere le 
applicazioni.
Danno una serie di "comandi", quelli che ho citato, come soluzioni alla 
chiusura totale delle applicazioni .... senza risultati apprezzabili.
La mia configurazione e'
Delphi 10.3.1(2) con API 25
Android 9
 
Ora si sta passando alle API 26, la 10.3.3 ha quella versione.
 
Grazie
 
Ciao
Daniele
Newsgroup: it.comp.lang.delphi
Titolo: Query con WHERE

Ciao a tutti ho una tabella con 3 campi:
- Articolo_Venduto
- Costo_di_Vendita
- Data (gg.mm.aa)
Vorrei fare una query per sapere quali sono i
mesi in cui ho venduto di più
ES:
Mese - Qt - Tot
Aprile - 13 - 5'500,12?
Gennaio - 17 - 4'475,10?
Marzo - 4 - 2'000,00?
Febbraio - 10 - 1874,18?
Possibile?

 wrote in message
news:3ZLnc.169897$
hc5.7...@news3.tin.it
[CUT]
Dammi solo qualche informazione in piů: il tuo campo data č un 
Date o DateTime oppure č stringa? Immagino poi che per ogni singolo 
mese tu abbia piů record, giusto? 
Perchč nel caso tu abbia un singolo record per ogni mese il gioco č 
presto fatto, basta che fai una "select max(costo_di_vendita)"... 
perň dubito che sia il tuo caso!  :)
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

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

 ho più record
Mmm... per non incasinarti la vita io creerei un campo in più dove
andrei a scrivere solo il mese. A questo punto il raggruppamento sarebbe
molto più semplice poichè gestire i campi date-time non è molto semplice
(parlo per mia esperienza). Io utilizzo ormai solo campi varchar dove
scrivo le date in formato yy/mm/gg, in modo tale che posso ordinarle 
senza problemi e gestirle più liberamente. Oppure anzichè un solo campo
ne utilizzo 3: uno per il giorno, uno per il il mese e l'ultimo per 
l'anno. 
Ad ogni modo se hai seguito il mio consiglio, creato il campo mese, 
basta lanciare questa query:
select mese, sum(costo_di_vendita) as qty_tot from tabella
group by mese
order by qty_tot desc
e nel primo record sarà contenuto il valore più alto.
Ciao, Gohan


 Ciao a tutti ho una tabella con 3 campi:
Con quale DB ?
Giulio

"GiulioC" <giulio....@NOSPAMNOunisoft-net.it> ha scritto nel messaggio
news:%QNnc.170405$hc5.7...@news3.tin.it...

Ad esempio con Access
SELECT MONTH(DATA) AS MESE , COUNT(Articolo_Venduto) AS CONTEGGIO FROM
TABELLA
GROUP BY MONTH(DATA);
In Firebird puoi fare Group By 1  (significa il primo campo della select).
Giulio

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

grazie proverň
"GiulioC" <giulio....@NOSPAMNOunisoft-net.it> ha scritto nel messaggio
news:hSOnc.232798$rM4.9...@news4.tin.it...

Newsgroup: it.comp.lang.delphi
Titolo: File *.bpl dove è meglio collocarli?

Se realizzo un'applicazione e come consuetudine metto tutto in una sola
directory i file dei componenti dove č meglio collocarli nella stessa
directory dell'applicazione o nella windows\system?
Ringrazio chi risponde.
Marco


No, ti conviene per maggiore semplicità metterli in
Programmi\Borland\Delphi5\Projects. Ovvio che questa è la mia directory poi
inseririrai la tua. Verifica poi che questa cartella sia contenuta nelle
cartelle di delphi Menu Tools\Enviroment Settings\Enviroment Variables (se
non mal ricordo) e verifica inoltre che sia inserita nella clausola PATH del
autoexec.bat
PATH =
C:\Windows;C:\Windows\Command;C:\Windows\System;C:\Progra~1\Borland\Delphi5\
Projects
Ciao
Davide Carrara

 directory dell'applicazione o nella windows\system?
Se ti riferisci ad installazioni client :
1. Se non devi condividerli con altre applicazioni :
<ProgramFiles>\<YourSoftwareHouse>\<YourApp>
2. Se devi condividerli tra tue applicazioni:
<CommonFiles>\<YourSoftwareHouse>\BPL
3. Se devi condividerli anche tra applicazioni non tue: <Windows>\<System>
Nel caso 2 ( la soluzione + pulita..) , ricordati di includere la path di
installazione dei BPL nella variabile d'ambiente PATH.
Ciao,
-=SIMO=-
Newsgroup: it.comp.lang.delphi
Titolo: file

Ho fatto un programma che usa ActiveX, Dll, ecc. Ora quando lo porto su
un'altro computer non mi parte perchè dice che mancano dei file necessari al
programma. Come faccio a sapere di quali file ha bisogno il mio progrramma.
Grazie,

 ha scritto nel messaggio
news:XAj_5.107339$hk4.3...@news.infostrada.it...

Newsgroup: it.comp.lang.delphi
Titolo: Stringa con caratteri non validi

Salve
Io sto facendo un applicazione che Controlla i nomi dei file in una
directory
i file che deve controllare dovrebbero essere tutti cosi :
NOME_COGNOME.XXX
devo controllare che non ci siano spazi prima e dopo l'underscore e
all'inizio e alla fine del file
mi interesserebbe anche controllare che che non ci siano simboli "Strani"
tipo:
@, . , , , Ł,$,%,&,|, ecc All'interno di nome o cognome
Potreste darmi un un imbeccata su come controllare una stringa carattere per
carattere ??
Grazie in Anticipo!!

dall'help di delphi:
function MatchesMask(const Filename, Mask: string): Boolean;
Description
Call MatchesMask to check the Filename parameter using the Mask parameter to describe valid values. 
A valid mask consists of literal characters, sets, and wildcards.
[...]
Note:	The Filename parameter does not need to be a file name. 
MatchesMask can be used to check strings against any syntactically correct mask.
Maggiori dettagli se cerchi nel tuo disco il file masks.pas.
Io ce l'ho nella cartella C:\Programmi\Borland\Delphi6\Source\Rtl\Common\Masks.pas
ciao!
Morde.
morde [at] programmer [.] net

 a écrit dans le message news:
0GxS9.89375$Ou4.2...@twister2.libero.it...

Prova questo (buttato giů cosě)
IceCream
function CarattereAccettato(const c:char):boolean;
begin
    result:=not (c in ['@','#',...eccetera]);
end;
function CercaSpazi(const s:string):boolean;
begin
    Result:=false;
    if pos(' ',s)=0 then
        exit;
    if pos(' ',s)=1 then
        begin
            result:=true;
            exit;
        end;
    if s[length(s)]=' ' then
        begin
            result:=true;
            exit;
        end;
    if pos('_',s)>1 then
        if s[pos('_',s)-1]=' ' then
            begin
                result:=true;
                exit;
            end;
    if pos('_',s)>1 then
        if length(s)>pos('_',s) then
            if s[pos('_',s)+1]=' ' then
                begin
                    result:=true;
                    exit;
                end;
end;
function NomeOK(const s:string):boolean;
var
    errore:boolean;
    i:integer;
begin
    errore:=false;
    for i:=1 to length(s) do
        if not carattereAccettato(s[i]) then
            begin
                errore:=true;
                Break;
            end;
    if not errore then
        errore := cercaSpazi(s);
    Result:=not errore;
end;

 ha scritto nel messaggio
news:6vbl1v4i3i9080dqn...@4ax.com...

Newsgroup: it.comp.lang.delphi
Titolo: Form Secondarie

Salve. Ho la necessità di usare dele form secondarie per l'aggiornamento di
campi di altre tabelle. Faccio un esempio per chiarire:
Tabella Cliente con l'anagrafica
Tabella Tipo (con la tipologia del cliente: artigiano, professionista,
etc.etc)
Le due tabelle sono legate, nel senso che il campo Tipo_Cliente della
tabella cliente deve contenere un valore che sia tra quelli presenti nella
tabella Tipo.
Se ho ben capito quello che va fatto, devo creare un altro form dove vengono
richiamati i dati che mi servono (quindi la tabella Tipo)
e sul form principale dove ci sono i componenti data-aware collegati alla
tabella cliente ci va un pulsante che apra l'altro form; quello
che non ho capito è come fare in modo che quando seleziono dall'elenco il
dato e clicco su ok questo dato venga passato all'apposito
campo del form principale...
Chi mi sa dare una mano? ho letto sul libro di Marco Cantu ma ne salta pezzi
mentre spiega :))
Francesco

 ha scritto nel messaggio
news:Xymla.26807$DT4.7...@twister1.libero.it...


 ha scritto nel messaggio
news:OZrla.118329$i26.3...@news2.tin.it...


 ha scritto nel messaggio
news:miDla.28786$DT4.8...@twister1.libero.it...


 ha scritto nel messaggio
news:6KEla.528$LB6....@news1.tin.it...


 ha scritto nel messaggio
news:tHFla.29263$DT4.8...@twister1.libero.it...


 ha scritto nel messaggio
news:k4Gla.38730$%p6.24...@news.edisontel.com...


 ha scritto nel messaggio
news:xgGla.29585$iy5.8...@twister2.libero.it...


 ha scritto nel messaggio
news:OtGla.38741$%p6.24...@news.edisontel.com...


 ha scritto nel messaggio
news:fvGla.29630$iy5.8...@twister2.libero.it...


 ha scritto nel messaggio
news:j5Hla.29562$DT4.8...@twister1.libero.it...


 ha scritto nel messaggio
news:wzHla.29638$DT4.8...@twister1.libero.it...


 > che devo calcare due volte su Cancel (o su OK) affinchč venga presa per


 > > che devo calcare due volte su Cancel (o su OK) affinchè venga presa


 ha scritto nel messaggio
news:vEuma.40239$%p6.24...@news.edisontel.com...


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





domanda stupida:


dove trovo l'help delle API di windows 
?????



http://msdn.microsoft.com


dove trovo l'help delle API di windows ?????
Uhm... C:\Programmi\File comuni\Borland Shared\MSHelp\win32.hlp ?
Ovviamente se hai installato delphi :)
(spero che la domanda non fosse davvero questa ^____^)
Kupo
Jax





Io c'è l'ho qui:


 


"C:\Programmi\File comuni\Borland 
Shared\MSHelp\win32.hlp"


 


Salve

Newsgroup: it.comp.lang.delphi
Titolo: Delphi 6 su XP, è ok?

Delphi 6 su XP funziona? Thanks
Mark

 ha scritto nel messaggio
news:%FyJ7.2413$A6.1...@news2.tin.it...

Newsgroup: it.comp.lang.delphi
Titolo: ShellExecute

Non riesco ad usare il comando ShellExecute..il compilatore notifica:
Undeclared identifier..
Quale Unit devo aggiungere?

Prova così:
function EseguiFile(const FileName, Params, DefaultDir: string; ShowCmd:
Integer): THandle;
var
  zFileName, zParams, zDir: array[0..79] of Char;
begin
  try
    Result := ShellExecute(Application.MainForm.Handle, nil,
      StrPCopy(zFileName, FileName), StrPCopy(zParams, Params),
      StrPCopy(zDir, DefaultDir), ShowCmd);
  except
  end;
end;
Massimiliano Etere
maxe...@infinito.it


La risposta precedente alla mia è un modo un pò piu raffinato di chiamare la
procedura ma comunque devi inserire nella clausola Uses la unit ShellAPI
Uses Windows, SysUtil, ComCtrls, ExtCtrls, ShellAPI etc.
Ciao
Davide Carrara
Newsgroup: it.comp.lang.delphi
Titolo: Fuzzyreport e stampa codici a barre

La situazione e' questa: Delphi 4, per la reportistica Fuzzyreport 2.1,
una griglia AdvStringGrid e un database Firebird (che non ha nulla a che
fare con il mio problema).
Ho questa difficolta' (un po' mi vergogno, ma sono due giorni che non
riesco a uscirne): devo stampare su delle etichette adesive dei codici a
barre. I dati da trasformare in codici a barre sono dei numeri di una
delle colonne della griglia, mentre le etichette adesive sono su fogli A4,
tre per riga, su sette o otto righe (ora non le ho sottomano).
Riesco in qualche maniera, incrociando una banda "Dati Principali" e una
banda "Dati Tabella" - sulla quale posiziono i tre componenti per i Codici
a Barre - a stampare questi maledetti dati, ma NON uno per cella della
griglia (quindi una cella -> un codice) ma lo Stesso codice un numero
spropositato di volte.
Qualcuno ha gia' affrontato un problema simile e puo' spiegarmi - passo
dopo passo, da niubbo - cosa devo fare per ottenere cio' che voglio?
Grazie 
ACSH
ACSH 
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

ACSH
	Ciao
	MassimoB
 
---------------------------
http://www.massimobeschi.it/


Ottimo! Funziona tutto: grazie mille.
Usavo gia' una kbmMemTable come "strato intermedio" tra la griglia
e il DB e non avevo pensato minimamente alla stampa per colonne
(inoltre non ho alcun problema di "ordine di stampa delle etichette").
Il prossimi obbiettivi sono:
- stampare il codice a barre nel centro dell'etichetta ;
- cercare di sprecare meno etichette possibili (quasi mai riempiro'
un foglio intero).
Ma questi sono problemi miei ai quali pensero' domani.
Grazie ancora.
Ciao.
--
ACSH
[D4]
---------------------------
Chi fa da se'
fatica il doppio

 fatica il doppio
Ma ci gode meglio!!!


Avevo gia' implementato una cosa del genere, risolvendo la questione
(altre idee non me ne sono venute).
Il vero problema - dopo una settimana d'uso - e' spiegare alla ragazza
che utilizza il programma come deve *INSERIRE* il foglio nella stampante:
di solito per recuperare due-tre etichette spreca interi fogli A4 (e non
avevo la minima idea di quanto fosse complicato staccare una etichetta
adesiva dal rullo interno della stampante!)
:-)
Grazie lo stesso.
Ciao.
--
ACSH
[D4]
---------------------------


 
Mi dici come hai fatto che interessa anche a me ? ho lo stesso problema 
con il rave.
Omega
Newsgroup: it.comp.lang.delphi
Titolo: Invio email con Indy10 da delphi 7

Mi servirebbe inviare delle email con delphi 7.
Mi avevano suggerito di utilizzare i componenti Indy, ma di installare prima
l'aggiornamento.
Ho scaricato sia i sorgenti che il setup per l'installazione automatica.
Ho eseguito il setup automatico..ma quando cerco di utilizzare i componenti
mi dice che alcuni componenti sono compilati con una versione diversa
Ho compilato i sorgenti e li ho sostituiti nella cartella /bin...cerco di
usare i componenti e mi dice sempre che qualche componente č compilato con
una versione differente o che mancano alcune proprietą...
Come posso fare per risolvere il problema definitivamente????
Grazie a che mi aiuterą

 ha scritto nel messaggio 
news:xJBqf.95916$65.27...@twister1.libero.it...

Newsgroup: it.comp.lang.delphi
Titolo: [Lazarus] Funzione StrToTime

Scrivo qui perche' non ho trovato un Newsgrup dedicato a Lazarus, se 
sono OT mi scuso in anticipo.
Il mio problema e' questo:
Se eseguo la seguente istruzione
   FloatToStr(StrToTime('12:00')) ottengo zero
ovvero se eseguo
   TimeToStr(StrToTime('12:00')) ottengo 0:00:00
Cosi come se eseguo
FloatToStr(StrToTime('12:01')) Ottengo 0,00069444444444
TimeToStr(StrToTime('12:01')) Ottengo 0:01:00
In pratica le 12:00 vengono codificate come mezzanotte.
Mi chiedevo se e' un bug o se la causa e' una impostazione in qualche 
variabile di sistema che interpreta gli orari 0:00-12:00 anziche' 
00:00-24:00
Grazie

 
-- 
-------------------------------
per scrivere in privato
togliere "1975nosp"
to reply remove "1975nosp"

> 
Non credo sia quello. Il separatore per l'ora dipende dalle 
impostazioni internazionali che imposti in Windows e Lazarus, cosi' 
come Delphi, legge questi valori dal sistema e li copia in costanti 
globali dichiarate nella unit SysUtils. Come hai giustamente detto il 
valore del separatore e' contenuto nella variabile TimeSeparator di 
tipo Char della unit SysUtils. Sul mio PC, come impostazioni 
internazionali, ho impostato i due punti come separatore dell'ora (se 
usassi il punto Lazarus mi darebbe un errore a run-time).
Secondo me ci dovrebbe essere una impostazione da qualche parte che 
dice come considerare il formato dell'ora.

 come considerare il formato dell'ora.
ShortTimeFormat influenza la conversione quando manca il valore dei 
secondi, anche questa definita in sysutils e copiata dalle impostazioni 
di sistema.

 come considerare il formato dell'ora.
hai provato  "encodetime" se e' presente in lazarus dovresti essere a 
posto, vuole parametri numerici e da il tutto convertito.
se hai la stringa in partenza devi fare la divisione a mano.


> 
Si' la funzione c'e' ma non e' quello che mi serve. Il problema e' che 
ho una form con dei campi dove e' impostata un'ora nel formato hh:mm ed 
io li devo convertire nel formato seriale TDateTime per poi poterci 
fare dei calcoli. Oddio, potrei creare una routine a mano ma mi sarebbe 
piaciuto utilizzare le funzioni standard.
Ho provato anche a cambiare formato alla variabile ShortTimeFormat come 
mi e' stato suggerito ma niente. Il bello e' che se imposto come orario 
'12:00 PM' funziona bene e questo rafforza la mia convinzione che c'e' 
un impostazione da qualche parte che legge le ore in 0-12 anziche' in 
0-24.
Ho trovato anche questa vecchia discussione in cui sembrano avere lo 
stesso problema ma non ci ho capito niente:
http://groups.google.it/group/borland.public.delphi.objectpascal/browse_frm/thread/8064ffd641e0d2b7/2903fc74a98f1f9%232903fc74a98f1f9
Newsgroup: it.comp.lang.delphi
Titolo: Menù dinamico

Ho una tabella menu contenente le voci di menù del mio applicativo. I record
in tabella caricano il componente treeview. Il problema è che ora vorrei
sostituire il componente treeview con la TMainMenu. E' possibile eseguire
dinamicamente la creazione degli Item del TMainMenu come la TreeView?
Riporto la struttura della tabella utilizzata per la treeview:
Id_Child  Id_Parent        Id_count         Caption
90000      0                           0                   Root Menu 1
90100      90000                   1                   1st level Menu1  0
90200      90100                   2                   Menu item 1  Menu
item 1
90300      90100                   3                   Menu item 2  Menu
item 2
90400      90000                   4                   1st level Menu 2 0
90500      90400                   5                   2nd level Menu 1 0
90600      90500                   6                   Menu item 3  Menu
item 3
90700      90500                   7                   Menu item 4  Menu
item 4
90800      90000                   8                   Menu item 5  Menu
item 5
90900      0                           9                   Root Menu 2
91000      90900                  10                  Menu item 6  Menu item
6
91100      0                          11                  Root Menu 3
90000
 90100
  90200
  90300
 90400
  90500
   90600
   90700
 90800
90900
 91000
91100

posta anche il codice che ti mostro come modificarlo x usare un menu.
A

Newsgroup: it.comp.lang.delphi
Titolo: Codice Fiscale

Qualcuno mi saprebbe dire se in rete è possibile trovare i sorgenti in
delphi della funzione  che calcola il codice fiscale in base ai relativi
dati inputati?
Grazie per la collaborazione!

dati inputati?
Postato un po` di tempo fa su it.comp.programmare.win32.
Newsgroup: it.comp.lang.delphi
Titolo: Sapere se un servizio è attivo.....

Come posso sapere se un servizio X è running o meno?
bye
 Acqua
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

> Come posso sapere se un servizio X è running o meno?
Fatto.. :)
Se può essere utile....
function IsServiceActive(ServiceName: string): Boolean;
var
  ScMgr, ipvSrv: SC_HANDLE;
  SrvSt: TServiceStatus;
begin
  Result := False;
  // Con OpenSCManager mi collego al service control manager....
  ScMgr := OpenSCManager(nil, nil, SC_MANAGER_ALL_ACCESS);
  if ScMgr > 0 then
    begin
      // Con OpenService function ottengo l'handle al servizio in
questione.
      ipvSrv := OpenService(ScMgr, PChar(ServiceName), GENERIC_READ);
      if ipvSrv <> 0 then
        begin
          // ControlService lo uso per recuperare lo status del
servizio...
          if ControlService(ipvSrv, SERVICE_CONTROL_INTERROGATE, SrvSt)
then
            Result := SrvSt.dwCurrentState = SERVICE_RUNNING
          else ;
            // Errore: Cannot get Service status...
        end
      else
      // Errore: Cannot establish a connection with the Service...
    end
  else
    // Errore: Cannot establish a connection with the Service Control
Manager...
end;


   SrvSt: TServiceStatus;
Quali componenti utilizzare per le suddette variabili?
Ciao Enzo
www.scozzaro.it

> Quali componenti utilizzare per le suddette variabili?
Queste variabili si trovano nelle Units WinSvc e SvcMgr di Delphi.
$(DELPHI)\Source\Rtl\Win\WinSvc
$(DELPHI)\Source\Vcl\SvcMgr.pas
Acqua.


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

Secondo voi,
ci si può connettere con applicativo delphi 6 - indy 9 ad un database mysql 
di Aruba ?
Aruba consente la gestione con PhpAmin....ma c'è un ip...un nome utente, una 
pass....che ne dite ? 

 di Aruba ?
No, se non attraverso pagine ospitate nello spazio dedicato ad hosting, 
che è l'unico spazio abilitato ad accedere al database (altrimenti, non 
fornirebbero phpMyAdmin per questo scopo, giusto?) ;-)
Ciao,
   Marco.
-- 
MARCO BREVEGLIERI
  (
http://www.marco.breveglieri.name
)
     Non hai la possibilità di scaricare Turbo Delphi Explorer?
     Te lo spedisco io!! [
http://blog.marco.breveglieri.name/?p=48
]

 ha scritto nel messaggio 
news:45cf...@extreme.x-privat.org...


 Mi fà una gola pazzesca...ma se mi dici che non è possibile, credo a te.
Ovviamente, non è possibile per quanto ne sia al corrente io, ma nulla 
ti vieta di contattare il supporto tecnico (o di consultare la 
"knowledge base" specifica) per chiedere, per averne la conferma al 100%.
Certo, con poco sforzo potresti creare pagine PHP, o pagine ASP/
ASP.NET
, 
da ospitare nello spazio associato a MySQL che facciano da 
"intermediare" tra l'applicazione client Windows realizzata con Delphi e 
il database MySQL.
Le soluzioni in quest'ambito sono molteplici: puoi fare uso di semplici 
pagine in grado di interpretare comandi provenienti da un "query 
string", oppure Web Service o altre soluzioni basate su XML, o 
personalizzate... insomma, hai la possibilità di personalizzare 
interamente il colloquio.
