🚀 go-pugleaf

czesc,

Paweł Rzoska schrieb:
> Mam problem w zastosowaniu powyzszej funkcji. Muszę mieć rekord bazy danych
> a nie dostęp przez FieldByName stad caly pasztet. Nie widzialem w
> przykladach zastosowania tego a rezultat nie jest taki jak można oczekiwac.
> W sciagnietej zawartosci rekordu - glupoty. Czy nie zechcialby ktos podac
> przykladu zastosowania pobrania z bazy biezacego rekordu ???
uzywasz "TBDEDataSet"???
nie uzywam db-objektow delphi, ale w bde wyglada to mniej wiecej tak:
var
  hCur      : hDBICur;
  res       : Integer;
  props     : CURProps;
  RecBuffer : PChar;
...
begin
  // set the handle
  hCur := TwojTBDEDataSet.Handle;
  // we need the table(cursor) propertys ...
  res := DbiGetCursorProps(hCur, props);
  if (res <> DBIERR_NONE) then begin
     // somthigs goes wrong, return the errorcode ...
     Result := res;
     // ... show error ...
     ShowError('ReadTableIntoMemory', Result, ['']);
     // ... and bye, bye.
     Exit;
  end;
  // alloctate memory for buffer
  RecBuffer := StrAlloc(props.iRecBufSize + 1);
  // has windows memory for as???
  if (RecBuffer = nil) then begin
     // memory not allocated, return error ...
     Result := DBIERR_NOMEMORY;
     // ... show error ...
     ShowError('ReadTableIntoMemory', Result, ['']);
     // ... and leave the method
     Exit;
  end;
 ...
  // now we can read the record
  res := DbiGetNextRecord(hCur, dbiNOLOCK, RecBuffer, nil);
  // problems???
  if ((res <> DBIERR_NONE) and (res <> DBIERR_EOF)) then begin
     // error number
     Result := res;
     // show message
     ShowError('ReadTableIntoMemory', Result, ['']);
     // leave
     Exit;
  end;
teraz czytasz zawartosc pola uzywajac funkcji
"DbiGetField/(DbiOpenBlob+DbiGetBlobSize+DbiGetBlob+DbiFreeBlob)" 
(opis wszystkich funkcji "Dbi" jest w "bde online reference")
jest to kawalek kodu objektu czytajacego cale tabele(sql-statsmenst)
do pamieci => takie male zastepstwo dla ttable i tquery:)

po pobieznym przejrzeniu "TBDEDataSet.GetCurrentRecord" wydaje mi sie, 
ze jako parametr nalezy zapodac zarezerwowany bufor. jego wielkosc 
dostaniesz z "GetRecordSize", 'zaallocuj' pamiec i wolaj
"GetCurrentRecord".
nie probowalem czy dziala!

powodzenia
marcin