mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.delphi
Titolo: AdjustTokenPrivileges()

Non riesco a settare (non ho idea di come fare, visto che l'help non č molto
esauriente) per settare i privilegi al mio programma di usare un'api
qualsiasi (ExitWindowsEx() o InitiateSystemShutdown() ) per resettare il pc
con un os con kernel NT...
mi potete aiutare?
grazie 1000

in particolare ho anche seguito questo esempio:
http://www.bhnet.com.br/~simonet/tipstricks/exitwindowsnt.htm
ho copiato ed incollato nel mio prog la funzione ExitWindowsNT e compilato,
ma mi restituisce quest'errore:
[Error] Unit1.pas(67): There is no overloaded version of
'AdjustTokenPrivileges' that can be called with these arguments
la riga incriminata è questa:
  AdjustTokenPrivileges(hToken, false, tkp, sizeof(tkDumb), tkDumb,
DumbInt);
a questo punto mi chiedo se windows XP non usi altri parametri per l'API
AdjustTokenPrivileges...
voi che dite?

Non esiste documentazione da parte di MS?
ma che cosa sto dicendo documentazione... se la M$ e buona a fare
qualcosa oltre ai bug non è certo la documentazione.... si tiene tutto
per se...
hai presente la FAT32 bit? beh vi do una brutta notizia ... non è a
32bit ma a 24 gli altri 8 bit non sono documentati (come al solito)
nessuno (aparte il creatore della FAT32) sa a cosa servono... tutto
questo per dire
vai sul sito della MS e cercarti le SDK di WindowsXP se le trovi
cercati quelle delle api... se le trovi cercati la funzione..
Il Razziatore,
The Only Good Windows in an uninstalled Windows
-----------------------------------------------
E-MAILs : IlRazziat...@NOSPAMnetscape.net
WEB     : 
http://www.razziatore.dns2go.com/
ICQ     : 67552596

nessuno (aparte il creatore della FAT32) sa a cosa servono... tutto
Curiosita': questa cosa dove l'hai letta ?
-- 
The Follet

The Follet
Me l'ha dello la prof. di sistemi... se voi gli chiedo dove la
saputo... se non mi spara :o)
cmq e vero che rispetto a linux, Windows e molto + chiuso come info


 cmq e vero che rispetto a linux, Windows e molto + chiuso come info
Te credo, Linux è Open Source ...
--
- Carlo -
c.b...@libero.it

saputo... se non mi spara :o)
Se puoi si', perche' mi puzza tanto di bufala.
-- 
The Follet


Si fa in fretta a scoprirlo: con 24 bit di mappa, si indirizzano al massimo
64GB di disco con cluster da 4kB, percui se qualcuno ha un disco di
dimensione superiore basta vedere la dimensione dei suoi cluster.
Ciaotutti,
*

Void ha scritto nel messaggio ...

Non conosco in particolare il metodo da te citato ma conosco l'errore.
I metodi overload sono quei metodi che hanno stesso nome ma ricevono una
lista di parametri diversa (da notare che il valore restituito rimane lo
stesso); quando viene visualizzato questo errore è perchè la lista di
parametri da te passata al metodo(nel tuo caso AdjustTokenPrivileges) è
diversa da quella del prototipo.
Ops rileggendo il tuo messaggio forse già te ne eri accorto, vabbè.
Neo
ICQ     :  146381266
Newsgroup: it.comp.lang.delphi
Titolo: Recuperare valore ID

Devo eseguire l'insert di un record in una tabella Interbase tramite una
query, come faccio a recuperare il valore della chiave primaria generato dal
trigger?
Ringrazio chi risponde.
Marco

Function OttieniIP : String;
var
  WSAData: TWSAData;
  HostName, IP: String;
  HostEnt: PHostEnt;
begin
  try
    WSAStartup(2,WSAData);
    SetLength(HostName,255);
    GetHostName(PChar(HostName),255);
    SetLength(HostName,StrLen(PChar(HostName)));
    HostEnt:=GetHostByName(PChar(HostName));
    with HostEnt^ do
       Result:=Format('%d.%d.%d.%d',
                     [Byte(h_addr^[0]),
                      Byte(h_addr^[1]),
                      Byte(h_addr^[2]),
                      Byte(h_addr^[3])]);
    WSACleanup;
  except
  MessageDlg('Impossibile rilevare indirizzo IP', mtError, [mbOK], 0);
  end;
end;

 dal trigger? Ringrazio chi risponde.
intendi dire il valore del generatore?
lo puoi fare in vari modi, ad es.
select gen_id(NomeGeneratore, 0) from RDB$DATABASE
Ciao,
Alan Solo

[...]
gulp! 8)

Newsgroup: it.comp.lang.delphi
Titolo: Leggere e modificare le impostazioni della scheda di rete

Ciao a tutti, cercavo un componente per D6 per interrogare la scehda di 
rete e modifcarne i parametri. Ho provato su torry ma non c'è niente 
che mi possa servire.
Qualche suggerimento??
Grazie.

 di rete e modifcarne i parametri.
Un po' troppo generico...
Vuoi leggere e modificare le proprietà della scheda di rete (mac address) o
del tcp/ip?
-- 
Jax
====
Preso nel suo complesso, il mondo è un mostro pieno di pregiudizi,
affardellato di preconcetti, corrotto dalle cosiddette virtù; esso è un
puritano e un fatuo. Il segreto della vita è l'arte di sfidarlo.
Sfidare il mondo - ecco quale dovrebbe essere il nostro scopo, invece
di vivere per accondiscere alle sue pretese, come facciamo per lo più.

 
Hai ragione, intendevo le proprietà tcp-ip.

 rete e modifcarne i parametri. Ho provato su torry ma non c'č niente

Newsgroup: it.comp.lang.delphi
Titolo: non riesco a salvare il testo di un MEMO

Premetto di essere un neofita di Delphi e della OOP in genere, cmq il
mio problema è il seguente:
supponiamo di avere il seguente record:
nome,
cognome,
indirizzo : string[40];
telefono: string[20];
.....
.....
.....
commento : ? ? ? ? ?;
il campo commento deve contenere il testo che l'utente inserisce in
una memo presente nella form, il mio problema è
1) stabilire il tipo di dato da utilizzare per definire il campo memo
2) come estrarre il valore del memo e memorizzarlo in tale campo
Avevo pensato ad un array dinamico di byte o char ma non riesco a
gestire entrambi i punti descritti sopra.
Spero di essere stato abbastanza chiaro e spero che qulcuno di Voi mi
possa aiutare
Grazie, Soucer.

una memo presente nella form, il mio problema è
String
Ogni TMemo contiene una proprieta' Text che ti restituisce
il testo come stringa.
-- 
Andrea Laforgia (
walkie...@libero.it
)
"Usenet is a strange place" [Dennis Ritchie]

 il testo come stringa.
Si però se poi prova a salvare il recosd su un file Delphi se la prende a
male perché il tipo string non è terminato
Secondo me devi impostare la massima lunghezza del memo e poi definisci una
stringa lunga quanto il massimo memo che hai impostato

male perché il tipo string non č terminato
Che vuol dire "il tipo string non e' terminato" ??


>male perché il tipo string non è terminato
Infatti ho provato ad utilizzare la proprietà text del memo e a
definire il campo commento di tipo string ma sul file non mi viene
salvato niente.
Ora impostare il valore del campo di tipo string ad un valore
superiore a 255 caratteri è possibile?

 commento : ? ? ? ? ?;
 E provare ad assegnare:  commento:TMEMO
Saluti NEA;

 superiore a 255 caratteri è possibile?
No. per le stringhe non dinamiche la lunghezza massima è 255 caratteri.
Quelle dinamiche salvarle su file scrivendo il record (tipo blockwrite)
rischi di salvare delle cavolate...:)
ciao
Matteo



quindi come posso risolvere il problema di inserire il contenuto di un
MEMO in un record di mia creazione?

 ha scritto nel messaggio
news:a7s9s4$nlfjr$1...@ID-123015.news.dfncis.de...

Newsgroup: it.comp.lang.delphi
Titolo: Problema con TImageList

Abbiamo installato da un cliente un programma che in varie form prevede 
l'utilizzo del sopradetto componente.Il programma e' distribuito a circa
200 clienti ma stranamente solo dal sopradetto cliente e solo in una 
form che differisce di poco dalle altre va in errore (credo al momento 
della creazione).
L'errore e' il seguente:
Error reading imagelist1.bitmap: failed to read imagelist data from stream
Dato che non riesco a riprodurlo ho il dubbio che sia un problema del 
win98 del cliente.Avete suggerimenti su come indagare sia a livello di 
pc del cliente che a livello di codice sorgente?
Utilizzo delphi7 professional.
					Max

win98 del cliente.
Cosi' di primo acchito, ti direi che il problema e' sul modo di allocare la
memoria del S.O. Verifica in che modo viene impegnata (non tanto dal tuo prg
quanto dal cliente, cosa ci ha installato, standaolone, antivirus, ram
fisica,ecc..). Prova a fargli girare il programma in modalita' provvisoria.
Ciao
-- 
Morde. 
(morde at programmer dot net)

Newsgroup: it.comp.lang.delphi
Titolo: Bollini SIAE

Stralcio della legge 248/2000 sul Diritto d'Autore:
"il contrassegno, secondo modalità e nelle ipotesi previste nel regolamento
di cui al comma 4, che tiene conto di apposite convenzioni stipulate tra la
SIAE e le categorie interessate, può non essere apposto sui supporti
contenenti programmi per elaboratore disciplinati dal decreto legislativo 29
dicembre 1992, n. 518, utilizzati esclusivamente mediante elaboratore
elettronico, sempre che tali programmi non contengano suoni, voci o sequenze
di immagini in movimento tali da costituire opere fonografiche,
cinematografiche o audiovisive intere, non realizzate espressamente per il
programma per elaboratore, ovvero loro brani o parti eccedenti il cinquanta
per cento dell'opera intera da cui sono tratti, che diano luogo a
concorrenza all'utilizzazione economica delle opere medesime. In tali
ipotesi la legittimità dei prodotti, anche ai fini della tutela penale di
cui all'articolo 171-bis, è comprovata da apposite dichiarazioni
identificative che produttori e importatori preventivamente rendono alla
SIAE."
chi produce software personalizzato dunque, senza materiale multimediale
all'interno, dovrebbe essere esentato dal bollino, salvo fornire
dichiarazione preventiva alla Siae.
Voi ne sapete qualcosa di piu'? Chi di voi programma come si e' organizzato?
Ciao, Sandro

Ho eseguito tanti progrqammi ma solo 4 gli ho registrati alla SIAE
e con relativo bollino, che stando a loro non è obbligatorio.
E' sufficiente rilasciare copia del software compilato allegando un
contratto
d'uso dello stesso. Ma se vuoi registrarlo ti costa all'incirca 160K, in +
devi
inviare a Roma una copia su supporto CD. I bollini vengono all'incirca
100=20K
BY
Newsgroup: it.comp.lang.delphi
Titolo: How can I create multiple lines in a columnheader in a DBGrid?

How can I create multiple lines in a columnheader in a DBGrid?
Example:
In 3 Columns I want to display in the columnheader two lines:
line1: the name of the day 
line2: the hours of the day
In the following lines I want to display with an "x" the starting
hour of an event with an 'x'.
Dotted hours ( . ) are free.
 
Mon       |Tue       |Wed
9012345678
|
9012345678
|
9012345678
----------|----------|----------
..xx.xx...|...x.x....|.x.x.x.xx.
xx..xx..x.|....xx..x.|...x.x.x.x
...xx..x..|..x.x.....|..xx.x.x.x

This is a ITALIAN NG
Please, write in italian.
TIA
AS

Newsgroup: it.comp.lang.delphi
Titolo: D7 & DDP

esiste un modo per disabilitare la creazione dei file .ddp (credo siano 
delphi page). Io non le uso.
grazie

delphi page). Io non le uso.
DDP sta per Delphi Diagram Portfolio.  Sono file che dovrebbero essere
creati se hai dei diagrammi nei tuoi datamodule (Delphi ti consente di
costruirne), ma purtroppo apparentemente questi file vengono creati
anche quando non necessario.  AFAIK, non c'č modo di disabilitare la
loro creazione.

ok. grazie andrea, peccato infestano le mie dir...
Andrea Laforgia ha scritto:


 creati se hai dei diagrammi nei tuoi datamodule (Delphi ti consente di
Scusate se mi inserisco qui, ma ho un dubbio da tempo :
ma qualcuno di voi li usa questi diagrammi ? li trova utili ?
Io mi sono accorto che esistevano dopo piu' di un anno :)
-- 
===============================================================
Alberto Rubinelli - A2 SISTEMI  Opera 8.50
Via Costantino Perazzi 22 - 28100 NOVARA - ITALY
Tel 0321 640149  Fax 0321 391769 BBS 0321 392320
Mail: 
alb...@retrocomputing.net
  ICQ : 49872318
Skype : albertorubinelli
Visita il mio museo di computers - Visit my old computers museum
 
http://www.oldcomputers.it
---------------------------------------------------------------

 ma qualcuno di voi li usa questi diagrammi ? li trova utili ?
Io li ho usati una volta, sono utili per documentare, anche se penso sia 
giusto soppiantarli - come è stato fatto - con una soluzione basata su 
linguaggio UML quale è - nel caso di Delphi - *Together*.
Ciao,
   Marco.
-- 
MARCO BREVEGLIERI
  (
http://www.marco.breveglieri.name
)
Newsgroup: it.comp.lang.delphi
Titolo: Info

È possibile che il mio programma faccia partire un programma in dos, senza 
mostrarne la finestra di prompt, e di riceverne aggiornamenti sul progresso 
(come penso faccia Lame nella comversione dei Wave a Mp3)?
Grazie, Poochie
-- 
PowerNews

 progresso (come penso faccia Lame nella comversione dei Wave a Mp3)?
Se questo programma ha un output potresti provare a processarlo per 
ricavarne informazioni sullo stato del programma (perchè è questo che 
credo tu intenda!).

 Come si fa ha rilevare l'output di un programma per console???
Magari attraverso stdin o stdout ma tutto dipende dalla natura 
dell'applicazione della quale vogliamo processare l'output.

Come si fa ha rilevare l'output di un programma per console???
Cerca nei vecchi messaggi, c'e` un esempio.

:'( mi darņ alla ricerca...
Poochie (Powernews)
"Andrea Laforgia" <x@x.x> ha scritto nel messaggio
news:1aon1v4rsmkm34dl3...@4ax.com...


Non l'ho trovato :'(
"Andrea Laforgia" <x@x.x> ha scritto nel messaggio
news:1aon1v4rsmkm34dl3...@4ax.com...


Non l'ho trovato :'(
http://www.pre.demon.co.uk/downloads/console.zip
oppure
http://torry.net/vcl/edits/memos/tdosmemo.zip
   <-- In italiano
Tutti e due funzionanti con sorgenti.
Ciao!
Morde.
morde [at] programmer [.] net

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

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

suo lavoro! Come mai?
Mmmhh... hai studiato il programma? Presumo che tu ti stia riferendo al TDosMemo...
La tecnica del TDosMemo utilizza le pipe anonime per far coumincare il programma
delphi con il programma console (nel caso specifico il prompt del dos).
Devi far partire il tuo programma con la createprocess!
Se vuoi ti posto un tutorial sulle pipe anonime sotto winzozz.
Ciao


 >desidarato, ma il memo non si aggiorna piů e il processo non termina mai

Newsgroup: it.comp.lang.delphi
Titolo: caFree libera memoria ?

ho una Action la cui Execution è:
 if Not Assigned(Fgest_impianto) then
  begin
  Application.CreateForm(TFgest_impianto, Fgest_impianto);
  Fgest_impianto.AttivaXgestione;
  end;
Dove il Form è un MDIchild.
Al metodo OnClose di questo form ho impostato la action di chiusura a
caFree.
Ed in effetti credo che deallochi la finestra in quanto questa sparisce!
Però se eseguo nuovamente la action di cui sopra il test su Assigned(form)
fallisce ed infatti valutando in debugging la variabile Fgest_impianto
questa risiede ancora in memoria..
Allora caFree fa finta?
Alle prossime nomination faccio il suo nome! :)
buio

"buio":
| Al metodo OnClose di questo form ho impostato la action di chiusura a
| caFree.
| Ed in effetti credo che deallochi la finestra in quanto questa sparisce!
| Perņ se eseguo nuovamente la action di cui sopra il test su Assigned(form)
| fallisce ed infatti valutando in debugging la variabile Fgest_impianto
| questa risiede ancora in memoria..
prova a impostare la form a nil
form:=nil;
Assigned č una funzione che controlla solo quello,
resituisce false se il puntatore č nil, altimente true,
il free, libera la memoria ma lascia inalterato il puntatore
quindi ti restituisce true anche se č stata 'freeata'!
Ciao,
Alan Solo

 Allora caFree fa finta?
caFree chiude la form e libera la memoria. Ma non reimposta a nil la tua 
variabile che contiene ancora l'indirizzo della *defunta* form.
-- 
Roberto Lupi
http://www.ascu.it/~lupex/
Newsgroup: it.comp.lang.delphi
Titolo: AIUTO ! C.A.P. d'Italia

Qualcuno ha un programma o un database con i C.A.P. d'Italia ???

Qualcuno ha un programma o un database con i C.A.P. d'Italia ???
se mi scrivi in privato te lo mando.
Contiene molte città e comuni, anche se qualcuno (sperduto nell' italia) ho
notato che manca, al limite aggiorni il database tu !!
Io mi sono reso conto solo 3 giorni fa di avere quel database. Fa parte di
un altro programma quindi contiene un campo in più, ma non c'è nessun
problema di licenza.
Ti saluto......scrivimi !!!
Antonio Tarolla
BSSoftware Tips Mailing - List Support

 ha scritto nel messaggio
news:85332g$aau$1...@nslave1.tin.it...


Newsgroup: it.comp.lang.delphi
Titolo: ADOQuery che non filtra...

Salve!
Ho un quesito da proporvi...
Non riesco a filtrare con ADOQuery...
A video ho una bella tabella che visualizza tutto il contenuto di una 
tabella di un db di access, poi ho messo una bella tadoquery (collegata 
in modo corretto!!) ed un bel bottone che fï¿œ questo:
with ADOQuery do begin
   Close;
   SQL.Clear;
   SQL.Add('SELECT * FROM tblgenerale WHERE registrogenerale =' 
+quotedstr('126'));
   Open;
end;
Ma quando clicco il bottone,la tabella rimane popolata completamente...
Idee in merito?? non sï¿œ piï¿œ che fare!!!
PS: il campo registrogenerale ï¿œ di tipo stringa nel db,ï¿œ corretto 
mettere il quotedstr vero? ho provato anche senza ma il risultato non 
cambia :(
Grazie ancora per le eventuali dritte!!!

 Grazie ancora per le eventuali dritte!!!
HTH,
David


Grazie � quella

Newsgroup: it.comp.lang.delphi
Titolo: Copia Kylix2

Qualcuno mi potrebbe fornire una copia del Kylix 2 ver.Enterprise
naturalmente.
Spero che nessuno mi dica parolacce dopo questa richiesta! :-p
Grazie mille!
--
________________________________
Antonio Signoriello
Responsabile di Produzione Software
High Information Technology S.r.l.
Corso Aldo Moro 171/A
71042  Cerignola FG
Italy
Tel.   
+390885417950
Fax   
+390885417942
Cell.  +3903391199968
antonio_s...@hotmail.com
________________________________

 Spero che nessuno mi dica parolacce dopo questa richiesta! :-p
Se mi versi 1,899.00 euro sul mio conto, sarň ben felice di procurartene una
copia.
Almeno evita di scrivere dove lavori...
--
Jax
Newsgroup: it.comp.lang.delphi
Titolo: Caratteristiche computer

Come posso conoscere le caratteristiche (processore, RAM , Disco e chi più 
ne ha più ne metta) di un computer in rete attraverso l'IP o il nome con D5.
Grazie


JVCL.
Gugla.
Andrea

 ha scritto nel messaggio 
news:44bcd861$0$30145$4faf...@reader4.news.tin.it...

Installate ma non trovo nessun componente che faccia al caso mio...    :(

"Ulisse®" <uli...@iteca.el> ha scritto nel messaggio 
news:e9ia2u$esb$1...@balena.cs.interbusiness.it...

Per farlo in locale trovi vari componenti, tra google ed i vari siti Torry, 
Dsp,..
Per scambiarsi le informazioni ottenute via IP puoi usare qualunque 
componente socket in protocollo TCP/IP come gli Indy o i socket di Delphi 
(ScktComp.pas).
Giorgio 

TJvComputerInfoEx?
---
Ryo GQI 

 Installate ma non trovo nessun componente che faccia al caso mio...    :(
Cerca bene...
Andrea

 TJvComputerInfoEx?
Questo componente sembra funzionare solo per il computer locale.
Io ho bisogno di interrogare tutti gli IP della rete.
Grazie 

 Grazie 
D'oh!
Componenti Indy questi sconosciuti :)
Andrea

 ha scritto nel messaggio 
news:44be722f$0$30149$4faf...@reader4.news.tin.it...

Purtroppo sono veramente sconosciuti...
Come potrei sfruttarli? Qualche suggerimento dato che sono convinto che non 
ci sia un componente che mi risolve il problema ma sicuro devo sicuramente 
fare diverse operazioni.
Grazie 

"Ulisse®" <uli...@iteca.el> ha scritto nel messaggio 
news:e9ia2u$esb$1...@balena.cs.interbusiness.it...

Aggiungo altra carne al fuoco sarebbe bello poter vedere anche i software 
installati.
Sempre di un pc in rete.
Saluti

Newsgroup: it.comp.lang.delphi
Titolo: listbox 3 colonne

ho creato una listbox con tre colonne
se ora con il comando
ListBox1.Items.Add();
aggiungo degli items alla listbox questi vengono tutti inseriti nella prima
colonna.
come faccio a fare in modo che vengano distribuiti sulle tre colonne?
Grazie


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

Funziona ma ho un altro problema
le colonne sono allineate sulla form ma quando le stampo no!

 le colonne sono allineate sulla form ma quando le stampo no!
Come le stampi??


nella procedura di stampa ho inserito queste linee:
Canvas.Font.Name
 := 'Euclid';
Canvas.Font.Size := 12;
   for i := 0 to ListBox1.Items.Count-1 do
      Canvas.TextOut(600,200 + (i*Canvas.TextHeight(ListBox1.Items[i])),
ListBox1.Items[i]);
Il font Euclid è lo stesso che uso all'interno della listbox.


Beh, il rendering visuale del controllo è una cosa, la stampa è
un'altra.
La suddivisione in colonne è una procedura che ti viene "regalata" dalla
TListBox che è in grado di offrire una funzionalità simile...ma questo
non significa che ogni altra entità software sia in grado di fare lo
stesso, anche se i dati provengono da una ListBox.
Nel caso specifico dell'uso dell'oggetto Canvas per la stampa, devi
essere tu ad allineare correttamente i dati interpretando il carattere
separatore e stampando i testi al giusto posto modificando le
coordinate.

Newsgroup: it.comp.lang.delphi
Titolo: evento su TButton

ciao a tutti
domandina facile facile...
ho creato un TButton a runtime, come posso richiamare una procedura
sull'evento click ? 
grazie
Giuseppe
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 sull'evento click ?
    myButton := TButton.Create(Form1);
    myButton.Parent := Form1;
    myButton.OnClick := MiaProceduraEvento;
La procedura evento deve prevedere un parametro Sender di tipo TObject:
    procedure TForm1.MiaProceduraEvento(Sender: TObject);
    begin
        //
    end;
Voilà.
        Marco Bortolani
        info @ 
marcobortolani.it

Newsgroup: it.comp.lang.delphi
Titolo: ActiveX (OCX) da Web

Vi pongo alcune domande riguardanti gli OCX (ActiveX):
1) un OCX creato con Delphi 7 o 2005 funziona con qualunque versione di 
IE?
2) è automatico che, se una pagina HTML usa un TAG di OBJECT che richiama 
un'ActiveX, l'OCX venga scaricato ed installato sulla macchina client?? o 
devo obbligare il cliente ad installarsi il mio OCX "a mano" prima di 
visitare il sito?
3) in un'OCX per il Web posso usare qualsiasi tipo di componente, o solo 
alcuni compatibili con questo sistema OCX-->Browser?
grazie
-emandt-
--- posted by geoForum on 
http://www.delphiedintorni.it

-emandt-
	Ciao
	MassimoB
 
---------------------------------
http://www.massimobeschi.it/
---------------------------------
Se tu pagare come dici tu ...
Io lavorare come dico io ...
Se tu pagare come dico io ...
Io lavorare come dici tu ...
---------------------------------

"ella peppa" ^__^
grazie mille per la perfetta spiegazione...


Newsgroup: it.comp.lang.delphi
Titolo: Runtime & Licenze

Saluto il NG e propongo un paio di domande da principiante
quale sono.
1) Ho un array di 50 Timage (jpg) che carico da altrettanti file
a runtime tramite LoadFromFile.
C'e' un modo per "includere" questi file nell'eseguibile in
modo da non dover allegare i 50 file jpg ?
2) Quale licenza si puo' utilizzare per distribuire liberamente (*)
un eventuale programma mantenendone il copyright e senza
dover rilasciare anche i sorgenti ?
Ho guardato la GPL e la GLPL ma, se non ho capito male, obbligano
a distribuire o quanto meno a rendere disponibile a chiunque ne
faccia richiesta i file sorgenti.
(*) per distribuire liberamente intendo che ognuno puo' utilizzare,
copiare, distribuire, etc. il programma senza pagare alcunche' a nessuno.
Un grazie anticipato per le risposte.

 dover rilasciare anche i sorgenti ?
Basta un semplice disclaimer o un readme con scritto quello che hai detto.
Non adottare una licenza open source, e' il contrario di quello che vuoi
fare (distribuire gratuitamente con sorgenti chiusi).
Ciao!
-- 
Morde. 
ICLDweb: 
http://www2.samatel.com/icld/
Newsgroup: it.comp.lang.delphi
Titolo: Form&Taskbar

Qualcuno sa se esiste un modo per mostrare un form nella taskbar (proprio
come il form principale dell'applicazione)?

"DarkSSJ" ha scritto nel messaggio
| Qualcuno sa se esiste un modo per mostrare un form nella taskbar (proprio
| come il form principale dell'applicazione)?
|
Devi:
1. Sovrascrivere il metodo CreateParams della form:
  TForm2 = class(TForm)
  ...
  protected
    procedure CreateParams(var Params: TCreateParams); override;
  ...
  end;
2. Nella sezione implementation della unit scrivere:
procedure TForm2.CreateParams(var Params: TCreateParams);
begin
  inherited;
  Params.ExStyle := Params.ExStyle or WS_EX_APPWINDOW;
end;
--
Ciao.
ACSH
[D4]
---------------------------
Chi fa da se'
fatica il doppio

Newsgroup: it.comp.lang.delphi
Titolo: [OT] Prima applicazione con CLX

Una calcolatrice cross-platform :
http://www.delphizine.com/features/2000/08/di200008rk_f/di200008rk_f.asp
Ciao,
-=SIMO=-

č bello sapere che possiamo passare al pinguino cosě facilmente :-)
Ma prorio non esistono versioni beta scaricabili??
io lo voglio veder girare sul mio PC!
Ciao!
Alan Solo

> Ma proprio non esistono versioni beta scaricabili??
No, purtroppo :(
Se non ci si è iscritti in tempo al programma di beta-testing della Borland,
nisba.
Le iscrizioni sono già chiuse e sembra che la Borland non abbia intenzione
di rilasciare alcuna beta..
Ciao,
-=SIMO=-

 di rilasciare alcuna beta..
e, se permettete, direi che è un'ottima scelta...
Ciao  :-)
--
(¯`·.¸¸.·´¯`·.¸¸.-> Andrea <-.¸¸.·´¯`·.¸¸.·´¯)
AntiSpam: rimuovere il trattino basso dall'indirizzo per rispondere
AntiSpam: remove the underscore from the e-mail address to reply
Newsgroup: it.comp.lang.delphi
Titolo: Cerco un  installer semplice

dovrei trasportare  un piccolissimo applicativo
scritto sia in cbuilder 6 sia in Delphi 7
dovrei adesso trasportare questo applicativo su
altri pc (miei), pero mi sono accorto che hanno bisogno di due DLL
borlndmm.dll e cc3260.dll che di trovano nella cartella ....\bin
di delphi o di cbuilder potrei creare nel pc su cui intendo trasportare
il mio applicativo le directori ..\bin e rascinare le due dll
ma non mi sembra molto elegante.
Adesso chiedo  senza scomodare Installer shield o altri
esiste un altro metodo????
Od anche usare un semplice installer magari da scaricare
o acquistare ma leggero di peso e di soldi...
senza dover andare a studiare Installer shield ecc...
saluti a tutti 

 o acquistare ma leggero di peso e di soldi...
Credo che *Inno Setup* (
http://www.jrsoftware.org
) sia un /must/ tra i 
tool di installazione. :-)
-- 
Marco «Alka» Breveglieri
  ABLS Team S.n.c. - Software & Web
  Via De Gasperi, 14
  42019 Scandiano (Reggio Emilia)
 
http://www.abls.it

 altri pc (miei), pero mi sono accorto che hanno bisogno di due DLL
Scusa la banalità, ma hai provato a portartele dietro nella stessa cartella
dell'applicazione?
-- 
Jax
====
Il sesso può essere una forma di liberazione, ma può anche essere una
trappola. Tutto sta nella capacità di dare ascolto ai nostri più
reconditi desideri.

 tool di installazione. :-)
Aggiungo il tool ISTOOLS ( InnoSetup Tool appunto ...),  che con il wizard 
ti crea l'installazione in modo facilissimo.
Giulio

Newsgroup: it.comp.lang.delphi
Titolo: componente per PNG e TIFF con alpha

Sto cercando un componente, anche shareware, che permetta di mostrare TIFF
oppure PNG tenendo conto delle trasparenze impostate nell'alpha channel. Ho
visto su Torry ma ci sono solo componenti per GIF, che supporta un solo
livello di trasparenza. Potete consigliarmi qualcosa?
Massimiliano


Ho fatto (insieme ad Eric Engler) un componente per visualizzare PNG
compreso l'alpha channel.
Lo trovi qui:
http://www.geocities.com/SiliconValley/Network/2114/
Ciao Uberto

Newsgroup: it.comp.lang.delphi
Titolo: Data su componente RX

Ciao a tutti!
 Scusate vi sembrerà una stupidaggine, ma io vorrei risolvere in
maniera elegante questo problema, utilizzando il calendario delle rx
(2.75 + fix)
come posso vedere se una data è valida in un campo inizializzato con 
'  /  /     '  diversamente da Calendario.text <> '  /  /     ' ?
Ciao,
  Cristian.

> '  /  /     '  diversamente da Calendario.text <> '  /  /     ' ?
try strtodate(Calendario.text) except ShowMessage ('Data non valida') end;

>try strtodate(Calendario.text) except ShowMessage ('Data non valida') end;
Grazie. 
 Cristian

Newsgroup: it.comp.lang.delphi
Titolo: Cambiare i caratteri in IB

Ciao a tutti.
E' possibile con una query cambiare tutti i caratteri di un Database da 
mixed case a lowercase ?!?
Grazie mille.. 

 ha scritto nel messaggio
news:agebbo$uj7$1...@atlantis.cu.mi.it...

Newsgroup: it.comp.lang.delphi
Titolo: Delphi 2005...trial disponibile

Nel caso fosse sfuggito ai possibili interessati, è disponibile per il 
download la "trial" di Borland Delphi 2005, scaricabile qui:
http://www.borland.com/products/downloads/download_delphi.html
Ciao a tutti! :-)
-- 
Marco «Alka» Breveglieri
  ABLS Team S.n.c. - Software & Web
  Via De Gasperi, 14
  42019 Scandiano (Reggio Emilia)
 
http://www.abls.it

Ciao a tutti! :-)
Era sfuggito ;-)
Grazie!
-- 
Ore 18.30: premo invio.

Newsgroup: it.comp.lang.delphi
Titolo: Consiglio da esperti su access e XP [un po lungo]

Un saluto al NG, il mio quesito è il seguente:
dovrei creare una piccola applicazione che sia capace di accettare dei
dati in input, una ventina, e di salvarli su di un database (access)
remoto(all'interno della lan). Questo db è utilizzato
contemporaneamente da un altro prg e gira su macchina windows XP
HomeEdition. Inoltre quast'applicazione deve girare su di un 386
(condizione non restrittiva). Secondo voi si può fare? Posso incorrere
in una deteriorazione dei dati nel db? E ancora, l'applicazione deve
essere accompagnata da una licenza? Anche se il prodotto viene
concesso sotto GPL o simili? Tutti i consigli e suggerimenti saranno
ben accetti.
Grazie per l'attenzione,
        by E'S

concesso sotto GPL o simili? 
Non ho capito il discorso della licenza.. forse perche' si collega ad access?
In questo caso non c'entra niente. Non sei obbligato ad avere la licenza di
distribuzione di access.
Comunque se applichi al tuo programma la licenza GPL sei tenuto a fornire i
sorgenti dello stesso, anche non direttamente con il programma ma comunque
fornendo un canale per chiederli (sito internet, email, telefono, ecc).
Ad ogni modo, se fai un eseguibile a prescindere dalla base dati cui si
collega non sei obbligato a fornire nessuna licenza. Con il possesso di delphi
stesso sei licenziato da borland a produrre software per farne l'uso che vuoi
senza dovere royalties a nessuno.
-- 
Morde. 
(
mo...@despammed.com
)
M-List di icld: 
http://it.groups.yahoo.com/group/icld/

 (condizione non restrittiva). Secondo voi si può fare?
386 ????
e con quale sistema operativo ?
Se non è almeno Windows 95 non puoi farci girare applicativi win32, dovresti
usare delphi 1 ( era incluso in delphi 2 e 3 mi pare).
Ma stiamo parlando di Jurassic park !
Per la licenza , ispirati a una delle tante applicazioni free che ci sono in
giro.
Newsgroup: it.comp.lang.delphi
Titolo: [un po' OT] : Delphi ZIP

Ciao a tutto il NG,
vorrei sapere da quale sito posso scaricare il programma (mi pare si chiami
Delphi ZIP) scritto in codice Delphi in grado di Un/Zippare files ...
Grazie a tutti!
--
- Carlo -

www.torry.ru
Saluti
AS
"Se è Microsoft non funziona"

Newsgroup: it.comp.lang.delphi
Titolo: verifica elementi presenti contemporanamente in 2 dataset

Ho il seguente problema:
da una parte un dataset con tutti gli articoli di un negozio
(codice articolo+descrizione)
dall'altra un dataset con gli articoli acquistati da
un cliente (codice articolo+n. pezzi acquistati).
Gli articoli del secondo dataset sono quindi un sottoinsieme del primo.
Come faccio a identificare, nel primo dataset,
gli articoli presenti nel secondo?
In modo che, ad esempio, tali articoli, mostrati in
un dbGrid, possano essere mostrati in un colore differente?
grazie
Luca

outer join
A.

cicogna ha scritto:

Select ID_articoli from dataset1 where ID_articoli in(select ID_articoli 
     from dataset2)
Saluti Goblin


Hai diverse possibilita':
Nell'evento OnDrawCell della griglia esegui un Locate sul secondo 
dataset, il colore cambia in base al valore restituito da Locate
(se non vuoi fare spostamenti sul secondo dataset perche' magari e'
collegato a sua volta a una grigllia puoi usare Lookup)
In alternativa puoi, sempre nell'evento di disegno, effettuare una query 
SQL che verifica che il record corrente sia contenuto nell'altro 
dataset, ma questo puoi farlo solo se i dati del secondo dataset sono 
gia' presenti nel DB.
Come ultima possibilita', puoi costruire il dataset in modo che contenga 
un campo in piu' il cui valore dipende dalla presenza del record nel
secondo dataset, nell'evento OnDrawCell testi il valore di questo campo 
e decidi il colore di conseguenza.
ciao
Giacomo

 gia' presenti nel DB.
sono due ClientDataSet, posso usare le istruzioni SQL ?
in ogni caso preferisco la prima soluzione
e ti ringrazio infinitamente per le indicazioni.
Newsgroup: it.comp.lang.delphi
Titolo: Miglioriare l'aspetto di un'applicazione

Ciao a tutti. Mi chiedevo come è possibile cambiare l'aspetto grafico di
un'applicazione che sto facendo, tipo cambiare i bottoni o applicare
immagini ad oggetti. Le immagini da applicare le ho, mi chiedevo solo se era
possibile "appiccicare" queste mie immagini sopra ad un bottone per esempio.
Spero abbiate capito, in caso contrario rispondetemi pure dandomi
dell'analfabeta e chiedendomi di spiegarmi meglio :)
Saluti
Davide

 wrote in message
news:b4n88i$7su$
1...@le.cs.unibo.it

-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 immagini ad oggetti
su Torry (
http://www.torry.net
) trovi tonnellate di componenti già pronti 
adatti allo scopo: bottoni con tutte le forme (es: IAeverButton), gradienti 
(MMJPanel), form di tutte le forme (non so da dove ho scaricato una form col 
bordo a forma di un coniglio, ma si poteva usare qualunque bitmap), GIF 
animate, label di tutti i tipi, componenti trasparenti, panel, e molto, 
molto ancora. (vedi anche le RX libraries)
-- 
Mauro Falzari ( 
http://digilander.libero.it/mauro.falzari
 )
"Se guardi nell'abisso, anche l'abisso guarda in te." (Friedrich Nietzsche)

Per quanto riguarda l'aspetto tecnico, ti hanno gia' risposto. Il mio e'
solo ed esclusivamente un consiglio estetico/funzionale: usa un look
razionale, semplice e intuitivo, qualunque sia l'applicazione che sviluppi,
e IN PARTICOLARE se e' un'applicazione che il tuo utente dovra' usare
diverse ore al giorno di seguito. Evita, quindi, robe animate e
lampeggianti, pulsantoni di forme strane, colori qua e la', sfondi, ecc.
L'applicazione ideale (sara' che personalmente sono affezionato al vecchio
dos ;) ) e' quella, piu' o meno, in bianco e nero, o con pochissime
sfumature di colore diverse nell'intefaccia, dove il colore viene usato solo
quando NECESSARIO e solo per evidenziare cose particolari. Prendi come
riferimento ad esempio Outlook o Word della Microsoft e guarda se loro si
sono messi a riempire di robaccia colorata l'interfaccia utente :)
Ciao, Sandro

 ha scritto nel messaggio
news:b4nfqu$218673$1...@ID-43509.news.dfncis.de...

Il tuo consiglio sarą seguito, lo trovo molto interessante e mi trovi
pienamente daccordo.....
Al massimo proverņ per mio piacere personale...
Saluti
Davide
Newsgroup: it.comp.lang.delphi
Titolo: CANVAS e PIXELPERINCH

Bene bene, buongiorno ecco un altra domandina da leccarsi le orecchie:
Se creo un TCanvas, un TImageCanvas, un TBitmap ecc ecc, tutti essi
ereditano in automatico il valore PixelPerInch dell'oggetto TScreen, quindi
la risoluzione corrente dello schermo al momento in cui vengono create.
Ok ma io devo STAMPARE queste immagini!!!!
Fino a che stampo su una stampantina a getto di inchiostro ok, ma se vado a
stampare ad esempio su una laser a 600 dpi .. un vero schifo :(((((
La domanda è : se creo un ImageCanvas o un Bitmap, come faccio a settarne la
risoluzione?
In pratica voglio svincolarmi dal device.
Uso D5.
Grazie ragazzi.

 In pratica voglio svincolarmi dal device.
dai un'occhiata a CreateDIBXxxx se ti piacciono le API; altrimenti, dai
un occhio all'implementazione di TCustomForm.Print; potrebbe essere
illuminante).
Saluti
Paolo Arosio

Grazie davvero!!!
Ma lo sai che gią avevo utilizzato in passato la getdibsizes la stretchdib..
ma non me lo ricordavo!!!!
saranno 15 gg che mi rompo l'anima dietro a questo problema!!!!
Adesso mi applico poi ti faccio saxe!!!
Danke 1000!!!
Newsgroup: it.comp.lang.delphi
Titolo: [ClientdataSet] Gestire update/insert partendo da una query e non tabella.

Salve a tutti, vorrei porre alla vostra attenzione questo problema di
sviluppo che immagino abbia suscitato discussioni, vorrei riassumerlo e
rilanciarlo.
In alcuni applicativi da me sviluppati ho utilizzato i componenti DBEXPRESS
(D6 + FB 1.0.3) e spesso si presentava la necessità di avere una form con un
elenco di record tra cui sceglierne uno e vederne il dettaglio (penso
proprio problematica base dei gestionali).
Bene, fino a poco tempo fa la soluzione adottata era quella di utilizzare un
TSQLDataSet collegato ad una tabella del DB in modo di preoccuparsi
solamente di "aprire" correttamente il ClientdataSet collegato
(ClientdataSet > DataSetProvider > SQLDataSet). Questa soluzione, non certo
elegante, mi permetteva con estrema semplicità di avere un DBGrid collegato
al ClientdataSet e una form di dettaglio del record, anch'essa collegata al
ClientdataSet; in tal modo bastava gestirlo passandolo da EDIT ad APPEND in
base all'azione voluta, rispettivamente modifica di un record e aggiunta di
un record, chiudendo poi le modifiche con un ApplyUpdates.
La soluzione sopra descritta è valida se la tabella è di piccole dimensioni
poichè "aprire" il ClientdataSet significa portare "in locale" tutti i
record della tabella collegata. Conosco anche la possibilità di non
"richiedere" al DBMS tutti i record ma riceverli a "pacchetti" con numero
definito dall'utente, ma il problema reale è quello che ora vado a
menzionare...
Le prestazioni aumentano decisamente quando nell'SQLDataSet inserisco una
query che seleziona una parte di record solamente, da presentarmi nel mio
elenco... OK.. fin qui tutto bene, però ora se voglio vedere il dettaglio
del record e gestirne le modifiche (l'inserimento di uno nuovo lo realizzo
con un comando SQL INSERT) non so se esistono strade dirette oppure devo
valutare le modifiche lato codice per ogni singolo campo del record in uso.
Immagino esistano strade automatiche che non conosco o sbaglio ?
Potete darmi indicazioni dirette o fonti su cui documentarmi ?
Vi ringrazio anticipatamente.

Vi ringrazio anticipatamente.
	Ciao
	MassimoB
 
---------------------------
http://www.massimobeschi.it/
Newsgroup: it.comp.lang.delphi
Titolo: Funzioni in DLL

Salve a tutti!
	Il mio programma fa uso di funzioni importate da una dll (creata da me).
Tuttavia potrebbe essere possibile che tale dll non sia presente nel path del
programma... in questo caso l'exe da giustamente errore. Vorrei invece che non
venissero generati errori... come posso fare? In pratica devo effettuare la
dichiarazione delle funzioni importate solo se la dll è presente... giusto? Si può
fare?
Grazie..
	John Z.


Mars University: «Knowledge brings Fear»

 ha scritto nel messaggio

Guarda quí ..
http://snipurl.com/4s2t
ciao
erik
Newsgroup: it.comp.lang.delphi
Titolo: algoritmo per ottenere le cominazioni di n lettere

algoritmo per ottenere le cominazioni di n lettere
ho un piccolo problema: dati 'n' lettere devo ottenere tutte le possibile
combinazioni tra le varie lettere
ESEMPIO:
le lettere sono A,B,C,D
le comobinazioni sono :
A
AB
AC
AD
BA
BC
BD.....
So che è possibile evitare di scrivere tutte le combinazioni a manina, ma
non riesco a realizzarlo....se qualcuno riuscisse a darmi una mano...gliene
sarei molto grato
Ciao,
    Alberto

Ti sei risposto da solo....
con Algebra di bool....
cosidera
A B C D
0 0 0 0
0 0 0 1
0 0 1 0
0 1 0 0
0 1 0 1
0 1 1 0
0 1 1 0
1 0 0 0
1 0 0 1
1 0 1 0
1 0 1 1
1 1 0 0
1 1 0 1
1 1 1 0
1 1 1 1
spremere un pò le meningi e ci siamo !!
Max

 ha scritto nel messaggio
news:ypOI8.96962$zW3.1...@news1.tin.it...

Oplà:
function combinazioni(s:string):string;
var k:string;
    i,j:integer;
begin
  k:='';
  for i:=1 to length(s) do
    for j:=1 to length(s) do
      k:=k+s[i]+s[j]+'-';
  combinazioni:=k;
end;
--
----------------------------------------
Carlo Camarda
chiamac...@tiscalinet.it
]@#[ Anna I Love You ]#@[

 ha scritto nel messaggio
news:XxPI8.97242$zW3.1...@news1.tin.it...

Ah dimenticavo... la stringa che gli passi in input alla funzione deve
essere l'insieme delle lettere per esempio se vuoi le combinazioni di A, B,
C, D scrivi "abcd" come stringa.
Ciao


 0 0 0 1
<...>
Cioe' ? CAD a cosa corrisponde ?
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

[.....] spremere un pň le meningi e ci siamo !!
cosě ottieni la combinazione di sole 2 lettere su 4 posizioni... (2^4)
Vista in maniera algebrica ti serve un algoritmo di conversione da
base 10 a base N (Non mi sembra che ci sia come funzione standard di
delphi) in cui puoi definire la sequenza dei simboli di ritorno
Qualcosa con un prototipo di funzione di questo genere
function Base10toN( Num : integer,  Base:string):string 
le combinazioni di 4 lettere su 3 posizioni per esempio 
e 4^3 (per renderlo piů evidente prova a considerare 
se dovessi fare 10 cifre su 2 posizioni che corrispondono 
ai numeri da 00,01..99  = 10^2)
quindi fai un ciclo
cife:=4;
posizioni:=3
for x = 0 to cifre^posizioni stampa(   Base10toN( x, "ABCD"))
se poi non vuoi combinazioni doppie tipo "abc" deve escludere che
venga considerata anche "bca",  oppure hai altri vincoli allora le
cose si complicano.
Newsgroup: it.comp.lang.delphi
Titolo: video player

un saluto, sto cercando un componente video player che mi permetta di
leggere anche i formati divx,
potete consigliarmi qualcosa di free?
grazie
[Fabry]
--
---------------------------------------------------------------------
"Eliminate annoying spam!
My mailbox is protected by iHateSpam, the #1-rated spam buster."
http://www.ihatespam.net

 leggere anche i formati divx,
tutti i player video si appoggiano alle directx, che a loro volta si
appoggiano ai codec installati. Quindi se hai installato il codec divx,
potrai vedere i divx con qualunque player.

fabry ha scritto:

DSPack di progdigy e fantasticho.
Io lo uso regolarmente e ti assicuro che e davvero un bel progetto.
http://www.progdigy.com/
***Gio***

 DSPack di progdigy e fantasticho.
--------------------------------^
Ammazza che asino che sono!! :D
***Gio***
Newsgroup: it.comp.lang.delphi
Titolo: Aggiornamento dabase.

Ciao a tutti , ho un problema di questo tipo:
Ho sviluppato un'applicazione di E-business (Php), l'utente da internet
inserisce un'ordine nel database mysql, io dalla mia applicazione(Delphi),
dovrei essere avvertito sul fatto che è stato fatto un'insert nel mio
database. L'avvertimento dovrebbe avvenire subito, quindi una soluzione
periodica di interrogazione del database ogni n secondi non può andare bene
come soluzione, ed il fatto di eseguire in cliclo continuo query, non mi
sembra una soluzione accettabile..
Spero in un vostro aiuto, grazie mille.
Luca Busi

 Luca Busi
Andrea

Non so come funziona php, ma se puoi spedire un messaggio
all'applicazione Delphi allora il gioco è fatto.
Ciao, Rocco

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

In un componente TDBGrid, oppure in TDBEdit quando si immette un valore e
questo non č corretto di solito viene generato un errore. A questo punto
perň non si riesce piů ad uscire dal componente se non digita il valore
corretto.
questo mi succede in particolar modo con i campi DateTime.
non riesco  agestire nessun evento per risolvere il problema : ad esempio
con onExit non funziona, perchč l' evento accade troppo tardi.
Come posso fare?

 ha scritto:

penso sia l'OnValidate del campo di TTable, ma non ne sono certo...
cmq con ESC si dovrebbe uscire
Ciao,
Alan Solo

 Alan Solo
Credo di averlo già provato OnValidate ma credo che sia ancora troppo tardi
: forse prima converte la stringa in data e poi cerca di convalidare il
dato?
Con ESC effetivamente si esce però sei comunque costretto ad inserie
qualcosa poichè la stringa '  /  /    ' non può essere convalidata come
data.

corretto.
Per i campi data puoi usare i TDateTimePicker (o q.cosa di simile).
Imo, cmq, e' preferibile mantenere controlli _non_ dbAware per
l'aggiornamento (tipicamente dbgrid read-only: doppio click su riga->
dialog di edit del record con TEdit semplici (al limite TMaskEdit) e
pulsante Apply. Fai la validazione nell'OnClick dell'Apply).
Vedi anche articolo recentemente pubblicato su 
programmazione.it
 al
proposito
Saluti
Paolo Arosio
Newsgroup: it.comp.lang.delphi
Titolo: Problemi nell'esecuzione di un file Batch

Buongiorno a tutti
Mi trovo con un problema un attimo particolare.
Devo stampare delle etichette su una stampante ad aghi a modulo continuo di
formato non standard.
Per problemi nel configurare correttamente il salto pagina sia nel
gestionale (navision) e windows 2000 Pro ho trovato la soluzione di stampare
tutto in formato testo su un file e lanciare un
copy etichette.txt lpt2:
e sarebbe perfetto
peccato che da navision non mi permette di eseguire un bat (grrr) in quanto
ha le stesse limitazioni di internet explorer.
Allora ho pensato: faccio un programma delphi che lancia lui il bat
Navision -> programma delphi -> test.bat -> copy etichette.txt lpt2:
ma non riesco a far funzionare il programma delphi..
se faccio da start esegui (o anche doppio click) del batch funziona
perfettamente
se da delphi faccio:
shellexecute(handle,'open','c:\test.bat','','',sw_normal);
non funziona una cippa
se faccio
function WinExec32(FileName:String; Visibility : integer):integer;
var
  zAppName:array[0..512] of char;
  zCurDir:array[0..255] of char;
  WorkDir:String;
  StartupInfo:TStartupInfo;
  ProcessInfo:TProcessInformation;
begin
// showmessage(filename);
 StrPCopy(zAppName,FileName);
 GetDir(0,WorkDir);
  StrPCopy(zCurDir,WorkDir);
  FillChar(StartupInfo,Sizeof(StartupInfo),#0);
  StartupInfo.cb := Sizeof(StartupInfo);
  StartupInfo.dwFlags := STARTF_USESHOWWINDOW;
  StartupInfo.wShowWindow := Visibility;
  if not CreateProcess(nil,
    zAppName,                      { pointer to command line string }
    nil,                           { pointer to process security
attributes }
    nil,                           { pointer to thread security attributes }
    false,                         { handle inheritance flag }
    CREATE_NEW_CONSOLE or          { creation flags }
    NORMAL_PRIORITY_CLASS,
    nil,                           { pointer to new environment block }
    nil,                           { pointer to current directory name }
    StartupInfo,                   { pointer to STARTUPINFO }
    ProcessInfo) then Result := -1 { pointer to PROCESS_INF }
  else
   begin
    WaitforSingleObject(ProcessInfo.hProcess,INFINITE);
    GetExitCodeProcess(ProcessInfo.hProcess,cardinal(result));
   end;
end;
showmessage(SysErrorMessage(WinExec32('c:\test.bat',sw_normal)));
mi restiuisce "funzione non corretta"
dove sto sbagliando??
Grazie
Matteo

 copy etichette.txt lpt2:
mokké... errore di sbaglio
per con shellexecute si specifica un file tipo .txt, si apre notepad
per far partire anche i file batch bisogna specificargli anche il path
relativo, tra i parametri... altrimenti non si sa dove va a lavorare...
Scusate...
Ciao
Matteo