[firebird-support] Re: Pascal UDF passing timestamps/strings

[sir_wally_lewis]

so these functions look like:


procedure fbdatetopascaldate( ib_datetime : PISC_QUAD; VAR pscl_dt : TDATETIME 
);
var
  tm_date:Tm;


begin
  init_tm(tm_date); 
  isc_decode_date(ib_datetime,@tm_date); 
  pscl_dt := EncodeDate(tm_date.tmYear + 1900, tm_date.tm_mon + 1, 
tm_date.tm_mday )
    + EncodeTime(tm_date.tm_hour, tm_date.tm_min, tm_date.tm_sec, 0  );  
end;

procedure pascaldatetofbdate(  pscl_dt : TDATETIME; VAR ib_datetime : PISC_QUAD 
);
var
  tm_date:Tm;
  yyyy,mm,dd,hh,nn,ss,zzz : word;


begin
  init_tm(tm_date); 
  decodedate(pscl_dt,yyyy,mm,dd);
  decodetime(pscl_dt,hh,nn,ss,zzz);
  tm_date.tm_min  := nn;
  tm_date.tm_hour := hh
  tm_date.tm_sec  := ss;
  tm_date.tm_mday := dd;
  tm_date.tm_mon  := mm - 1;
  tm_date.tm_year := yyyy - 1900;

  Creatsomemagicalmemoryforthepointer; 
  isc_encode_date(@tm_date,ib_dateTime); 
end;


Don't know how to create the memory though.
I use this function for strings:

function MakeResultString(Source, OptionalDest: PChar; Len: DWORD): PChar;
begin
  result := OptionalDest;
  if( Len = 0 )then
    Len := StrLen(Source) + 1;
  if( result = nil )then
    result := ib_util_malloc(Len);
  if( Source <> result )then
    begin
      if(Source = nil)or( Len = 1 )then
        result[0] := #0
      else
        Move(Source^, result^, Len);
    end;
end;


Kind Regards,

Robert.