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

Buongiorno NG !
scusatemi l'ignoranza ma volevo farvi una semplice domanda per sapere se è
normale che
File->New->Application
File->New->Other->Report
F12 (per vedere il report)
la palette dei componenti si ridimensiona facendomi vedere solo alcuni
componenti e solo alcuni tab
e possibile ?
Grazie
--
Alberto Menghini
alb...@asoft.it

sistema operativo?
Bye
A.


Leo :)

 ancora non ho provato, ma non è che ti fa vedere solo i componenti che


 componenti e solo alcuni tab
solo quelli che puoi mettere in un report, per l'appunto.
-- 
    ____
_/\/ando

 L'unico che mi insospettisce un po e GEXPERT e qualche suo settaggio....ma
brancolo ne buio
Ho avuto dei problemi anch'io con il GExpert per il Delphi 6, con Code
Proofreader attivato (almeno sembra) a volte si "sputtana" il listato pascal
in fondo alla unit. Probabilmente non sarà soltanto l'unico problema, ma ci
saranno più incopatibilità con il Delphi 6.
Ciao,
  Fabio

i componenti aggiuntivi che hai installato sono tutti x d6 o hai messo
qualcosa di d5?
Inoltre, hai fatto tutte le installazioni avento i diritti di amministratore
del pc?
Bye
A.

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

 ha scritto nel messaggio
Cosa/chi vedono le mie fosche pupille...
--
Jax

Difatti, da D6 la palette è dinamica.
Ad esempio, se fai una nuova applicazione in CLX, la palette si ridimensiona
notevolmente.
CIAOUX!

Meglio, risolto il problema, salvo anche il GExpert che in certe situazioni
è veramente insostituibile.
Ciao,
  Fabio

 wrote in message
news:0LO19.21037$n04.5...@twister2.libero.it...



spero di esserti stato utile
ciao,
Leo :)

 scusatemi l'ignoranza ma volevo farvi una semplice domanda per sapere se č


 wrote in message
news:OaP19.21787$lu5.5...@twister1.libero.it...


 > scusatemi l'ignoranza ma volevo farvi una semplice domanda per sapere se
è


 Cosa/chi vedono le mie fosche pupille...
Grazie per il "cosa" :-)
Ciao
-- 
    ____
_/\/ando
Newsgroup: it.comp.lang.delphi
Titolo: Codice Borland Pascal -> Aplicazione Console Borland Delphi

Come si traducono le funzioni che stavano nella unit dos?
a me interssa nella fatispece "getenv" ho cercato nel help ma niente
Il Razziatore,
The Only Good Windows in an uninstalled Windows
-----------------------------------------------
E-MAILs : IlRazziat...@NOSPAMnetscape.net
WEB     : 
http://www.razziatore.dns2go.com/
ICQ     : 67552596

Ho cercato anch'io, ma non ho trovato niente.
Alla fine ho usato le API di Windows.
Se esiste qualcosa in Delphi tanto meglio.
Ciao
GG


Alla fine ho usato le API di Windows.
Cioč quali?


> a me interssa nella fatispece "getenv" ho cercato nel help ma niente
ghhggh "interrsa"  "fatispece" :) ma come cavolo scrivi :D ???

 ha scritto nel messaggio
| Come si traducono le funzioni che stavano nella unit dos?
|
| a me interssa nella fatispece "getenv" ho cercato nel help ma niente
Usa l'API GetEnvironmentVariable (che se ricordo bene
dovrebbe servire per la stessa cosa di "getenv")
--
Ciao.
ACSH
[D4]
---------------------------
Chi fa da se'
fatica il doppio

dovrebbe servire per la stessa cosa di "getenv")
Ci ho provato ma niente....
non č che tu hai qualche porzione di codice testato?


| >| Come si traducono le funzioni che stavano nella unit dos?
| >|
| >| a me interssa nella fatispece "getenv" ho cercato nel help ma niente
| >
| >Usa l'API GetEnvironmentVariable (che se ricordo bene
| >dovrebbe servire per la stessa cosa di "getenv")
|
| Ci ho provato ma niente....
|
| non č che tu hai qualche porzione di codice testato?
Io non ricordo cosa facesse di preciso GetEnv in TP,
ma se GetEnvironmentVariable e' equivalente, ecco un po'
di codice funzionante:
function GetVariabileAmbiente(const NomeVar: string) : string;
var
 strSupporto: array[0..2048] of Char;
begin
 if GetEnvironmentVariable
        (PChar(NomeVar), strSupporto, SizeOf(strSupporto) - 1) > 0
  then Result := StrPas(strSupporto)
  else Result := '';
end;
Da usare cosi', ad esempio:
procedure TForm1.Button1Click(Sender: TObject);
begin
  button1.Caption := GetVariabileAmbiente('path');
end;



Il Razziatore,

Newsgroup: it.comp.lang.delphi
Titolo: Fuzzyreport e freports a colonne

AIUTO!!
Sono disperato, devo consegnare un lavoro e non riesco a creare 
un report come speravo.
Tutta la gente che leggeva/scriveva sul gruppo di yahoo dove è 
finita?
Spero che qualcuno mi possa aiutare.
Cercherò di spiegare il mio problema:
Devo stampare dei cartellini da 70x30mm su fogli A4 prestampati 
con gli strappi pretagliati. 
Praticamente 3 colonne e 9 righe per foglio.
Fino qui tutto bene. 
I cartellini sono suddivisi in gruppi e devo stampare una 
intestazione per ogni inizio gruppo con la descrizione del 
reparto..
Ho aggiunto la banda di intestazione gruppo e ci ho disegnato 
quello che mi serviva...
Fino qui tutto bene. 
Ora però devo fare sì che ogni nuova intestazione venga stampata 
su una nuova colonna o (ancora meglio) su una nuova riga, in 
modo da tenere i gruppi separati da un unico "strappo" 
(verticale o orrizontale)
Purtroppo riesco solo a forzare la nuova pagina e questo risulta 
spesso in uno spreco di fogli troppo elevato (quei fogli A4 
prestampati sono abbastanza costosi!!)
C'è qualcuno che ha già affrontato questo problema o che sa come 
risolverlo?
Sarebbe meglio se fosse qualcosa di autocontenuto nella 
definizione del report e indipendente dai dati, ma al limite 
potrei aggiungere un campo sui dati per identificare la rottura 
di gruppo
Riassumo:
In pratica, c'è la possibilità in un report a colonne di andare 
a nuova riga e/o a nuova colonna o si può solo andare a nuova 
pagina?
Grazie anticipatamente per l'attenzione,
M@t
-- 
Inviato da Virgilio 
http://newsgroup.virgilio.it
Filtra gli antipatici, segnala le risposte, segue i thread, e tutto da web

Forse la soluzione è usare un sistema diverso.
Il fatto che esistano degli strumenti non rende un dogma il dover fare 
tutto sempre con tali strumenti.
In primis, ti suggerirei di dare un occhio a Rave.
Questo tool, a differenza di FastReport e QuickReport (brrrrr...), na si 
basa sulle bande, ma sulle regions (aree) che somigliano molto alle 
gabbie di testo su cui si basa il funzionamento dei programmi DTP come 
QuarkXPress e il vecchio Ventura.
Ancora, se rave per vari motivi non puoi usarlo, niente ti impedisce di 
sviluppare da te qualcosa di alternativo lavorando direttamente 
sull'oggetto tprinter.
Potresi ad esempio creare una classe alla quale dai in pasto quello che 
vuoi venga stampato, la classe prepara un canvas con i testi che ti 
servono (vedi metodi di tcanvas...) e poi il contenuto del canvas puo 
essere copiato sul canvas di tprinter e inviato in stampa.
Certo, si tratta di farsi un po di "faidate", ma se non vi sono 
alternative....
Finally, darei un occhio sui soliti siti, magari esiste un tool 
alternativo che fa prp quel che ti serve.
-- 
Alberto Salvati
A NEAPOLITAN Delphi Developer who is studying c# and .net
"Dicette 'o pappece 'nfaccia 'a noce dammi 'o tiempo che pure te spertoso"
Newsgroup: it.comp.lang.delphi
Titolo: Amministratore su IB

Salve, 
scusate la mia ignoranza, ma se io cambio amministratore del database
in un  database IB, funziona perfettamente ma se io apro quel database
con SYSDBA e mastekey, il database mostra lo stesso i suoi dati.
Come posso fare a proteggerlo e fare in modo che si possa aprire solo
col MIONOMEUTENTE e la mia PASSWORD?
Grazie in anticipo.
Robin

 ha scritto nel messaggio
news:192cktc44gk367l32...@4ax.com...


Newsgroup: it.comp.lang.delphi
Titolo: Dove è "Send To" e "Avvio Veloce"?

Come faccio a sapere dove salvare i link per far apparire l'icone nelle
posizioni "SendTo" e "Avvio Veloce"?
Grazie a tutti in anticipo

Mino Vitiello wrote:

Prova a guardare in C:\Windows. Per qul che riguarda SendTo, se non mi
sbaglio, dovrebbe bastare fare un collegamento che punta a quello che ti
interessa e copiarlo in questa cartella. la sua comparsa dovrebbe essere
automatica. Per quel che riguarda Avvio Veloce, prova a guardara nella
cartella Menu Avvio.
Spero di aver compreso il tuo problema e di averti fornito qualche
informazione utile.
Ciao,
    by Enri'S

Il mio problema è rilevare queste posizioni via software, infatti non tutti
i SO hanno le stesse cartelle che li identificano. Pertanto è necessario
conoscere la funzione API che ritorna questo valore (se mai ne esista una).
Grazie comunque per l'interessamento

"Mino Vitiello" ha scritto nel messaggio
| Come faccio a sapere dove salvare i link per far apparire l'icone nelle
| posizioni "SendTo" e "Avvio Veloce"?
Vedi SHGetSpecialFolderLocation nell'help.
--
Ciao.
ACSH
[D4]
---------------------------
Chi fa da se'
fatica il doppio

Li non sono conteplati, ma li ho trovati nel file di registro.
Grazie per avermi risposto

"Mino Vitiello" ha scritto nel messaggio
| Li non sono conteplati, ma li ho trovati nel file di registro.
| Grazie per avermi risposto
|
L'help dice che per recuperare i folder che tu cerchi attraverso
la funzione SHGetSpecialFolderLocation devi usare
i valori CSIDL_SENDTO e CSIDL_STARTUP.
In ogni caso, anche la soluzione via Registro e' giusta.


In ogni caso, anche la soluzione via Registro e' giusta.
Micavero. Sennò non ci sarebbe SHGetSpecialFolderLocation
-- 
Nato nel vizio, morto nel supplizio
Nato nel peccato, ad entrare sia invitato
Newsgroup: it.comp.lang.delphi
Titolo: Supporto per Windows 95/98

Un saluto a tutto il newsgroup,
dovendo mantenere la compatibilita' di una applicazione con vecchie
versioni di Windows (es. 95/98/ME) mi chiedevo se esistesse un tool
che, analizzando il codice Delphi oppure la tabella di importazione
delle DLL, fosse in grado di individuare il codice non compatibile (es.
chiamate a kernel32.dll etc.).
Grazie
-- 
Vuoi distribuire il tuo sito web su CD/DVD?
Prova 
http://www.dwebpro.com/
Vuoi diventare un esperto programmatore Delphi?
Vieni a fare uno stage con noi: 
http://www.creativepark.it/stage/

 chiamate a kernel32.dll etc.).
Alcune delle chiamate a librerie non più compatibili con i sistemi 
operativi che hai indicato sono presenti anche nella RTL, quindi è 
difficile supportare questi sistemi usando una versione abbastanza 
recente di Delphi.
Io utilizzo ad esempio una installazione di Delphi 2005 per manutenere 
il sorgente (condiviso anche con una versione più recente) di 
un'applicazione che deve girare anche su NT4.
Non hai la possibilità di adottare una soluzione di questo tipo?
Ciao,
   Marco.
-- 
MARCO BREVEGLIERI
  (
http://www.marco.breveglieri.name
)

 Non hai la possibilità di adottare una soluzione di questo tipo?
Circa 6 mesi fa siamo passati da D7 a D2007 per poter supportare
nativamente Windows Vista. La soluzione di D2005 per noi e'
impraticabile, comunque meglio supportare Windows Vista/2008 e perdere
il supporto per il 95/98 piuttosto che viceversa :)
-- 
Vuoi distribuire il tuo sito web su CD/DVD?
Prova 
http://www.dwebpro.com/
Vuoi diventare un esperto analista PHP/MySQL?


 il supporto per il 95/98 piuttosto che viceversa :)
Ho fatto l'esempio di D2005 perché è l'ultima versione con cui ho 
gestito correttamente Windows 98/NT, quindi una versione precedente 
dovrebbe funzionare comunque adeguatamente, a maggior ragione.
Concordo sul fatto che - pur essendo la retrocompatibilità una delle 
caratteristiche che più apprezzo e sfrutto di Delphi - la cessazione del 
supporto per Windows 98 non sia qualcosa che rimpiangeremo troppo. :-)

Newsgroup: it.comp.lang.delphi
Titolo: TidSmtp (indy) ed invio email con autenticazione

salve, non riesco ad inviare l'email quando necessita l'autenticazione.
imposto i campi:
UserName, Password e Host di TidSmtp ma niente,
sapete se bisogna qualche altro parametro?
saluti. Enzo. 

 sapete se bisogna qualche altro parametro?
Hai impostato la proprietà /AuthenticationType/ (se non ricordo male il 
nome)?
Ciao,
   Marco.
-- 
MARCO BREVEGLIERI
  (
http://www.marco.breveglieri.name
)
Inviato da X-Privat.Org - Registrazione gratuita 
http://www.x-privat.org/join.php

Newsgroup: it.comp.lang.delphi
Titolo: Dal Treccani...

fig. dominare controllare; conoscere, padroneggiare.
SCANSAFATICHE: agg. ozioso, pigro, indolente, sfaccendato, svogliato
sfaticato, poltrone.
--
Posted from 
relay.pantheon.it
 [195.62.36.241]
via Mailgate.ORG Server - 
http://www.mailgate.org

 wrote in message
20000202134149.CEI6085.fep10-svc@[212.216.144.190]...

Bhč ... almeno si sta evolvendo in qualcosa di piů sapiente



guarda che come treccani intende 3 cani: lui, il suo pc, e la ventolina
del processore (fancooler)

Newsgroup: it.comp.lang.delphi
Titolo: Delphi e Oracle

Salve a Tutti.
Dopo anni di programmazione Delphi, adesso molti
clienti mi chiedono di interfacciare i loro database Oracle.
Confesso: non ho la piů pallida idea di come si fa: ho vissuto
con Paradox e Interbase, ma un DB Oracle.... mah!
Qualcuno č cosě gentile di indicarmi la strada?
Grazie 1000 a chi mi risponde anhe via e-mail
atsof...@atsoftware.it





Ciao ti consiglio un set di componenti per la 
gestione del DB Oracle.


http://www.allroundautomations.nl/doa.html


Sono una BOMBA, li uso gia' da due anni nella ditta 
in cui lavoro.


Non necessitano del BDE o di driver strani...basta 
che nel PC sia installato il client Oracle.


Ho visto pero' sulla rivista Delphi Informant (Mi 
sembra di giugno) che sono usciti dei componenti che non necessitano neanche 



dell'installazione del client Oracle (scusa ma non 
trovo un link).

Newsgroup: it.comp.lang.delphi
Titolo: Salto pagina in RichEdit...

salve a tutti, il mio problema è questo :
ho un RichEdit su cui permetto di aprire, scrivere, salvare e stampare un
file .RTF. La funzione che vorrei implementare è "inserisci interuzione di
pagina" cosi che chi scrive può gestire il salto pagina , ovvero ho già
preparato un tasto che al click mi deve inserire l'interuzione di pagina.
Come la risolvereste ?? Dovrei inserire dei campi in visibili ??
grazie a tutti

 Come la risolvereste ?? Dovrei inserire dei campi in visibili ??
Devi inserire il tag "\page" nel punto dove vuoi l'interruzuione di pagina
Questo è uno stralcio di codice che usa il TJvxRichEdit
procedure TForm1.Button1Click(Sender: TObject);
var
     SS: TStringStream;
begin
    SS := TStringStream.Create('\page');
    SS.Position:=0;
    RichEdit.PlainText := False;
    RichEdit.StreamMode := [smSelection];
    RichEdit.Lines.LoadFromStream(SS);
SS.Free;
end;
Newsgroup: it.comp.lang.delphi
Titolo: Maiuscole su TDBCombobox

Cosa si deve fare  affinchè scrivendo in minuscolo su un TDBcombobox , i
caratteri vengano convertiti immediatamente in mauscolo.
Ho provato a mettere la mask >LLLLLLLLLLLL sul EditMask del campo DB
associato ma non mi funziona !
Grazie

 caratteri vengano convertiti immediatamente in mauscolo.
Setta la proprietá
DbComboBox1.CharCase:=ecUpperCase;
Non ho mai usato i DB ma credo vada bene .. (come il combobox)
ciao
erik

 ha scritto nel messaggio
news:b1C6c.72895$z23.3...@news3.tin.it...


Saluti.
	Ciao
	MassimoB

Newsgroup: it.comp.lang.delphi
Titolo: vorrei migliorare un po' la grafica...

salve a tutti... ho iniziato a programmare con delphi da poco e
sinceramente me la cavo abbastanza male... comunque arrivo al sodo...
1- vorrei migliorare l'aspetto dei programmi, modificando l'aspetto di
un oggetto, per esempio fare i bottoni non più rettangolari, ma più
arrotondati... non so se mi sono spiegato... non credo...
2- mi servirebbe molto riuscire a "moltiplicare" delle finestre, ad
esempio creare un form e poi visualizzarne 100 tutti uguali o fare
questo lavoro con un qualsiasi altro oggetto... tipo array insomma...
grazie

questo lavoro con un qualsiasi altro oggetto... tipo array insomma...
La prima cosa da fare quando si inizia a lavorare in Delphi č buttare
via la dichiarazione della variabile globale creata automaticamente
dal sistema: Form1.
In generale, puoi instanziare N volte una classe e questo vale per le
form, per i componenti, ecc.. 
Il modo, ad esempio di creare 100 istanze di TForm1 potrebbe essere:
var
  FormArray: array [1..100] of TCustomForm;
  I: Integer;
...
for I := Low(FormArray) to High(FormArray) do
  FormArray[I] := TForm1.Create(...);

   FormArray[I] := TForm1.Create(...);
grazie mille, però non riesco ancora a creare i form... cioè... mi
era venuto, ma non capisco come devo impostare tutto...
se al posto di tcustomform io dichiarassi tform1?
non capisco cosa vada scritto nel .create(...)... io avevo provato con
form1 :|
grazie ^^

form1 :|
Consulta l'help in linea di Delphi.  L'argomento del Create è l'owner
dell'istanza che stai costruendo, ovvero quell'oggetto che libererà
l'istanza, in modo automatico (invocando implicitamente il metodo
.Free()), una volta che esso stesso verrà distrutto.

Newsgroup: it.comp.lang.delphi
Titolo: idHTTP e post

ciao a tutti, sto provando a passare delle variabili ad un  url php usando 
il post dell'idHTTP di indy... nel lato server ho notato che i parametri 
passati se contengono caratteri tipo il + non vengono passati, cosa può 
essere?
Simone 

Simone P. ha scritto:

Esegui l'encoding dei campi e dei valori prima di inviarli?
-- 
Vuoi distribuire il tuo sito web su CD/DVD?
Prova 
http://www.dwebpro.com/
Vuoi diventare un esperto programmatore Delphi?
Vieni a fare uno stage con noi: 
http://www.creativepark.it/stage/

> Esegui l'encoding dei campi e dei valori prima di inviarli?
adesso si, infatti funziona
Newsgroup: it.comp.lang.delphi
Titolo: Evento OnDbClick su BitBtn

Salve Ragazzi,
avrei la necessità di gestire l'evento OnDbClick sugli oggetti di tipo
BitBtn.
Il problema è che su questo tipo di oggetti non esiste l'evento OnDbClick,
ma esiste solo l'evento OnClick.
Mi chiedevo se da codice è possibile aggiungere al volo l'evento OnDbClick
e andarlo poi a gestire, quindi evitando di andarmi a creare un nuovo
componente
o di usare componenti diversi da quelli che Delphi mette già a disposizione.
Grazie per l'aiuto.
Donato Di Tullio

 o di usare componenti diversi da quelli che Delphi mette già a
disposizione.
Potresti usare uno TSpeedButton che possiede l'evento OnDblClick.
Newsgroup: it.comp.lang.delphi
Titolo: Delphi 6 e Access 2000

Ciao A tutti
E' possibile accedere a MDB access 2000 con delphi 6?
E' data solo la compatibilità fino ad Access97
Grazie ;-)

 E' data solo la compatibilità fino ad Access97
Con i driver Access del BDE sì! Ma tu puoi usare BDE + ODBC oppure ADO con i
componenti ADOexpress (preferibile). In alternativa, se non hai ADOexpress e
non vuoi usare componenti di terze parti, puoi anche usare ADO importandoti
la sua type library, in tal caso però niente controlli data aware.

Newsgroup: it.comp.lang.delphi
Titolo: Griglia di Object Inspector

Mi piacerebbe riprodurre la Form di Delphi dell'Object Inspector e inserirla
in un programma...
Solo che una semplice griglia non mi permette di mettere i ComboBox con
l'elenco dei colori in una cella... e tutti gli altri gingilli...
come posso fare?... anche per le + a sinistra delle proprietà... che mi
permettono di espandere il ramo...
c'è qualcosa che mi permette di fare queste cose?
grazie,
Raptor

 ha scritto nel messaggio
news:WDU77.29499$sE4.5...@news6.giganews.com...

Newsgroup: it.comp.lang.delphi
Titolo: Attivare un applicazione

Ciao a tutti, mi servirebbe un comando per rendere attiva un applicazione,
se questa
è già in esecuzione.
Per controllare se l'applicazione è stata già avviata o no, ho scritto
questo codice
nel .dpr
var
  Hmutex:Thandle;
  NomeProg:Pchar;
begin
  NomeProg:='ANAGRAFI';
  Hmutex:=CreateMutex(nil,False,NomeProg);
  if (WaitForSingleObject(Hmutex,0)<>wait_TimeOut) then
  begin
    Application.CreateForm(TfrmAnagrafiche, frmAnagrafiche);
    Application.CreateForm(TFormPassword, FormPassword);
    Application.CreateForm(TCercaCliente, CercaCliente);
    Application.Run;
  end
  else begin
   ??? //Se l'applicazione è già avviata vorrei che fosse attivata
  end;
Grazie.

Iuri,
[...attivare la prima istanza...]
normalmente si registra un msg custom
var iMsgId: Cardinal;
..
iMsgId := RegisterWindowMessage(PChar('Messaggio per svegliare
l''istanza precedente'));
quando devi svegliare l'istanza precedente mandi il msg
var iRcpt: integer;
..
iRcpt := BSM_APPLICATIONS;
BroadcastSystemMessage(BSF_IGNORECURRENTTASK or BSF_POSTMESSAGE, iRcpt,
iMsgId, 0, 0);
per il quale ovv.te devi avere pronto l'handler: puoi usare
Application.OnMessage oppure aggiungere una wndproc alla coda con
Get/SetWindowLong.
Nell'handler farai un Application.BringToFront o qualcosa di simile.
Saluti
Paolo Arosio

> Nell'handler farai un Application.BringToFront o qualcosa di simile.
Procedure ForceForeground (hWnd : HWND);
Begin
 PostMessage (GetDesktopWindow,WM_SYSCOMMAND, SC_HOTKEY, hWnd);
End;
Ciao! Davide DG.

 ........
Ciao Paolo, ho risolto il mio problema utilizzando l'oggetto XJustOne, che
funziona
alla perfezione, grazie cmq per l'interessamento.......
visto che ci sono ne approfitto pe 'naltra cosa, sai se c'è la possibilità
da un programma delphi
di settare una stampante di rete (con print server) in modo esclusivo? Cioè
magari annullando le
stampe di altri utenti e inviandogli un messaggio, poi liberare la stampante
quando ho finito la mia stampa.....
grazie ciao.

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

Mi occorre discernere il caso di una stringa unica da una stringa con dei 
carriage return all'interni. Per intenderci una stringa creata con:
stringa:= 'una+chr(13)+'due';
Ho provato a individuare i caratteri #$D all'interno di stringa usando la 
funzione pos, ma non funziona (e gi� lo immaginavo). Come si f�?
Devo capire le dimensioni del pannello che mi servir� per visualizzare la 
stringa a video e quindi devo sapere la lunghezza della stringa + lunga e il 
numero di stringhe di cui � formata la var stringa. 

 ha scritto nel messaggio 
news:4b3cc752$0$1124$4faf...@reader3.news.tin.it...


 lunga e il numero di stringhe di cui � formata la var stringa.
Se non ricordo male, esistono delle funzioni API che sono in grado di 
fornirti "informazioni metriche" sulla lunghezza delle stringhe, 
supportando anche il multilinea attraverso specifici flag.
Prova a fare una ricerca su MSDN.
Ciao,
   Marco.
-- 
MARCO BREVEGLIERI
  (
http://www.marco.breveglieri.name
)
Newsgroup: it.comp.lang.delphi
Titolo: ShellExecute

Ciao,
 Lo so che questo comando è stato protagonista di molti messaggio su questo
newsgroup ma non sono riuscito a trovare una soluzione da solo...
E' possibile ottenere l'hwnd di una finestra che ho lanciato con
shellexecute?
Ho provato con GetWindow(h,GW_HWNDNEXT) e GetWindow(h,GW_HWNDPREV) ma il
risultato ovviamente è un pò alleatorio.
Ho provato con FindWindow, ma il problema è che non ho la possibilità di
sapere il nome della finestra o il nome della sua classe.
Grazie per l'aiuto.

 wrote in message
8f695a$2mh$1...@serv1.iunet.it...


Newsgroup: it.comp.lang.delphi
Titolo: IB - Aggiungere un utente

Scusate se la domanda per qualcuno può essere banale; come faccio ad aggiungere un user ad un database IB da programma....
Grazie 
Votantonio
------------------------------------------------------------------------
Questo messaggio e' stato inviato tramite i Newsgroup di Punto
http://www.punto.it
------------------------------------------------------------------------


Guarda i componenti Interbase Admin ce n'è uno che si chiama IBSecurityService, sull'help trovi anche un esempio.
Max

Mi puoi dare l'indirizzo dove poter trovare questi componenti.
Ps. Io uso Delphi 3. Comunque Grazie
 Votantonio

Newsgroup: it.comp.lang.delphi
Titolo: aiuto!!! rischio esaurimento!!!

ciao a tutti
vi sottopongo un problema che mi stà facendo perdere il sonno da svariato
tempo!!!
mi stò facendo un programmino per archiviarmi i miei CD
ho l'archivio autori (.dbf) e l'archivio cd (.dbf) collegato al primo
tramite un campo codice
scelto l'autore visualizzo i titoli relativi in una dbgrid che visualizza
una query
select * from cd.dbf where codice=3  (3 --> codice corrispondente
all'autore)
dalla dbgrid cancello un record (tquery.delete) e subito mi scompare dalla
griglia
poi se entro e riesco mi fa rivedere il record che avevo cancellato!!!!!
e io perdo il sonno!!!
morale della favola vi è capitato di cancellare dei record da una query che
in realtà poi non vengono cancellati veramente?
grazie per la collaborazione e Buon Natale a tutti
ciao Pier

Ciao,
ma usi BDE o ADO?
Se usi ADO controlla di avere aggiornato il recordset altrimenti
l'eliminazione potrebbe essere ancora nella cache e non ancora effettiva.
Comunque con ADO ti consiglio (anche se alcuni mi sputeranno) di usare un
ADOCommand per eliminare record utilizzando direttamente l'istruzione SQL
"DELETE".
Una volta lanciato l'execute i record corrispondenti alla clausola WHERE
saranno direttamente eliminati.
Con BDE non sono abbastanza esperto per poterti dare un aiuto affidabile.
Ciao,
Alessandro

 poi se entro e riesco mi fa rivedere il record che avevo cancellato!!!!!
hai provato a mettere la proprieta' RequestLive di TQuery a true?
Ciao,
Alan Solo

Newsgroup: it.comp.lang.delphi
Titolo: Database in memoria

Esiste la possibilita' di gestire tramite DBExpress o altri componenti un
archivio di dati con procedure simili ad un normale database, ma tenendo
tutti i dati in memoria senza leggere o scrivere nulla su disco? Mi sembra
di aver letto qualcosa di simile qualche tempo fa, solo che non ricordo a
quali componenti faceva riferimento la documentazione.
Grazie mille.

tutti i dati in memoria senza leggere o scrivere nulla su disco? 
CLientDataset, nel tab "Data Access" della component palette.
Ciao
Morde
Newsgroup: it.comp.lang.delphi
Titolo: è possibile che gli oggetti ZEOS.....

Saluti a tutti,
ho una rognetta da risolvere che mi porto dietro da due mesi.
Ho fatto controlli su controlli ma non ne esco.
Allora D7 Zeos Lib 6.1.5 MySql 4.0.24 Indy 9.1.18
Ho fatto ricerche nel codice per vedere se esistono dei free o destroy 
degli ZQuery ma nulla.
Cosa succede ? ogni tanto, in qualche modo che non sono riuscito a 
ricreare uno di questi oggetti ZQuery diventa nil ma nessuno glielo ha 
ordinato, generando degli Access Violation che bloccano il programma.
Ho messo try except ovunque con tanto di procedurina che scrive in un 
log l'errore e quando si è verificato ma nonostante ciò non mi serve a 
niente perchè ancora non sono riuscito a trovare il momento esatto in 
cui viene impostato l'oggetto a nil (cosa che io mi guardo bene dal fare 
a mano lascio a Delphi ed al garbage collector di fare ciò).
A qualcuno è capitata una situazione del genere ? senza particolare motivo ?
Il mio codice lo rivisto un milione di volte e mi parrebbe senza bachi 
ma adesso sono completamente nel pallone.
Daniele

 a mano lascio a Delphi ed al garbage collector di fare ciò).
Mi sa che devi STUDIARE UN PO, xche DELPHI7 NON HA IL GARBAGE
COLLECTOR.
Quindi, se un oggetto ha un owner, e' l'owner che provvedere a chiamare
free/destroy degli oggetti di cui e' proprietario.
Viceversa, una tstringlist se non la distruggi TU resta li fino alla
chiusura della applicazione e finche' essa gira cea quella bella cosa
genericamente definita memory leak.
delphi non funziona come vb6 (grazie al cielo!) mente per cio che
riguarda .net il GC e' implementato non a livello di LINGUAGGIO ma a
livello di FRAMEWORK.
Ma nonostante questo, esiste cmq l'interfaccia IDisposable implementata
da molte classi del framework, che contiene il metodo Dispose che e' la
cosa + vicina ad una "free" che esiste in .net.
Meditate gente, meditate...
A.
Newsgroup: it.comp.lang.delphi
Titolo: Alternativa ad InstallShield

Ragazzuoli esiste una valida alternativa ad InstallShield che viene fornita
con Delphi?
Magari freeware...
Massimiliano Etere
maxe...@infinito.it

 ha scritto nel messaggio
news:1cNs7.60670$P04.5...@news2.tin.it...

innosetup. free e con codice sorgente (delphi) :-)
ciao
giuliano

non vorrei sembrare quello che vuole la pappa pronta ma...
saresti cosi' gentile da darmi un link x scaricarlo? :)
thanx! 
Leo :)

 Magari freeware...
InnoSetup: notevole (anche + veloce di IS per cose che non richiedono il
BDE)
http://www.jrsoftware.org/
Saluti
Paolo Arosio

http://www.jrsoftware.org/
Massimiliano

Newsgroup: it.comp.lang.delphi
Titolo: [OT] Client FTP creato con Indy 10

Scusate l'ot ma ho la necessità di usare un client ftp creato con Indy 
10 ma non ho il tempo materiale per crearne uno decente.
Il motivo è semplice.. da due giorni se si accede su ftp di alice non 
viene mostrato nessun file o direttorio anche se vi sono sia file che 
cartelle (il perche' non lo so ma ho provato con una decina di client 
ftp), ho notato, pero', che collegandomi con un applicativo che fa uso 
dei componenti indy versione 10 tutto funziona a meraviglia. Dato che 
devo assolutamente terminare un lavoro per mercoledi' e non ho tempo di 
crearmi un gestore di ftp decente (lista/creazione/rimozione/rinomina 
direttori, upload/download/rimozione/rinomina file, gestione drag and 
drop, eccetera) chiedevo se qualcuno conosce un applicativo del genere. 
Non importa se free/con sorgente/o a pagamento, l'importante che sia 
disponibile.
Grazie a tutti,
David

 disponibile.
Hai provato a dare un'occhiata su sourceforge? Se non sbaglio dovrebbe
esserci qualcosa del genere.
Acqua
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

Già provato ma non ho trovato nulla

 Già provato ma non ho trovato nulla
FileZilla neanche ?
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

no. E fidati che ne ho provati tanti.
Il problema č questo..
mettiamo che nel server vi sia una cartella di nome Pippo (che fantasia č)
A seconda del client ftp o non viene visualizzato nulla (filezilla, 
cuteftp, IE) o si visualizza il nome ma identificato come file (free 
ftp, ftp explorer) oppure viene visualizzato il nome della directory 
come attributo della directori padre.
Insomma un casino. Ma, come dicevo precedentemente, con un applicativo 
creato con Indy 10 (l'esempio preso dal sito stesso) tutto funzona 
correttamente - misteri di Alice -

 viene mostrato nessun file o direttorio anche se vi sono sia file che
Usi Alice??? brrrrrrrrrrrrrrrrrrrrrrrrrrrrr ;-P
A.

Non è mio è di una parte della ditta.
Ps. lo so che è una cac..ta ma che ci posso fare?
Newsgroup: it.comp.lang.delphi
Titolo: Comando "pos" ma da destra

Ma esiste in Delphi il comando "pos" che ricerca però la posizione
partendo dalla fine di una stringa e non dall'inizio?
O (se non esistesse) qualcuno ha mai programmato qualche funzione che
esegua tale compito e può gentilmente postarla? Grazie
Ciao
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 esegua tale compito e può gentilmente postarla? Grazie
un vero programmatore non chiede mai la pappa pronta. Vergogna! :)
Ciao, Sandro

 un vero programmatore non chiede mai la pappa pronta. Vergogna! :)
A volte mi chiedo a che servono i ng!  :)
Comunque ok: me la faccio e poi la posto io... tič!   ;)


 esegua tale compito e può gentilmente postarla? Grazie
Guarda il sorgente di getlastdelimiters (o qualcosa del genere...) e vedi se
ti può dare spunto per qualcosa
Ciao
Matteo

 esegua tale compito e può gentilmente postarla? Grazie
Pos e' una funzione (non un comando). Direi comunque che dovrebbe essere
sufficiente invertire la stringa in cui fare la ricerca, invertire la
stringa da cercare e usare pos.
Alternativamente, direi che si potrebbe usare SearchBuf.
Se invece sarai cosi' gentile da scrivere una PosFromRight e renderla
pubblica ne saremo tutti felici.
Saluti
Paolo Arosio
-- 
"La dimostrazione dell'esistenza di specie intelligenti nell'universo
 e' che non ci vengono a trovare"

esegua tale compito e può gentilmente postarla? Grazie
Nelle JCL c'è (JCLStrings.pas)  si chiama StrLastPos.
Poichè non so se il mozilla permetta di fare un copia  e incolla di
porzioni di codice, evito di postarla ;-)
-- 
"La velocità luce non è sufficiente Comandante Nunziatella, 
dobbiamo passare alla velocità smodata!"

 stringa da cercare e usare pos.
StrUtils.ReverseString
-- 
Mauro Falzari 
   [ 
http://digilander.libero.it/mauro.falzari
 ]
 
 "Se guardi nell'abisso, anche l'abisso guarda in te." 
   (Friedrich Nietzsche)

Fatta in 2 minuti (non č il massimo ed č ottimizzabilissima)
Function PosFromLast(Const CosaCercare, DoveCercare : String) : Integer;
Var
  S, S1 : String;
  OK    : Boolean;
  N, D  : Integer;
Begin
  Result := 0;
  S      := DoveCercare;
  Ok     := True;
  N      := 0;
  While Ok Do
        Begin
          N  := Pos(CosaCercare, S);
          Ok := (N > 0);
          If Ok Then
             Begin
               Result := N;
               S1     := '';
               For D := 1 To N+Length(CosaCercare)-1 Do S1 := S1+#255;
               Delete(S, 1, N+Length(CosaCercare)-1);
               S := S1+S;
             End;
        End;
End;
--
Ciao,
David (
www.utilityweb.net
)
Newsgroup: it.comp.lang.delphi
Titolo: consiglio su tool di stampa

salve a tutti,
volevo sapere se esiste un tool di reporting free per Delphi 2006
e in caso contrario quale mi consigliate tra quelli a pagamento.
Non mi servono strumenti troppo sofisticati,
un modello base andrebbe benissimo.
grazie
Luca

cicogna ha scritto:

io un occhio al freereport lo darei.. magari hanno una versione x
d2006..
solo, visto che d2006 va sia su win32 che su .net sarebbe il caso di
iniziare a indicare anche su quale piattaforma si sta lavorando.
A.

 un modello base andrebbe benissimo.
Sarò l'unico che usa ancora *FuzzyReport*? :-)
A livello commerciale, in questo gruppo si è parlato spesso bene di 
*ReportBuilder* (
http://www.digital-metaphors.com
), anche se non l'ho 
mai utilizzato personalmente.
Ciao,
   Marco.
-- 
MARCO BREVEGLIERI
  (
http://www.marco.breveglieri.name
)
     Non hai la possibilità di scaricare Turbo Delphi Explorer?
     Te lo spedisco io!! [
http://www.marco.breveglieri.name/?p=48
]

cicogna ha scritto:

Rimanendo nel settore free puoi provare anche Report Manager,
http://reportman.sourceforge.net
.
Io per il momento ho fatto solo piccole cose ma mi è sembrato uno
strumento niente male

> Sarò l'unico che usa ancora *FuzzyReport*? :-)
Marco, scusa, tu non usavi con ENORME SODDIFAZIONE,
QUASI A LIVELLO DI LIBIDINE SESSUALE, Rave??? ;-P
A.


No, ci sono anch'io, anche se Fabio Dell'Aria ( l'autore ) non si sente
più, peccato.
Ciao da Enrico Giudici c/o Icograf
--- posted by geoForum on 
http://www.delphiedintorni.it

 
hai ragione: win 32
vagando su internet l'unico free mi e' sembrato fuzzyreport
certo che se non e' piu' mantenuto non mi sembra la scelta migliore...

 certo che se non e' piu' mantenuto non mi sembra la scelta migliore...
ma esiste anche freereport...
A.

 
grazie mille, lo provero'
ciao
Luca

adesso che mi viene in mente, mi sembra che qualche tempo fa
girasse un tool di stampa che prevedeva di creare un
file rtf con dei campi che venivano valorizzati da data set o altro.
Ma forse mi sono bevuto il cervello...

 
si ma sono andato su
http://freereport.sourceforge.net/en/
e sembra fermo al 2002!


ciao,
il componente a cui fai riferimento credo TekRTF che trovi a questo 
indirizzo:
http://ekrtf.code.net.ru/
Io lo uso ormai da due anni e ho potuto fare tutte le stampe che 
desidero (stampe ad uso interno, stampe di fatture e stampe fiscali).
L'unica cosa che credo manchi rispetto ad altri tool come FastReport è 
la possibilità di utilizzare l'inheritance nei report.
Saluti
Alex Pileci.

 
e' proprio lui!... grazie mille
Newsgroup: it.comp.lang.delphi
Titolo: Sempre Canvas..Canvas

Qualcuno potrebbe controllare come mai con queste righe non riesco a
visualizzare il Canvase dell'oggetto TPrinter?
      with oPrinter do
      begin
            oPrinter.Canvas.Font.Size:= 8;
            oPrinter.Canvas.Font.Color:= clBlack;
            oPrinter.Canvas.TextOut(0, iIntL, IntToStr(otbanca.codice));
            ..............
            oImage:= TImage.Create(nil);
            oImage.Width:= oPrinter.PageWidth;
            oImage.Height:= oPrinter.PageHeight;
            oImage.Canvas.CopyRect(oImage.ClientRect, oPrinter.Canvas,
Rect(0, 0, oPrinter.PageWidth, oPrinter.PageHeight));
            Image1.Canvas.StretchDraw(Image1.ClientRect,
oImage.Picture.Graphic);
end;
Praticamente una volta creato il Canvas dell'oggetto TPrinter assegno il suo
contenuto al canvas di un oggetto image creato
internamente(senza disegnarlo) settando le sue dimensioni quanto quelle del
canvas originario.
Infine assegno il tutto all'oggetto Image1 disegnato sulla maschera
resettando il formato in base alle sue dimensioni.
Come mai vedo ancora l'oggetto Image1 vuoto? Eppure credo che questa
soluzione sia corretta e soprattutto l'unica se non sbaglio!
Grazie.

 ha scritto nel messaggio
news:aprrgm$3ts7f$1...@ID-134361.news.dfncis.de...


Newsgroup: it.comp.lang.delphi
Titolo: Gestione di click di link html su delphi

Ciao a tutti,
la domanda è un pò contorta quindi cercherò di spiegarmi il meglio
possibile.
Ho un html che leggo con un'applicazione scritta in delphi.
É possibile, a livello della mia applicazione, intercettare un click
su un link href specifico per poi far fare alla mia applicazione
qualcosa di determinato? (lanciare un'altra applicazione oppure una
finestra di dialogo)
Se qualcuno sa qualcosa, mi può dare delle dritte è ben accetto
Grazie e ciao a tutti

 finestra di dialogo)
Dipende da come lo "leggi": sei stato piuttosto vago ...
Usi il componente TWebBrowser? Guarda l'evento OnBeforeNavigate2:
< cit. dall'help >
Write an OnBeforeNavigate2 event handler to redirect or cancel a change to a 
different URL. This event may occur as the result of a call to the Navigate 
or Navigate2 method, or the user clicking a link.
< fine cit. >
Sei lo "leggi" in qualche altra maniera, potrebbe esserci un evento 
specifico che si scatena quando viene cliccato il link.
Ciao
ACSH
-- 
Il più grande sbaglio nel progettare software
a prova di stupido è sottostimare l'enorme
ingegnosità degli stupidi. 

si uso il controllo TWebBrowser.
Allora controllo l'evento sull'help e faccio qualche prova
Grazie dell'aiuto!
Newsgroup: it.comp.lang.delphi
Titolo: ComboBox a colonne!

E' possibile far contenere ad una combobox una listview in modo tale che sia
possibile passare un vettore e quindi la combo potrà essere gestita a
colonne?
Avete qualche altra idea per poter trasformare una combobox semplice a
combobox a colonne?
Grazie.

 ha scritto nel messaggio
news:ad8282$nh7e5$1...@ID-134361.news.dfncis.de...

Secondo me dovresti gestire il tutto con un metodo alternativo.
Tipo un finto combobox che, alla pressione di un tasto, ti mostra un'altra form con la
listview.
Non credo che esista un modo "standard" per fare come dici tu.
__
Jax

"nek2000" ha scritto nel messaggio
| Avete qualche altra idea per poter trasformare una combobox semplice a
| combobox a colonne?
|
Io uso il componente TColumnComboBox
trovato a questo indirizzo
http://www.tmssoftware.com/colcombo.htm
Free per usi non commerciali.
--
Ciao.
ACSH
[D4]
---------------------------
Chi fa da se'
fatica il doppio

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

Vorrei, all'interno della mia applicazione in Delphi, consentire tramite un
pulsante l'avvio automatico
di Outlook Express e della finestra Nuovo Messaggio, passandogli come
parametro una stringa (ricavata
da un componente Edit) che vada a riempire la voce Destinatario.
Qualcuno puņ aiutarmi??
Grazie
Val

 ha scritto nel messaggio
news:8v3113$mf$1...@nslave2.tin.it...

uses
  ShellApi;
.
.
.
procedure TForm1.Button1Click(Sender: TObject);
var
  Dest:string;
begin
  Dest:= edit1.text;
  ShellExecute(Handle,'OPEN',PChar('mailto:'+ Dest +'?subject=messaggio di
prova '),nil,nil,SW_NORMAL);
end;
ps se hai Outlook Expres come gestore di default funziona!
ciao
gabriele
Newsgroup: it.comp.lang.delphi
Titolo: Very OffTopic. La giustizia italiana,

Scusate l'OT, ma sono troppo curioso di sondare le idee politiche degli
amici (questo è il mio ng preferito) programmatori in Object Pascal.
Giovanni Brusca, il mafioso reo confesso di aver premuto il pulsante per
l'esplosione della bomba che uccise il giudice Falcone, ora per la legge
italiana risulta un pentito, e quindi ha la scorta privata e un cospicuo
assegno di mantenimento pagato dallo stato italiano.
Cosa ne pensate?
procedure AndJusticeForAll(GBrusca: TMafia);
begin
    if GBrusca.NotGuilty then
        GBrusca.Free
    else
        GBrusca.Pay;
end;
Mario
---------------------------------------
MBSoftware
http://web.tiscalinet.it/mbsoftware
Metallikop rules the world
----
The ultimate in vanity
Exploiting their supremacy
I can't believe the things you say
I can't believe the price we pay
Nothing can save us
Justice is lost
Justice is raped
Justice is gone.
----
James Hatfield (Metallica).
---------------------------------------

Perfavore non mettiamoci a parlare di mafia e politica anche qui!!
--
- Carlo -
BSSoftware Tips Mailing-List Support
PS : Però mi stai simpatico per il nome che hai dato alla procedure e per il
"James Hatfield"

 "James Hatfield"
Bè, mi piace sapere che ci sono altri "metallers" che programmano!
Hai visto il casino di risposte in it.arti.musica.metal ? ehehehe....
Ciao ciao.
Mario
---------------------------------------
MBSoftware
http://web.tiscalinet.it/mbsoftware
Metallikop rules the world
---------------------------------------

 Hai visto il casino di risposte in it.arti.musica.metal ? ehehehe....
Ehi, Ehi ci sono anchi'io che amo il metal!!!!!

Newsgroup: it.comp.lang.delphi
Titolo: Delphi 6 ?

Quando uscira' ?
Supportera' i componenti di windows 2000 ?
ZAVA

> Quando uscira' ?
Premetto che non ne ho sentito ancora nulla, ma la Inprise ha in progetto
l'uscita di una nuova versione ogni 12 mesi, quindi presumibilmente intorno
a fine agosto 2000.
Ciao, Sandro
Newsgroup: it.comp.lang.delphi
Titolo: Idee x sequenzializzazione richieste

Anche questo è lunghetto... :/
Allora, ho implementato un semplice http server che dialoga con BizTalk
server della Miciosoft....
Come funziona :
BizTalk spedisce delle richieste SOAP (cioè dei messaggi XML in un envelope
SOAP) sulla porta 80 del mio serverino, e io devo rispondere in questo modo
:
come response mando un 202 accepted e poi mi scorro l'XML e ne riproduco uno
nuovo da spedire ad una loro pagina ASP.
Fin qui tutto ok e quanto vi ho detto è solo un preambolo per farvi capire
quello che succede.
Il problema è questo :
Al momento in cui arriva una richiesta io devo :
- fare un log
- salvarla in un file XML
- farne il parse
- creare un nuovo XML e rispedirlo
ed essendo la macchina su cui gira il mio programma un serverino molto
vecchio che sta tirando gli ultimi respiri....
quando dall'altra parte spediscono grossi volumi di richieste in una breve
unità di tempo si intreccia tutto :(((
il pgm manda più o  meno risposte del necessario... le sovrappone
temporalmente etc..
Ora, io ho provato a diminuire i tempi di elaborazione delle varie
operazioni non scrivendo il log su file, ma mantenendolo in memoria e
flushandolo solo in determinati momenti, affidando le operazioni di parsing,
creazione e salvataggio a dei thread... ma la cosa, seppur migliorata, non è
risolta.
Avevo quindi pensato di creare una struttura FIFO all'interno della quale
sequenzializzare le richieste e processarle in maniera ordinata e
sequenziale con comodo.
Vorrei quindi chiedervi suggerimenti in merito a che strutture dati
utilizzare per implementare questa struttura, pensando che la richiesta che
arriva io la posso ridurre ad una grossa stringa.
Grazie mille per l'attenzione!!!!
CIAOUX

 arriva io la posso ridurre ad una grossa stringa.
David, posta un po' di codice così magari si da bene un occhiata per bene.
Infine, hai verificato che il problema sia effettivamente causato dalla
lentezza del server e non da qualche "anomalia" del software? La hai provata
su un altra macchina? Programmando con i thread ne ho viste talmente tante
... :-)
Ciao!
--
- Carlo -
Newsgroup: it.comp.lang.delphi
Titolo: D7 Findwindow

Ho la necessitą di passare da una applicazione all'altra (tutte e due fatte 
da me in D7).
Una č fatta solo da una form principale (vendita) , l'altra applicazione č 
un gestionale.
Dal gestionale trovo l'handle della prima applicazione e faccio un bel 
setforegroundwindow, ma per l'applicazione gestionale dovrei trovare la 
maschera aperta in quel momento (sempre modal), altrimenti mi riapre la main 
e non la form modal aperta.
Esiste un modo per dare il focus all'applicazione e non ad una form in 
particolare ?.
Tra le altre cose uso anche un mutex all'avvio per evitare istanze multiple, 
puņ servire ?
Spero di essermi spiegato, e nel frattempo continuo a googlare.... :-)
Grazie, Giulio

 Grazie, Giulio
Nel primo applicativo scrivi:
     hWndC := SendMessage(HandleGestionale,MsgHndInfo,0,0);
//MsgHndInfo è un messaggio registrato-
     if (hWndC = 0) then
       hWndC := GetLastActivePopup(HandleGestionale);
     SetForeGroundWindow(hWndC);
Nel MainForm del gestionale metti la WndProc:
procedure TFormGestionale.WndProc(var TheMsg: TMessage);
begin
   if (TheMsg.Msg = MsgHndInfo) then begin
       if (Handle <> Screen.ActiveForm.Handle) then
         TheMsg.Result := Screen.ActiveForm.Handle
       else
         TheMsg.Result := GetLastActivePopup(Application.Handle);
     Exit; //!!! senza questo exit, non funziona !!!
   end;//if
//--------
   inherited;
end;//WndProc
Spero ti funzioni (dovrebbe funzionare anche con le finestre di
dialogo).
Ciao, Massimo.

Newsgroup: it.comp.lang.delphi
Titolo: Si puo' sviluppare per iPhone 3.x usando Lazarus ?

Ciao
Si puo' sviluppare per iPhone usando Lazarus ?
->  iPhone OS 3.X   <-
ho guardato il loro sito ma non capisco se lo fa o no -.-


Non me ne intendo ma ho letto proprio pochi giorni fa che per
sviluppare per iPhone è necessario usare un ambiente free della apple
con tanto di runtime e IDE.
Non ricordo il nome ma sia l'ambiente che l'IDE girano solo su Mac.
Molti comprano un MAC base che, pare, sia piu' che sufficiente per
questo IDE e runtime, e lo usano per sviluppare su iPhone.
Gianpiero

Il 28/12/2009, Mauro Lucchi ha detto :

Io non l'ho mai fatto, perï¿œ il 1ï¿œ gennaio ï¿œ uscita la nuova versione 
del compilatore Free Pascal (2.4.0).
Qui 
http://www.freepascal.org/
 tra le novitï¿œ della nuova versione dice 
che l'iPhone ï¿œ tra le nuove piattaforme supportate.
Ti conviene provare a chiedere o fare qualche ricerca sul forum 
ufficiale di Lazarus 
http://forum.lazarus.freepascal.org/
 (in inglese) 
o sul NG di Lazarus it-alt.comp.lang.lazarus (in italiano).
Ciao, Mario
Newsgroup: it.comp.lang.delphi
Titolo: Valori predefiniti nella dichiarazione di funzioni

Ciao a tutti, qual'è la sintassi per impostare un valore di ritorno
predefinito nella dichiarazione di una funzione?
Esempio:
ho una funzione che itera un array di record(nodes) alla ricerca dell'ip
passato per parametro (IpAddr), e mi restituisce l'indice della cella che lo
contiene.
function get_index_by_ip(var IpAddr : ShortString) : Integer;
var
    i : Integer;
begin
    for i := 0 to High(nodes) do
        begin
            if nodes[i].Address = IpAddr then
                begin
                    Result := i;
                    Exit;
            end;
    end;
end;
Ora, volevo impostare il valore di ritorno predefinito a -1, in modo che se
non trova la corrispondenza me ne accorgo.
Idee?
Grazie in anticipo

 Idee?
Ti basta assegnare il valore -1 all'inizio del corpo della funzione, 
prima di eseguire il ciclo.
-- 
Marco «Alka» Breveglieri
  ABLS Team S.n.c. - Software & Web
  Via De Gasperi, 14
  42019 Scandiano (Reggio Emilia)
 
http://www.abls.it

 function get_index_by_ip(var IpAddr : ShortString) : Integer;
Come mai usi un parametro var? Non mi sembra necessario, in questo caso.
-- 
Jax
====
Potete visitare tutta la Terra, ma non troverete in alcun luogo la vera
religione. Essa non esiste che nel vostro cuore.

Newsgroup: it.comp.lang.delphi
Titolo: orologio di windows 2

si.. la rispota che mi ha dato Sandro mi fà apparire la data
e l'ora ma forse non mi sono spiegato io vorrei che l'ora venisse aggiornata
ogni secondo ..cioè mettere l'orologio sul programma
cmq grazie.. non mi dipiace sapere anche quello
per quanto riguarda il registro mi basta solo imparare ad eliminare una
chiave usare l'help vuol dire sapere l'inglese io pultroppo non so
erik

 ogni secondo ..cioč mettere l'orologio sul programma
metti un timer (Ttimer) e nell'evento timer1.timer mettici lo stesso che ha
scritto ovvero label1.caption:=datetimetostr(now);
ciao
p.s. non aprire nuovi thread per le risposte

 erik
Purtroppo se intendi programmare un po' di inglese di tocchera' impararlo
(non e' poi cosi' difficile).
Cigno