[firebase-br] Serial

[Euler Jr.]

Sergio crie uma dll com este código:

*********************************************************************
library vol;

uses
   SysUtils,Windows;


function GetVolume():LongInt;stdcall;
var
   Serial: PDWORD;
   Volume: PChar;
   FSSysFlags,ComponentLen:DWord;
   FSBuf:PChar;
begin
    try
       GetMem(Volume, MAX_PATH);
       GetMem(FSBuf, MAX_PATH);
       GetMem(Serial, MAX_PATH);
       GetVolumeInformation(nil, Volume, MAX_PATH, Serial,
       ComponentLen, FSSysFlags, FSBuf, MAX_PATH);
       Result := Serial^;
    except
       Result := 0;
    end;
end;


exports
    GetVolume;

begin
end.

*********************************************************************

Agora registre no Firebird e teste-a:


DECLARE EXTERNAL FUNCTION GetVolume
RETURNS INTEGER BY VALUE
ENTRY_POINT 'GetVolume' MODULE_NAME 'vol.dll';


[]s
Euler Jr.


Sergio Keller escreveu:
> Euler
> 
> Eu imaginei.
> Vou ter que aprender UDF.
> Nunca utilizei
> 
> Sergio
> ----- Original Message ----- 
> From: "Euler Jr." <euler em siginformatica.com.br>
> To: "FireBase" <lista em firebase.com.br>
> Sent: Tuesday, September 06, 2005 4:14 PM
> Subject: Re: [firebase-br] Serial
> 
> 
> 
>>GetVolumeInformation não é uma função do Delphi e sim do sistema
>>operacional Windows. O Delphi na unit Windows.pas simplesmente faz um
>>wrap da chamada à API do SO.
>>O FB não possue nenhuma função similar que fornce tal informação, embora
>>seja perfeitamente possível aplicá-la atraves de uma UDF.
>>
>>[]s
>>Euler Jr.
>>
>>Sergio Keller escreveu:
>>
>>>Ola amigos
>>>
>>>No Delphi tem o comando GETVOLUMEINFORMATION  que me traz o serial do HD
>>
> da
> 
>>>máquina local.
>>>Tem como fazer com que o FireBird traga o serial do "C" do Servidor ?
>>>
>>>Sergio Keller
>>>
>>>
>>>______________________________________________
>>>FireBase-BR (www.firebase.com.br) - Hospedado em www.bavs.com.br
>>>Para editar sua configuração na lista, use o endereço
>>
> http://mail.firebase.com.br/mailman/listinfo/lista_firebase.com.br
> 
>>>Para consultar mensagens antigas: http://firebase.com.br/pesquisa
>>>
>>
>>
>>
>>______________________________________________
>>FireBase-BR (www.firebase.com.br) - Hospedado em www.bavs.com.br
>>Para editar sua configuração na lista, use o endereço
> 
> http://mail.firebase.com.br/mailman/listinfo/lista_firebase.com.br
> 
>>Para consultar mensagens antigas: http://firebase.com.br/pesquisa
>>
> 
> 
> 
> ______________________________________________
> FireBase-BR (www.firebase.com.br) - Hospedado em www.bavs.com.br
> Para editar sua configuração na lista, use o endereço http://mail.firebase.com.br/mailman/listinfo/lista_firebase.com.br
> Para consultar mensagens antigas: http://firebase.com.br/pesquisa
>