Главная страница | назад





Article #19700: Obtaining a list of available BDE language drivers

 Question and Answer Database

     FAQ: FAQ4700B - Obtaining a list of available BDE language drivers
Category: BDE
Platform: All-32Bit
 Product: Delphi2.x,   Delphi3.x,   Delphi4.x,   

Question:

How can I retreive a list of available BDE language drivers?


Answer:

The following Delphi procedure returns a formatted list of 
available BDE language drivers.
The procedure can be called as shown in the buttonclick 
method below.

Add BDE and DBTables to your unit's uses clause.

procedure GetLdList(Lines: TStrings);
var
  hCur: hDBICur;
  LD: LDDesc;
  cnt:integer;
begin
  // get a cursor to the in-mem table containing language 
  // driver information...
  cnt:=0;
  check(dbiinit(nil));
  Check(DbiOpenLdList(hCur));
  try
    while (DbiGetNextRecord(hCur, dbiNOLOCK, @LD, nil) = 
    DBIERR_NONE) do begin
      cnt:=cnt+1;
      Lines.Add(format('%4d %-6s%-10s %-10s%5s %-10s %-10s',
      [cnt,'Name:',LD.szName,'Code Page:',IntToStr(LD.iCodePage),
      'Description:',LD.szDesc]));
    end;
  finally
    Check(DbiCloseCursor(hCur));
    check(dbiexit);
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
getldlist(memo1.lines);
end;

end.

7/13/99 10:12:07 AM
 

Last Modified: 01-SEP-99