Newsgroup: it.comp.software.newsreader
Titolo: Script MesNews Plug-In -> Dialog

 ecco lo script che ho fatto per utilizzare la funzione time dei 
plug in di mesnews mi raccomando usate solo quello per ora, devo 
ancora vedere gli altri ma cmq non dovrebbe essere troppo complesso 
da dire subito che dovete scaricare i plugin e metterli nella dir di dialog
che avete
ecco lo script e leggete le istruzioni che sono scritte e se avete problemi
o suggerimenti scrivete qua e cerchero di rispondere 
program OnBeforeSendingMessage;      
   function XFace(chXFace : PChar; var iLgMax : integer) : boolean;
external 'XF...@PlugMesNewsHorloge.dll stdcall';
{
Procedura per utilizzare il  plug-in di MesNews in dialog 
Ricordarsi di mettere la dll nella dir di dialog e di 
importare la funzione dalla Dll con questa istruzione che 
va messa subito dopo program OnBeforeSendingMessage;   
es:
   program OnBeforeSendingMessage;  
   function XFace(chXFace : PChar; var iLgMax : integer) : boolean;
external 'XF...@PlugMesNewsHorloge.dll stdcall'; 
 
poi aggungere questa procedura (funziona solo con il plug-in
PlugMesNewsHorloge.dll
e nella funzione function OnBeforeSendingMessage(var Message: TStringlist;
Servername: string; IsEmail: boolean):boolean;
aggungete questa riga:
XFace_PlugInTime(message);    
poi in
Impostazioni->Server,ecc->Identità->X-Header predefiniti-> X-Face
dovete scrivere time 
}   
procedure XFace_PlugInTime(Message:TStringlist);   
Var
 i:integer;
 ACFace:String; 
 d:integer;
begin  
SetLength(ACFace,350); 
if not XFace(Pchar(ACFace),d) then EXIT;;  
SetLength(ACFace,d);
while Pos(#13, ACFace) > 0 do ACFace[Pos(#13, ACFace)] := ' '; 
while Pos(#10, ACFace) > 0 do ACFace[Pos(#10, ACFace)] := ' ';     
if message.count <0 then EXIT; 
for i:=0 to message.count-1 do begin
    if Message.strings[i]='X-Face: time' then begin 
       Message.strings[i]:='X-Face: '+ACFace; 
    end;
end;       
end;
 
 
function OnBeforeSendingMessage(var Message: TStringlist; Servername:
string; IsEmail: boolean):boolean;
begin
  // if this is set to false, sending messages will *always* fail
  // use this for debugging along with the messagebox.
  result := true;            
  XFace_PlugInTime(message);
end;
begin
end.
-- 
,---- [*Firma*] ---------------------------.
| In questo istante Alien321 sta sentendo  |
| Nulla                                    |
`------------------------------------------´

 utilizzare la funzione time dei  plug in di mesnews
Tra l'altro, se questa funzione prende l'orario del tuo computer al
momento della spedizione, guardando la lancetta grossa di minuti e quella
sottile dei secondi, sembra che il tuo computer sia un paio di minuti
scarsi in avanti rispetto al server...  ;-)

 ancora vedere gli altri ma cmq non dovrebbe essere troppo complesso 
Sei un grande! ^____^
Ciao.
-- 
 /   _ _ | Xnews e la documentazione in italiano
( (/( (/ | 
http://web.lacasadialice.it/alanford/
http://web.lacasadialice.it/alanford/befana.html

Hi, 
I'm the developper of several MesNews's plugins.
Usage of MesNews's plugins are reserved to MesNews (*exclusively*).
Thanks to respect that (the idea ... and idealy the work :-) ).
If some of you want to translate MesNews in Italian ... the door is open.
I don't plan actually to do plugins for Dialog.
Regards,
Jean - JMST
Belgium
<approximative Italian translation>
Buongiorno sono el scrivare de qualcos una "plugin" de "MesNews".
"Plugins" dé lectoré de "MesNews" sono solo per exclusivitaré de
"MesNews" comé dito el programma qui porto.
Grazié dé respectaré ecco.
Si vou vuole tradurla "MesNews" in Italiano, la porta é aperta.
</approximative Italian translation>