mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.delphi
Titolo: Connessione con Indy Idhttp...

Ciao a tutti..
Uso webbrowser per fare delle connessioni automatiche ad un sito usando
questo semplice codice:
  EncStr := 'username=xxx&password=yyy';
   Post := VarArrayCreate([0, Length(EncStr) - 1], varByte);
    for I := 1 to Length(EncodedStr) do
    Post[I - 1] := Ord(EncodedStr[I]);
    Header := 'Content-Type: application/x-www-form-urlencoded' + #10#13;
    WebBrowser1.Navigate('
http://www.miosito.com
', EmptyParam,
    EmptyParam, Post, Header);
Ora  dato che non ho bisogno della visualizzazione del browser vorrei usare
iDHttp (indy 9) ma pur passando gli stessi parametri non riesco a
connettermi con successo:
   with idhttp1 do
   begin
     Params.WriteString(URLEncode('username=' + 'xxx' + '&'));
     Params.WriteString(URLEncode('password=' + 'yyy'));
     Request.ContentType := 'application/x-www-form-urlencoded'+ #10#13;
     Post('
http://www.miosito.com
', Params, aStream);
    end;
Bene, qualcuno ha  esperienza nel post con idhttp o componenti similari (
es. ICS di Piette) e mi puo' aiutare? Grazie.
P.s. Si lo so che potrei mettere webbrowser( che funziona) Visible:= false e
togliermi i problemi ma...vorrei usare un componente non visuale.Nel
frattempo AUGURI a tutti.

     end;
C'e un errore teorico sul protocollo HTTP e sull'uso di Params (dai una
occhiata all'impelmenentazione di TIdCustomHTTP.Post)
with idhttp1 do
 begin
   Params.WriteString('username=' + URLEncode('xxx'));
   Params.WriteString('password=' + URLEncode('yyy'));
   Request.ContentType := 'application/x-www-form-urlencoded';      
   Post('
http://www.miosito.com
', Params, aStream);
 end;
Dovrebbe funzionare. Comunque apuoi usare anche 
  var HTML : string;
  HTML := Post('
http://www.miosito.com
', Params);
se ti e' piu' comodo.
-- 
I'am what I'am, I do what I can

 se ti e' piu' comodo..
Ciao e grazie ... ma  non funziona ugualmente.
Ho visto che idhttp manda l'header con http 1.0 mentre il server risponde
con http 1.1  ..puo' essere quella la causa?
No, non e' quella la causa perche' nel frattempo ho provato a inviare la
stringa params senza urlencode( tra mille tentativi magari quello giusto lo
trovo !), cosi' stringa semplice e funziona!!! Non ho capito perche' ma il
risultato c'e'.
Ciao e grazie ancora.

 ha scritto nel messaggio
news:W4oEb.194630$vO5.7...@twister1.libero.it...


 IdHTTP1.Request.Password:=Password;
Questo modo funziona se il server richiede l'autenticazione HTTP e non
quella tramite script server side. Sono cese differenti.

Newsgroup: it.comp.lang.delphi
Titolo: Test

Test

 Test
it.test
Ciao

it.test
molto sfortunatamente non è arrivato
su it.test (su cui bazzico anche io tra l'altro)
ATTENTO a dove posti i messaggi
e soprattutto evita di fare casini e test su questo
ng ...
io ho un'applicazione compilata come
 test che NON ACCETTA altri
ng nelle impostazioni che it.test o free.it.test,
e un'applicazione che compilo una volta 
che quella di test va bene, ed in quest'ultima
posso impostare nomi di ng non di test
ma solo quando ho provato che va tutto bene.
ti dico questo perchè c'è molta gente che usa questo ng
da molto, molto tempo (non è il mio caso) e
si è fatta la propria applicazione newsReader solo
per avere un DB del NG come cavolo pare a lui 
(questo è il mio caso) e capisci che da un pò
di fastidio ogni tanto trovare messaggi con oggetti assurdi
tipo AIUTO ... AIUTO ... AIUTO o messaggi di test
poi alcuni di questi (dirai maniaci del ng), hanno messo
nelle proprie applicazioni un tastino ignora messaggi dell'utente xxx
e se finisci nella lista nera di "questi" avrai sempre meno risposte
...
lo so che un "casino" ogni tanto 
può capitare ... 
ma ultimamente capita molto spesso
cerchiamo un pò tutti di farlo capitare il meno possibile!!!
e lo dico io che sono un gran casinista :)
forse qualcuno lo ha notato dai miei post ;P
spero alle prossime ...
	Ciao
	MassimoB
 

 e lo dico io che sono un gran casinista :)
Secondo me sbagli candeggio... ;)
Ciao
Matteo
Newsgroup: it.comp.lang.delphi
Titolo: Numero massimo connessioni TCP

Salve a tutti,
sto facendo un piccolo programma per testare la robustezza di un
server DICOM.
Ho utilizzato dei componenti per gestire il multithreading (Prof's
Components della Korbitec) e quindi spedire contemporaneamente n
richieste al server in ascolto su di una determinata porta.
Quando però le richieste diventano molte mi ritorna un messaggio di
errore ("Failed to connect at TCP level"): e ne gestisce solo alcune
Ciò dipende dal limite massimo di connessioni tcp pendenti (backlog
queue) impostato dalla libreria WinSock?
Utilizzando Windows 2000 è possibile risolvere questa limitazione?
Grazie
Saluti
Matteo

 ha scritto nel messaggio
news:534568f4.04072...@posting.google.com...

Tra le varie info che posseggo sul Winsock 2 queste forse ti possono
aiutare:
0.0.1. Maximum number of sockets supported
The maximum number of sockets supported by a particular WinSock service
provider is implementation specific.  An application should make no
assumptions about the availability of a certain number of sockets.  This
topic is addressed further in section 4.54. , WSAStartup().  However,
independent of the number of sockets supported by a particular
implementation is the issue of the maximum number of sockets which an
application can actually make use of.
The maximum number of sockets which a WinSock application can make use of is
determined at the application's compile time by the manifest constant
FD_SETSIZE.  This value is used in constructing the fd_set structures used
in select() (see section 4.16. ).  The default value in Winsock2.h is 64.
If an application is designed to be capable of working with more than 64
sockets, the implementor should define the manifest FD_SETSIZE in every
source file before including Winsock2.h.  One way of doing this may be to
include the definition within the compiler options in the makefile, for
example adding  -DFD_SETSIZE=128 as an option to the compiler command line
for Microsoft C.  It must be emphasized that defining FD_SETSIZE as a
particular value has no effect on the actual number of sockets provided by a
WinSock service provider.
Ciao Giorgio Padoan

 Ciao Giorgio Padoan
Grazie Giorgio per l'aiuto.
Spero di aver capito bene l'articolo: esso tratta del numero massimo
di socket (insieme di ip e porta) che un'applicazione può gestire. A
me invece interessa il numero di connessioni TCP in arrivo (e quindi
accodate) su di un solo socket fisso.
Grazie ancora
Ciao 
MAtteo
Newsgroup: it.comp.lang.delphi
Titolo: problemi con dblookupcombobox

Salve
ho impostato 5 campi: Indirizzo, Cap, Regione, Provincia, Comune che puntano 
ad una tabella e ad essi ho associato 5 controlli dblookupcombobox.
Ho generato il codice innescato dall'evento Onchange della listsource che 
crea a run-time delle query e dei datasource, ad esse relativi, che mi 
eseguono le interrogazioni e mi aggiornano,ogni volta che un utente 
seleziona un valore su uno dei cinque controlli, le listsource dei controlli 
rimanenti.
Detto questo ho tre tipi di problemi:
1) una volta che, fatti conto ho scelto un Cap, non posso più scegliere una 
regione, un comune, una provincia... differente (es. ho scelto il cap 00146 
e i controlli mi visualizzano soltanto LAZIO, RM, ROMA, e l'elenco delle vie 
che hanno quel CAP). Ho impostato un pulsante che mi esegue di nuovo tutte 
le query, senza condizioni questa volta, e mi estrapola tutti i valori ma 
non so se è la soluzione più idonea.
2) quando devo fare il free di tutte queste query e i datasource? Oppure 
avendo esse come owner il form (impostato a self) vengono liberate 
automaticamente alla chiusura della finestra?
3) ho necessità di fare in modo che, quando il menù a tendina contiene un 
solo valore selezionabile, mi venga automaticamente visualizzato sul 
controllo (es. se scelgo uno dei cap di Roma nel dblookupcombobox di Roma 
deve automaticamente apparire il valore Roma, attualmente ce l'ho come unico 
item selezionabile una volta che fai il drop-down del controllo Comune).
Grazie

regione, un comune, una provincia... 
Perché non segui quello che ti viene consigliato.  Ci deve essere una
gerarchia nelle relazioni: la regione determina la selezione delle
province, la provincia determina la selezione delle città, la città
quella dei cap e il cap quella degli indirizzi.



Perché non ho capito bene come realizzare il tuo consiglio
operativamente. Ormai ti sarai reso conto che uso delphi da un mese e
mezzo (provengo da Php, VBA..), sono autodidatta e, anche
caratterialmente, seguo le strade che conosco come i muli. Quindi non
c' è  caparbietà o   mancanza di umiltà nel non seguire i consigli
degli altri ma semplicemente scarsità di soluzioni operative. Ad ogni
modo, dopo un bel po' di righe di codice, tout se tien.
Ti ringrazio comunque moltissimo dell'aiuto.
Alfio

[...]seguo le strade che conosco come i muli.
Be', male, specie in programmazione.  Se non allarghi le conoscenze,
ti affatichi e fai le cose nel modo sbagliato.  Il mio consiglio, da
realizzare è semplice, conoscendo i componenti che usi per accedere al
DB.

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

Hello All.
l' unico libro su delphi 5 in italiano e' (secondo ALice.it)
Programmare con Delphi 5 di MArco CAntu' di 726 pagine costo 88000 lire
APOGEO
esite anche in inglese un (secondo Amazon.com)
Mastering Delphi 5 di Marco Cantu 1106 pagine  49,99 dollari
sono uguali a parte la lingua ?
Filippo

 ha scritto nel messaggio
news:GED38E79293@fdal%iol.it...

Newsgroup: it.comp.lang.delphi
Titolo: Estrarre immagini da ImageList

Un saluto a tutti.
Ho un programma di esempio che contiene un componente TImageList con
delle immagini che mi piacerebbe utilizzare altrove.
C'è un modo per estrarle e memorizzarle singolarmente su disco?
Grazie

cas...@postino.it
 ha scritto:

si. hai una prp che ti dice quante sono e dei metodi che ti leggono
icone, bitmap in base all'indice della collection.
Il tutto è spigato nella guida e c'è anche un esempio.
A

Newsgroup: it.comp.lang.delphi
Titolo: COme traformare string in Pchar?

Mi potreste scrivere come posso fare a trasformare string in Pchar?
GRazie


PChar(String) ?

StrPCopy


StrPCopy
va bene anche il cast con PChar()
--
Andrea Laforgia (
andrea_...@bigfoot.com
)
-----------------------------------------------------
"There is nothing better for understanding a kangaroo
 than seeing it jump." [D.Grune, C.J.H. Jacobs]

 va bene anche il cast con PChar()
Solo da D3 in su...
Ciao :-)
--
(¯`·.¸¸.·´¯`·.¸¸.-> Andrea <-.¸¸.·´¯`·.¸¸.·´¯)
AntiSpam: rimuovere il trattino basso dall'indirizzo per rispondere
AntiSpam: remove the underscore from the e-mail address to reply

Solo da D3 in su...
E chi usa Delphi dal D3 in giu' ? :)


 E chi usa Delphi dal D3 in giu' ? :)
Uno e' qui... sono appena passato a D2... :-P
ciao
Claudio

 E chi usa Delphi dal D3 in giu' ? :)
Per esempio chi deve scrivere applicazioni per Win3.1 con D1 (io ho dovuto
farlo in passato [mica troppo remoto]).
Oppure chi (come me) è un "povero" studente che non ha 900 carte da sbattere
nella 5 Pro... (la Std non mi piace neanche un po'...)


Uno e' qui... sono appena passato a D2... :-P
Prevedi nel tempo di passare a D1 ? :)


Newsgroup: it.comp.lang.delphi
Titolo: Date in Access

 
ICQ# 156068277

 la stessa stringa ma nel DB ci finisce qualcosa del tipo 0.07.26
Le date in Delphi vengono espresse in questo modo: la parte intera conta il
numero di giorni trascorsi a partire dal 31/12/1899, la parte decimale il
numero di millisecondi trascorsi dalla mezzanotte del giorno rappresentato
dalla parte intera. Quindi se tu passi now alla tua query, passi sia il
giorno che l'ora.
Prova così:
    ADOQuery1.Close;
    ADOQuery1.SQL.Clear;
    ADOQuery1.SQL.Add('insert into TABELLA (data)');
    ADOQuery1.SQL.Add('values (:data)');
    ADOQuery1.Parameters.ParamByName('data').Value := Trunc(now);
    ADOQuery1.Open;
Non dovresti avere più problemi.
Saluti
        Marco Bortolani
        info @ 
marcobortolani.it

 match.
Questo succede perchè access memorizza data e frazioni di giorno (ossia ore,
minuti, secondi).
Per risolvere basta usare la funzione DATEVALUE
Es. sql:
     '.........WHERE DATEVALUE(CAMPODATA) = :data';
     parameters.ParamByName('data').Value := datetostr(TUA_DATA) ;
DATEVALUE estrae solo la data da un campo DateTime
Ciao

DATEVALUE estrae solo la data da un campo DateTime
Ecco il motivo per il quale amo il ng: non finisco mai di imparare...
Grazie per la infos, sei un grande :)
Ciao
-- 
Morde. 
(
mo...@despammed.com
)
M-List di icld: 
http://it.groups.yahoo.com/group/icld/
Newsgroup: it.comp.lang.delphi
Titolo: file di Access in delphi

Ho adoperato delphi 3 per scrivere alcuni programmi utilizzando file
dbf. Ora vorrei utilizzare i file mdb di access ma non riesco a capire
come si fa. Quando vado in databases explorer e clicco su Microsoft
Access mi appare un login con richiesta di password. Qualcuno č cosě
gentile da spiegarmi la procedura.? Vi prego aiutatemi.
Ringrazio anticipatamente.
Silvio

Access mi appare un login con richiesta di password.
Devi inserire un componente TDatabase nel datamodule o nel form che
usi, poi imposti LoginPrompt a false ed eventualmente nome utente e
password in LoginParams (si chiama cosi' ?).
Poi leghi tutte le tabella al TDatabase.
--
Andrea Laforgia (UIN 87230455)
----------------------------------------------------------
Non scrivetemi per e-mail, se non richiesto espressamente.
No replies in private e-mail, unless explicitly requested.
----------------------------------------------------------

Newsgroup: it.comp.lang.delphi
Titolo: Delphi Extreme Toys

Ho letto su un libro di Marco Cantu che sono disponibili, presso Borland, i
Delphi Extreme Toys. Sembra si tratti di varie estensioni dell'IDE, wizard,
ecc.
Cerca, cerca... ma non li trovo.
Qualcuno sa dirmi se e dove sono reperibili?
Grazie
Gianluca

 ha scritto nel messaggio
news:FoQx8.20965$8D3.5...@news1.tin.it...

Prova a ricercare gexpert forse è quello che intendeva MC
Saluti NEA

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

visto che la borland sta mettendo sotto la gpl un po' di roba, non è che le
vecchie versioni di delhpi sono free?
grazie per l'attenzione

Non hai detto una bugia. Effettivamente la Borland ha reso free
qualche versione di Delphi, però solo la versione 1 che è a 16 bit per
win31. Dalla 2 in poi invce Delphi è a 32 bit ed ancora non esistono
versioni free.
Ciao
Robin


ma ioprogrammo non aveva messo la ver 3 standard su un suo cd ?
--
 _______________________________________
        Gnaffy SoftWare
   web: 
http://gnaffy.tripod.com/
   e-mail: Gna...@Wappi.com
   e-mail: 
bmq...@tin.it
   ICQ#: 76488613
 ¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯

mi interesserebbe comunque... dove posso trovarla? sul sito borland non c'è
Newsgroup: it.comp.lang.delphi
Titolo: Exchange web service

Buongiorno a tutti,
premetto che non sono espertissimo di delphi (soprattutto lato web) e che la domanda potrà sembrarvi banale.
 
Volevo provare a collegarmi alla posta aziendale (raggiungibile anche tramite extranet via browser) che utilizza exchange 2010 e leggere i contatti della rubrica.
 
Wsdl credo sia da escludere perché ho provato a scaricare il relativo file ma ci sono solo 4 funzioni che a naso non servono al mio scopo.
Ho letto sul web che è possibile utilizzare anche le mapi ma non saprei come.
 
Cosa mi suggerite?
 
Grazie mille

Ciao Giuseppe,

Premesso che non ho mai, e credo mai usero', questo tipo di programma 
per la posta (mi scuserai se sono abbastanza riduttivo) e considerato 
che alla fine di ottobre sara' abbandonato, no conviene pensare a 
qualcos'altro?
Per esempio hai pensato di spostare tutto su gmail, yahoo, libero, aruba 
ecc..
In questo caso con i protocolli smtp/imap puoi fare un po quello che vuoi.
 
Scusami per non averti risposto tecnicamente ma non sapendo com'e' 
exchange non posso andare oltre a questo.
 
Ciao
Daniele

Newsgroup: it.comp.lang.delphi
Titolo: Runtime Error 217

salve,
sto cercando di rintracciare l'origine dell'errore in oggetto in un
programma da me realizzato;
l'errore si verifica dopo la chiusura della form principale; ho provato
a mettere in commento tutto il programma tranne la chiusura della form
ma non sono stato in grado di capire dove viene generato l'errore.
Avete qualche suggerimento?
Oppure esiste qualche utility che mi permetta di tracciare gli eventi
generati dal programma e scoprire dove si annida l'errore?
Il programma è fatto in Delphi 3, con IB 6 e compilato sotto win xp
pro.
Utilizza inoltre alcune dll esterne.
Vi ringrazio per l'aiuto,
Paolo

Il RunTimeError 217 č generato quanto si tenta di uscire da 
un'applicazione console con la combinazione Control+C
Ora perchč la tuo lo ha generato non so comunque controlla
Ciao,
David

infatti avevo trovato una guida che parlava proprio di questo, ma non
sono riuscito a tracciare l'origine del problema, che sembra sfuggirmi
come un topo; sembra che dopo la chiusura della form il programma tenti
di chiudere qualcosa (o di liberare una risorsa), che non ci riesca, e
che mi di l'errore in questione, e questo l'ho notato dal task manager:
l'applicazione si chiude quando si chiude la form, ma il processo
rimane finchè non mi da l'errore.
MI chiedevo se esiste un programma che traccia le risorse che vengono
allocate dai vari programmi, così da provare a rintracciare cosa
effettivamente succede.
Grazie
Paolo

Newsgroup: it.comp.lang.delphi
Titolo: [Cy] ACHS  Thak you --- By AGnello 1

Achs spara cazzate su delphi non dategli ascolto !
By agnello 1
--- posted by geoForum on 
http://www.delphiedintorni.it

Trollati !

Newsgroup: it.comp.lang.delphi
Titolo: Cerco Manuali di Delphi 5

Sto cercando dei manuali da scaricare di Delphi 5 in italiano. Qualcuno può
indicarmi dove posso scaricarli?
Grazie Massimiliano

ho paura che non esistano, al massimo in italiano puoi trovare tutorial e/o
libri (vedi marco cantů).
--
Consonni Davide
bmq...@tin.it
gna...@wappi.com
webmaster of
http://gnaffy.Tripod.com
http://www.traduzioniellepi.com


prova a dare un okkio al sito di marco cantu 
www.marcocantu.it
www.marcocantu.com
 e 
www.dedonline.com
se vuoi saper qualcosa online prova su 
http://www.marcocantu.it/EPascal/
spero di esserti stato utile
Saluti Arturo

prova su 
www.manual.it
 mi sembra di aver visto qualcosa
Massimiliano Etere
maxe...@infinito.it

 wrote in message
aPsn6.1154$Cr1....@news.tin.it...


Newsgroup: it.comp.lang.delphi
Titolo: Access con BDE..

ciao a tutti..
avrei una cosa da chiedere..
Ho provato a collegare un DB access con BDE.. ma non ci sono riuscito.
ho creato l'alias..
ma quando collego la tabella mi compare una maschera dove mi chiede user e
password..
vi prego aiutatemi..
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

password..
Usa un TDatabase con la proprieta' LoginPrompt a false.
-- 
Andrea Laforgia (
walkie...@libero.it
)
"Usenet is a strange place" [Dennis Ritchie]
Newsgroup: it.comp.lang.delphi
Titolo: indy e database

salve a tutti,
come avrete capito sono nuovo, e sono alcuni mesi che mi diletto con Delphi
:)
Sbircio da un po' in questo gruppo, ma non ho mai scritto, ed ora eccomi per
una richiesta che da qualche giorno mi sta facendo innervosire, magari per
qualcuno è una stupidata... vediamo un po...
sto sviluppando un applicazione client/server con indy9 e delphi 6 che a
seconda dei comandi (fomattati in un certo modo, utilizzando la gestione con
CommandHandlers) che il server riceve dal client, aggiunge dei record ad un
db (access per il momento), per scrivere sul db uso i componenti KaDao8.
Il problema è che non riesco proprio a farlo scrivere sul db, mi solleva un
eccezione:
EAaccessViolation con messaggio "AaccessViolation at address XYZ in module
'dao360dll'.
Il codice è il seguente:
procedure TfrmMain.IdTCPServercmdCstartCommand(ASender: TIdCommand);
var
  Sql:String;
begin
  ScriviDati(Sql);
end;
procedure TFrmMain.ScriviDati(strSql:String);
var
  ql:Tstrings;
begin
  ql:=TstringList.Create;
  ql.Add('INSERT INTO tblEventi (campo1, campo2, campo3)');
  ql.Add('VALUES (' + StrSql + ');');
  memo1.Lines:=ql;
  dmserver.qry.ExecSQL(ql);
  ql.free;
end;
il kadao table è collegato, il database è connesso, sembra tutto a posto.
 La query è correttamente formattata perche inserendola a mano in access
funziona, e anche associando l'esecuzione ad un pulsante singolo, esterno al
tcpserver funziona.
Se qualcuno avesse qualche idea su come potrei riuscire a risolvere, gli
sarei grato!
Grazie
--
Jett

  ql.Add('VALUES (' + StrSql + ');');
scoppia.
Non ricordo i default di delphi per i dati non inizializzati, comunque
potresti avere problemi proprio su questo.
ciao!
-- 
Morde. 
(
mo...@despammed.com
)
M-List di icld: 
http://it.groups.yahoo.com/group/icld/

 A livelo formale, questo codice passa una stringa nulla alla Scrividati.
grazie,
postando il codice non ho messo tutta la procedura che sono un po' di righe,
comunque sql č valorizzata :)
S č una stringa di parametri che con un ciclo si valorizzano e alla fine lo
sommo ad un codice 'xxx' e lo mando a ScriviDati
s:='#'+ aSender.Params.Strings[i]+'#';
      while i < asender.Params.Count-1 do
        begin
        end;
    Sql:='111,'+ s;
ScriviDati(Sql);
... quindi il problema non č lě secondo me...
help
Newsgroup: it.comp.lang.delphi
Titolo: programmare per Android

Buongiorno a tutti. Chiedo:
- con l'ultima versione di Delphi (oppure di Lazarus) è possibile
programmare per Android utilizzando il Pascal come linguaggio?
- se no, ci sono novità in arrivo a breve termine?
Ringrazio anticipatamente e saluto.
Giovanni

 - se no, ci sono novità in arrivo a breve termine?
A quanto ho capito leggendo l'ultima Roadmap, pare che
qualcosa si stia muovendo all'orizzonte sul fronte del
multipiattaforma, ma IIRC si parla di Mac, non di
piattaforme mobile, probabilmente in futuro si
muovera' qualcos'altro ma non certo a breve termine.
ciao
Giacomo

 programmare per Android utilizzando il Pascal come linguaggio?
Io non ci ho mai provato, ma se ne parla qui:
http://forum.lazarus.freepascal.org/index.php/topic,9767.0/topicseen.html
Ciao, Mario

Newsgroup: it.comp.lang.delphi
Titolo: Un esempio CGI Grafiche in delphi...

Dovrei fare una cgi che crea un immagine (gif o meglio png) in delphi,
dove posso trovare un esempio?
Ho delphi 4.0 (nel 5 mi pare ci siano funzioni apposite ma purtroppo
non lo posseggo)
Ciao
--------------------------------------------------
Brayan Fix Kirys Solfory
E-Mail: 
Ki...@technologist.com
 
Kirys Tech 2000: 
http://www.kt2k.com

basta settare come contenttype la stringa "image/jpeg".
metti l'immagine in uno stream e la passi con response.sendstream, il resto
è uguale ad un comunissimo CGI.
--
 _______________________________________
        Gnaffy SoftWare
   web: 
http://gnaffy.tripod.com/
   e-mail: Gna...@Wappi.com
   e-mail: 
bmq...@tin.it
   ICQ#: 76488613
 ¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯

è uguale ad un comunissimo CGI.
Grazie 1024 :D

Newsgroup: it.comp.lang.delphi
Titolo: Beta tester

 Ho sviluppato un programma per Windows XP.
Sei straordinariamente OT.  Sei pregato di rispettare il topic del 
gruppo.

 ha
scritto:

Non rispondergli per favore.
Questo Bracco Baldo (che si firma anche claudio) č un troll che si diverte a
disturbare gli altri; inoltre da anni spamma sulle caselle di e-mail di
aziende chiedendo di distribuire un suo gioco stupido a prezzi assurdi e
insiste nonostante gli vengano date risposte negative.
Please don't feed the troll!
A.
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/
Newsgroup: it.comp.lang.delphi
Titolo: Come evitare lo show

Richiamo il Form1 con le sitruzioni qui sotto. Nell'OnCreate potrei 
accorgermi che le condizioni sono tali che non serve mostrare il form. 
Vorrei dare un messaggio di avviso e tornare al Main. Però non trovo come 
evitare che il Form1 venga mostrato. Ho provato a spostare il test 
nell'OnShow, ma come prevedevo non funziona. Qualcuno ha un suggerimento ? 
Grazie
Form1 := TForm1.Create(Self);
  try
    Form1.ShowModal;
  finally
    Form1.Free;
  end; 

 accorgermi che le condizioni sono tali che non serve mostrare il form.
Come fai a fare questo?
-- 
http://www.kiva.org
Per il ng it.hobby.hi-fi: a*fan*ulo 'sta ca**o di hifi/hiend, tutte
put*an*te.
Per il ng it.comp.lang.delphi: astenersi perditempo e lamer.
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

Sono piuttosto stanco ma:
Form1 := TForm1.Create(Self);
  try
   if Form1.DevoMostrareLaForm() then
    Form1.ShowModal;
  finally
    Form1.Free;
  end;
Questo ovviamente se non puoi fare la verifica prima di creare la
form...
Matteo

 ? Grazie
In generale, è più corretto verificare l'impossibilità di mostrare il 
Form anche prima della sua creazione; comunque sia, per risolvere 
velocemente, prova a ridefinire il costruttore del Form, tramite la 
direttiva *override*, e a spostare il codice dall'evento OnCreate() 
all'interno del costruttore.
Ciao,
   Marco.
-- 
MARCO BREVEGLIERI
  (
http://www.marco.breveglieri.name
)

"la mente elastica "® ©"" <lamente...@hifideli.ty> ha scritto nel 
messaggio news:i7te0s$a0v$1...@news.newsland.it...

Lo, faccio all'interno del FormCreate, dove apro e interrogo un dataset. Se 
la risposta è negativa, faccio un exit. che però non impedisce al form di 
mostrarsi... 

 ha scritto nel messaggio 
news:4ca3...@news.x-privat.org...

Grazie delle idee di Matteo e Marco (evangelisti ?). Mi sa che adotterò 
quella di Matteo, anche se mi piace più quella di Marco, perchè non saprei 
come implementare quest'ultima. L'ho capita, ma non sò la sintassi ... e 
dove lo trovo il costruttore ..? 

 sintassi ... e dove lo trovo il costruttore ..?
Ti riporto un esempio scritto direttamente qui (quindi non verificato in 
Delphi), giusto per chiarire (spero). :)
type
   TMyForm = class(TForm)
   public
     constructor Create(AOwner: TComponent); override;
   end;
...
constructor TMyForm.Create(AOwner: TComponent);
begin
   inherited Create(AOwner);
   if CannotCreate then
     Abort; // sostituisci con un'eccezione personalizzata, se occorre
end;
L'esempio deve essere adattato al tuo caso, ovviamente.


 ha scritto nel messaggio 
news:4ca3...@news.x-privat.org...

Grazie mille dell'esempio. Adesso la cosa mi sembra abbastanza semplice.
Newsgroup: it.comp.lang.delphi
Titolo: Rxlib on Delphi 6..

Ciao a tutti..
Finalmente mi sono deciso è ho aggiornato il mio Delphi, sono passato alla
vs 6.0
I miei programmi fanno tutti uso delle RxLib qualcuno di voi sa se girano
anche sulla vs 6.0??
nel sito Rxlib non sono ancora state aggiornate esiste un'altro link??
grazie e ciao
-- 
Posted from 
mail-3.tiscalinet.it
 [195.130.225.149] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

grazie e ciao
Io l'ho scaricata qui:
http://www.oxygensoftware.com
-- 
"Ciao Rex, che cavolo di situazione eh? Due dentro, due fuori, puo' succedere di tutto!"

Newsgroup: it.comp.lang.delphi
Titolo: Aggiungere "codice" al runtime

Salve amici, dovrei fare una cosa molto strana....
Ho fatto un programma, però ho la necessità che esgua anche del codice
scritto in un file txt (che scriverò io a mano tutte le volte).
In pratica nel file txt ci sono delle vere e proprie istruzioni (ovviamente
compatibili con il mio programma per quanto riguarda variabili,etc...).
Avete idea di come possa implementare stà cosa?
Una cosa tipo:
programma
 var
  blablabla
begin
 blablablablabl
 blablablabla
//qui leggo le istruzioni da file e le eseguo
 blablablabla
blablabla
end;
il file dovrà contenere istruzioni tipo:
while (ciao=3) do
 begin
   i:=i+1;
  ...
 ....
 end;
Sò che è una cosa molto strana....ma se qualche anima pia ha qualche
idea....

Piccola precisazione: Innerfuse Pascal adesso è stato acquisito da
RemObjects Software(rimane sempre gratuito) e si chiama RemObjects
Pascal.
Ciao,
Andrea

Ecco... se avessi letto meglio il resto del thread mi sarei risparmiato la 
fatica...
l'interprete che ti dicevo è proprio innerfuse!
ciao,
   Ste 

basta stabilire con precisione la grammatica del linguaggio che intendi 
usare (cosa che se non ho capito male tu hai già fatto) e quindi scrivere un 
interprete che a runtime le esegua...
Dall'esempio di linguaggio che hai postato, molto simile al pascal/delphi, 
ti posso dire che è una cosa per niente facile...
se vuoi puoi cercare "linguaggi e traduttori" e simili in internet nei siti 
universitari di ingegneria informatica e informatica: dovresti trovare molte 
dispense ed alcuni esempi (difficilmente in Delphi: la maggior parte saranno 
in Java, ma qualcosa in .NET si trova già e può essere (+ o -) facilmente 
"riflessa" in Delphi).
Se non ti vuoi sobbarcare di così tanta fatica puoi cercare in internet: so 
di per certo che c'è un componente "interprete pascal", gratuito e fatto 
benissimo, che fa al caso tuo e che potresti usare... non ricordo più come 
si chiama, ma lo trovi passando per 
http://www.jrsoftware.org/
 che è il sito 
in cui si trova Inno Setup, un ottimo installer gratuito realizzato in 
Delphi. L'interprete di cui ti ho parlato è stato integrato in questo 
installer e sul sito che ti ho dato troverai sicuramente un link per 
raggiungerlo...
Spero d'esserti stato d'aiuto e di essere stato abbastanza chiaro... 
purtroppo vado di corsa e temo d'aver scritto qualche corbelleria!
Ciao,
   Ste 

Grazie!

Credo che "Innerfuse Pascal" possa fare al caso tuo (è gratuito - cerca 
con google)
Newsgroup: it.comp.lang.delphi
Titolo: opzioni diverse REST XE5 Trial

Avvio Delphi e scelgo New->Other->DataSnapServer
visualizza
- DataSnap REST Application
- DataSnap Server
- DataSnap WebBrowser
 
se invece apro un qualunque progetto Win32 e scelgo ancora
New->Other->DataSnapServer
visualizza
 
- DataSnap ClientModule
- DataSnap REST Application
- DataSnap REST Client
- DataSnap Server
- DataSnap WebBrowser
- Server Module
 
c'e' una logica per queste differenze ?

 c'e' una logica per queste differenze ?
 
Semplicemente, a fianco dei wizard per i progetti completi appaiono anche i wizard per la creazione di singoli moduli da aggiungere ai progetti.
 
Ciao!
  Marco.
 
-- 
MARCO BREVEGLIERI
#Home: 
http://www.marco.breveglieri.name
 
#Blog: 
http://www.compilaquindiva.net
Newsgroup: it.comp.lang.delphi
Titolo: Tutte le mie Funzioni e Procedure

Nel corso di questi anni mi sono creato una serie di Funzioni e Procedure 
personalizzate che vorrei riassumere in un solo file, come devo fare?
Prendo le mie funzioni le metto in un file notepad e chiamo il file 
MieFunzioni.pas, giusto?
Come deve essere strutturato tale file?
Come richiamo tale file nei miei progetti?
Grazie a tutti. 

Fulvio ha scritto:

uses miefunzioni
ciao piero

 devo fare?
Prova ad iniziare aprendo il manuale ed a leggere il capitolo "Program
structure and syntax".
-- 
I am what I am, I do what I can
Vuoi supportarmi? 
http://url.repository.biz/go/3E
Do. Or do not. There is not try.

 Come richiamo tale file nei miei progetti?
Scusa, dici che usi delphi da anni e chiedi come usare una funzione 
inclusa in una unit diversa da quella che le deve usare?
Cmq, queste cose sono scritte nella guida in linea.
AS

Chiedo scusa mi sono espresso male per la fretta e quindi non mi sono fatto 
capire.
Quello che volevo sapere non ha nulla a che fare con le vostre risposte, ma 
stamattina siete un po' nervosetti ed allora preferisco non andare avanti 
con questa discussione. 

 unit standard di delphi?
La distribuzione di funzioni all'interno di unit differenti può essere 
senz'altro ottimale, ma se il nostro amico le vuole mettere tutte in una 
unit, che faccia. Al di là che esistano soluzioni più consigliabili e 
altre meno, in questo caso, al di là della mera organizzazione di queste 
funzioni, non ci sono particolari controindicazioni nel raggrupparle 
all'interno di un unica unit.
Ciao,
   Marco.
-- 
MARCO BREVEGLIERI
  (
http://www.marco.breveglieri.name
)

 Come richiamo tale file nei miei progetti?
Se la unit di funzioni e procedure deve essere condivisa tra più 
progetti, memorizza il file in una cartella che andrai poi ad inserire 
nell'elenco dei percorsi "Library Path" configurabile attraverso la 
finestra delle "Environment Options" di Delphi.
Per richiamare la unit nei tuoi applicativi, ti basta inserire il nome 
nella clausola *uses* della unit in cui intendi farne uso.
Delphi saprà ricercarla e compilarla nel progetto in quanto ne hai 
definito la posizione (comune a tutti i progetti) nel "Library Path".


 capire.
In tal caso, spiega meglio ciò che intendi.


In java e in c# il concetto di "funzione" praticamente non esiste...
Non è vero, se parli di "concetto" di funzione.  Un metodo "function"
di Delphi implementa benissimo il _concetto_ di funzione.

 ma stamattina siete un po' nervosetti ed allora preferisco non andare avanti
Dal tuo post mi ero fatto una idea sbagliata.
Scusami.
AS
Newsgroup: it.comp.lang.delphi
Titolo: Evento OnColumnMoved su DBGrid

quando sposto una colonna mi riporta l'indice di partenza FromIndex e 
quello di Arrivo ToIndex.
ma volendo riportare una data colonna nella posizione di partenza ?
intento rendere una colonna non spostabile.
non uso FixedCol perche' non e' detto che sia la prima colonna.
es:
anche se invio DBGrid1.Columns[1].Index := 2; la colonna che si e'
mossa non torna alla posizione 2.
ho cercato in rete, ma non mi risulta niente.
ho disabilitato default drawing e controllo le colonne da
OnDrawDataColumnCell, ma con lo spostamento non fa differenza,
neppure con DefaultDrawing = True.

Sarebbe interessante provare a chiamare Abort() all'interno dell'evento "OnColumnMoved" (quando si sta tentando di spostare la colonna che deve restare immobile al suo posto) e vedere cosa succede. :)
Ciao,
  Marco.
-- 
Marco Breveglieri
   (
http://www.marco.breveglieri.name
)

>
Succede che la colonna si muove comunque;
ciao Maurizio

 Succede che la colonna si muove comunque
Homer Simpsons direbbe "D'oh!". :D
A questo punto, il mio suggerimento � quello di provare a creare un 
discendente del controllo *TDBGrid*, verificando nel sorgente della VCL 
quali sono i metodi chiave che vengono richiamati per implementare lo 
spostamento della colonna, cercando di intervenire sul processo cos� da 
"bloccare" questa operazione nei casi previsti dalla logica della tua 
applicazione.
Purtroppo non posso essere pi� specifico perch� per fornire maggiori 
dettagli dovrei avere il tempo libero di fare quanto detto sopra. :)
Se per caso dovessi fortunatamente trovarlo, ti faccio sapere l'esito 
delle verifiche.



sto sperimentando l'accesso alle properietà protette, anche
se non e' detto che funzioni anche sulle successice o precedenti
versioni , uso D2007.
THackAccess = class(TCustomGrid);
...
THackAccess(DBGrid).MoveColumn(FromColumn, ToColumn);
faccio delle prove e riferisco i risultati a beneficio di tutti.
ciao Maurizio

Newsgroup: it.comp.lang.delphi
Titolo: Problema D7

  Ho portato un'applicazione da Delphi 6 a Delphi 7, ricompilandola.
Solamente che quando apro una mdichild e la chiudo (in D7) mi dà un errore
irreversibile in rtl70, cosa che non succedeva con Delphi 6. A questo punto,
forse il problema è nella VCL, e scusate l'ignoranza, come si fà a debuggare
la VCL (io metto l'opzione use Debug Dcu, ma riesco a debuggare il sorgente
della VCL).
  Esiste un'altro metodo per trovare l'errore ?????????????????
Ciao..

hai cancellato i dcu?
A.

 ha scritto nel messaggio
news:at4bdp$6bk$1...@newsreader1.mclink.it...


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

Salve a tutti.
Chi mi sa dire dove posso trovare in rete un piccolo manuale di delphi?
Ni serve un manuale che mi possa dare la base per poi passare a utilizzare
un manuale del tipo "Delphi 6 tutto e oltre"
Grazie



www.html.it
oppure ti scarichi il borland trial enterprise e li dentro trovi i manuali
di delphi in inglese.
www.marcocantu.com
cerca essential pascal
ciao fabrizio
Newsgroup: it.comp.lang.delphi
Titolo: stapante e monitor

sto cercando si creare un immagine che abbia le stesse dimensioni del 
formato della stampante...
ho usato questo codice prelevato da un forum inglese, consigliato da asch
procedure ttaratura.setdimfoglioprinter;
    var device,driver,port:array[0..80] of char;
    devmode:thandle;
    pdevmode:pdevicemode;
    begin
      printer.getprinter(device,driver,port,devmode);
      if devmode<>0 then begin
      pdevmode:=globallock(devmode);
      if pdevmode<>nil then
      try
        with pdevmode^ do begin
          dmpapersize:=dmpaper_user;
          dmpaperlength:=170;
          dmpaperwidth:=95;
          image1.Width:=dmpaperWidth ;
          image1.height:=dmpaperlength;
                          end;
      finally
          globalunlock(devmode);
                        end;
          end;
    end;
L'iimagine pero', risulta molto più piccola del formato del foglio(170 x 
95), come protrei ridimensionarla per farla apparire di 17 cm x 9,5 cm?

 95), come protrei ridimensionarla per farla apparire di 17 cm x 9,5 cm?
Per sono misure "in tenths of a millimeter".
Due consigli:
1) Leggi sempre l'help prima di usare codice consigliato da sconosciuti.
2) Nella libreria Jedi trovi la unit JclPrint che fa tutto quello che vuoi 
fare tu, ed anche di piů.
Ciao
-- 
ACSH
[TurboDelphi]
Chi fa da se', fatica il doppio

Newsgroup: it.comp.lang.delphi
Titolo: [Semi-OT] CDS, MySQL Query Browser ed altro...

Secondo voi, come si può ottenere quella funzione "figherrima" del MySQL 
Query Browser (avete presente?) che quando carica centiaia di migliaia di 
record nella grid lo fa progressivamente senza bloccare l'applicazione (con 
l'animazione del delfino che nuota e il pulsante che consente di bloccare 
l'operazione)?
Pensavo che la soluzione fosse quella di caricare dati in un CDS con la 
proprietà PackedRecords impostata ad un valore diverso da -1 e il 
FetchOnDemand a True, ma anche così, usando componenti DBExpress 
(TSQLConnection della CoreLab, TSQLQuery, un TDataSetProvider e il mitico 
CDS) quando chiamo il metodo Open del CDS passano circa 4 secondi prima che 
l'applicazione diventi attiva.
Credo che Il MySQL Query Browser carichi i dati su un thread a parte, e poi 
il thread principale li carichi nel CDS un pò per volta, ma non capisco come 
unire le due cose.
Se trovo la soluzione poi la posto per tutti.
Roberto
"Life will be easier, if I have the code" 

Ca@@arola! (scusate).
I sorgenti del MySQL Query Browser sono in Delphi! 

record nella grid lo fa progressivamente senza bloccare l'applicazione
Che bisogno hai di caricare "centinaia di migliaia" di record ?
Newsgroup: it.comp.lang.delphi
Titolo: Ottimizzazione funzione calcolo CheckDigit barcode

Ho realizzato la funzione che riporto qui sotto per la creazione del
checkdigit per
i codici a barre EAN13. Non mi convince l'ultima parte circa
l'arrotondamento alla
decina superiore. Secondo voi si può ottimizzare?
Ciao e grazie,
Dario
function CreaCheckDigitBarcode(const Barcode: string): string;
var Tmp: string;
    i,x,a,b: integer;
begin
  Tmp := ReverseString(Barcode);
  a := 0;
  b := 0;
  for i:=1 to Length(Tmp) do begin
    x := StrToInt( Tmp[i] );
    if (i mod 2) = 0 then
      a := a + x   // pari
    else
      b := b + x;  // dispari
  end;
  b := b * 3;      // i dispari vanno moltiplicati per 3
  a := a + b;
  // arrotondamento decina superiore. il codice qui sotto è da
verificare
  b := (a mod 10);
  if b = 0 then
    b := a
  else begin
    b := round(a / 10);
    b := b * 10;
  end;
  if a > b then
    b := b + 10;
  //////////////////////////
  Result := IntToStr(b - a)[1];
end;

 verificare
Dai un'occhio alla funzione Floor, che arrotonda all'intero superiore.
Ciao
-- 
Morde

 Dai un'occhio alla funzione Floor, che arrotonda all'intero superiore.
Vista. Il problema è che io ho già numeri interi che devo solamente
arrotondare alla
decina superiore. 24 deve diventare 30, 56 diventerà 60 e così via.
Purtroppo col floor
ci faccio poco, senza considerare che fa arrotondamenti... strani.
Anche se decidessi far diventare il mio intero 56 un decimale (5.6),
con la function floor me lo
arrotonda a 5.... sbagliato!
Va beh, tanto così il codice funzica lo stesso  :-)

 Va beh, tanto cos� il codice funzica lo stesso  :-)
1) Prendi il numero N e lo dividi per 10;    (es: 24 / 10 = 2.4)
2) Controlla se la parte intera � minore del risultato ottenuto   (la parte 
intera di 2.4 � 2; il risultato ottenuto � 2.4)
3) Se la parte intera � minore del risultato ottenuto allora incrementa la 
parte intera di 1 (2 diventa 3)
4) Moltiplica la parte intera per 10 (3 diventa 30).
Quindi il numero 24 diventa 30.
 


Si, la funzione da usare non e' Floor, che approssima sempre per
difetto,
ma piuttosto Ceil, che approssima sempre per eccesso:
// untested
function ApprossimaDecinaSuccessiva( x : integer ) : integer;
begin
  Result := 10 * Ceil( x / 10 );
end;
ciao
Giacomo

 ma piuttosto Ceil, che approssima sempre per eccesso:
Si confermo, mio errore.. chiedo venia :-P
-- 
Morde
Newsgroup: it.comp.lang.delphi
Titolo: da richedit a memo

salve a tutti, esiste una funzione che mi permette di trasformare il valore
di un blob text in formato richedit in semplice testo??? (praticamente
togliendo tutte le informazioni di formattazione)
Simone

 ha scritto nel messaggio
news:c2i3g5$1t7vf9$1...@ID-203820.news.uni-berlin.de...

Non so se posso farlo in un newsgroup,
ma gia che ci siamo vorrei chiedere se qualcuno ha sviluppato in delphi un
parser da rtf in html, come quello richiesto in un thread precedente.
Grazie

 ha scritto nel messaggio
news:c2i3g5$1t7vf9$1...@ID-203820.news.uni-berlin.de...

hai dato una occhiata a TCustomRichEdit.PlainText?
Ciao
Matteo

ciao, il mio problema è che se cerco di copiare un campo blob (contenente
dati richedit) dentro un Trichedit.lines.text da line insertion error
Newsgroup: it.comp.lang.delphi
Titolo: DLL e OpenDialog

Buongiorno a tutti.
Sto imparando l'utilizzo delle Dll. 
Nella mia applicazione di prova vorrei, alla pressione di un bottone,
richiamare un OpenDialog.
Nei giorni scorsi ho postato un messaggio e con l'aiuto di qualcuno di voi
sono riuscito ad evitare un brutto erroraccio...
Non riesco a capire ora, come mai non si apre la finestra dell'OpenDialog.
Nella mia dll ho creato la funzione Opendialog, nella quale, una volta
creata un'istanza di TopenDialog vorrei aprire la finestra... ma ciņ non
accade.
A questo punto mi sto chiedendo... č una cosa possibile con le dll oppure
sto cercando di fare qualcosa che non si puņ gestire in questo modo ?
Vi posto 2 righe di codice per meglio rendere l'idea...
Form principale:
var
  Form1: TForm1;
implementation
{$R *.dfm}
procedure DimmiCiao; stdcall; external 'PDll.dll';
procedure OpenDialog; stdcall; external 'PDll.dll';
procedure TForm1.Button1Click(Sender: TObject);
  var Dir, NuovaDir: string;
begin
  Dir := '';
  SelectDirectory('Selezionare una cartella', Dir, NuovaDir);
  Edit1.Text := NuovaDir;
end;
procedure TForm1.Button2Click(Sender: TObject); 
begin
  DimmiCiao;
  OpenDialog;
end;
end.
... e la mia DLL.... :
library PDll;
uses
  SysUtils,
  Classes,
  ShareMem,
  Windows,
  Dialogs,
  UDll in 'UDll.pas';
{$R *.res}
procedure DimmiCiao;
begin
  ShowMessage('Ciao!');
end;
procedure OpenDialog;
var oddialog: TOpenDialog;
begin
  oddialog.Create(nil);
  oddialog.Execute; // in prossimitą di questa riga il compilatore mi da
il seguente messaggio: [Warning] PDll.dpr(22): Variable 'oddialog' might
not have been initialized;
end;
exports DimmiCiao, OpenDialog;
begin
end.
Grazie a tutti per l'aiuto.
Sparta
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

not have been initialized;
Spartuccio, spartuccio, sei ricaduto nello stesso errore ;-)
oddialog è una variabile, e come giustamente il compilatore ti
suggerisce non è stata inizializzata.
oddialog := TOpendialog.Create(nil);
-- 
"La velocità luce non è sufficiente Comandante Nunziatella, 
dobbiamo passare alla velocità smodata!"

Buongiorno a tutto l'NG
Anche io ho un problema con una DLL.
Ho costruito un'applicazione CLX e adesso vorrei fare in modo di
utilizzare la unit e la grafica che ho fatto per l'applicazione nella in
una DLL a se stante.
Posso riuscire se si come posso fare
Grazie a tutti Paolo
--
pbonfanti2@*NOSPAM*
inwind.it
Togliere dall'indirizzo *NOSPAM*

 oddialog := TOpendialog.Create(nil);
ok grazie... :-(
ho ancora bisogno di un consiglio. quando chiudo la form il compilatore va
ancora in errore con il seguente messaggio: Project raised an exception
EInvalid Pointer operation. 
Penso che sia per il motivo che resta ancora un'area di memoria 'vuota' e
quindi non viene distrutta regolarmente perchč non legata alla form.. dico
bene ?
se fosse cosě cosa mi consigliereste ?
Vi ringrazio ancora.

Newsgroup: it.comp.lang.delphi
Titolo: widechar

Salve raga, mi sono bloccato su questo pezzo di codice e non riesco a 
trovare il modo di andare avanti:
 
var
car: widechar;
n,x,y:integer;
begin
for n:=32 to 10000 do
begin
// qui dovrei assegnare a car il carattere ansi (n) cioč car:=char(n) - 
sbagliato di sicuro
griglia.cells[x,y]:=car;
...
end;
 
in pratica, come faccio ad assegnare alla variabile car il carattere n? 
 


Innanzi tutto sarebbe interessante sapere che versione di delphi stai 
usando. Poi quella variabile n che arriva fino a 10.000 fa un po' fatica 
ad assere codificata in ansi (ansi va da 0 a 255). La puoi codificare in 
UTF-16 cosi:
 
car := WideChar(n);
 
Tieni presente che se usi una versione precedente a delphi 2009 dentro 
la griglia non vedrai niente. Se invece usi una versione successiva ti 
conviene leggere questo:
 
http://edn.embarcadero.com/article/38980
 

 ha scritto nel messaggio 
news:j618lp$i22$1...@speranza.aioe.org...


Newsgroup: it.comp.lang.delphi
Titolo: Sendmessage con CustomGrid

Buon giorni a tutti.
Ho la necessità di "muovere" righe e colonne di un derivato di CustomGrid
senza che questo abbia il focus.
Pensavo di usare sendmessage ma non funziona.
Mando codice utilizzato : qualcuno sa aiutarmi per favore.
Procedure Form1.KeyDown(var Key: Word; Shift: TShiftState);
begin
  inherited KeyDown(Key,Shift);
      case key of
        VK_RIGHT,VK_LEFT,VK_END,VK_HOME,VK_DOWN,VK_UP,VK_PRIOR,VK_NEXT:
          begin
            sendmessage(Grid.Handle,WM_KEYDOWN,KEY,0);
key:=0;
        end;
  end;
end;
Ciao , Guido

 ha scritto nel messaggio
news:41f60760$0$8204$5fc...@news.tiscali.it...


> Che intendi per "muovere"? eseguire degli Scroll o altro
Ciao Giorgio,
per muovere intendo principlamente fare lo scroll riga/pagina , spostarmi
sulle colonne a destra e sinistra eseguendo scroll orizondale se necessario
ciao
Guido

 ha scritto nel messaggio
news:41f75c0d$0$8210$5fc...@news.tiscali.it...


 ha scritto nel messaggio
news:41f75c0d$0$8210$5fc...@news.tiscali.it...


Newsgroup: it.comp.lang.delphi
Titolo: Problema con i thread...

Ciao, ho dei problemi con un programma multithread, infatti dopo aver
riattivato un thread sospeso, la memoria usata aumenta inspiegabilmente e
dopo qualche ora ovviamente si pianta tutto. Sapete mica quale possa essere
la ragione???
Grazie Ciao

 ha scritto nel messaggio:

scusa ma il problema sorge con quale dei 2 casi:
1 - Il Thread è stato creato in modalità Suspended e appena viene attivato
perdi le risorse
2 - Il Thread è funzionante, viene addormentato e al successivo risveglio si
ha l'anomala perdita di risorse
Se fosse la (1) allora probabilente è un tuo errore di programmazione
dovresti controllare il codice del Thread, per la (2) le cose sarebbero un
po' più strane e meno giustificabili ...
Ciao! :-)
--
- Carlo -
c.b...@libero.it