mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.delphi
Titolo: Ancora Problemi di Query ed Access

 
ICQ# 156068277

 funziona e con Delphi non accoda nulla?
All'interno del suo "IDE" Access usa un parser SQL tutto suo, mentre per
utilizzarlo via ADO (o BDE o quant'altro) occorre rimanere aderenti allo
sandard SQL: ti ricordo infatti che Delphi non parla con Access direttamente
ma attraverso la strategia di accesso ai dati che hai deciso di utilizzare:
    Delphi -> ADO -> Access
    Delphi -> BDE -> ODBC -> Access
    Delphi -> DbExpress -> Access
    ecc..
Poichè lo strato di software con il quale parli (ADO, BDE, ODBC, ..) non è
Access, non puoi usare i cancelletti (#) per definire un campo data, ma devi
utilizzare le regole standard di SQL, che prevedono gli apici semplici ('):
INSERT INTO _R51 ( Data, IDTipoAbbonamento, Descrizione, Abbonamenti )
SELECT '01/05/2004' AS Data, T_Abbonamenti.IDTipoAbbonamento, ...
Così va.
Saluti
        Marco Bortolani
        info @ 
marcobortolani.it

Saluti
Comlimenti per la spiegazione, semplice e chiara :-)
Ciao
-- 
Morde. 
(
mo...@despammed.com
)
M-List di icld: 
http://it.groups.yahoo.com/group/icld/
Newsgroup: it.comp.lang.delphi
Titolo: Unixdate time conversion

sto creando un applicazione che tiene allineato un ecommerce su mysql e il mio software.
Purtroppo continuo a trovare incongruenze nel tradurre le date di virtuemart che sono memorizzate in unixtime
ecco le librerie usate:
const
  // Sets UnixStartDate to TDateTime of 01/01/1970
  UnixStartDate: TDateTime = 25569.0;
function DateTimeToUnix(ConvDate: TDateTime; timezone: integer): Longint;
begin
  Result := Round((ConvDate - UnixStartDate) * 86400 - timezone*3600);
end;
function UnixToDateTime(Usec: Longint; timezone: integer): TDateTime;
begin
  Result := (Usec / 86400) + UnixStartDate  + timezone*3600;
end;
avete qualche idea come mai talune date differiscono?

On 2 Apr, 09:48, "Fabio Codebue @ GestionaleOpen"

Mmmm... le formule sembrerebbero corrette (tra l'altro sono le stesse
usate anche dalle funzioni DateTimeToUnix() e UnixToDateTime() della
unit dateUtils)
Per quali date hai delle incongruenze? Magari c'e' un errore
sistematico e si riesce a determinarlo (che so, l'anno bisestile?)
ciao
Giacomo

Newsgroup: it.comp.lang.delphi
Titolo: [OT] per Edmondo Di Tucci

Mi sorprende che una persona abituata a partecipare ai ng non abbia capito
che si e' trattato di un errore di Outlook.
Non mi sembra comunque una cosa cosi' grave da giustificare una risposta
tanto scortese da vero guappo, degno dell'ultimo ng sulla pirateria
satellitare.
Cordiali saluti e scusate l'ot.
                 Fabio

 ha scritto nel messaggio
news:a4luts$6da$1...@pegasus.tiscalinet.it...


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

Ciao a tutti, ho di recente trovato allegato ad una rivista
il delphi, vorrei sapere l'indirizzo di qualche sito che
contenesse qualche informazione a proposito,
per esempio i primi rudimenti di programmazione, dato che la documentazione
è in inglese ed io non ci capisco proprio un
XXXXX.
Grazie e Ciao

 wrote in message
81k5p8$2e0$1...@aquila.tiscalinet.it...

Newsgroup: it.comp.lang.delphi
Titolo: DBGrid e multiselect

Vorrei sapere se é possibile una cosa di questo tipo:
Cliccando un TButton selezionare automaticamente piú Row in una DBGrid.
E se la risposta é si come.
Grazie mille. Ciao a tutti, Paola.

E se la risposta é si come.
mmmmm........di che so io non si può fare.
In pratica per fare un multiselect su più righe, dovresti puntare
contemporaneamente a tutti i record della tabella.
Ecco perchè penso che non si possa fare.
C' è una proprieta Multiselect, ma riguarda i campi non i record !!
Comunque potresti dirci a cosa ti serve un multiselect ?
Te lo chiedo solo per vedere se c' è un altro rimedio al tuo problema !!
Ti saluto.....ciaoo !!
Antonio Tarolla
BSSoftware Tips Mailing - List Support

 BSSoftware Tips Mailing - List Support
ANTONIO devo proprio dire che sei molto gentile.
Purtoppo se non é possibile questa "Multiselezione" non c´é niente da fare.
Ma non é drammatico, diciamo che era un "extra" per un programma che sto
scrivendo.
Ciao. Paola.

E se la risposta é si come.
Si potrebbe provare con l'opzione Multiselect (sotto Options) posto a
True (e anche RowSelect), e poi aggiungere da codice le righe (o
meglio, i bookmark) che ti interessano alla variabile SelectedRows.
Non ti so dire se in questo modo hai un feedback visivo (cioe' si
vedono le righe selezionate).
Ciao
--
Piero Bonanno
bop...@libero.it
pie...@tiscalinet.it
bop...@tin.it
bpie...@hotmail.com
______________________________________________
"Madame, lei ha tra le gambe uno strumento
che puo' offrire piacere a migliaia di persone,
e tutto quello che sa fare e' grattarlo"
- Sir Thomas Beechan a una violoncellista


Ciao,
La cosa mi ha incuriosito e ho spulciato tutti gli help a mia disposizione.
Ho proprio paura che la cosa non sia possibile (non in modo pulito, almeno),
anche perche' la proprieta' SelectedRows delle griglie e' ReadOnly...
Se scopro qualcosa te lo faccio sapere. Ciao!
Daigo
--
------------------------------------------------------------
E-Mail:    
dai...@usa.net
 
dragons...@yahoo.com
 
da...@telemail.it
ICQ: 2031448
------------------------------------------------------------
Se vuoi guadagnare qualche soldo navigando clicca su uno dei
link qui sotto
https://www.alladvantage.com/joinsecure.asp?refid=KJF975
http://www.DesktopDollars.com/default.asp?id=daigo75
...Ma sappi che molto probabilmente NON diventerai miliardario... ; )
------------------------------------------------------------

Newsgroup: it.comp.lang.delphi
Titolo: Ho problemi con la stampa

Quando stampo in bianco e nero, alcuni chart a colori, vedo disegnati
solamente gli assi. Il problema potrebbe essere che la stampante interpreta
i colori del grafico come bianchi o neri e non riesce ad ottenere gradazioni
di grigio. Ho provato a settare alcuni parametri della stampante , ma senza
ottenere miglioramenti.
Come posso risolvere il problema ? 
Grazie Filippo
--
Posted from 
small-1.inet.it
 [194.20.8.3] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

Hai provato a togliere il colore ai tuoi grafici?
Crea una app semplice con un grafico b/n e stampalo.
Saluti
AS
"Se è Microsoft non funziona"
Newsgroup: it.comp.lang.delphi
Titolo: Problemone con Access e Delphi5

Salve a tutti,
ho il seguente problema:
Uso Delphi5 Enterprise e Ado e lavoro su database access.
Ho dei grossi problemi con l'uso del ADOQuery component, in pratica non
riesco a fare un Query.Active := FALSE se prima non faccio un
Query5.First, PERCHE'? Come faccio a chiudere il componente per cambiare
comando SQL?
E' possibile compattare un database access da Delphi simulando
l'apposita funzione in access (comprimi e ripristina database) ?
P.S.
Per cortesia rispondetemi in PVT.
Grazie 1000
Gianluca
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 wrote in message
news:369eefb326f83e1eef0...@mygate.mailgate.org...


 wrote in message
news:369eefb326f83e1eef0...@mygate.mailgate.org...


 ha scritto nel messaggio
news:369eefb326f83e1eef0...@mygate.mailgate.org...


Newsgroup: it.comp.lang.delphi
Titolo: variabili globali

Buondì a tutto l'NG
Ho un problemino ho una variabile a:Tstring che in una procedura è
caricata mentre in un'altra devo scorrerla dove devo dichiarla per poterla
utilizzare in entrambe le procedure che stanno nella stessa unit.
Grazie a tutti
--
pbonfanti2@*NOSPAM*
inwind.it
Togliere dall'indirizzo *NOSPAM*

Grazie a tutti
o nella classe, o nella implementation.
-- 
"La velocità luce non è sufficiente Comandante Nunziatella, 
dobbiamo passare alla velocità smodata!"

utilizzare in entrambe le procedure che stanno nella stessa unit.
Puoi dichiararla come "private" sotto la sezione "interface" in cima alla tua
unit. Da li' verra' vista in tutta la unit. 
-- 
Morde. 
(
mo...@despammed.com
)
M-List di icld: 
http://it.groups.yahoo.com/group/icld/

Molta grezie
Ciao


Newsgroup: it.comp.lang.delphi
Titolo: Pixel = cm

Ciao a tutti,
mi chiedevo come posso sapere a quanti pixel corrisponde 1 cm.
Sia in verticale che in orizzontale...
Grazie in Anticipo...
Samuele

Sia in verticale che in orizzontale...
Non si puo' cosi su due piedi dipende dalla risoluzine....
Il Razziatore,
The Only Good Windows is an uninstalled Windows
-----------------------------------------------
E-MAILs : IlRazziat...@NOSPAMnetscape.net
ICQ     : 67552596
-----------------------------------------------
Founder of MediaPlayer Project
http://mpp.iwebland.com

 Sia in verticale che in orizzontale...
Posso solo dirti che dipende dalla risoluzione.
Non è determinabile a priori, e fisso, la dimensione di un pixel.
Cordialità.
Toni

Guarda se ci capisci qualcosa senno' ti mando un
esempio...
Ciao
  Miyomo
const
  MM_PER_INCH = 25.4; // millimetri per pollice
//Trova la risoluzione
var ResX,ResY : integer;
begin
    ResX := GetDeviceCaps(ResHandle, LOGPIXELSX);
    ResY := GetDeviceCaps(ResHandle, LOGPIXELSY);
end;
------------------
function PixelToMM(Risoluzione,Pixel:integer):integer;
var mm:integer;
begin
   //Dai pixel ritorna i millimetri
   mm     := round ((pixel / Risoluzione) * MM_PER_INCH);
   result := (mm * 100);
end;

Io aggiungerei anche della dimensione del monitor
--
_________________________________________
Edmondo Di Tucci snar...@Ttin.it
guarda i miei lavori su: 
www.powernetsi.it/edmondo
Newsgroup: it.comp.lang.delphi
Titolo: Shortcut maledetto

Ho creato un menu popup per una stringgrid.
Nel menu un'opzione ha come shortcut il tasto del.
Il problema e' che questa opzione...
viene richiamata anche quando il fuoco non appartiene alla grid !
In qualunque zona della mia form...
se premo del parte l'opzione maledetta.
Devo aver giocato con qualche cosa...
cosa ?
Grazie
Paolo Zavarise
paoz...@tin.it

 cosa ?
Probabilemente hai associato il PopupMenu alla form (proprietà
Form.PopupMenu) nell'ObjectInspector. Se elimini da lì il riferimento al
popup dovresti risolvere.
Se invece ti serve che funzioni su tutta la form ma solo sulle DBGrid puoi
mettere, come prima riga dell'handler:
if not(ActiveControl is TDbGrid) then exit;
Ciao :-)
--
(¯`·.¸¸.·´¯`·.¸¸.-> Andrea <-.¸¸.·´¯`·.¸¸.·´¯)
AntiSpam: rimuovere il trattino basso dall'indirizzo per rispondere
AntiSpam: remove the underscore from the e-mail address to reply
Newsgroup: it.comp.lang.delphi
Titolo: [ANNUNCIO] Apertura mailing list di it.comp.lang.delphi

Vi informo che Paolo Arosio da pochi giorni ha aperto una mailing list su
yahoo groups dedicata al nostro amato newsgroup it.comp.lang.delphi.
Lo scopo della lista e' quello di 
- ospitare gli off topic del ng, liberandolo dal "rumore" che essi generano.
- favorire gli incontri "reali" tra i partecipanti in occasione degli eventi
del mondo delphi 
ma anche (IMHO):
- avere un luogo dove dirsi gli affari propri senza che il mondo intero lo
sappia tramite google groups ;-)
- fare amicizia
L'interfaccia web della lista è 
http://it.groups.yahoo.com/group/icld/
Li' troverete anche gli indirizzi mail per amministrare la vostra
partecipazione alla lista, senza necessariamente iscrivervi a yahoo groups.
Ciao a tutti: polo rosa, aio' !!!!
-- 
Morde. 
(
mo...@despammed.com
)

 Ciao a tutti: polo rosa, aio' !!!!
appassionato di enigmistica? eheh
-- 
Mauro Falzari 
   [ 
http://digilander.libero.it/mauro.falzari
 ]
 
 "Se guardi nell'abisso, anche l'abisso guarda in te." 
   (Friedrich Nietzsche)

Newsgroup: it.comp.lang.delphi
Titolo: Drag & Drop

Ciao a tutti,
 
ho un problemino.... spiego
 
Ho creato un componente derivato da TPanel con all'interno 3 Tlabel, 2 
TEdit ed un puldante.
Ora ho la necessità di effettuare il drag&drop tra due componenti di 
questo tipo con una particolarità: se il drag&drop parte da una tlabel o 
un tedit deve essere accettato comunque.
 
Per ora ho lavorato cosi':
 
Gli eventi OnDragDrop, OnDragOver, OnEndDrag, OnStartDrag per le Tlabel 
ed i TEdit sono stati riscritti in questa maniera
 
procedure TMapPatient.FOnDragDrop(Sender, Source: TObject; X, Y : Integer);
begin
   DragDrop(Self, X, Y);
End;
 
procedure TMapPatient.FOnDragOver(Sender, Source: TObject; X, Y: 
Integer; State: TDragState; var Accept: Boolean);
Begin
   DragOver(Self, X, Y, State, Accept);
End;
 
procedure TMapPatient.FOnEndDrag(Sender, Target: TObject; X, Y: Integer);
Begin
   DoEndDrag(Target, X, Y);
End;
 
procedure TMapPatient.FOnStartDrag(Sender: TObject; var DragObject: 
TDragObject);
Begin
   DoStartDrag(DragObject);
End;
 
e DragMode è stato posto a dmAutomatic sia sulle Tlabel che sui TEdit e 
sia sul componente principale
 
Il problema è che se creo questo componente ed il drag parte da un 
oggetto differente dal pannello contenitore Accept ritorna sempre false 
anche se lo pongo a True nell'evento OnDragOver del componente
 
dato che non ho mai affrontato un drag&Drop di questo tipo non è che 
qualcuno mi potrebbe aiutare?
 
Grazie,
David

Ok ho risolto. Grazie lo stesso.
Newsgroup: it.comp.lang.delphi
Titolo: risoluzione video e D7

Ho sviluppato un piccolo programma su un pc con la risoluzione 1024x768.
Se lancio l'applicazione su un pc ad una risoluzione maggiore o minore, 
non viene visualizzato bene.
Come si fa per farlo adattare ad ogni tipo di risoluzione video?
Grazie.
-- 
Saluti da
Mazinga
-----------------
caso...@hotmail.com

 Grazie.
cosa intendi per non bene?
-- 
-------------------------------
per scrivere in privato
togliere "1975nosp"
to reply remove "1975nosp"

 Come si fa per farlo adattare ad ogni tipo di risoluzione video?
Secondo me la risoluzione non c'entra: prova a vedere se su quei pc, 
oltre alla risoluzione, hai anche la grandezza dei font diversa 
(proprietà dello schermo, impostazioni, avanzate, impostazione dpi).
Delphi ha sempre avuto qualche problemino con i dpi dello schermo...
-- 
Jax

 
Grazie per la cortese risposta.

 Grazie per la cortese risposta.
Figurati... ma hai risolto poi? :)
-- 
Jax

 
Sì, grazie.


Newsgroup: it.comp.lang.delphi
Titolo: Replace di componenti

Esiste un modo semplice per sostituire un
componente visuale, tipo da DBGrid a MyDBGrid?
Io vorrei estendere le possibilità della DBGrid
con un componente derivato però la form di cui fa
parte e' a sua volta madre di altre form,quindi non posso
semplicemente cancellarlo e sostituirlo.
Grazie

Apri il tuo form.
Apri la finestra del codice
Premi il tasto dx del mouse e scegli "View as text"
Trova la definizione della dbgrid e cambiala.
Salva e chiudi.
Quando compili ti chiedera di cambiare la dichiarazione della variabile
oggetto, ovvero, il nome che tu hai dato al componente:
DbGridClienti : TDbgrid
diventa:
DbGridClienti : TMyDbGrid.
Saluti.
AS
"Se è Microsoft non funziona"

Usa i GExpert.

Newsgroup: it.comp.lang.delphi
Titolo: <Windows> Approssimazione dimensione cartelle

Come si fa ad ottenere il numero approssimato di spazio occupato su disco da
determinati files.
Mi spiego: quando faccio Proprietà di un file o di una cartella, accanto
alla dimensione reale, appare la dimensione approssimata che non capisco
proprio come funzioni perchè è sempre sballata.
Qualcuno di voi sa come funziona?


Ciao, Intendi la dimensione reale occupata dai file ? In questo caso dipende
dal tipo di fat
utilizzata... cioè dalla dimensione minima di un cluster su disco....
dovrebbe esserci già
un thread al riguardo...
Davide DG
Newsgroup: it.comp.lang.delphi
Titolo: [NEWBYE] Componente TRichEdit

Un saluto a tutti gli utenti del NG,
sto usando il componente TRichEdit per far scrivere un testo ma vorrei 
che determinate parole chiave vengano messe in risalto [ad esempio in un 
colore differente], purtroppo non ho la minima idea su come farlo.
Avete qualche suggerimento o qualche guida da passarmi?
Grazie mille,
Kaldais

Un saluto a tutti gli utenti del NG,
ciao
puoi usare la funzione dei CustomRichEdit
FindText che ti restituisce la posizione di una stringa 
nel testo del RichEdit (ti suggerisco di leggere l'Help
di delphi (F1 sul controllo) su questa funzione dei 
CustomRichEdit per ottenere una ricerca migliore).
poi, per settare un colore di testo diverso o un colore 
di sfondo diverso, è stato scritto parecchio codice su 
questo NG in passato, puoi cercare bRichEdit su google 
gruppi focalizzando la ricerca su questo Ng.
	Ciao
	MassimoB

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

Sto cercando suggerimenti, articoli, libri o librerie free per ricerca testo
veloce.
Ringrazio tutti coloro che risponderanno.
ciao.

veloce.
Esistono i metodi di Knuth-Morris e Boyer-Moore (+ veloce).
Prova a fare delle ricerche in rete.
--
Andrea Laforgia (ICQ 87230455)
http://www.geocities.com/AndreaLaforgia
"ci sono tre tipi di persone nel mondo : quelli che
 sono bravi in matematica e quelli che non lo sono."

Prova qui ne trovi di svariati tipi:
http://www.dcc.uchile.cl/~rbaeza/handbook/text_a.html
Newsgroup: it.comp.lang.delphi
Titolo: Intercettare evento su software esterno

Buongiorno a tutti.
Sto lavorando su una specie di plugin da realizzare per un committente che
si trova in una situazione come la seguente: per la sua attività lui fa uso
abitualmente di un software verticale dedicato (che gestisce anche la
fatturazione), a cui ne ha affiancato un altro per la gestione del
magazzino. Nessuno dei due programmi è stato realizzato da me.
Ora, lui vorrebbe che la procedura di carico/scarico del magazzino fosse
automatizzata con l'inserimento delle fatture.
Così, potendo avere accesso alla struttura delle basi di dati su cui si
appoggiano entrambi i SW, vorrei realizzare una specie di hook su uno dei
due in modo che, alla pressione del pulsante -supponiamo- che attiva
l'evento di archiviazione della fattura, venisse eseguito anche il mio
codice che provochi l' aggiornamento del database sottostante all'altra
applicazione.
Premettendo che, allo stato attuale, si parla ancora e solo di 'studio di
fattibilità', vi pongo due questioni:
1) E' possibile realizzare una simile idea?
2) Avete consigli e suggerimenti sul 'come' effettuare questa operazione?
Grazie mille,
A.

 aggiornamento del database sottostante all'altra applicazione.
Se viene utilizzato un DB standard che supporta i trigger puoi provare
ad utilizzare quelli. In alternativa un loop infinito che verifica la
presenza di un window con una determinata caption ti permetterebbe di
verificare l'apertura di una finestra (es quella di conferma
dell'inserimento etc.), comunque IMHO far cliccare all'utente due
bottoni invece che uno non e' che sia poi una fatica cosi' grande.
-- 
I am what I am, I do what I can
L'uomo, conscio di sbagliare, persevera.

A.
	Ciao
	MassimoB
 
---------------------------
http:\\
www.massimobeschi.it

applicazione.
(cut)
Ciao a tutti, volevo aggiungere un fatto : seppure venisse eseguito il
tuo codice nel momento giusto, automaticamente, i dati da immettere
nel secondo database sarebbero gia' tutti presenti nel primo  database
? Se cosi' non fosse, da dove proverrebbero ? Una parte di altri dati
li dovrebbe comunque immettere l'utente ? L'argomento e' interessante
in generale, indipendentemente dal Delphi. 
Saluti.
Newsgroup: it.comp.lang.delphi
Titolo: query di update

Ciao a tutti,
rieccomi con un'altra domanda... (potrebbe sembrare che vi sfrutti, ma in
realtŕ... č cosě ;-)) finchč non mi arrivano questi benedetti libri su
delphi)
dunque:
-Ho un db con tre campi: A,B,Totale;
-ho un form con una adoconnection, un dataset e una datasource;
-ho una dbgrid che mi visualizza il db;
-ho due dbedit per inserire i valori nel db
ed infine una barra di navigazine del db (ins,del,post,refresh..)
Ora, io vorrei fare in modo che inserendo un valore per A e uno per B e
cliccando sulla spunta post della barra di navigazione venga eseguita una
query di aggiornamento che somma A e B e mette il risultato nel campo Totale
della tabella.
E' possibile farlo o mi č preso il classico delirio d'onnipotenza del
principiante?
Grazie!!!
Bacionissimi a tutti!!
--
^°^°^°^°^°^°^°^°^°^°^°^°^°^°^°^°^°^°^°^
tyr...@interfree.it
ICQ --> 123002529
Giulia.   =^_^=
v°v°v°v°v°v°v°v°v°v°v°v°v°v°v°v°v°v°v°v°v°v


Certo che si puo' fare, per esempio potresti utilizzare l'evento
BeforePost del tuo dataset per andare ad impostare il valore del campo
Totale in base al valore dei due campi.
Ciao, Rocco

 della tabella.
Qui la faccenda prende strade diverse a seconda di quale discendente di
TDataSet hai usato. Se si tratta di una TTable (o TAdoTable) allora puoi
semplicemente assegnare al campo Totale dello stesso la somma dei due:
MiaTabella.FieldByName('Totale').Value:=MiaTabella.FieldByName('A').Value+Mi
aTabella.FieldByName('B').Value;
Quando fare questo? Prima del post, quindi devi intercettare da qualche
parte l'azione di post dei dati, ad esempio nell'evento BeforeAction della
barra di navigazione, testando che il parametro Button sia = a nbPost.
Se invece usi una Query per leggere, la cosa è leggermente + complessa, in
quanto (a meno di tecniche un pò + avanzate) essa è di sola lettura. Devi
farti una query di update (o di insert, a seconda), passandole i valori da
inserire come parametri... Tutto questo va messo sempre nell'evento
suggerito sopra.
Ciao,
G.

 della tabella.
Non uso mai il DBNavigator, pero' eventualmente l'evento 
OnBeforeAction e' quello in cui devi mettere il tuo codice,
testando che il bottone premuto sia quello di post.
procedure TForm1.DBNavigator1BeforeAction(Sender: TObject;
  Button: TNavigateBtn);
var  
  ValoreA, ValoreB: Integer;
begin
  if Button = nbPost then
  begin
    ValoreA := 0;
    ValoreB := 0;
    if Trim(edtValoreA.Text) <> '' then  
      ValoreA := StrToInt(edtValoreA.Text);
    if Trim(edtValoreB.Text) <> '' then  
      ValoreB := StrToInt(edtValoreB.Text);
 
    ADODataSet1.FieldByName('Totale').AsInteger := ValoreA + ValoreB;
  end;
end;
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

Grazie a tutti!! Ora funge e ho capito come fare!!
Ah, i manuali di delphi mi arrivano domani !!! AH AH AH che bello!!! Almeno
smetterň di andare a tentativi!!
Baci!!

Newsgroup: it.comp.lang.delphi
Titolo: Tabelle Paradox in rete

Ho la necessità di usare tabelle paradox da più applicativi
contemporaneamente e , avendo sempre utilizzato dei server veri e propri
(Interbase, SQL e AS400) ho fatto prima alcune prove:
con operazioni di scrittura contemporanee solo una viene effettivamente
registrata sul DB, le altre vengono portate a termine senza errori ma non
trovo traccia dei dati nella tabella.
1) Esiste qualche comando particolare per bloccare un record/tabella durante
un append o edit o devo gestirlo separatamente???
2) I problemi con gli indici che si corrompono sono reali o sono legate a
vecchie versioni di BDE?
Grazie per le risposte.

 ha scritto nel messaggio
news:Hp_H6.9622$_r2.1...@news2.tin.it...

Le tabelle Paradox possono essere usate in ambiente multiutente a patto che
il BDE e (il sistema operativo in alcuni casi come NT4 che fa da file server
e W95 come client) sia configurato opportunamente.
Il lock dei record è gestito automaticamente e in modo pessimistico;
necessita per funzionare della corretta configurazione del parametro
NetFileDir della Session in uso. E' caldamente consigliato in questo caso
configurare anche PrivateDir.
I problemi con la corruzione degli indici sono reali ma legati a particolari
configurazioni client/server (come quella che citavo prima) ma sono ben note
e altrattanto noti e documentati sono i provvedimenti da prendere: vedi il
Technical Information Document (TI3342) di Borland stessa.
Fabrizio Zacché
DIGIMAC Software
Newsgroup: it.comp.lang.delphi
Titolo: Firebird domanda semplice

Ciao a tutti,
ho da poco iniziato a studiarmi firebird (versione 1.5 per la 
precisione) e, dopo aver sbattuto la testa tra campi autoincrementanti e 
trigger volevo chiedere a chi ne sa piu' di me (tutti credo) come si fa 
ad assegnare un valore indice di una tabella ad un'altra tenendo conto 
che l'indice della tabella primaria viene generato automaticamente dal 
DB con un trigger. Mi spiego con un esempio facile facile
// Creazione tabella 1 (semplificata ovviamente)
CREATE TABLE TABELLA1
           (
            ID INT NOT NULL PRIMARY KEY,
            NOME CHAR(30),
            COGNOME CHAR(20),
            DATA CHAR(10)
           );
// Creazione trigger per campo autoincrementante
CREATE GENERATOR Autoinc_Gen;
CREATE TRIGGER TABELLA1_BI FOR TABELLA1
ACTIVE BEFORE INSERT POSITION 0 AS
BEGIN
   IF (
NEW.ID
 IS NULL) THEN
 
NEW.ID
 = GEN_ID(Autoinc_Gen, 1);
END;
// Creazione tabella 2
CREATE TABLE TABELLA2
           (
            ID_PRIMARIO INT NOT NULL PRIMARY KEY,
            CODICE CHAR(30),
            DATO INT
           );
In fase di inserimento per la tabella 1 uso una cosa simile
INSERT INTO ANAGRAFICA (NOME, COGNOME, DATA)
VALUES ('NOME1', 'COGNOME', '2010-01-01');
in quanto il campo ID mi viene generato automaticamente dal trigger.
Ora vorrei assegnare l'ID generato in questo momento alla tabella 1 al 
campo ID_PRIMARIO della tabella 2 ma non so come
Grazie


Hai 2 strade ...
1) Nello stesso trigger dove hai generato il valore ID fai un insert 
nella tabella 2
CREATE TRIGGER TABELLA1_BI FOR TABELLA1
ACTIVE BEFORE INSERT POSITION 0 AS
BEGIN
   IF (
NEW.ID
 IS NULL) THEN
   begin
 
NEW.ID
 = GEN_ID(Autoinc_Gen, 1);
     Insert into tabella2 (ID_PIMARIO,CODICE,DATO) values (
NEW.ID
, 
'CODICE', -1),
END;
Personalmente è errata, perchè potrebbe generare record "orfani in 
tabella2", ma in alcuni casi "sicuri" si può usare (sconsigliata)
2) credi un ulteriore trigger nell'evento afterpost, fai un check se il 
tuo ID non è già stato inserito e lo inserisci
la seconda strada ti evita di avere di record orfani, infatti nel caso 
il post fallisce ti ritrovi nella tabella 2 un ID_PIMARIO inesistente in 
tabella1.
mmm spero di non aver tralasciato niente .. vista l'ora :)
Gob

Generare primary key via trigger o via autoinc impedisce
all'applicazione di conoscere i suddetti id in modo comodo.
Io in genere preferisco che la generazione degli id venga gestita
dall'applicazione stessa e poi passati al db.
A.

 ho da poco iniziato a studiarmi firebird (versione 1.5 per la precisione)
Perchè la versione 1.5 e non la 2 (ultima stable) ?
Per rispondere alla tua domanda: a partire dalla versione 2, puoi farti 
restituire l'ultima PK generata dal database direttamente
 >Firebird 2 introduces RETURNING clause for INSERT statements, so you 
 >can get the inserted value in a single go, just like with MySQL and 
 >some other database systems"
tratto dalla faq:
http://www.firebirdfaq.org/faq243/
-- 
morde
Newsgroup: it.comp.lang.delphi
Titolo: Problemi per eccedere e report builder

Ho un problema, come faccio ad accedere a report builder dalla form di un
programma delphi.
mi spiego meglio, quale procedura devo scrivere nell'evento on-click del
bottone per far partire l'oggetto di report builder PPREPORT
Grazie Ciao



 ha scritto nel messaggio
news:R85e9.10502$%z1.2...@twister1.libero.it...


Newsgroup: it.comp.lang.delphi
Titolo: Help?

Ciao a tutti! Qual'e' il modo migliore/freeware per generaere files di help
per i software che faccio? :-P
Chris

 ha scritto nel messaggio
news:b20use$3vv$1...@newsreader1.mclink.it...


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

seplicemente vorrei che alla pressione del button1
la mi appicazione mostrasse la trayicon
semplicemente non riesco.
ho incluso 'cooltrayicon' nell'uses.
ho provato pure il demo ma non mi funsiona
devo fare forse qualcosa che non sň?
grazie
erik

 ha scritto nel messaggio
news:sxw1a.210122$AA2.8...@news2.tin.it...


Newsgroup: it.comp.lang.delphi
Titolo: Recupero nome wincontrol

Sapreste dirmi, per cortesia, come recuperare il nome (proprietà "name") e
NON il titolo (se si tratta di una form) o il contenuto (se si tratta di un
controllo TEdit o TDBEdit), avendo a disposizione l'handle di un wincontrol
?
"GetWindowText" della API recupero il titolo o il contenuto e NON il nome
dell'oggetto.
GRAZIE.

 l'handle di un wincontrol ?
Ciclo tra tutti i wincontrol ed un IF per confrontare gli handle.
-- 
I am what I am, I do what I can
Non trovi qualche cosa? 
http://url.repository.biz/go/1J

"Setec Astronomy" <setec@_NO_NOSPAM_freemail.it> ha scritto nel messaggio
news:uucQb.281521$e6.10...@twister2.libero.it...

Ho tralasciato di dire una cosa importante e me ne scuso.
Non voglio recuperare le informazioni di controlli all'interno del mio
programma delphi, è ovvio, che in questo caso
utilizzo le funzionalità native di delphi, ma bensì di programmi esterni,
attraverso l' handle dei wincontrol che mi interessano.
Nel frattempo ho trovato la API EnumProps, ma devo ancora verificare che
effettivamente mi restituisce tra i campi della struttura ancche il nome
dell'istanza del controllo o finestra.
Grazie e Ciao.

 esterni, attraverso l' handle dei wincontrol che mi interessano.
Allora non esistera' la proprieta' name. La domanda ora e' un'altra.
Che cosa ci devi fare? Utilizzando le API di windows dovresti essere in
grado di fare molte cose.

Newsgroup: it.comp.lang.delphi
Titolo: [d5-d6] consiglio: componente per acquisizione snapshot da webcam

ciao a tutti, qualcuno ha qualche consiglio su che componente usare per 
eseguire una snapshot da webcam, magari con possibilità di impostare 
luminosità, contrasto,ecc.??
ho provato dspack però molte cose non sono documentate
Simone 

simone, non esiste solo torry.net...
La webcam è una periferica e come tale la sua gestione spetta al
sistema operativo, windows nel tuo caso, giusto?
Ora, windows chi LO FA? Ovviamente zio billy che oltre a fare windows
ha un bel sito dove c'è taaaaaaaaaaaantyo materiale utile.
Ergo:
1) ho aperto firefox
2) ho digitato nel campo di ricerca "webcam api com"
3) mi sono guardato i primi 5 link che il sistema mi ha sputato sullo
schermo
4) ho trovato un COM di 500 kb circa che registrato nel solito modo ti
ESPONE UNA INTERFACCIA X GESTIRE LA WEBCAM.
il tutto in meno di 3 minuti (un caffe in meno non mi fara certo
male...)..
Ora non posso provarla visto che sono ultra impegnato e che non ho una
webcam, ma nello zip c'è anche un chm..
Su, cerca e troverai.
Pax vobiscum.
A.

usa questo componente ha tutto ma tutto quello ke ti serve nn è
difficile da usare:
http://rapidshare.com/files/63876580/videograb.rar

Newsgroup: it.comp.lang.delphi
Titolo: ora corrente: come non visualizzare 30/12/1899

ciao a tutti,
devo visualizzare in una dbedit l'ora corrente.
ho inseritola seguente linea di codice:
dbedit.text:=timetostr(time);
ma mi visualizza anche la data 30/12/1899 . Come posso visualizzare solo
l'ora??

che tipo di campo hai associato al dbedit?
Bye
A.

 dbedit.text:=timetostr(time);
??? perche' un *DB*Edit e non un edit normale ?
TimeToStr traduce solo l'ora, non la data, evidentemente il valore viene
preso dalla tabella.
--------------------------------
Inviato via 
http://usenet.libero.it


Io sto facendo alcune cose proprio con data e ora, ho fatto alcune prove
dbedit.text:=timetostr(time); mi riporta l'ora 16.50.34
dbedit.text:=timetostr(Date); mi riporta l'ora 0.00.00
dbedit.text:=timetostr(now);mi riporta l'ora 16.51.23
non è che hai fatto casino con ShortTimeFormat e cose del genere ??
--
Gianluigi Genasi
--------------------------
Minisystem Srl
Server di posta Kpnqwest - 
www.kpnqwest.it


la visualizzazione nel dbedit č corretta solo dopo aver terminato l'aggiunta
del record si verifica il problema....cmq al dbedit č associato un campo
Data/Ora nel formato 17.24 (24 h)...come db uso Access.
ciao

 Data/Ora nel formato 17.24 (24 h)...come db uso Access.
Imposta il DisplayFormat relativo al campo.

Newsgroup: it.comp.lang.delphi
Titolo: Variabile anomala....

Ciao a tutti e grazie in anticipo.
Ho una procedura che inizia in questo modo:
procedure AggiornaVFM (nStrat: SmallInt);
var
  nFarf  : SmallInt;
  nVel   : SmallInt;
  nCurve : SmallInt;
  VStart, VEnd : SmallInt;
  nGear : SmallInt;
  MFactor : Single;
begin
  AggiornaFTemp (nStrat);
  case nStrat of
    1:
      with FStr1Grid do
        MFactor := VFM_COLS / (nMaxX2-nMinX2);
    2:
      with FStr2Grid do
        MFactor := VFM_COLS / (nMaxX2-nMinX2);
    3:
      with FStr3Grid do
        MFactor := VFM_COLS / (nMaxX2-nMinX2);
  end;
  for nFarf := 0 to 110 do
    begin
      for nCurve := 1 to (AD_CURVES + 1) do
        begin
          ......................
Ebbene, la variabile nFarf assume il solo valore di 111! Dove sbaglio?
Grazie,
Paolo







 ha scritto nel messaggio
news:9601p3$qcs$1...@nreadA.inwind.it...


Il problema era che la variabile nFarf non assumeva valori intermedi...
(Comunque il problema lo ho risolto, vi erano un begin e un end di troppo).
Paolo

Newsgroup: it.comp.lang.delphi
Titolo: TCustomControl e componenti grafici contenuti

Salve a tutti,
Sto creando un componente grafico partendo da un TCustomControl.
Ho la necessità che esso possegga la stessa caratteristica che ha ad esempio
il TPanel, di poter
contenere altri controlli visuali.
In altre parole, se a Design Time, decido di inserire un TButton nel mio
componente, detto TButton
deve avere come Parent il mio componente e NON il Form come invece accade se
non
prendo alcun accorgimento.
Consigli?
Grazie in anticipo,
Saluti


  ABLS Team (
www.abls.it
)

 esempio) viene automaticamente effettuata dal Form Designer di Delphi.
:(
Dove ho toppato? :(
Grazie per il tuo aiuto!

...Oops... Come non detto :)
HO fatto una miiii...iata!
Leggi: NON ho ricompilato ;)
Vabbč forse e meglio che per oggi ...
Salumi e baci

il TPanel, di poter contenere altri controlli visuali.
Devi inserire, nel ControlStyle, la capacita` di accettare controlli.
Esempio:
constructor TTuoComponente.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
  ControlStyle := [csAcceptsControls,
                   csCaptureMouse,
                   csClickEvents,
                   csOpaque,
                   csReplicatable];
end;
Newsgroup: it.comp.lang.delphi
Titolo: Gestione seriale in kylix ?

Ciao a tutti,
a parte le librerie Async pro, ci sono altri componenti che permettono
di gestire la seriale in kylix ?
Vorrei portare una semplice applicazione da winzozz -> linux.
Grazie.
Fulvio
================================================================================================
To reply, remove LEVAME
My digital photos: 
http://www.alecab.it/cai

Puoi provare con Comport library specificato in un paio di post precedenti.
Francamente però non so se l'autore ha già effettuato il porting su kylix.
Considera che l'autore tiene anche un forum specifico per Comport dove puoi
chiedere se e quando ha intenzione di fare il porting.
Questo il sito:
http://www2.arnes.si/~sopecrni/
Ciao
Antonio


Antonio
Grazie, controllero'.
Ciao.
Fulvio
================================================================================================


Newsgroup: it.comp.lang.delphi
Titolo: [CROSS] Info su Delphi 5

Salve,
vorrei avere delle infoprmazioni riguardo questo linguaggio di
programmazione.
grazie
P.S. scusate il cross-post
--
---------------------------------------------
Giuseppe Lupo
Palermo
---------------------------------------------

 ha scritto nel messaggio
news:Tq0n8.62810$1S3.1...@twister1.libero.it...


 programmazione.
Informazioni di che tipo?
Commerciali?
tecniche? In questo caso in che ambito? >Db, web, elaborazione
distribuita, o cosa?
Bye
AS
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

Newsgroup: it.comp.lang.delphi
Titolo: Problema con il commit in interbase

Eseguendo il seguente codice su server interbase remoto:
 DM2.IBTabletarget.First;
    While not DM2.IBTabletarget.Eof do
    begin
      id:=DM2.IBTabletarget.Fields[0].AsInteger;
       if not DM2.IBTablesource.Locate(id_catalogo,id,SearchOptions) then
          begin
            DM2.IBTabletarget.Edit;
            DM2.IBTabletarget.Fields[nfremoto-1].AsString:='F';
 
DM2.IBTabletarget.Post
;
            DM2.IBTtarget.CommitRetaining;
          end;
       DM2.IBTabletarget.Next;
    end;
Ottendo solo il commit dell'ultimo record, e sembra quasi che il motivo sia
che il client "viaggi" piů velocemente del server, esiste un modo per poter
sincronizzare le due azioni, in modo che il client processi il secondo
record solo dopo che effetivamente il server abbia fatto il commit del
primo?
Grazie Enrico

     end;
il problema sta nel fatto che fai il commit senza iniziare nessuna
transazione, e' molto strano che cio' non ti dia errore.
Io farei uno starttransaction all'inizio e un bel commit alla fine,
e non un commit ogni record.
Poi se posso darti un suggerimento, fatti una stored procedure,
o usare l'sql, molto piu' veloci che non utilizzare metodi quali locate,
edit e post.
Ciao,
Alan Solo
Newsgroup: it.comp.lang.delphi
Titolo: Script di InnoSetup MySQL

 
          Prima di tutto un saluto al NG.
Ho sviluppato un'applicazione con DB in MySQL, volevo sapere se qualcuno mi
puņ aiutare postandomi uno script di InnoSetup o indicarmi qualche link dove
li posso scaricare.
Uso MySQL 4.1, l'uncio link che ho trovato č il seguente:
http://news.jrsoftware.org/news/innosetup/msg29918.html
Ma non mi funziona.
Grazie
Antonio Peluso.
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

 li posso scaricare.
Mumble...mumble...sei un pochino "offtopic". :-)
-- 
MARCO BREVEGLIERI
  (
http://www.marco.breveglieri.name
)

 li posso scaricare.
[CUT]
Penso ti convenga chiedere su un NG MySql.

Newsgroup: it.comp.lang.delphi
Titolo: ShellExecute e Apri con...

SAlve a tutti, in un mio programma eseguo le seguenti istruzioni: 
StrPath := ExtractFilePath(Application.ExeName) + '\Temp\' +
        QryApp.FieldByName('ALLNOM').Value;
      TBlobField(QryApp.fieldbyname('ALLBLO')).SaveToFile(StrPath);
      if ExtractFileExt(QryApp.FieldByName('ALLNOM').Value) = '.txt' then
        ShellExecute(Handle, 'open', 'notepad.exe', PAnsiChar
(StrPath), '',
          SW_SHOWNORMAL)
      else
        ShellExecute(Handle, '', PAnsiChar(StrPath), '', '', 
SW_SHOWDEFAULT);
Il problema è ke se non è asssociato nessun programma per aprire il file
non succede niente, vorrei ke mi presentasse la finestra di "apri con" [ 
quella che mi permette di scegliere l'applicazione]
--- posted by geoForum on 
http://www.delphiedintorni.it

quella che mi permette di scegliere l'applicazione]
Puoi invocare la dialog standard cosě:
rundll32 shell32,OpenAs_RunDLL [NOME FILE]
Disclaimer: non so se funziona su tutte le versioni di Windows...
Ciao HTH,
-- 
Andrea /\/\agni - DeD Support Team 
http://www.delphiedintorni.it


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

Qual'è il metodo migliore per salvare su disco delle strutture ad albero,
come i TTreeNode?
Grazie Al

>
Qual'č il metodo migliore per salvare su disco delle strutture ad
albero, come i TTreeNode?
<<
Il migliore non so. Il piů veloce: usando un metodo del proprietario:
TTreeView.SaveToFile (SaveToStream).
Interessante come viene fatto (v. comctrls.pas, classe TTreeStrings).
hth
Paolo Arosio
Newsgroup: it.comp.lang.delphi
Titolo: Comunicare con Excel

Scusatemi per la domanda che magari molti di voi troveranno banale, ma
volevo chiedere come faccio a leggere/scrivere in un file di excel.
Grazie mille in anticipo.
Marco.

Da un TMemo devo prendere il testo e cancellare tutti i tag html  "<br>" e
ripristinarli col ritorno a capo. Cercando nel manuale in linea ho trovato
la funzione "StringReplace", ma non sono riuscito ad usarla.....come cavolo
funziona? Io ho provato con:
StringReplace(edit1.Text, '<br>', ' ',rfReplaceAll);.....ma non funge (o
meglio, sbaglio qualcosa che non so)
C'è qualcuno che me la può spiegare la sintassi corretta di questo comando
(o se esite un comando simile)
Un'altra cosa (scusate se OT): su che sito devo andare per leggere post
vecchissimi dei NG?
Ciao e grazie
Gianni Giusti



 ha scritto nel messaggio
news:SQlp7.48846$F45.5...@news1.tin.it...


StringReplace(edit1.Text, '<br>', ' ',rfReplaceAll);.....ma non funge (o
StringReplace(edit1.Text, '<br>', #13#10, rfReplaceAll);
--
Andrea Laforgia - walkietalkie(at)
libero.it
http://www.geocities.com/AndreaLaforgia

 volevo chiedere come faccio a leggere/scrivere in un file di excel.
Guarda a questo indirizzo:
Deborah Pate's Delphi Automation page is
http://www.djpate.freeserve.co.uk/Automation.htm
Ciao e buon lavoro.
--
Emilio Panozzo
mailto: 
emip...@tin.it

 (o se esite un comando simile)
Nella RxLib ci sono alcune funzioni specifiche per il trattamento delle
strings.
Leggi un po' con calma l'help, c'è una unit dedicata.

Newsgroup: it.comp.lang.delphi
Titolo: applicazione chat ???

volendo creare un applicazione chat con D5 + Indy, una parte server ed una
client ovviamente, qualcuno mi sa dire qual'è il limite massimo di utenti
(dipende dalla banda o che altro) ? Può incidere il fatto di utilizzare UDP
anzichè TCP ?



Newsgroup: it.comp.lang.delphi
Titolo: D6 recuperare il nome PC

Nella "connectionstring" tra i tanti parametri esiste anche workstation ID, 
che contiene il nome del pc.
Volendo creare la connection string a runtime ho la necessita di estrarre 
queta info dal pc, come si fa?
Grazie Carlo 



GetComputerName ?

Newsgroup: it.comp.lang.delphi
Titolo: Re: [d5] zipforge estrazione da zip

risolto... era il nome del file sbagliato!!!!
Scusate

ciao a tutti, mi spiegate perchè non mi fa nulla la seguente operazione???
         ZipForge1.FileName:=cFileZip;
         ZipForge1.OpenArchive;
         ZipForge1.BaseDir:='C:\Temp\aaa';
         // Overwrite all files
         ZipForge1.Options.OverwriteMode := omAlways;
         ZipForge1.ExtractFiles('*.*');
         ZipForge1.CloseArchive;
dovrei scompattare un file zip dentro una cartella!!!
Simo 

 risolto... era il nome del file sbagliato!!!!
Azzo... qui un ROTFL!!!! ci vuole proprio!!!!
-- 
Morde. 
M-List di icld: 
http://it.groups.yahoo.com/group/icld/

Newsgroup: it.comp.lang.delphi
Titolo: ruotare una immagine

Salve NG
devo ruotare una immagine di un certo numero di gradi.....come fare?
P.S.in
 modo semplice, se esiste
Stefano! 

 
P.S.in
 modo semplice, se esiste
Piů simple di cosě!!! Se More! :)
--- posted by geoForum on 
http://www.delphiedintorni.it

 ha scritto nel messaggio 
news:43da0def$0$345$5fc...@news.tiscali.it...


Grazie infinite.
Stefano
"RUBIO" <xdi...@xproviderx.xx> ha scritto nel messaggio 
news:43uhtuF...@individual.net...


Newsgroup: it.comp.lang.delphi
Titolo: Database Dektop e delphi 2006

Qualcuno puo' essere cosi' gentile da spiegarmi perche' nel passaggio da D7 
a D2006 (ignoro cosa sia avvenuto in D2005) si e' perso il Database Desktop, 
e/o come e' stato rimpiazzato ?
Grazie
-- 
F&R

F&R ha scritto:

hai provato a guardare nei file condivisi cartella "file shared".
Non ho la 2006, quindi non ti garantisco....
ciao
-- 
-------------------------------
per scrivere in privato
togliere "1975nosp"
to reply remove "1975nosp"

 e/o come e' stato rimpiazzato ?
Prova a guardare nella sottocartella
   C:\Programmi\File comuni\Borland Shared\Database Desktop
In alternativa, potresti utilizzare il tool "DBExplorer" che si trova 
nella sottocartella "Bin" della directory di installazione di Delphi:
   C:\Programmi\Borland\BDS\4.0\Bin\dbexplor.exe
Ciao,
   Marco.
-- 
MARCO BREVEGLIERI
  (
http://www.marco.breveglieri.name
)
     Non hai la possibilità di scaricare Turbo Delphi Explorer?
     Te lo spedisco io!! [
http://www.marco.breveglieri.name/?p=48
]
Newsgroup: it.comp.lang.delphi
Titolo: Velocità

Ciao a tutti,
sono una specie di niubbo in delphi, nel senso che fino a qualche anno fa 
utilizzavo turbo pascal 7 e borland pascal 7, poi sono passato a vb per 
gestionali e adesso mi ritrovo a dover fare una piccola applicazione grafica 
ed ho optato per il delphi (ho una versione 5 regolare).
Una volta in tp7 scrivevo su una byte-array e poi copiavo sullo schermo, 
adesso in win32 e con delphi5 è più veloce usare una TBitmap, arrivarci con 
le ScanLine e poi usare una Canvas.Draw o è meglio inizializzare una bitmap 
con createDibBitmap e createcompatibledc, accedere direttamente al bytearray 
che ho indirizzato come dibbitmap e poi bitblittare sul form?....
Grazie a chi mi risponderà 

 form?....
Quanto vuoi complicarti la vita?
in ordine di semplicita
1) Canvas.Pixel[x, y]:=Colore;
2) scanline (pero attento alla profondita)
3) API di win
Ti consiglio di manipolare le immagini su un TBitmap apposito e poi passarlo
al form principale, in questo modo elimini il flicker
Stai facendo qualche programma di grafica o ti stai trascinando qualche
vecchia tecnologia?
Bye,
Raktzo

Se lavori su una TBitmap e da pronta la visualizzi con un Canvas usi la 
tecnica del buffer doppio, eliminando il flicker e sfruttando le API 
grafiche di winzoz.
Ciao Giorgio
"raktzo" <_ra...@users.sourceforge.net_> ha scritto nel messaggio 
news:438eb...@newsgate.x-privat.org...

Newsgroup: it.comp.lang.delphi
Titolo: WindowsMediaPlayer

Attraverso l'ocx WindowsMediaPlayer ricevo uno stream da un'url
Media.URL:=Edit1.text;
Come posso salvare questo stream in un file?
grazie
erik

 ha scritto:

salvare quello che vuoi su file non è difficile, ma io non ho capito bene.
Sono un bel po' arrugginito in Delphi, ma il codice che mi riporti assegna
il contenuto di "Edit1.Text" a "Media.URL".
Qual'è questo stream che ricevi ?
Dal codice che hai riportato non ricevi nulla dal MediaPlayer, anzi dai
:-)))
Ciao

 :-)))
Guarda che non capisco cosa voglia dire quell' "anzi dai"..non ti seguo
affatto...
Il punto é che non só il metodo in cui devo ricevere lo stream da
da salvare e come farlo.
ciao
erik

 e ora che ti cambia?
non ci siamo capiti.
Io dalla tua domanda non ho capito cosa devi salvare.
Non ho capito in quale variabile sta questo stream misterioso. Come ricevi
questo stream ? Dove ?
Se queste cose non le sai tu, come pretendi di salvare qualcosa che non
riesci a localizzare !!
Il codice che hai riportato, fa riferimento a due proprietą di tipo stringa
( Media1.URL  e Edit1.Text ). Se vuoi salvare il loro contenuto su file, lo
puoi fare semplicemente utilizzando un file di testo.
Guarda le funzioni Write e Read, AssignFile e fai riferimento al tipo
"TextFile"!
Invece per lavorare con gli stream, ti consiglio la classe TFileStream.
Ovviamente devi avere lo stream da qualche parte, altrimenti non so cosa ci
andrai a salvare su questo file.
Ti saluto e buon lavoro.

 Ti saluto e buon lavoro.
Ciao Antonio ..
Ho installato l'OCX "WindowsMediaPlayer"
Dopo aver messo il componente sulla form
l'unico codice da me scritto é :
WindowsMediaPlayer.Url:='mms://
216.242.118.140/broadband
'
Prova e vedrai che ricevi lo stream video/audio senza scrivere altro.
Ho pure creato un TFileStream all'apertura della form e ho visto le funzioni
di WindowsMediaPlayer
GetTextLen:Integer;
GetTextBuf(Pchar,Integer):Integer;
Poi ho incominciato a provare i metodi piú probabili in cui credevo di poter
salvare lo stream
che ricevo :
onNewStream,onPlayStateChange.. ma niente da fare sembra che di lí non salti
fuori nulla.
Piú di cosí non só che dirti
Grazie comunque
erik

 Grazie comunque
ora si che ho capito qual'è il tuo problema.
Bel problema eh !! :-))
Ci ho messo un po' a risponderti perchè mi sono dovuto scaricare il nuovo
MediaPlayer ed installare il controllo ActiveX.
Il problema è che non vedo un metodo che restituisce questo misterioso
stream.
Sembra che questo MediaPlayer si tenga tutto per se.
Comunque sia se scopro qualcosa ti faccio sapere.
Per ora ti saluto...ciao.

 Per ora ti saluto...ciao.
Grazie per l'interessamento .. ciao
erik