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

c'č qualche anima pia che mi potrebbe spiegare il funzionamenti di questa
funzione, tutte le volte che la uso mi va in errore il programma.
In piů come si potrebbe fare per leggere una riga da un file txt?
Mille grazie a chiunque risponda!

 wrote in message
news:B%4t5.5718$_U1....@news.infostrada.it...

Molto probabilmente l'errore č dato dal fatto che non allochi il buffer da
passare alla funzione. Prova a fare cosě
var
  windowsDir:pChar;
  bufSize,retVal:integer;
begin
  bufSize:=MAX_PATH;
  getMem(windowsDir,bufSize);
  retVal:=GetWindowsDirectory(windowsDir,bufSize);
...
...
  freeMem(windowsDir);
end;
retVal contiene la lunghezza di windowsDir (escluso il terminatore) se č
andata a buon fine, altrimenti vale 0.
Per usare la costante MAX_PATH devi usare la unit windows.pas (mi
sembra...).
Ciao
Ruggero

 In piů come si potrebbe fare per leggere una riga da un file txt?
Puoi usare le funzioni Read e ReadLn. Piccolo esempio :
Var TXT : TextFile;
       S : String;
       C : Char;
AssignFile (TXT, nomefileditesto);
Reset (TXT);
ReadLn (TXT, S); // legge la prima linea fino a fine riga (#13#10)
Read (TXT, C); // legge il primo carattere della seconda riga.
CloseFile (TXT);
Ciao !! Davide DG

Newsgroup: it.comp.lang.delphi
Titolo: Form in evidenza.

Salve vorrei fare in modo che la form
mi appaia, quando č in Background,
per un qualsiasi tipo evento.
Grazie

Ciao Teresa io ho risolto inserendo questa:
form1.FormStyle:=fsStayOnTop;
in un'event o dove vuoi tu.
se hai problemi scrivimi.
--
___________________________
http://www.alfabetica.com
(la pubblicità ci aiuta a vivere di +)
___________________________

Newsgroup: it.comp.lang.delphi
Titolo: basic authentication SOAP

Salve a tutti. Devo interrogare con delphi XE5 un webservice che 
richiede l'esposizione in BASIC AUTHENTICATION, esplicitata nell’header 
HTTP (username:password in BASE64).
 
Uso httprio per interrogare il webservice e passare i parametri (e qui 
non ci dovrebbero essere problemi)
 
Per scrivere l'header ho utilizzato le istruzioni:
 
Cred.userName_Password :=IdEncoderMIME.EncodeString('123456:7890', 
IndyTextEncoding_UTF8);
   rio.SOAPHeaders.Send(cred);
 
dove 123456 è la username e 7890 è la password
 
il problema è che il webservice mi risponde sempre col messsaggio:
 
"errore nel supporto per il canale sicuro"
 
Quali sono le istruzione per passare correttamente nell'header in basic 
authentication la username e la password in BASE64?
 
 
Grazie a tutti


Un po' in ritardo... comunque... non e' che il webservice si aspetta la comunicazione in https?
Newsgroup: it.comp.lang.delphi
Titolo: ad un mio amico delphi ha ubriacato winzozz...:(

vi cito l' email che m ' ha mandato...
"
ogni volta che riavvio winzozz mi appare una
finestra che dice "Error of time" o meglio "RunTime Error" che ritengo
collegato all'installazione di D..
Altra cosa, se apro, da qualsiasi applicazione, "File -->Open" mi appare una
finestra che chiede da dove si vuole arire il file. Bene, se clicco da
"Desktop" il sistema si inchioda e devo riavviare...
Sono quasi disperato! ho disinstallato Delp., ho importato il vecchio
registro che avevo salvato prima dell'installazione, ho fatto una scrupolosa
pulizia dello stesso, ho reinstallato windows (che mi ha mandato a puttane
FrontPage, che non fa parte del pacchetto Office XP, ma del "vecchio"
Office2000) ho reinstallato office 2000 ed ora, pare che il sistem-de-merd
abbia ricominciato a funzionare..."
non vi so dire che windows usa, perņ...cosa gli puņ essere successo?

> non vi so dire che windows usa, però...cosa gli può essere successo?
Non è che ha installato Visual Basic ?? ;-PPPPPPP
Scherzi a parte, mi sembra un tantinello OT... ad ogni modo... ma non
faceva prima
a reinstallare tutto?
--
Ciao !  Davide DG.

 a reinstallare tutto?
ed effettivamente ha reinstallato windows ed ora parte...però sto delphi da
problemi a + di 1a persona...boh



questo genere di problemi non sono causati da delphi, secondo me hai
installato qualche altra cosa....
-------------------------------------------------
Kirys <Remove DELTHIS from the address to reply>
 /|// /____/ Kirys Tech 2000: 
http://www.kt2k.com
/_|\\  // 2000

Newsgroup: it.comp.lang.delphi
Titolo: immagini PCX

Salve a tutti.. ho il seguente problema:
devo manipolare dei file pcx in modo da poterli visualizzare
su un componente che non accetta questo formato..
come posso fare?
ciao Raf

non è un po contraddittorio?
Bye
A.

no..forse mi sono espresso male..
intendevo dire che devo trasformarle in bmp.
..ho già trovato una unit con una funzione
che lo fà.
"Alberto Salvati" <alNOSPAM...@mclink.it.uffa> ha scritto nel messaggio
news:agm00p$1dlh$2...@newsreader1.mclink.it...

Newsgroup: it.comp.lang.delphi
Titolo: static

sia in C che in VisualBasic esistono le variabili static, che ti permettono
di non intasare il programma con infinite variabili generali
ho letto la documentazione, ma non trovo niente di simile... qualcuno sa
darmi qualche delucidazione?

you wrote:

In Delphi non esiste la keyword "static", tuttavia si puo' sfruttare
la "staticita'" sfruttando l'incapsulazione delle unit.
Es.:
unit mia ;
interface 
...
implementation
var i : integer ;
...
end.
Oppure utilizzare una funzione membro a livello di classe e non di
istanza.
Es.:
type MiaClasse = class
     class function RestituisciValore : Integer ;
...
--
Andrea Laforgia (
andrea_...@bigfoot.com
)
-----------------------------------------------------------------------
"There is nothing better for understanding a kangaroo than seeing it jump."
[D.Grune, C.J.H. Jacobs]

>
sia in C che in VisualBasic esistono le variabili static, che ti permettono
di non intasare il programma con infinite variabili generali
ho letto la documentazione, ma non trovo niente di simile... qualcuno sa
darmi qualche delucidazione?
<<
Se intendi variabili locali ad una funzione che mantengono il valore quando
escono dallo scope, in Delphi (Pascal?) puoi usare costanti tipizzate:
procedure TForm1.DaAssegnareAUnTNotifyEvent(Sender: TObject);
const Statica: integer = 120;
begin
    // alla prima chiamata Statica vale 120
    label1.Caption := inttostr(Statica);
    inc(Statica);
end;
hth
Paolo Arosio

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

salve mi aiutereste a tradurre questa linea di codice C
#define INTERNAL_RAM(address) ((address <= 0x1B3F) ? 1 : 0)
al pascal per me un pň piu potabile
grazie
P.S.
Quel     0 diviso 1 che significa?

 Quel     0 diviso 1 che significa?
Semmai "1 diviso 0" :-) e in ogni caso non è un'operazione di divisione ma
parte dell'operatore ternario ?:
Essendo una macro, non ha equivalente in Pascal e va tradotta con una
funzione; oltretutto non è possibile sapere di che tipo esato sia address,
ma supponendo che sia un Word si ha:
function InternalRam(const Address: Word): Integer;
begin
  if Addess <= $1b3f then
    Result := 1
  else
    Result := 0;
end;
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it
Newsgroup: it.comp.lang.delphi
Titolo: TwindowHook, acchiappa i messaggi ?

Ciao,
quello di cui ho bisongo č cercare di acchiappare i messaggi di
WM_POWERBROADCAST ma non ci riesco, (non sono molto esperto per la
veritą....). Questo č l'esercizietto che ho messo assieme.
Qualche d'uno ha indicazioni da darmi sul perchč non acchiappo i messaggi
desiderati ?
grazie 1000
unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ExtCtrls;
type
  TForm1 = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
    function AppHookFunc(var Message : TMessage) : Boolean;
  public
    { Public declarations }
  end;
  TWindowHook = function(var Message : TMessage) : Boolean of object;
var
  Form1: TForm1;
implementation
{$R *.DFM}
function TForm1.AppHookFunc(var Message : TMessage) : Boolean;
const
 BROADCAST_QUERY_ALLOW = -1;
 PBT_APMQUERYSUSPEND = $0000;
 PBT_APMBATTERYLOW = $0009;
 PBT_APMQUERYSTANDBY = $0001;
 PBT_APMQUERYSUSPENDFAILED = $0002;
 PBT_APMQUERYSTANDBYFAILED = $0003;
 PBT_APMSUSPEND = $0004;
 PBT_APMSTANDBY = $0005;
 PBT_APMRESUMECRITICAL = $0006;
 PBT_APMRESUMESUSPEND = $0007;
 PBT_APMRESUMESTANDBY = $0008;
 PBTF_APMRESUMEFROMFAILURE = $00000001;
 PBT_APMPOWERSTATUSCHANGE = $000A;
 PBT_APMOEMEVENT = $000B;
begin
if message.msg = WM_POWERBROADCAST then
// if (Message.wParam = PBT_APMSUSPEND) or (Message.wParam = PBT_APMSTANDBY)
then
 begin
  label1.caption := 'suspend trapped !';
  Result := True
 end
else
  Result := False;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
        Application.HookMainWindow(AppHookFunc);
end;
end.
mailto: 
rober...@infinito.it

 grazie 1000
Ciao
Andrea

"The DeerBear" ha scritto nel messaggio
<cut>
| procedure TMiaForm.HandlePowerBroadCast( var Mesg : TMessage );
| begin
|   // NON TI SCORDARE LA RIGA CHE SEGUE!!!!!!!
|   inherited;
|   // Qui ci va il tuo codice.
| end;
E' la stessa risposta che ho dato io il 23/12.
tranne il fatto della presenza dell'inherited.
Per curiosita': perche' non deve/devo dimenticare quella riga?
--
Ciao.
ACSH
[D4]
---------------------------
Chi fa da se'
fatica il doppio
Newsgroup: it.comp.lang.delphi
Titolo: Disegno di "background" in una form

Ho giocato un po' con le funzioni di canvas.draw per disegnare un po'
dappertutto, pero' mi sono accorto che se voglio in automatico
caricare un'immagine sulla form che resti in background, non riesco a
farlo, nel senso che se nell'evento di OnCreate, dopo aver caricato
una bitmap in un qualsiasi modo, gliela "passo" alla funzione di
canvas.draw, a video NON viene visualizzata.
Resta visualizzata solo se ad esempio metto il canvas.draw dopo la
pressione di un pulsante.
Cio' mi ha portato a pensare che venga automaticamente generato un
refresh della form SUBITO DOPO la sua creazione, cancellandomi quindi
la mia bitmap.
E' vero? O, comunque, in qualunque caso, come faccio a caricarmi alla
partenza di un programma una bitmap di sfondo usando ad esempio
canvas.draw?
grazie

Metti un componente TImage con align su tutto il form.
Cosi' non hai problemi di repaint, e la puoi caricare dalle proprietá invece
che runtime.
ZioBit <zio...@usa.net.usa.net.only.once> wrote in message
387c7b3b...@news.tin.it...


Prova a farla vedere (nel senso che fai tutto dopo) e vedrai che se muovi la
finestra a metà fuori dallo schermo si cancella quella metà: questo perchè
ciò che c' è nel Canvas è solo nella memoria video, e fa ciaociao (si
cancella dalla memoria video stessa ...) ogni volta che esce dallo schermo o
che uelcosa gli passa sopra. Per evitare ciò devi ridisegnare il tutto,
attaccando tale azione all' evento OnPaint oppure OnDraw o qualcuno di
quelli ... ora non ricordo quale.

Newsgroup: it.comp.lang.delphi
Titolo: Stampare una form

Ciao ragazzi!
qualcuno sa come posso salvare una form (in esecuzione) in un
file grafico per poi essere stampato?
Praticamente una specie PrnScr che invece di salvare il desktop,
mi salvi in memoria solo il prg in esecuzione
grazie

 file grafico per poi essere stampato?
Questo "tip" può esserti utile:
http://www.swissdelphicenter.ch/torry/showcode.php?id=448
Ciao! :-)
-- 
Marco «Alka» Breveglieri
  ABLS Team S.n.c. - Software & Web
  Via De Gasperi, 14
  42019 Scandiano (Reggio Emilia)
 
http://www.abls.it

 ha scritto nel messaggio
news:LajUc.146596$5D1.7...@news4.tin.it...


Newsgroup: it.comp.lang.delphi
Titolo: Action shortCut

grazie ai consigli di Marco ho cominciato a utilizzare l'Action Manager;
ho un paio di domande ancora sull'argomento:
1) gli shortCut non comprendono tutte le combinazioni possibili di tasti,  
se volessi
	utilizzare che so la barra spaziatrice devo utilizzare i  
secondaryShortCut?
	e come?
2) mi sembrano comode anche le toolbar assiciate all'Action Manager ma  
purtroppo i pulsanti
  non sono associabili a menu popup come le toolbar classiche; e' una  
limitazione aggirabile?
grazie
Luca
-- 
Using Opera's revolutionary e-mail client: 
http://www.opera.com/mail/

 limitazione aggirabile?
Sei sicuro che non vi sia una proprietà come /DropDownMenu/ per 
associare un menu ad un pulsante di una *ActionToolBar*?
Controllerò... :-)
Ciao,
   Marco.
-- 
MARCO BREVEGLIERI
  (
http://www.marco.breveglieri.name
)
Newsgroup: it.comp.lang.delphi
Titolo: skin free

qualcuno sa dove posso trovare dei componenti per fare skin o per rendere le
form con strane forme e/o invisibili ?
delphi5
thanx

 delphi5
Su 
it.torry.net
 ho visto SkinForm, tra gli altri...
__
Jax

Newsgroup: it.comp.lang.delphi
Titolo: simulare la pressione del tasto tab

ciao a tutti,
come posso simulare (sostituire) la pressione del tasto tab??
Inoltre è possibile dare la stessa funzione del tab ad un altro tasto?
ciao

Inoltre è possibile dare la stessa funzione del tab ad un altro tasto?
nell'evento OnKeyPress del Form intercetta il tasto che ti interessa,
poi da li' invochi la procedura opportuna
Il form deve avere la proprieta' KeyPreview attiva
procedure TMyForm.FormKeyPress(Sender: TObject; var Key:Char);
begin
   if Key = VK_TAB then ProceduraCheFaQuelloDiCuiHaiBisogno;
end;
Per intercettare i tasti funzione o le lettere maiuscole (shift+tasto)
devi invece utilizzare OnKeyDown.
(VK_TAB = #09)
;Morde;

 ;Morde;
Perchč devi andare a modificare la costante Vk_Tab da numerica che č a CHAR?
non č piů comodo lasciarla come č e chiamare la KeyUp o la KeyDown?
Approfitto della discussione: come mai la keypress non intercetta alcuni
tasti, come il tab?
ALE

tasti, come il tab?
Non lo so, mi piacerebbe saperlo, ma non c'e' mai tempo di
approfondire le cose..... credo che alla base ci sia il fatto che ci
sono i codici estesi (come i tasti funzione).
Forse la keypress serve per una gestione "liscia" della
tastiera,stando nei 255 ascii,  demandando a OnKeyDown una gestione
piu' granulare...
Se qualcuno ci chiarisse le idee sarebbe ben accetto :)
Morde
Newsgroup: it.comp.lang.delphi
Titolo: file .ini nei moduli delphi.

Ho un'applicazione composta da 1 form principale e da un datamodule e da 
altri 2 form. Tutti in autocreazione.
La mia applicazione usa un file ini per memorizzare le informazioni 
rigurdanti la posizione del form, le scelte dell'utente... ecc...
Volevo usare un file Ini gnerico per tutta l'applicazione.
L'ho messo nella form principale.
Nell'evento Create creo l'ini.
nell'evento close lo distruggo.
Il problema sorge, quando chiudo l'applicazione. che l'evento OnClose del 
main viene chiamto prima della chiusura degli altri form.
Quindi quando gli altri form si chiudono.. il file ini è gia stato 
distrutto. e non possono salvare i dati.
La soluzione di creare un file ini per ogni modulo , mi sembra poco "Bella".
Voi come avete risolto il problema?
Saluti
Nicolas 

 L'ho messo nella form principale.
C'è un mio esempio di qualche tempo fa su come costruire una classe
Configuration di tipo singleton, per mantenere (caricare e salvare) le
impostazioni dell'applicazione. La classe viene creata e distrutta nel
sorgente del progetto. Non legare alle form la logica applicativa, le form
devono contenere solo la logica delle finestre.
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

Si ma io infatti non volevo salvare solo le informazioni delle finestre, ma 
altro.
La domanda era se è possibile utilizzare un solo file ini o se devo aprirne 
uno per ogni modulo...
Grazie
"Andrea Laforgia" <x...@xx.xx> ha scritto nel messaggio 
news:f6ssln$4lj$1...@news.newsland.it...


 uno per ogni modulo...
Sě, č possibile. Con i file .ini fai quello che vuoi.
p.s.: evita il top posting.


 nell'evento close lo distruggo.
Distruggilo nell'evento OnDestroy, come da regola.
Giorgio

Newsgroup: it.comp.lang.delphi
Titolo: é possibile esportare un metodo di una classe in una DLL

Ciao ,
         vorrei sapere se qualcuno di voi sa com esportare un metodo di una
classe da un DLL


-- 
Mauro Falzari 
   [ 
http://digilander.libero.it/mauro.falzari
 ]
 
 "Se guardi nell'abisso, anche l'abisso guarda in te." 
   (Friedrich Nietzsche)

Nicola wrote:

Lo esporti sotto forma di funzione?
Utilizzi un BPL?
-- 
I'am what I'am, I do what I can
Newsgroup: it.comp.lang.delphi
Titolo: [d5-d6] applicazione Speech Recognition

ciao a tutti, qualcuno ha mai provato con delphi lo Speech Recognition?
http://edn.embarcadero.com/article/29583#SR
vorrei iniziare a far qualche prova per� volevo avere qualche consiglio se 
qualcuno l'ha gi� provato
Simone

 Simone

ciao, grazie per la risposta... diciamo che mi interessa il riconoscimento 
per sviluppare un possibile software in ambienti di disabilit�, ovvero in 
quei posti dove l'utente ha problemi ad usare mouse e tastiera / touchscreen 
e quindi per fargli fare alcuni esercizi mentali sarebbe molto utile l'uso 
della voce... mi son documentato per� ho scoperto che SAPI di vista funziona 
egregiamente per� non esiste per l'italiano... in alternativa ho trovato la 
naturally speaking che mette a pagamento l'sdk della loro applicazione di 
dettatura... il problema � che vorrei avere qualche confronto con gente che 
ha gi� sviluppato qualcosa (per capire le fattibilit� di un progetto del 
genere)... tra l'altro molti sistemi di centralini voip usano architettura 
di riconoscimento: es per fare prenotazioni automatiche o per richiedere 
informazioni (es. trenitalia e telecom)
Simone 

 ciao, grazie per la risposta... diciamo che mi interessa il riconoscimento 
In passato c'era un non vedente che seguiva il ng, se cerchi con google 
groups forse riesci a recuperare il suo contatto.
Ciao
-- 
Morde

ok grazie, ma come faceva a seguire il ng essendo non vedente? sistema di 
speech??
Simone 

 speech??
Non lo dice, leggiti un suo post a riguardo:
http://groups.google.com/group/it.comp.lang.delphi/browse_thread/thread/bc23c2724c049992/28e94a3eee9ff7f3
?
Ora hai i suoi riferimenti, tuttavia sono un pï¿œ datati.
Ciao
-- 
Morde

 Ora hai i suoi riferimenti, tuttavia sono un pï¿œ datati.
Prova a vedere se ï¿œ lui: 
http://www.digrande.it/
Ciao
-- 
Morde

 dettatura...
Anche io mi ero informato per sviluppare un applicativo col
riconoscimento vocale.
Purtroppo in merito c'è molta omertà, dopo diversi tentativi con
dragon sono riuscito a sapere che l'sdk costa "alcune decine di
migliaia di euro" e che non sono disponibili modelli linguistici
italiani, ma solo inglesi.
Non esistono versioni dimostrative e non c'è documentazione. In
pratica non sono riuscito a sapere cosa effettivamente puoi fare e
cosa no, il che per un investimento da "alcune decine di migliaia di
euro" non è raccomandabile!
Probabilmente i venditori italiani di dragon non hanno molta
convenienza a vendere l'sdk...
In ogni modo se installi Dragon NaturallySpeaking Professional hai
disponibile qualche activex che ti permette di giocarci un pochino,
anche se in realtà le cose che puoi fare con questa versione sono
molto scarse...
Puoi inoltre verificare se questo può fare al tuo caso:
http://www.loquendo.com/it/technology/asr.htm
non è un software di dettatura ma di riconoscimento vocale (riconosce
comandi preimpostati anche senza apprendimento)
In questo caso (nonstante sia di Telecom Italia) le informazioni sono
più facili da ottenere ed è possibile anche avere una versione di
prova.
Matteo
Newsgroup: it.comp.lang.delphi
Titolo: Errore JPEG

Ciao a tutti.  Nel tentativo di leggere un flusso jpg si verifica
l'errore :  JPEG error #53 .
Ho cercato invano nell'help di Delphi  il suo significato. Le
istruzioni usate sono :
var jpgimg : TJPEGImage;
....
jpgimg := TJPEGImage.Create:
.....
jpgimg.LoadFromFile(OpenDialog.FileName);
Image1.Picture.Assign(jpgimg);
....
jpgimg.Free;
Saro'  grato a chiunque generosamente mi dara' un aiuto.

"PeterWD"  ha scritto nel messaggio

Due possibilità:
- Memoria insufficiente (l'immagine è troppo grande)
- L'immagine è corrotta.
Se cerchi con Google trovi diversi messaggi a riguardo:
http://groups.google.it/groups?q=JPEG+error+%2353&hl=it&safe=off&sa=X&oi=groups&ct=title
Ciao
-- 
ACSH
[TurboDelphi]
Chi fa da se', fatica il doppio 

 Ho cercato invano nell'help di Delphi  il suo significato.
Qui trovi tutti i codici di errore jpeg:
http://www.efg2.com/Lab/Library/Delphi/Graphics/JpegErrors.txt
Il #53 riporta:
53  cstrJERR_OUT_OF_MEMORY           'Insufficient memory (case %d)'
Sull'errore #53 ci sono vari thread nei newsgroup borland.
-- 
F&R 

 - Mostra testo tra virgolette -
Il problema e' risolto : tentavo di far leggere a Delphi immagini JPEG
registrate da un programma C# (Microsoft Visual Studio 2005).
Evidentemente quest'ultima struttura non e' completamente accettata da
Delphi che quindi la considera corrotta.
La seconda ipotesi di errore che mi hai fornito mi ha messo sulla
strada giusta.
Ti ringrazio e ti saluto cordialmente.
                                                        Piero D.
Newsgroup: it.comp.lang.delphi
Titolo: DLL e parametri

Ciao a tutti,
sto impazzendo!!!
Sto sviluppando un'applicazione e ho la necessità di creare alcune Dll
contenenti form
da visualizzare.
Dalla mia applicazione principale richiamo la mia fuzione di visualizzazione
form con la classica GetProcAddress (nessun problema riscontrato).
Risultato: i parametri passati come PChar, all'interno della funzione di
visualizzazione mantengono il valore passato. Per i parametri di
tipo THandle, Integer mi trovo con dei valori arbitrari.
Ho letto qualcosa riguardo la necessità di includere l'unità
ShareMem, ma l'inclusione della stessa non porta
giovamenti.
Quale può essere il problema?
Grazie a tutti.
Stefano.

 giovamenti.
no, perchè ShareMem è utile soltanto per passare stringhe da/verso una DLL 
da/verso applicazioni Delphi
-- 
Mauro Falzari 
   [ 
http://digilander.libero.it/mauro.falzari
 ]
 
 "Se guardi nell'abisso, anche l'abisso guarda in te." 
   (Friedrich Nietzsche)



Come ti è stato già detto, sharemem non centra nulla in questa
situazione. Le funzioni sono stdcall?
Se postassi gli header forse potremmo aiutarti meglio.
Ciao.
-- 
"La velocità luce non è sufficiente Comandante Nunziatella, 
dobbiamo passare alla velocità smodata!"

Santo Help martire:
Nella guida è scritto molto chiaramente che sharemem serve per passare 
dati di tipo stringa. Cosa + comoda ma - standard rispetto ai pchar.
Per il resto controlla che:
1) d ambo le parti ci sia la stessa direttiva relativa al passaggio di 
parametri (stdcall, register, safecall....)
2) i prototipi delle funzioni siano uguali.
Ad esempio:
lato applicazione:
type
   TMiaFunzioneInutile = function(const AX: integer; g: pchar): integer; 
stdcall
lato dll
   function MiaFunzioneInutile(AX: integer; g: pchar): integer; stdcall;
   (MANCA IL CONST!!!)
3) se usi longint, controlla A VISTA che i prototipi siano uguali a 
quanto indicato nella intestazione della funzione.
Se in delphi5 dichiari:
function FaiQualcosa(const x: LONGINT): integer;
e premi ctrl+shift+c ti trovi nel corpo della funzione questo:
function FaiQualcosa(const x: INTEGER): integer;
e questa cosa, per esperienza personale, produce non pochi casini se di 
mezzo ci sono delle dll....
BaiBai
A

 Ciao.
Problema risolto.
La funzione che veniva esportata era stata dichiarata come StdCall.
Purtroppo il puntatore a funzione che utilizzavo non era stato
dichiarato com StdCall.
Grazie per il supporto.
Stefano.
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG
Newsgroup: it.comp.lang.delphi
Titolo: Annidare info in una Listview

Ciao a tutti,
Ho una List view con diversi campi : descrizione, data, importo, 
categoria etc. etc.
Il mio problema e' la gestione dei campi "categoria", al momento si 
tratta di semplici descrizioni
(una stringa) ma in questo modo per sapere quale categoria e' presente
nel "record" devo scorrermi
l'intero elenco e c'e' sempre il pericolo che due categorie abbiano lo
stesso nome.
La soluzione ideale sarebbe inserire un campo in piu', non visibile 
all'utente, che contenga il codice
identificativo della categoria, ma come si fa ? 
Francesco
IACT Member.
http://Frengo.dragonfire.net/

identificativo della categoria, ma come si fa ?
Puoi usare l'attributo Data:
[dall'help di D4]
Specifies any application-specific data associated with the list item.
property Data: Pointer;
Description
Use Data to associate arbitrary data structure with the list item. When the
user selects or deletes the list item, Data allows the application to
quickly access information about the meaning of the list item to implement
the appropriate response.
Ciao :-)
Andrea Magni

 [dall'help di D4]
Ma dove l'hai trovato questo nell' help ???
So che e' una domanda un po' imbecille, ma ho controllato ogni voce 
del TListView senza trovare
questo riferimento :-(
Francesco Franco
IACT Member.
http://Frengo.dragonfire.net/

 questo riferimento :-(
Guarda l'help di TListItem...
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: Clientsocket e serversocket

Salve Ogni volta che mando piu stringhe di testo tra questi due
componenti l'altro le riceve sempre unite...
Come faccio a fare in modo che non accada?
Grazie
--------------------------------------------------
Brayan Fix Kirys Solfory
E-Mail: 
Ki...@technologist.com
 
For Free Software go to: 
http://Kiryssoft.cjb.net

Come faccio a fare in modo che non accada?
Effettivamente hai ragione....il problema si presenta sia con il loopback
che con una connessione effettiva.
Credo sia dato dal fatto che l'applicazione destinataria della stringa
(client o server che sia) non ha il tempo sufficiente per scaricare dal
buffer della socket il testo...probabilmente è l'evento OnRead che risponde
con un lieve ritardo, permettendo ad altre stringhe di accavallarsi alla
precedente.
Le soluzioni che mi vengono in mente per la risoluzione del problema sono 2
[ anche se mai testate! ;) ]
1 - Prima di inviare la prossima stringa attendi che il destinatario ti
invii una stringa di notifica per segnalarti che il testo della socket è
stato prelevato.
2 - Fai terminare ciascuna stringa da una serie di caratteri particolari,
(es. &&) così l'applicazione ricevente saprà dove terminano le stringhe
reali e scompone la superstringa in tante sottostringhe (magari questo
lavoretto potresti farlo fare ad un thread a parte).
Prova e fammi sapere! :)
Bye Bye!
--
- Carlo -
PS : Temo di averti erroneamente inviato la mail anche in privato! :(

lavoretto potresti farlo fare ad un thread a parte).
questo secondo metodo e' lo standard, e il separatore di stringhe è la
sequenza #13#10 (ovvero il carattere 13 (CR, carriage return ovvero l'invio)
e il carattere 10 (LF, line feed).
Si usa questa tecnica in quasi tutti i protocolli (smtp, pop3, ecc), ma se
devi far comunicare due programmi tuoi, puoi usare la sequenza che vuoi


Ho avuto anche io lo stesso problema e adottando la seconda soluzione con
una sequenza di caratteri personalizzata ho risolto il problema. Te la
caonsiglio vivamente, e' rapida e veloce. CIAO!

For Free Software go to: 
http://Kiryssoft.cjb.net
Grazie Mille a tutti :D


Newsgroup: it.comp.lang.delphi
Titolo: file esterni

ciao
ho la necessità di inizializzare degli array di qualche kb, inserendoli in
un array statico il compilatore va in tilt e quindi mi appoggio a dei file
esterno che carico negli array una volta startato il programma. Qualcuno ha
un'idea su come metter tutto con un unico eseguibile?
grazie
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 inserendoli in un array statico il compilatore va in tilt
In che senso? Ti appare la scritta TILT-TILT-TILT ? ;)
--
Jax

 Jax


 ha scritto nel messaggio
news:an21qc$qbu$1...@news.newsland.it...

Newsgroup: it.comp.lang.delphi
Titolo: Non so se OT: Iterare controlli Delphi ->VB

Salve,
non so coem fare ma ho bisogno di iterare i controlli su na UserForm
in VB su internet ho cercato ma niente fa a l caso mio ma dovrei
"tradurre":
procedure Tform1.SelCtrl;
var I: Integer;
begin
for I = 0 to Self.Controls.Count - 1 do
begin
  if Self.Controls[I] is TCheckBox then
  begin
    if TCheckBox(Self.Controls[I]).Checked then
    begin
      ShowMsg(TCheckBox(Self.Controls[I]).Name)
    end;
  end
end;
end;
in VB coem posso fare qualcuno può aiutarmi????

 end;
In 
VB.NET
, in una procedura all'interno di una form:
         Dim cb As CheckBox
         For Each ctrl As Control In Me.Controls
             If TypeOf ctrl Is CheckBox Then
                 cb = DirectCast(ctrl, CheckBox)
                 If cb.Checked Then
                     MessageBox.Show(cb.Name)
                 End If
             End If
         Next
Se invece intendi VB6 non so... comunque magari non è molto diverso :-)
-- 
news:it-alt.comp.software.openoffice : Il newsgroup dedicato a
OpenOffice.org, la suite open source di applicazioni per ufficio.
Saluti, VITRIOL

 in VB
it.comp.lang.visual-basic
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it
Newsgroup: it.comp.lang.delphi
Titolo: Cicli annidati

Vorrei avere una vostra opinione sulla fattibilità di quanto segue...
ho un ciclo:
var
  MaxValue: word;
  b1, b2, b3, b4: byte;
begin
  MaxValue := 28;
  for b1 := 1 to MaxValue do
    for b2 := (b1+1) to MaxValue do
      for b3 := (b2+1) to MaxValue do
        for b4 := (b3+1) to MaxValue do
        begin
          memo1.lines.add(inttostr(b1)+' '+
                                     inttostr(b2)+' '+
                                     inttostr(b3)+' '+
                                     inttostr(b4));
        end;
end;
Il ciclo restituisce poco più di 20.000 gruppi:
1 2 3 4
1 2 3 5
1 2 3 6
[...]
1 2 3 28
1 2 4 5
[...]
1 2 4 28
1 2 5 6
[...]
25 26 27 28
Ora, mi sto spremendo le meningi per capire se è possibile modificare il
codice per poter variare il numero di cicli annidati senza doverli inserire
manualmente.
Ad esempio avere un *for b5 := (b4+1) to MaxValue do* senza dover inserire
un CASE dove scrivere in ogni condizione gli stessi cicli + 1...(anche
perchè i cicli potrebbero essere decine)
Ad 'occhio', vi pare possibile o sto perdendo del tempo e devo trovare
un'altra soluzione?
Ciao
Valter

manualmente.
La risposta è: ricorsione.
procedure Cycle(const ALevel: Integer; L: TStrings);
var
  I: Integer;
begin
  if ALevel>0 then
    for I := 1 to 50 do
    begin
      Cycle(ALevel-1, L);
      ...
    end;
end;
Newsgroup: it.comp.lang.delphi
Titolo: su quale campo ho cliccato??

Ho una TDBGrid.
Col tasto destro attivo un menů su cui esegue una scelta.
Vorrei sapere perň su quale colonna (quindi su quale campo del data base)
ho cliccato.
E' possibile??
Indicazioni per un link??
Grazie gianmarco 

 E' possibile??
Esiste l'evento onCellClick:
Occurs when the user releases the mouse in one of the cells of the grid.
Description
Write an OnCellClick event handler to take specific action when the user 
clicks
in one of the cells of the data-aware grid.
Ciao
-- 
ACSH
[TurboDelphi]
Chi fa da se', fatica il doppio

 Ciao
Ops ... non avevo letto bene la tua richiesta ... sorry!
Ti serve qualcosa d'altro:
devi postare un "falso messaggio" con PostMessagge
nell'evento onMouseDown, in modo da scatenare l'evento onCellClick
che ti restituisce il valore che cerchi, poi lanci il menu'
(sapendo a quel punto quello che ti occorre).
Qualcosa del genere - non testato!
procedure TForm1.DBGrid1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
 if (Button = mbRight) then
  begin
      PostMessage(Griglia.Handle,WM_LBUTTONDOWN, 0,0);
      PostMessage(Griglia.Handle,WM_LBUTTONUP, 0, 0);
 end;
procedure TForm1.DBGrid1CellClick(Column: TColumn);
begin
  Popupmenu1.Popup( coordinata.x, coordinata.y );
end;
Macchinoso, ma dovrebbe funzionare.


Proverò a implementarlo. Ti farò sapere...
gianmarco 

  Shift: TShiftState; X, Y: Integer);
Il problema è che non riesco ad intercettare l'evento DBGrid1MouseDown.


Provato velocemente:
procedure TForm1.GrigliaMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if (Button = mbRight) then
  begin
      PostMessage(Griglia.Handle, WM_LBUTTONup, 0, makelong(x,y));
  end;
end;
procedure TForm1.GrigliaCellClick(Column: TColumn);
begin
 PopupMenu1.Popup(600,600);
 ShowMessage(tcolumn.ClassName);
end;
A te migliorarlo.

Newsgroup: it.comp.lang.delphi
Titolo: Cool buttons

Non so se qualcuno di voi ha mai utilizzato queste componenti, ma io che
sono scemo, oltre ad essere un novellino, mi sono pure complicato la vita
con cool forms e buttons, la calcolatrice è praticamente finita, ma ora mi è
sorto un bel problema, che poi sono due!!!
1-Ho provato prima con un bottone normale, e quando voglio che cambi
l'immagine ad un click del mouse, flickera tutto, penso di aver capito le
ragioni, ma non so come risolvere, idee?
2-Su un coolbutton come cambio il glyph al click del mouse, io ho provato
bottone.glyph.loadfromfile mischiando un po' di cose, ma non ne sono venuto
a capo, consigli?
Ringrazio anticipatamente
Sean
PS Vorrei scusarmi pubblicamente con Andrea Laforgia per la mia brusca
risposta, scusami, ma è un bruttissimo periodo e mi arrabbio da niente, però
fidati che proprio non l'avevo trovata quella benedetta istruzione, e
pensare che avevo provato RealToStr!!! Scusa

TCoolButton non esiste.
Cosa usi, TbtnBmp, TSpeedButton?
Certo non TButton!
Crea una bitmap che contiene tutte le immagini che vuoi mostrare su ogni
pulsante.
Naturalmente le immagini hanno tutte la stessa dimesione!
Poi  appioppi al pulsante questa bitmap a designtime.
Se puoi vuoi farti proprio male, crea degli AVI e li metti su pulsanti
TButton.
Saluti
AS
"Se è Microsoft non funziona"

Cool! Sono delle componenti aggiuntive che ho scaricato dalla rete,
includono Cool Buttons , Cool Forms e Transperent Memo. Per quello non le
conosci.
Grazie per l'interessamento, ma essendo un novellino, ho preferito
escogitare una maniera mia, che non č funzionale come la tua, č piů lenta, e
fa pure un po' schifo, perň funziona.
Ho sovrapposto due bottoni , il secondo visible.false e onmousedown ho
invertito le visbilitŕ, so che non č molto appropriato, perň č frutto della
mia testa.
Cmq salvo il tuo msg per evntualitŕ future!
Grazie
Sean
Newsgroup: it.comp.lang.delphi
Titolo: REGISTRATORI DI CASSA

ciao a tutti, dovrei implementare un collegamento con un registratore di
cassa Sarema Extra, qualcuno di voi ha un ocx o una dll per tale
collegamento o il sito dove reperirle?
Grazie.
saluti
Alessandro

 collegamento o il sito dove reperirle?
i Sarema si pilotano via seriale usando i comandi del Sarema Language.
Chiedi una reference ad un tuo concessionario locale della Sarema.
Ciao, Sandro

 ha scritto nel messaggio
news:VwVib.282684$R32.9...@news2.tin.it...

                          REGISTRATORE SAREMA
Una volta ho trovato qualcosa in questo sito, ma ora non ne sono più in
possesso.
Prova a guardare se c'è ancora.
PROGRAMMI DA SCARICARE  DA 
www.mwcr.it/FTP
                           Directory sarema/documentazione/sarema language
In ogni caso il numero della Sarema era questo :
CENTRALINO    : 051-8900011
Avevo parlato con una persona che si chiama Stefano Lenzi.
Spero di esserti stato utile.
Donato Di Tullio

 ha scritto nel messaggio
news:VwVib.282684$R32.9...@news2.tin.it...


 collegamento o il sito dove reperirle?
Se aspetti di ottenere un qualcosa di pronto.... mmmmmm... ne dubito
fortemente...
Mi sa che ti devi costruire il driver da te come ho fatto io tempo fa!!!!
Oddio, mi ritonano in mente quei checksum, ACK, NAK, XOFF brrrrr...
Protocollo alla mano e.... Buon divertimento!
Per il test ti consiglio di scaricare QModem, che, purtroppo, non ricordo
dove l'ho recuperato....
Tale programma ti permette di tracciare tutto ciò che viaggia in *entrambi i
sensi* dalla porta COM.
Sentiamoci in privato che *forse* posso aiutarti.
--
Acqua

 ha scritto nel messaggio
news:dXCjb.43799$e6.15...@twister2.libero.it...


 
aless...@anteprimasistemi.it
E tu prometti di quotare meglio? ;)
Acqua
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

Newsgroup: it.comp.lang.delphi
Titolo: Come faccio a far sparire questo Warning?

Come faccio a far sparire questo:
[Warning] fDB.pas(52): Combining signed and unsigned types - widened both
operands
causato da:
PanelComandi.Color := PanelDati.Color-RGB(30,30,30);
Grazie.

 ha scritto nel messaggio
news:dOMi9.22680$Av4.4...@twister2.libero.it...

Stai sottraendo delle grandezze diffrenti, la proprietą color sono i 3
valori RGB (8 bit per ognuno) mentre la procedura RGB vuole i 3 valori gią
separati...
Per fare quello che vuoi, (da quel che ho capito, vuoi sottrarre 30 al
valore di rosso di PanelDati, 30 al verde...) puoi usare questa
 PanelComandi.Color:=Rgb( getRValue(PanelDati.color)+15,
                          getGValue(PanelDati.color)-30,
                          getBValue(PanelDati.color)-145);
(che prima si prende i valori RGB da Panel Dati, li cambia e li riporta nel
formato di Color)...
Ciriciao
    Dariosky


Grazie, le getRValue etc non le conoscevo (o ricordavo).
Comunque è interessante che il risultato prodotto è corretto anche
nell'altro modo.
Newsgroup: it.comp.lang.delphi
Titolo: Nascondere una parte di programma

Ciao gente.
Il mio problema č che dovrei creare un programma che permetta di scaricare
una parte di codice da
internet alla sua apertura, per poi ricancellarla alla chiusura senza
lasciar traccia.
Non ho idea di come fare...
Avevo pensato ad una dll, ma dato che non le ho mai usate, non so se č
fattibile.
Qualche idea?

 fattibile.
se si tratta di funzioni la dll č ok.
Se invece hai classi sarebbe meglio un package.
A

 fattibile.
Semplicemente scrivi il tuo codice in una dll, in background scarichi questa
dll dalla rete (occhio che se c'è un firewall verrà segnalata
l'intenzionalità di prelevare informazioni dalla rete) e lo linki
dinamicamente al tuo progetto (LoadLibrary() & GetProcAddress()) -- al
termine deallochi l' oggetto (FreeLibrary()) e lo cancelli con una delle
funzioni di cancellazione
--
- Carlo -

 lasciar traccia.
Ma e' per fare un qualcosa di "losco" ? :))
Io non ho mai avuto bisogno di fare questa cosa in anni(tanti) :))
Sono curioso :))
Ciao.Alberto.
-- 
Alberto Rubinelli - A2 SISTEMI               posted with Gravity 2.60b
Via Costantino Perazzi 22 - 28100 NOVARA (NO) - ITALY     ICQ 49872318
E-Mail : 
alb...@retrocomputing.net
  Tel. 0321 640149 
Web    : 
www.retrocomputing.net
      Fax  0321 391669 BBS  0321 392320

Sono curioso :))
Non posso dirtelo, mi arrestano.
Ahah, scherzo.
No io non ci devo fare niente di particolarmente losco...
Allora uso i dll? : )

 Allora uso i dll? : )
Direi di si, come ti hanno consigliato, ovviamente facendo attenzione a 
linkarli dinamicamente e non staticamente, altrimenti quando non c'e' la 
tua applicazione da errore.


 ha scritto nel messaggio
news:c5nud2$c7v$1...@lacerta.tiscalinet.it...

Newsgroup: it.comp.lang.delphi
Titolo: delphi e database

ciao
qualcuno mi sa' dire perche' se cerco di leggere il valore di un campo che
non contiene dati mi viene fuori un errore 'Invalid variant type conversion'
?
eppure ho sempre usato queste istruzioni, inoltre il tutto funzione
perfettamente se il campo contiene una stringa.

 ha scritto nel messaggio
news:h3Bu7.164136$dJ3.1...@news1.tin.it...


 ha scritto nel messaggio
news:9peprp$8tq$1...@nreadb.inwind.it...


 ?
Un campo che non contiene dati ha il valore Null e 
la conversione tra Null e qualsiasi altro tipo non 
e' definita in modo implicito.
Per esempio, supponi che io abbia una tabella con un 
campo testo chiamato "TESTOMSG" e che scriva:
procedure TForm1.Button1Click(Sender: TObject);
begin
 Table1.Open;
 Table1.Append;
 Table1.Post;
 Table1.Last;
 Edit1.Text := Table1['TESTOMSG'];
end;
In questo caso ottengo un "invalid variant type conversion",
mentre mi aspetto che ci sia una trasformazione implicita 
da Null a stringa vuota ('').
Devo, invece, forzare la conversione:
procedure TForm1.Button1Click(Sender: TObject);
begin
 Table1.Open;
 Table1.Append;
 Table1.Post;
 Table1.Last;
 Edit1.Text := Table1.FieldByName('TESTOMSG').AsString;
end;
-- 
Posted from  [80.105.34.80] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 ha scritto nel messaggio
news:8fc6ada62d2790dd276...@mygate.mailgate.org...


Forse il campo è null??
usi FieldByname('xx').AsString 
oppure hai i campi persistenti?
AS
-- 
Posted from  [212.177.19.163] 


 ha scritto nel messaggio
news:4ADu7.164954$dJ3.1...@news1.tin.it...

Newsgroup: it.comp.lang.delphi
Titolo: Evento inserimento del 5° carattere in una cella

Devo creare un evento che all'inserimento del 5° carattere in una cella
della DBGrid deve passare alla riga successiva.
--------------------------------
Inviato via 
http://usenet.libero.it

della DBGrid deve passare alla riga successiva.
Hai provato a lavorare con l'evento OnKeyPress del DBGrid per contare
quando arrivi al 5 carattere?
Se funziona il problema poi rimane passare alla riga successiva, in
quel caso penso tu possa fare una Next sul DataSet associato al
DBGrid.
Ciao
Alfredo

Newsgroup: it.comp.lang.delphi
Titolo: Sort di StringGrid

C'è una qualche funzione che mi permette di ordinare una stringgrid?
Io pesco i valori della griglia dall'elenco file di un server FTP (con
l'oggetto NMFTP) e vorrei ordinarli mettendo prima le dir ordinate per
nome e poi i file ordinati per nome. Eventualmente posso anche passare
da un array ma non vorrei appesantire troppo il prog.
Grazie a chi mi aiuta.

MC71

Non direttamente che io sappia.
Alternative a basso sforzo (oltre a una ricerca sui soliti luoghi (torry,
dsp))
a) TListView;
b) TDataSet, TDataSource, TDBGrid;
c) Estrai la colonna secondo cui vuoi ordinare, assegnala a una
TStringList,
numera le stringhe nel campo Objects, ordina la StringList, muovi le righe
della Grid secondo il risultato (v. metodo MoveRow).
torry: 
http://torry.rimini.com/
dsp: 
http://community.borland.com/homepages/dsp/index.htm
hth
Paolo Arosio
Newsgroup: it.comp.lang.delphi
Titolo: Come convertire questo piccolo codice da VB a Delphi???

Innanzitutto ringrazio chi mi aiuterà....(premetto che sono un newbie di
delphi)
Dunque dunque...avrei bisogno di utilizzare una funzione contenuta in una
DLL (il nome della funzione è "Codifica" e la DLL si chiama "funzione.dll").
Ho la DLL, e uno stralcio di come usarla in VB, ma io devo usarla in Delphi.
Vi propongo la documentazione per semplificare il tutto:
** Qui inizia la documentazione allegata **
Declare Sub Codifica Lib "funzione.dll" (ByVal StringaDaCodificare As
String, ByVal KeyServer As String,ByRef StrCodificata as Byte, ByVal
NomeOCognome As Boolean)
Quindi la funzione va richiamata nel seguente modo:
Call Codifica (StrDaCodificare,Key,StrCodificata(0),Swich)
dove:
StrDaCodificare(16Byte) ---> definito come stringa quindi Dim
StrDaCodificare as String,
         quì ci dobbiamo inserire la Stringa da codificare.
Key(8Byte) ---> definito come stringa quindi Dim Key as String, quì ci
dobbiamo inserire la
      Kiave di codifica/decodifica.
StrCodificata(16Byte) ---> definito come un array di Byte quindi Dim
StrCodificata(16) as Byte
                           e alla funzione va passato il primo valore come
si può vedere dalla
                           dichiarazione.
Swich --> Definito come valore Booleano, True o False, e server per indicare
alla funzione se
          vogliamo codificare il nome o il cognome. True per Nome e False
per il Cognome.
Il risultato finale verrà restituito proprio in StrCodificata(16),infatti la
funzione riempirà
l'array.
** Qui finisce la documentazione allegata **
Ora il mio problema da newbie di Delphi è....come definisco la funzione e
come la uso????
external 'funzione.dll' name 'Codifica';    //questo sono certo funzioni
bene
ma come definisco la funzione???
function Codifica (???????????????);
e come la utilizzo???
Codifica (param1:?,param2:?,param3:?);
Sarebbe un'enorme favore se qualcuno scrivesse 2 righe... (non ho la +
pallida idea di come si utilizziano i puntatori e a me serve utilizzarla una
sola volta nel mio programma)..
Offro un panettone come ricompensa.
Grazie mille.

 ha scritto nel messaggio
news:KZkS9.83850$R45.3...@news2.tin.it...

Newsgroup: it.comp.lang.delphi
Titolo: Memoria veloce

Salve a tutti.
Io devo lavorare con una matrice array di interi tridimensionale molto
grande (640x480x40).
Come mi consigliate di definirla per fare in modo che le operazioni siano
abbastanza veloci?
Attualmente io la inizializzo normalmente con
 nome:  array  [0..640,0..480,0.. 40]  of  integer;
Grazie
Fabio

 ha scritto nel messaggio
news:qipQb.282607$e6.10...@twister2.libero.it...

attenzione che:
0..640 -> stai inizializzando 641 elementi, non 640
In ogni caso il compilatore delphi in queste cose se le cava piuttosto bene.
usa le normali direttive al compilatore (-$R, +$A, +$O...)
Ciao
Matteo

Newsgroup: it.comp.lang.delphi
Titolo: Dimensionamento MDI

Salve, ho un problema strano.
Quando in un'applicazione MDI creo le child con WindowState a
wsNormal, le child non vengono visualizzate con le dimensioni
impostate a design-time, ma con dimensioni diverse che dipendono
proporzionalmente dalle dimensioni iniziali della MainForm.
Ho provato a impostare le proprietą Position a poDesigned e Scaled a
FALSE perņ il risultato non č cambiato.
Grazie in anticipo.
Alessandro


hai provato a impostare la dimensione e la posizione nell'evento FormCreate.
ciao
-- 
-------------------------------
per scrivere in privato
togliere "1975"
to reply remove "1975"

 hai provato a impostare la dimensione e la posizione nell'evento FormCreate.
Se imposto la dimensione nel FormCreate funziona, però vorrei evitare
a tutte le child di impostare a run-time la dimensione iniziale.

Newsgroup: it.comp.lang.delphi
Titolo: Wav!!!

Come faccio a eseguire un wav da un commandbutton?
Linuz

Linuz
Utilizza la PlaySound, devi aggiungere la Unit MMSystem.
Ciao
--
- Carlo -
BSSoftware Tips Mailing-List Support