mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.delphi
Titolo: String Grid

Qualcuno sa dirmi come posso fare usando una String Grid in Delphi 6 a
cancellare tutto il contenuto presente nella Grid???
Grazie

 
per ogni Cols[] richiami il metodo clear di TStrings
Ciao Daniele

Grazie Daniele, il tuo metodo funziona.

Allora forse mi conviene utilizzare una seconda String Grid dove memorizzare
i dati correlati da non mostrare.
Comunque grazie.
Ciao

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

Salve sto sviluppando una piccola applicazione e volevo usare la treeview.
L'impostazione va bene, ma vorrei associare al click di una voce l'apertura
di un form.
Come fare ?
-- 
Daniele Napoli
s_mu...@tin.it

Daniele Napoli
	Ciao
	MassimoB
 
---------------------------
http:\\
www.massimobeschi.it

 Come fare ?
Oltre al suggerimento di Massimo, generalmente si associa l'uso di
child form al controllo TTreeview, cosě da non avere una form separata
ma istanziata all'interno della form dove sta il TTreeview. Anche con i
frame si puň lavorare in questo modo.
Per le child form cerca su google "Delphi createparams ws_child".
Ciao
Antonio

Newsgroup: it.comp.lang.delphi
Titolo: Fade Effect on a Form

Hello,
  when we click on the windows "Start" button and choose "Disconnect
User...', the desktop become disable. I'd like to reproduce that effect on a
main form. Anyone can advice me?
Thanks
Marco Cotroneo

 ha scritto nel messaggio
news:9jhhrn$2pl$1...@fe2.cs.interbusiness.it...


 fare?
Ciao!
Intendi questo tipo di effetto ?
procedure TForm1.Button1Click(Sender: TObject);
var x,y : integer;
    myBit : tbitmap;
begin
  refresh;
  myBit := TBitmap.Create;
  try
    myBit.Width := 100;
    myBit.Height := 100;
    for x := 0 to myBit.Width do
    for y := 0 to myBit.Height do
      if x mod 2 = y mod 2
        then myBit.Canvas.Pixels[x,y] := clBlack
         else myBit.Canvas.Pixels[x,y] := clWhite;
    myBit.Monochrome := true;
    for x := 0 to ClientWidth div myBit.Width do
      for y := 0 to ClientHeight div myBit.Height do
        BitBlt  ( Canvas.Handle,
                  x*myBit.Width,
                  y*myBit.Height,
                  myBit.Width,
                  myBit.Height,
                  myBit.Canvas.Handle,
                  0,
                  0,
                  SRCAND );
  finally
    myBit.Free;
  end;
end;
Spero sia quello che cercavi!
--
Ciao !  Davide DG.
Newsgroup: it.comp.lang.delphi
Titolo: Domanda??

sarà mai possibile inviare un documento word
con CBuilder6 o con Delphi7??
grazie a tutti

 con CBuilder6 o con Delphi7??
Sarà mai possibile fare una domanda con un subject meno banale?
e magari con un contenuto che abbia un minimo di senso?
cosa vuol dire inviare un documento word?
-- 
Ciao!
Marco Kregar
marco....@FirebirdSQL.it
www.FirebirdSQL.it
"over the bench the goat sings, under the bench the goat dies"

 cosa vuol dire inviare un documento word?
d'accordo per il subject, e stato un attimo di ,,,,,,,,,,,,,,,,,,,
per il resto, ho dimenticato di scrivere che l'invio deve
avvenire per e-mail....
spero di essere stato chiaro

 ha scritto nel messaggio
news:7n5Vb.20372$Mt6.6...@twister2.libero.it...


1) inviare a COSA?
2) un occhio ai vecchi post lo hai gia dato?
A

 2) un occhio ai vecchi post lo hai gia dato?
inviare ad un destinatario di posta elettronica
riesco a inviare una email testuale ma non un html, o altre cose
come un documento word....
in altre parole
il testo lo riempio nel sequente modo
MailMessage->Body->Text =   sMessage ;
desidererei nello stesso modo  poter inserire un documento word
tutto qui...
grazie

Newsgroup: it.comp.lang.delphi
Titolo: Array di oggetti e relativa assegnazione

Ciao gente,
sto scrivendo un sw con D4, dove all' interno di una form ci sono 24 Tpanel
uguali, sono in verità un componente derivato da TPanel con all'interno
diversi TText, Timer e Porte COM.
Ho chiamato questi pannelli Lav_pan_X dove X è un numero compreso tra 1 e
24, (lo so che gli array partono da zero).
Ho poi creato un array [0..24] of  Tpanel dove Tpanel è la classe del mio
oggetto, chiamato lav_pannello.
Ora in un ciclo For Next sto cercando di assegnare a Lav_panel[x] il
relativo oggetto lav_pan.
Esempio:
X= 12
lav_panel[12] := lav_pan_12.
In pratica avrai bisogno di convertire il nome di un oggetto, che è una
stringa, in un riferimento all'oggetto Tpanel per poterlo caricare
nell'array.
Grazie e scusate per la confusione.
Carlo

 ha scritto nel messaggio
news:3bcD8.45838$US3.1...@twister1.libero.it...



Quello che tu hai fatto già dovrebbe funzionare, ma non credo di aver capito
cosa intendi per "convertire il nome"...
Tieni conto che l'array che usi in fondo è solo un array di puntatori, una
volta che quindi "deferenzi" l'elemento voluto puoi accedere a qualunque
proprietà del pannello, anche il nome:
TPanel(lav_panel[12).name
Facci capire....
;o)
G.

 ha scritto nel messaggio
news:3bcD8.45838$US3.1...@twister1.libero.it...

Newsgroup: it.comp.lang.delphi
Titolo: Suggerimento

Qual'è il miglior modo per ottimizzare la connessione Delphi -> ODBC ->
Informix?
Il sistema classico è un patimento 
c.ca
 2 min per connettersi
Grazie
GLF

Informix?
Saltare ODBC? Non dici quale versione di Delphi usi, ma le versione Ent
hanno dei driver nativi per Informix.
La connessione è lenta solo con Delphi? Oppure anche con altri applicativi?
Luigi D. Sandon - D&amp;D Support Team
--- posted by geoForum on 
http://www.delphiedintorni.it

 cantando, intonava
allegramente:

Non so qui dentro quanti usino informix, prova a dare un'occhio a
comp.databases.informix :
http://groups.google.it/groups?hl=it&lr=&group=comp.databases.informix
cercando per "delphi connection" e simili
Ciao
-- 
Morde. 
(
mo...@despammed.com
)
M-List di icld: 
http://it.groups.yahoo.com/group/icld/

 La connessione è lenta solo con Delphi?
Si
Grazie GLF

ODBC... bleah! :)
Via ADO o via BDE??
-- 
Alberto Salvati
A *Neapolitan* delphi developer who is studing c# & .Net
"Dicette 'o pappece 'nfaccia 'a noce dammi 'o tiempo che pure te spertoso!"

> Via ADO o via BDE??
Come?
Grazie
GLF

 GLF


> usi TDatabase o TAdoConnection?
Tdatabase
GLF

Come?
Usando il SQL Link per Informix. Ma c'è solo nella Enterprise.
In alternativa ADO, se hai un OLEDB provider decente a disposizione.


Newsgroup: it.comp.lang.delphi
Titolo: copiare "record" da una DBgrid ad un'altra

ciao,
ho due dbgrid su un form. La prima contiene i record di un database esterno
(è di un altro programma) la seconda contiene invece i record del database
del mio applicativo. Entrambi i database hanno campi identici. Vorrei che
l'utente possa selezionare un record dalla prima DBgrid e "copiarlo" nella
seconda tramite la pressione di un tasto. Come posso ottenere qualcosa di
questo tipo????
Saluti
Maurizio Manna
Webmaster 
www.f1grandprix.it


Presunto che i DB siano IDENTICI devi copiare i campi del DB A nel DB B.
    DataSetSource.First;
    while not DataSetSource.eof do
    begin
      DataSetDest.Append;
      for x := 0 to DataSetSource.FieldCount - 1 do
        DataSetDest.Fields[x].AsVariant := DataSetSource.Fields[x].Asvariant
      DataSetDest.Post;
      DataSetSource.Next;
    end;
In questo caso la funzione copia spudoratamente tutti i campi da un DB ad un
altro, ma attenzione non tiene conto delle chiavi primarie
NB il pezzo di codice non è testato ma scritto direttamente in AO mi scuso
in anticipo per eventuali errori
Saluti NEA

si, ma io devo poter offrire la possibilità all'utente di scegliere quali
record copiare...come faccio????
Ciao


 record copiare...come faccio????
Se il record sorgente è marcato come copiabile allora
       DataSetDest.Append;
       for x := 0 to DataSetSource.FieldCount - 1 do
         DataSetDest.Fields[x].AsVariant :=
DataSetSource.Fields[x].Asvariant
       DataSetDest.Post;
___Presunto che i DB siano IDENTICI___ e attenzione alle chiavi primarie
Saluti NEA

 questo tipo????
Devi usare la proprieta' SelectedRows della DBGrid.
Cercala sull'help, c'e' un esempio di utilizzo.
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG
Newsgroup: it.comp.lang.delphi
Titolo: errore su quickreport multipli

Se in sequenza creo e lancio l'anteprima di più
quick report, delphi restituisce un acces violation,
come posso fare a far si che il secondo quick report
attenda che si chiuda il precendente prima di lanciarsi??
Grazie.

report.previewmodal
Bye
AS

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

Salve a tutti,
è un periodo in cui sto valutando molti strumenti/linguaggi di sviluppo (tra
i quali trovo ottimo Python).
Ho dato un'occhiata anche a Delphi (nulla da dire, sembra essere un'ottimo
RAD....).
Dato che la mia conoscenza in materia Pascal\Delphi può considerarsi nulla,
potreste consigliarmi un manuale per iniziare.
Grazie dell'attenzione.

potreste consigliarmi un manuale per iniziare.
Personalmente ti consiglio "Delphi 6 Developer's Guide" di Steve
Teixeira e Xavier Pacheco.
C'e` una parte iniziale, in cui vengono trattati i costrutti
Pascal-like del linguaggio e poi si procede, nel tecnico,
all'esplorazione di Delphi.  
-- 
Andrea Laforgia
#exclude <windows.h>

 all'esplorazione di Delphi.
Grazie dell'informazione. Non manchero' di acquistarlo!!!!!


 ha scritto nel messaggio
news:SObW9.18300$ZE.5...@twister2.libero.it...



per iniziare non comprare la versione se, ma comincia da quelli precedenti.
la versione 4 la trovi anche in ita
-- 
Ciao
Marchese Gianfranco
e-mail dgruma@NOPUBBLICITA'
tin.it
 (Da togliere NOPUBBLICITA' se vuoi
rispondermi in privato) sito internet personale:
www.turbo-pascal.cjb.net
  Tutto sul Turbo Pascal  1.5

Newsgroup: it.comp.lang.delphi
Titolo: CPU al 50% in design time su datamodule visualizzato

Vi riporto uan situazione che, pur non essendo grave, mi lascia dei 
dubbi in quanti non riesco a spiegarmela.
Ho un progetto di una dll aperto in delphi 7, mi sposto sul datamodule, 
faccio F12 per mostrare la finestra con i componenti.. e noto che la 
CPU sale al 50% di utilizzo.
Rifaccio F12, scompare il dfm, e la cpu torna giï¿œ.
Cosï¿œ ogni volta che vado a visualizzare il dfm graficamente (*non* con 
ALT+F12) la cpu si impenna..
Ho decinde di componenti di tipo adoquery, datasource, ado stored 
procedure, diversi ppReport, e una sola adoconnection la quale ha 
connected = false ovviamente.
Qualche idea a riguardo??
Ciao
-- 
Morde


Io ho notato un uso smodato della CPU quando da RBuilder sposto una 
serie di componenti con shift/Ctrl+frecce.
Potresti provare a segare dal tuo DM i componenti RB per "vedere 
l'effetto che fà" :)
Di piu' nin so :)
^_Goblin_^
-- 
Ibis et redibis non morieris in bello
http://goblinland.myminicity.com/

 Di piu' nin so :)
Sai giï¿œ abbastanza. ;-)
grazie.
ciao
-- 
Morde
Newsgroup: it.comp.lang.delphi
Titolo: Nome Componente

RiCiao a tutti, una domanda veloce, c'č un modo per rendere visible un
immagine senza usare 15 IF?
Una cosa di questo tipo
x := Random(20);
Image + x .Visible := true;
C'č qlc modo?
Grazie e Ciao
PS:- X l'XML nn si sa piů niente?

 Image + x .Visible := true;
FindComponent?
--
Andrea /\/\agni
ICQ#: 174108000

No no, ho una form con mettiamo 10 TImage.
All'avvio, queste devono cambiare RANDOM, per adesso uno un IF
x := RANDOM(10);
if x = 1 then Image1.Visible := true;
if x = 2 then Image2.Visible := true;
if x = 3 then Image3.Visible := true;
Solo che mi sembra troppo brutto, quindi volevo sapere se c'era un metodo
simile a questo (TEORICO)
x := Random(10);
Image + IntToStr(X) . Visible := true;

 if x = 3 then Image3.Visible := true;
var
  cmp: TComponent;
begin
 cmp := FindComponent('Image'+IntToStr(Random(9)+1));
  if Assigned(cmp) then
    (cmp as TImage).Visible := True
  else
    ShowMessagE('Componente non trovato');
PS: l'ho scritto direttamente nel msg di outlook ma dovrebbe essere ok



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

In effetti avevo pensato a questo, ma volevo includere i BitMap all'interno
dell'exe.
Grazie cmq della soluzione, provo subito !

 all'interno dell'exe.
Potresti integrare i file bitmap all'interno di un file di risorse
(.res) da compilare poi all'interno della tua applicazione usando la
direttiva $R.
A ciascuna risorsa bitmap è associato un nome, che potresti attribuire
secondo la convenzione che ti ho indicato nel messaggio precedente.
Detto questo, usi il metodo LoadFromResourceName della classe TBitmap
per caricare l'immagine all'interno del tuo controllo visuale TImage.
Il mio suggerimento, comunque, era maggiormente intenzionato a
scoraggiare l'inclusione di file bitmap di grandi dimensioni all'interno
della tua applicazione, che potrebbere seriamente crescere a dismisura.
Al massimo, tieni buone le altre soluzioni che ti sono state date e crea
tanti controlli TImage, ma inserisci al loro interno una immagine JPEG.
(nota: per usare immagini JPEG, devi aggiungere la unit omonima nella
clausola "uses").


Ok opterò per uno o per l'altro, adesso vedo come è messo il prog

Newsgroup: it.comp.lang.delphi
Titolo: (D5) aggiungere Button su BorderIcons

Ciao a tutti!
Sapete come fare per aggiungere un Button assieme agli altri del
BorderIcons?
Vorrei mettere quello con il "puntino" che riduce l'applicazione alal
traybar.
Ovviamente dovrei catturare anche l'evento OnClick del nuovo Button...
Grazie!

Non saprei proprio come realizzarlo, ma quando ne ho avuto bisogno, ho
utilizzato il componente delle Jedi 3.0: JvCaptionButton.
Funziona troppo bene per pensare di provare a realizzarlo io .....
....:)
Gianni

mitico! grazie tante, piu' facile di cosi' si muore ^^
ciao, buon lavoro
Fod.
Newsgroup: it.comp.lang.delphi
Titolo: il tasto shift è premuto?

Un saluto a tutti del NG. Vorrei porvi una domanda:
con questa procedura, come faccio a controllare se č premuto il tasto
shift? Io vorrei che essa fosse eseguyita se entrambi i tasti, sia space
che shift, fossero premuti.
La guida di delphi mi dice che lo stato č dato dalla variabile Shift, ma
come faccio a controllarla? ho provato in vari modi ma in tutti i casi
mi da errore, come posso fare?
procedure TForm1.OnKeyDown(Sender: TObject; var Key: Word; Shift:
TShiftState);
begin
if (Key=VK_SPACE) then
   MessageDlg('Cancel pressed', mtInformation, [mbOK],0);
end;
Grazie a tutti,
                    By Enri'S

   MessageDlg('Cancel pressed', mtInformation, [mbOK],0);
if (Key=VK_SPACE) and (ssShift in Shift) then
   MessageDlg('Cancel pressed', mtInformation, [mbOK],0);
... e' un insieme..
Ciao,
Alan Solo

Newsgroup: it.comp.lang.delphi
Titolo: Lettura testo

In che modo posso far leggere del testo scritto in italiano da Delphi,
cercando di ottenere una voce più umana possibile ?!?!?
Devo usare l'SDK SAPI di Microsoft o altro?!?!
Grazie a tutti!!!

hai gia visto le speech api et similia su msdn?
A
--
Per rispondere non usare il reply ma scrivere al seguente indirizzo:
alsalvati(at)
supereva.it

Newsgroup: it.comp.lang.delphi
Titolo: Attivare javascript in una pagina web

Ciao,
sto realizzando un programma per automatizzare la navigazione in un sito .
Uso twebbrowser, e ora ho trovato in una pagina  l'uso di javascript.
Esempio nel codice Html relativo ad un pulsante trovo:
 Href = javascript:goto page(123,'_top');
Altri attivano dei download ma lo schema e' pressoche' identico.
Quindi la mia domanda generale e' : come attivare i javascript con delphi?
Grazie.


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

 pagina. In tal caso, č meglio utilizzare direttamente Internet Explorer


 view.Ciao
Suppongo che ogni bottone della pagina Web rimandi poi ad una pagina
specifica; a questo punto, perchč non fai altro che richiamare quella
pagina utilizzando i pulsanti che sono nell'applicazione, senza eseguire
alcun codice JavaScript ma richiamando la pagina di riferimento?
Non so se sia cosě semplice interagire con il JavaScript da Delphi senza
addentrarsi nei meandri delle interfacce esposte dal controllo
WebBrowser...a quel punto, mi chiederei se vale veramente la pena
adottare una simile soluzione.


Newsgroup: it.comp.lang.delphi
Titolo: Form Delphi in html ??????





Salve a tutti,


So che esistono dei metodi per visualizzare delle form delphi 
come pagine html (per vedere una applicazione delphi in netscape o explorer, 
qualcuno sa da che parte cominciare?


GRAZIE 1000


Gianluca



tempo fa mi sembra di avere visto un esempio a riguardo su sito di cantů
nella sezione esempi
di MD5.
--
 _______________________________________
        Gnaffy SoftWare
   web: 
http://gnaffy.tripod.com/
   e-mail: Gna...@Wappi.com
   e-mail: 
bmq...@tin.it
   ICQ#: 76488613
 ŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻ
Newsgroup: it.comp.lang.delphi
Titolo: Problema caricamento file

Ciao a tutti, son nuovo da queste parti e re-inizio a prendere in mano
delphi
per rinfrescare questo linguaggio sopito nella mia mente da 4 anni di Cobol
^^
Il mio problema è questo, devo caricare in delle caselle di testo le righe
che
son dentro al mio file di testo.
Il codice che ho fatto è questo:
procedure TForm1.FormCreate(Sender: TObject);
var f:textfile;
    s:string;
begin
   Assignfile(f,'opzioni.txt');
   if fileexists('opzioni.txt') then
   begin
      reset(f);
      while not eof(f) do
      begin
         readln(f,s);
         Form2.Edit1.text:=s;
         if form2.CheckBox1.Checked then
         begin
            readln(f,s);
            Form2.Edit4.text:=s;
         end
         else
            Form2.Edit4.text:='';
         readln(f,s);
         Form2.Edit2.text:=s;
         readln(f,s);
         Form2.Edit3.text:=s;
      end;
      closefile(f);
   end;
end;
Compilo e mi dà o errori, a questopunto eseguo e quando creo la form mi
dà questo errore Progect prova.exe raised exception class EAccessViolation
with
message 'Access violation at address 0044dct5 in module 'Prova.exe'. Read of
address: FFFFFFFF.
Process stopped. Use step or run to continue.
Grazie a chi mi darà una mano ^__^
Ciao
-----------------------------
Baluca
fidder #40
Mezzelfo ladro #1
-----------------------------

 ha scritto nel messaggio
news:X1DX9.35082$YG2.9...@twister1.libero.it...


          Form2.Edit1.text:=s;
ma al momento della creazioen di form1, form2 esiste o no?
Bye
A.

 Controlli Edit1, Edit2.. non siano ancora stati creati.
Era quello :)
Grazie e ciao
-----------------------------
Baluca
Fidder #40
Mezzelfo ladro #1
-----------------------------

Newsgroup: it.comp.lang.delphi
Titolo: invisibilizzare un'applicazione

come faccio a rendere invisibile l'intero form di un'applicazione in modo
che no nsia visibile nè sulalbarra di avvio nè vicino all'orologio?
uso win98SE.
grazie

Complimenti x l'italiano!
Questa la vado a cercare sullo Zingarelli appena torno a casa. :))
Vedi sulle fasq.
Bye
AS


fretta nello scrivere e nessun controll odi ciň che si scrive.
ci vogliono anni di allenamento ^___^

cmq devi mettere la proprietà visible della form in questione a
false...noterai che la form principale è già a false.
Newsgroup: it.comp.lang.delphi
Titolo: Sono confuso con l'SQL e il delphi ...HELP!

Scusate eh....ma stavolta stò andando nel pallone...
Stò studiando da un pò l'sql con il delphi...e per adesso sono riuscito a
fare delle piccole applicazioni semplici semplici...con tabelle a video
etc...
Ma adesso mi chiedo... ma il risultato di una "Select nick from nicknames
where..." se io non voglio mandarlo in una tabella...dove pesco il result
set (e come lo scorro?), come posso accedere ai dati restituiti?
Grazie in anticipo!

 restituiti?
Non ci hai detto nulla sul db che stai usando nè sulla tecnologia di accesso
ai dati che hai scelto (BDE? ADO? IBO? DbExpress? ce ne sono tante...).
Cmq il succo è che i dati stanno in un dataset (le varie TTable, TQuery e
varianti) e vengono presentati attraverso un datasource (TDataSource) e i
data controls (la TDbGrid).
Per fare quello che hai chiesto ti servirà un oggetto TQuery (o variante)
collegato in qualche modo alla tua base dati (cioè linkato ad un TDatabase,
TADOConnection ecc.. a seconda di cosa stai usando), setti la proprietà
Query.SQL e apri la query con Query.Open.
Puoi usare i metodi Next, Prior, First, Last, Eof  ecc ecc per scorrere il
result-set.
Se ci dici che db/tecnologia stai usando ti si può aiutare con maggior
precisione...
Ciao :-)
--
Andrea /\/\agni
ICQ#: 174108000
Newsgroup: it.comp.lang.delphi
Titolo: Zlib.pas, bug decompressore?

[postato su icld, libero.delphi]
Buongiorno a tutti,
ho qualche problema col decompressore delle ZLib; in particolare, quando
tento di leggere l'ultimo pezzullo dello stream decompresso m'incasino.
A dire la verita' ho qualche dubbio sulla classe, ma se qualcuno riesce
a vedere errori nel mio codice tanto meglio.
Le ZLib cui faccio rif. sono ovv.te quelle nel CD di D5; la versione e'
  zlib_Version = '1.0.4';
Grazie in anticipo e
Saluti
Paolo Arosio
procedure TForm1.DeCompressFile(const fn: TFilename);
var destfn: TFilename;
    Src, Dest: TFileStream;
    DeCompressor: TDecompressionStream;
    scnt, dcnt: longint;
    Buffer: array[0..511] of byte;
begin
  destfn := ChangeFileExt(fn, '.txt');
  if FileExists(destfn) then
    raise Exception.Create('destination file already exists');
  Src := TFileStream.Create(fn, fmOpenRead or fmShareDenyWrite);
  try
    FSize := Src.Size;
    Dest := TFileStream.Create(DestFn, fmCreate or fmShareExclusive);
    try
      DeCompressor := TDecompressionStream.Create(Src);
      try
        repeat
          // quando arriva all'ultima lettura non ritorna
          // piu' dall'istruzione che segue
          scnt := DeCompressor.Read(Buffer, 512);      // (*)
          if scnt > 0 then
            dcnt := Dest.Write(Buffer, scnt);
          FDestSize := Dest.Size;
        until scnt < 512;
      finally
        DeCompressor.Free;
      end;
    finally
      Dest.Free;
    end;
  finally
    Src.Free;
  end;
end;
(*) di fatto, Read legge il file compresso tutto in un botto (son solo
4K); il fatto e' che a priori io non conosco la dimensione del file non
compresso, altrimenti chiederei un numero di caratteri appropriato
all'ultimo giro.

   zlib_Version = '1.0.4';
niente, scusate, e' una vecchia versione
(c'e' la 1.1.3 su Torry 
http://www.torry.net/
 )
Saluti
Paolo Arosio
Newsgroup: it.comp.lang.delphi
Titolo: XMLDocument

 Ho la necessita di creare un documento XML dove vi sia la seguente 
struttura:
- Testata
  - Padre
    nome
    Cognome
    Citta
    - Figlio
      Esame
      Voto
ecc..
Ho preso esempio dal libro di Marco Cantů sotto riportato:
procedure DataSetToDOM (RootName, RecordName: string;
  XMLDoc: TXmlDocument; DataSet: TDataSet);
var
  iNode, iChild: IXMLNode;
  i: Integer;
begin
  DataSet.Open;
  DataSet.First;
  // root
  XMLDoc.DocumentElement := XMLDoc.CreateNode (RootName);
  // add table data
  while not DataSet.EOF do
  begin
    // add a node for each record
    iNode := XMLDoc.DocumentElement.AddChild (RecordName);
    for I := 0 to DataSet.FieldCount - 1 do
    begin
      // add an element for each field
      iChild := iNode.AddChild (DataSet.Fields[i].FieldName);
      iChild.Text := DataSet.Fields[i].AsString;
    end;
    DataSet.Next;
  end;
  DataSet.Close;
end;
Funziona perfettamente ma non riesco a creare il figlio come sottonodo 
di padre, poichč mi crea il figlio come nodo di testata.
Come posso risolvere il problema?
Grazie
--- posted by geoForum on 
http://www.delphiedintorni.it

di padre, poichè mi crea il figlio come nodo di testata.


>di padre, poichč mi crea il figlio come nodo di testata.


Grazie per le tue indicazioni, il problema era piu semplice di quanto 
pensavo.
Grazie ancora e buon lavoro


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

Avrei bisogno di utilizzare i dati della rubrica e dei contatti di outlook,
ma non ho trovato come connettere il database.
Avete qualche suggerimento?
Grazie
Gianni 

ma non ho trovato come connettere il database.
Puoi utilizzare ADO.  In rete puoi trovare degli esempi.

 Avete qualche suggerimento?
Scaricati turbopower office partner da 
sourceforge.net
 e leggi bene la
guida, troverai come interfacciarti ad outlook.
Ciao
-- 
Morde. 
ICLDweb: 
http://www2.samatel.com/icld/
Newsgroup: it.comp.lang.delphi
Titolo: Delphi & Webcam

Ciao a tutti,
   mi chiedevo se in delphi (6..XE2) esiste qualcosa per gestire la webcam.
 
Ho trovato qualcosa in giro ma niente di particolare.
La curiosita' di fare qualcosa con la webcam risiede nelle varie consolle di 
casa (xbox, ps3 ecc..) dove tramite la videocamera riescono a gestire il 
personaggio del giochino. In particolare mi chiedevo se in delphi e' 
possibile, tramite webcam, simulare un click su un pulsante quando la mano 
ci passa sopra.
Ho pensato "se sono riusciti a farlo per i videogiochi ..... si potra' farlo 
anche per i pc che ormai hanno la webcam gia' di serie".
Inoltre ieri sera mi e' capitato di vedere la pubblicita' di un televisore 
Samsung che permetteva di comandare l'oggetto tramite il movimento delle 
mani.
Tornando alla webcam, credo che il problema sia far sparire la persona e 
lasciare in vista solo le mani, capire che sono sul controllo (bottone) e 
simulare un click.
 
Se si dovesse trovare una libreria commerciale o libera che fa queste cose 
.... i campi di applicazione sarebbero molteplici.
 
Per ora quello che ho trovato sono solo screen capture ..... ma non demordo 
!!!
 
Se trovo qualcosa .... la meto qui.
 
Spero di aver suscitato un po di curiosita'.
 
Ciao a tutti
 
Daniele
 
 
 

 Se trovo qualcosa .... la meto qui.
 
non credo tu voglia scoprire l'acqua calda arrivando a scrivere un sdk
tutto tuo, quindi..
 
http://www.microsoft.com/en-us/kinectforwindows/
 
 
e ti trovi la pappa (quasi) pronta anche se, ovviamente, non per
Delphi, ma puoi sempre rimboccarti le maniche e iniziare a studiare
anche C# (che poi � cugino di Delphi) e quant'altro.
 
-- 
Alessandra
 
La nostra ingnoranza e' Dio, quello che conosciamo e' scienza - Robert
Green Ingersoll

 anche C# (che poi � cugino di Delphi) e quant'altro.
 
Grazie mille
 
Ciao
Daniele
Newsgroup: it.comp.lang.delphi
Titolo: Sapere se Unit inclusa

Salve,
c'è un modo a runtime per sapere se una determinata unit è inclusa o meno 
nel progetto?
La mia necessità è quella di settare alcune variabili di tale unit che però 
includo o meno nel progetto a seconda del cliente.
Grazie
Andrea 

 del cliente. 
Difficilmente sarai in grado di compilare l'applicazione se contiene
del codice che tenta di valorizzare delle variabili definite in una
unit non inclusa nel progetto.
-- 
Vuoi distribuire il tuo sito web su CD/DVD?
Prova 
http://www.dwebpro.com/
Vuoi diventare un esperto programmatore Delphi?
Vieni a fare uno stage con noi: 
http://www.creativepark.it/stage/

 unit non inclusa nel progetto.
Appunto, prima di valorizzarle vorrei fare un controllo per verificare se la 
unit è inclusa o meno. C'è un modo? 

 verificare se la unit h inclusa o meno. C'h un modo?
Forse e' meglio se rileggi la risposta, con particolar attenzione a
"Difficilmente sarai in grado di COMPILARE l'applicazione".
-- 
Vuoi distribuire il tuo sito web su CD/DVD?
Prova 
http://www.dwebpro.com/
Vuoi diventare un esperto analista Delphi?


 "Difficilmente sarai in grado di COMPILARE l'applicazione".
Hai ragione, è anche elementare come cosa.. 


Prova a valutare l'idea di costruire una dll con le unit che ti interessano,
forse cosě risolvi.
-- 
______________________
O^O
Gaetano - RoccoTanica

Newsgroup: it.comp.lang.delphi
Titolo: Thunderbird: back to Outlook

Vorei provare ThunderBird, ma se poi mi pento e decido di tornare a
Outloook 
o OE, c'è modo di recuperare le email da Thunderbird ??
Ciao
Guido 



non ti puoi pentire, :-))) te lo dice un ex outlookaro!
per non perdere le email thunderbird ha una feature nelle opzioni avanzate
che dice di conservare una copia sul server fino a che tu non hai rimosso
la tua mail dal cestino. in questo modo ti conservi una copia delle email
sul server pop3 (per esempio per 15 gg) cosi hai il tempo di provare tb.
ciao f
-- 
====================================
Coltiva linux, che tanto windows si pianta da solo!
Linux registered user: 364664 (
http://counter.li.org
)

 Outloook o OE, c'è modo di recuperare le email da Thunderbird ??
L'argomento è leggerissimamente OT in questo newsgroup. :-)
-- 
Marco «Alka» Breveglieri
  ABLS Team S.n.c. - Software & Web
  Via De Gasperi, 14
  42019 Scandiano (Reggio Emilia)
 
http://www.abls.it

Newsgroup: it.comp.lang.delphi
Titolo: sospendere in attesa di un tasto

Come si può in un'applicazione windows interrompere l'esecuzione in un certo
punto di una procedura in attesa della pressione di una tasto ?
Grazie infinite.
 
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

 tasto ?
ShowMessage?
-- 
Jax
====
"Ma all'atto pratico, a che cosa serve?"
un ingegnere della Advanced Computing Systems Division dell'IBM, parlando
del circuito integrato, 1968

 ha scritto nel messaggio
news:84Z222Z160Z205Y...@usenet.libero.it...

Newsgroup: it.comp.lang.delphi
Titolo: Installer personalizzato

Ciao a tutti. Ho la necessita' di installare 3 applicazioni con un unico 
installer, per cui ho pensato di crearne uno personalizzato.
Sapete come si fa ad ottenere il percorso delle cartelle "Programmi", 
"Windows\System32", il menu "Avvio", il "Desktop", ecc. per l'utente che 
lancia l'installer?
Grazie,
MT

 lancia l'installer?
Ho trovato. Come sempre, trascuro puntualmente di cercare nel posto piu' 
ovvio. Grazie lo stesso.
MT


Come hai fatto?
Grazie dell'attenzione.
A presto.
 
Massimiliano Monti
Cellulare: 0039 - 335 - 8477278
E-Mail:    massimiliano.monti@mat
--- posted by geoForum on 
http://www.delphiedintorni.it

 Come hai fatto?
Il "posto piu' ovvio" e' la component palette... ho ritrovato un 
componente acquistato qualche secolo fa che associa dei nomi virtuali 
alle cartelle "Desktop", "Program Files", "Start Menu", ecc. Quindi non 
ho bisogno di conoscere il percorso fisico di tali cartelle.
Il componente in questione fa parte del set di componenti "Ortus Shell", 
che se non ricordo male pagai intorno ai 70 euro. Ottimi.
Ciao,
MT

 ho bisogno di conoscere il percorso fisico di tali cartelle.
Ma stai facendo l'installer a mano? Non hai pensato di usare MSI microsoft
(
http://izfree.sourceforge.net
)  oppure qualcosa tipo Innosetup?
-- 
Lis                 
www.alessandroghezzi.it
O'Telma Formula1:   
http://snipurl.com/otelma
I Maestri aprono l'uscio, ma devi entrare da solo (proverbio cinese)

 (
http://izfree.sourceforge.net
)  oppure qualcosa tipo Innosetup?
Di solito uso InnoSetup, ma in questo caso devo fare un unico installer 
per tre applicazioni diverse; inoltre devo implementare anche un 
meccanismo di aggiornamento/riparazione/rimozione di moduli dalle 
applicazioni. Siccome questo meccanismo è un po' sofisticato, mi risulta 
piu' facile codificarne la logica a mano.
Ciao,
MT

Massimiliano Monti
	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 ...
---------------------------------
Newsgroup: it.comp.lang.delphi
Titolo: problema con DLL

salve a tutti,
il mio problema è probabilmente banale ma in questo momento non trovo
la via.
ho una dll che espone una funzione del tipo
int WINAPI IFunzione( out LPSTR szID );
questa funzione dovrebbe rendermi un codice. Ho tradotto
function IFunzione( var szID: LPSTR ): longint; stdcall; external
'Ifunz.dll';
e già non sono sicuro di questa dichiarazione, inoltre non riesco
proprio ad ottenere un risultato coerente dalla funzione...
mi potreste gentilmente indicare come effettuereste la chiamata in
delphi?
vi ringrazio anticipatamente per la pazienza e l'aiuto
Gian Claudio Bernardi

Tanto per iniziare, un occhio alla guida x cio che riguarda le 
differenze tra stdcall, safecall, register etc.
A


ho provato a cambiare il tipo di dichiarazione ma il risultato non
cambia....
penso che sia il modo che uso per preparare il parametro.
var P: PCHAR;
begin
      p := AllocMem( nByte );
      nRetVal := IFunzione( p );
...
      FreeMem( p );
end;
mi succede che il puntatore P dopo l'allocMem mi viasualizza un
indirizzo se lo interrogo da debug, mentre dopo aver chiamato
ifunzione il puntatore è vuoto, ha perso anche il puntamento....

 ifunzione il puntatore è vuoto, ha perso anche il puntamento....
Ma non dovrebbe essere l'effetto dell'ottimizzazione del debugger?
-- 
Morde

 Morde
di solito, a me, quando il valore viene rimosso dall'ottimizzatore me
lo segnala e, inoltre, il punto in cui vado ad interrogare il
puntatore è precedente al punto in cui lo vado ad utilizzare quindi
dovrebbe ancora averlo rimosso...
Newsgroup: it.comp.lang.delphi
Titolo: Array dinamici:

ho un problema piuttosto strano!
supponiamo di avere
BigBuffer : array of Char;
e di fare
i := (256 * Ord(Buffer[9]) + Ord(Buffer[10]));
SetLength(BigBuffer, i+1);
FS.Seek(0, soFromBeginning);
FS.Read(BigBuffer, i) ;
Ebbene dopo questo ogni volta che provo ad accedere ad un valore
BigBuffer[x] incappo in un errore tipico di quando si esce dal campo di
valori poissibili, e accade acnhe andando in BigBuffer[2] !!!
Come mai, visto che la mia procedura funziona a meraviglia usando un array
di dimensione predefinita?

 valori poissibili, e accade acnhe andando in BigBuffer[2] !!!
Può essere che i valga 0 e quindi non viene allocato proprio niente.
Hai provato a fare il debug e vedere il valore di i e di BigBuffer?

Certo!
i := (256 * Ord(Buffer[9]) + Ord(Buffer[10]));
e ho sempre controllato che  Buffer contenga dati validi!
Appena faccio
Temp := (BigBuffer[i]) +
              (BigBuffer[i+1]) +
              (BigBuffer[i+2]) +
              (BigBuffer[i+3]);
da subito errore!
"Balbar" <...@...> ha scritto nel messaggio
news:iNA3a.18822$%p6.15...@news.edisontel.com...


 da subito errore!
Ma che valori ha in questo caso la variabile i quando vai a calcolare
BigBuffer?
Forse dovresti provare a postare del codice un po' più "completo" da quando
inizializzi
BigBuffer fino al primo punto in cui ti da errore. Altrimenti è difficile
capirè perchè non
vada.


Prova con questa:
function Mp3GetId3V2Ver(NomeFile: String): Mp3Id3V2Ver;
var
  FS     : TFileStream;
  Buffer : array [1..128] of Char;
  BigBuffer : PByteArray;
  MyMp3Id3V2Ver : Mp3Id3V2Ver;
  Dim, i, Index, RightIndex : Integer;
  Temp : string[4];
begin
  FS := TFileStream.Create(NomeFile, fmOpenRead or fmShareDenyWrite);
  try
  FS.Seek(0, soFromBeginning);
  FS.Read(Buffer, 128);
  Result.TagExists := False;
  Result.Id3Ver := '';
  with Result do begin
      if Copy(Buffer, 1, 3) = 'ID3' then
       begin
        TagExists := True;
        Id3Ver := '2.' + IntToStr(Ord(Buffer[4]));
        Dim := (256 * Ord(Buffer[9]) + Ord(Buffer[10])); //va sempre, l'ho
controllato! //ShowMessage('"'+IntToStr(i)+'"');
        GetMem(BigBuffer, Dim);//(256 * Ord(Buffer[9]) + Ord(Buffer[10])) +
1);
        FS.Seek(0, soFromBeginning);
        FS.Read(BigBuffer, i) ;
        i := 0;
        RightIndex := 0;
        repeat
          Temp:=Chr(BigBuffer[i])+
                Chr(BigBuffer[i+1])+
                Chr(BigBuffer[i+2])+
                Chr(BigBuffer[i+3]);
          for Index := 0 to 63 do begin //63 dipende dal max dell'array
FramesID
            if Temp = FramesId[Index] then begin
              RightIndex := i;
              Break;
            end;
          end;
          i := i + 1;
        until (RightIndex > 0) or (i>Dim-4);
        ShowMessage(IntToStr(RightIndex));
        FreeMem(BigBuffer,Dim);
       end;
    end;
  finally
    FS.Free;
  end;
end;
Ciao
Giorgio

 ha scritto nel messaggio
news:44U3a.253893$AA2.9...@news2.tin.it...


 provo subito!
facendolo seguire da quasi 5 k di testo dei messaggi precedenti.
Che dire?
http://groups.google.com/groups?oi=djq&ic=1&selm=an_628820033
e
*plonk*
Saluti
Paolo Arosio
Newsgroup: it.comp.lang.delphi
Titolo: Tabelle Paradox in rete con il BDE

Salve a tutti,
vorrei configurare il BDE, se possibile da codice, per fare in modo che il
mio programma possa lavorare sulle tabelle in rete, cioč che su una stessa
tabella possano accedere piů programmi contemporaneamente. Io uso Delphi 3
Professional e BDE 5.01.
Ringrazio anticipatamente tutti coloro che vorranno aiutarmi.
Agostino

Crea sui tuoi client un alias che punti alla cartella di rete che contiene
il database.
Attenzione: la lettera di unita di rete puo essere diversa per ogni client.
Ma nella configurazione del driver devi specificare che tutti gli alias
puntano alla stessa cartella per i net file.
Vedi il parametro Net Dir.
Saluti
AS
"Se è Microsoft non funziona"
Newsgroup: it.comp.lang.delphi
Titolo: Quesito sul tipo Set (insieme)

Nell'help di Delphi 5(ent) è scritto chiaramente che il tipo Set può
contenere al più 255 valori.
Mi chiedevo: "Esiste qualcosa di analogo al tipo Set con una capacità
maggiore"?
Saluti,
Carmine

 maggiore"?
Ohibò, ma cosa devi farci?
AFAIK no, inoltre secondo me dovresti valutare di usare una tecnica
alternativa, non so se una StringList può fare a caso tuo, come logica è
simile a un Set..... ovviamente certe cose devi un po' inalberarti per
farle... io le ho usate per moltissime cose e sinceramente non riesco a
farne più a meno, manco nel tè :)
--
Jax

 farne più a meno, manco nel tè :)
Ho in mente già alcune soluzioni al problema, però mi chiedevo se fosse già
disponibile qualche cosa di già "pronto" in Delphi.
Grazie per l'interessamento!
Saluti,
Carmine
Newsgroup: it.comp.lang.delphi
Titolo: Quale controllo?

scusate la banalità, ma ho creato una form di about e non sò che tipo di
controllo applicare per poter inserire delle brevi descrizione sul
programma.
La label si sviluppa solo in lunghezza e non va bene.
grazie.



risolto wordwrap rulez :)

Newsgroup: it.comp.lang.delphi
Titolo: Ancora (tentativi di) database: roba da pazzi...

Dopo aver reinstallato D4 e aver trasferito le idapi32.dll &c. in
windows/system (altrove non erano viste), sono riuscito a depositare una
TTable sulla form, settare DatabaseName a DBDEMOS, settare TableName a
animals.dbf. Folle dalla gioia per essere arrivato a "tanto", ho depositato
un TDataSource e l'ho linkata alla TTable, poi un TDBGrid e l'ho linkata al
TDataSource... rullo di tamburi... e quando vado ad attivare la TTable
settando Active su True, cosa non mi vedo comparire davanti, se non un
requester che dice "Unknown internal system error"! Bene, questo sì che dice
molto sul problema e sulle possibili selezioni! Voi avete idea di cosa possa
esserci sotto? Ho come l'impressione che la mia avventura database sarà
mooolto corta...
Massimiliano

Ciao Massimiliano,

Dunque il tuo lavoro è abbastanza "sporco", poichè non è semplice risolvere
queste
cose come hai fatto tu.
Le DLL che hai chiamato potrebbero aver bisogno di altri files, è possibile
che le DLL
non vengano correttamente lette etc..
Se fossi in te mi preoccuperei maggiormente sul fatto che tali DLL non
vengono
viste subito dopo l'installazione. Cerca di capire l'origine del problema e
non cercare di
risolverlo in maniere apparentemente funzionanti ma che alla fine si
rilevano inefficienti.
Come vedi neppure il compilatore è in grado di dirti dove sia precisamente
l'errore.
Ciao e buona fortuna.
--
- Carlo -
BSSoftware Tips Mailing-List Support

 vengono viste subito dopo l'installazione. Cerca di capire l'origine del
Ho armeggiato un altro po' e le Paradox sembrano funzionare, le dBase no,
visto che mi interessano le prime sto ben attento a non toccare nulla. :-)
Grazie ancora.
Massimiliano
Newsgroup: it.comp.lang.delphi
Titolo: D2006 displayformat  zeri decimali

usando un campo Decimal (10,2) con Firebird 1.5 , e campo su ClientDataSet
impostato con DisplayFormat  #,##.## oppure #,#0.00 , sia un DBGrid o
DBEdit, non fa vedere gli zeri dopo la virgola , con conseguente mancato
allineamento
es vedo 129,01 e 28 (invece che 28,00)
Stefano


Il DisplayFormat deve essere impostato nel campo del ClientDataSet, se 
e' impostato nella query non ha alcuna importanza.
Se il clientdataset non ha campi creati a design-time devi intervenire a 
run-time agganciando l'evento AfterOpen:
// non testato
procedure TForm1.ClientDataSet1AfterOpen( DataSet : TDataSet );
begin
  TFloatField(DataSet.FieldByName('STIPENDIO')).DisplayFormat :=
     TFloatField(AdoTable1.FieldByName('STIPENDIO')).DisplayFormat;
end;
ciao
Giacomo

>
il campo e' presente nel ClientDataSet ed e' persitente , mi viene il dubbio
se sia meglio usare un tipo campo Float anziche Decimal
ciao Stefano 

 dubbio se sia meglio usare un tipo campo Float anziche Decimal
vado a memoria, ma per le valute a due decimali (tipo euro) si dovrebbe 
usare dei campi firebird di tipo NUMERIC(18,2). 
Con ADO e Access, i campi currency vengono visti come TBCDField (c'è anche 
la proprietà boolean "currency" - scritta proprio così in minuscolo). In 
questo modo, gli importi vengono di solito correttamente visualizzati dai 
controlli data-aware.
Se proprio sono necessari altri aggiustamenti, si può intervenire "di fino" 
nell'evento OnGetText (in lettura) del campo. Però poi bisogna anche 
scrivere codice nell'evento OnSetText per convertire il testo nell'importo 
valuta.
-- 
Mauro Falzari
"Military justice is to justice 
what military music is to music".
  (Groucho Marx)

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

COME TRADURESTE IN DELPHI
QUESTO CODICE
void (* CallBack)(int, int, float, short *);
extern "C"
void __stdcall __declspec(dllexport) SetCallback(void (* myCallback)(int, 
int, float, short *))
{
  CallBack = myCallback;
  return;
}
void OK()
{
if ((freq != LOfreq) && CallBack) {
 (* CallBack)(-1, 101, 0, NULL);
}
grazie a chi mi sapra aiutare
Umberto 

 }
procedure OK;
begin
   if (freq <> LOfreq) and Assigned(CallBack) then
     CallBack(-1,101,0,nil);
end;
ciao
Giacomo
Newsgroup: it.comp.lang.delphi
Titolo: Far lampeggiare l'icona del programma nella barra

Esatto, come si fa a far lampeggiare l'icona del programma nella barra delle
applicazioni, piu' o meno come Outlook o C6 ?
Ho provato l'api FlashWindows, ma non funziona... qualche idea ?
grazie !!                {MSX}

Ho provato l'api FlashWindows, ma non funziona... qualche idea ?
usa l'handle dell'application:
FlashWindow ( Application.Handle, TRUE )
Ciao,
Alan Solo

> FlashWindow ( Application.Handle, TRUE )
Ok sembra andare grazie ! :)
E per farla flashare ripetutamente finche l'utente non torna all'appl come
si fa ? semplicemente con un timer ?

si fa ? semplicemente con un timer ?
si' direi di si' fare flashwindow(... TRUE) in un timer
e poi fare flashwindow(... FALSE) nell'Application.Activate
Ciao :)
Alan Solo

Ho provato l'api FlashWindows, ma non funziona... qualche idea ?
Crea un timer e assegna l'evento OnTimer 
procedure TForm1.Timer1Timer(Sender: TObject);
begin
  FlashWindow( Application.Handle, TRUE ) ;
end;
Newsgroup: it.comp.lang.delphi
Titolo: stampa jpg..

ascoltate si può fare un programma piccolino in delphi per stampare jpg?
Tipo questo: vado in dos
C:\> stampajpg.exe prova.jpg <invio>
e lui stampa...
è possibile?? se si comeee
grazie a tutti ciao..

> C:\> stampajpg.exe prova.jpg <invio>
Prova questo. Non l'ho testato ma dovrebbe almeno teoricamente funzionare..
Metti qualche gestore di eccezioni pero' :)
program Project2;
{$APPTYPE CONSOLE}
uses SysUtils, graphics, jpeg, printers;
var img:TJPEGImage;
begin
img:=TJPEGImage.Create;
img.LoadFromFile(paramstr(1));
Printer.BeginDoc;
printer.canvas.Draw(0,0,img);
printer.enddoc;
img.free;
end.

Come faccio dove lo butto non ho mai fatto una cosa del genere..
devo creare un'applicazione nuova???
come faccio a farla senza form.
grazie per il tuo interessamento.


Ci sono riuscito!!!
ma la stampa è piccola piccola come faccio a ingrandirla???
grazie

begin
 img:=TJPEGImage.Create;
  TRY
    img.LoadFromFile(paramstr(1));
    Printer.BeginDoc;
    printer.canvas.Draw(0,0,img);
    printer.enddoc;
  FINALLY
   img.free;
  END;
In questo modo, se la stampa fallisce, 
ti lbera le risorse di TJpegImage.
Altrimenti, basta che il file non esista che la applicazione
vada in eccezione ed esca senza liberarle.
Bye
AS
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 grazie
prova scretchdraw invece di draw

Si ma quanto ingrandirla se non conosco la risoluzione dell'immagine.
allora la mia domanda è:
come trovo la risoluzione di un immagine jpg?
nelle proprietà non ho trovato nulla.

Newsgroup: it.comp.lang.delphi
Titolo: Problemino con una stringa!

Ciao a tutti, lo so che potrebbe essere anche la stanchezza dato che è
domenica sera, ma ho un problemino a scrivere una stringa su un file di
testo.
Il fatto è che la stringa me la ricavo da una TOpenPictureDialog e la vado a
mettere in una Edit.
Posto parte del codice.....che è meglio:
procedure TForm2.Button1Click(Sender: TObject);
begin
 OpenPictureDialog1.Execute;
 Edit1.Text:=OpenPictureDialog1.FileName;
end;
procedure TForm2.BitBtn1Click(Sender: TObject);
begin
 if MessageBox(Handle,'Salvare le modifiche?','Conferma',mb_YesNo) = idYes
then
  Begin
   AssignFile(Fil,'Dati_Azienda.txt');
   rewrite(Fil);
   Writeln(Fil,Edit2.Text);
   ......
   closefile(Fil);
   Close; //Chiudo la form corrente
  end;
end;
Il fatto è che nel file di testo NON VIENE SCRITTO NIENTE!!!!!
Non capisco proprio il perchè! Ho provato a passare anche attraverso un
variabile Sting intermedia ma niente da fare.
Io voglio solo tenere traccia di dove il prog. va a prendere il logo
dell'azienda e questa mi era sembrata la soluzione migliore, ma a quanto
pare sbaglio qualcosa.
Se anche qualcuno sapesse darmi una soluzione alternativa......
Grazie 1000, ciao.

   Writeln(Fil,Edit2.Text);
scusa non č che č Edit1 (edit*1*) ?? 8)
Ciao,
Alan Solo

Il fatto è che nel file di testo NON VIENE SCRITTO NIENTE!!!!!
Hai definito Fil come TextFile ?


Si certo!


Piccolo errore di trascrizione.
Cmq niente da fare... se uso OpenPictureDialog1 non mi fa nemmeno il Rewrite
del file (quindi non salva nulla), mentre se non lo uso mi salva le altre
cose.
E' normale??????

E' normale??????
ho capito l'inghippo... sě č normale...
questo perchč l'opendialog cambia la directory corrente e il file
viene salvato li dentro (dove hai aperto l'immagine)
potresti fare:
   AssignFile(Fil, ExtractFilePath( ParamStr(0) ) +
'Dati_Azienda.txt');
cosě il file viene salvato nella stessa directory dell'exe
Ciao,
Alan Solo

 Alan Solo
FUNZIONA!!!! SEI UN GRANDE, io non ci avrei mai pensato!
GRAZIE 1009!!!!!!

GRAZIE 1009!!!!!!
ahemmm... prego 1024!! :-)))
Ciao,
Alan SOlo
Newsgroup: it.comp.lang.delphi
Titolo: Creazione dinamica di HTML

Salve a tutti,
chiedo a chi č sicuramente piů esperto di me su come fare un programmino che
mi spedisca via mail una pagina HTML creata dinamicamente.
Come posso fare?
In pratica devo riuscire a creare una pagina, ma non come risultato di un
CGI ma proprio un file che poi devo poter mandare per e-mail
che voi sappiate esistono dei componenti che mi possano aiutare?
Grazie anticipatamente.
_________________________________
Tomas Battistini
TSTsystems S.a.
email: 
tbatt...@tstsystems.sm
 
tom...@mail.omnitel.it
tel: 0549876351  -   fax: 0549996236

Come posso fare?
Beh crearla è banale: le pagine html sono semplici file di testo. Puoi usare
quindi ad esempio un textfile.
Var f:Textfile;
begin
 assignfile(f,'index.html');
 rewrite(f);
 writeln(f,'<BODY> boh metti quello che vuoi :) <BR>');
 writeln(f,'</BODY>');
 closefile(f);
Così dovresti poter creare semplici file. Oppure puoi usare il TStringList.
Per spedirla poi, se hai Delphi C/S, la cosa è facile: basta usare i campi
del componente TSMTP. Se vuoi spedirla come allegato, allora è meglio se usi
il Textfile, se invece vuoi spedirla come corpo del messaggio, allora usa
TStringList.
Ciao !                {MSX}


io ho fatto un componente, htmlgenerator. non è il massimo però è carino.
lo trovi su il sito di 
www.multyplayer.it/itaprogaming
 alla sezione delphi
componenti.
ciao ciao
--
Gna...@Wappi.com
ICQ# 76488613

Newsgroup: it.comp.lang.delphi
Titolo: TRAY BAR

Vorrei fare in modo che quando eseguo un programma questo non crei
l'icona nella barra delle applicazioni,
come fare?
Gian
--
Posted from 
relay1.inwind.it
 [212.141.53.67] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 l'icona nella barra delle applicazioni, come fare?
Ciao, puoi fare così :
ShowWindow (Application.Handle, sw_hide)
per farla "ricomparire" : showwindow (application.handle, sw_show)
p.s.: cmq la tray bar è quella vicino all'orologio di windows, non quella
che intendi tu.
Ciao!! Davide DG