Коллеги, не получается. Разрыл, что программно можно выставить параметры "ODBC" и "{Microsoft Visual Foxpro driver}".

Чуть позднее скину проект, чтобы говорить по существу. Может есть готовый рецепт, как доктор прописал?

И что скажете про TDBF и VKDBF?

ъъъъъ,


Для начала хочется просто считать данные из DBF и заполнить ими ListBox.
Я приложу свой код, разумеется (по фото геморрой не лечат).

Считаю правильно/современно - через FireDAC. Если я не прав - аргументируйте. Я из фокса пришел, разберусь. Но без местных гуру будет долго парадигму переиначивать. Спецы из других языков быстро учатся, это нужно им... ;)

Dimitry Sibiryakov,

Да, коллеги (и сам) работаю со стандартным dBase 4. Есть интерес (пока просто заполнить ЛистБокс) работать под FireDAC. Будут приседания под работу с DBF - послушаю советы, вроде люди VK DBF советуют.

Давайте завтра скину, что есть - посоветуете, что я делаю не так. Мне не зазорно в чем-то новом ковыряться и задавать тупые вопросы. Кто-то куда-то мигрирует, все непросто. Но осилим, мы из упрямых, но слушающих.

Через АДО не хочется, я потом свои обертки буду рисовать. Муторно.

Советы (аргументированные) послушаю. Все что интересно. В Гугл играю, подробности найду.

program Project1;

uses
Vcl.Forms,
Unit1 in 'Unit1.pas' {Form1};


{$R *.res}

begin
Application.Initialize;
Application.MainFormOnTaskbar := True;
Application.CreateForm(TForm1, Form1);
Form1.ReadKeySection();
Form1.FillListShizd();
Application.Run;

end.




unit Unit1;

interface

uses
Winapi.Windows, Winapi.Messages,
System.SysUtils, System.Variants, System.Classes, System.IniFiles,
Vcl.Controls, Vcl.StdCtrls, Vcl.Graphics, Vcl.Forms, Vcl.Dialogs, Vcl.ToolWin, Vcl.ComCtrls,
FireDAC.Stan.Intf, FireDAC.Stan.Option, FireDAC.Stan.Error, FireDAC.UI.Intf,
FireDAC.Phys.Intf, FireDAC.Stan.Def, FireDAC.Stan.Pool, FireDAC.Stan.Async,
FireDAC.Phys, FireDAC.VCLUI.Wait, FireDAC.Stan.Param, FireDAC.DatS,
FireDAC.DApt.Intf, FireDAC.DApt, Data.DB, FireDAC.Comp.DataSet,
FireDAC.Comp.Client, FireDAC.Phys.ODBC, FireDAC.Phys.MySQLDef,
FireDAC.Phys.MySQL, FireDAC.Phys.ODBCDef, FireDAC.Phys.ODBCBase ;
// Dbf in 'dbf.pas';


type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
ListBox1: TListBox;
ListBox2: TListBox;
StatusBar1: TStatusBar;
ToolBar1: TToolBar;
FDConnection1: TFDConnection;
FDTable1: TFDTable;
FDPhysODBCDriverLink1: TFDPhysODBCDriverLink;

procedure Button2Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure FillListShizd;

private
{ Private declarations }

public
{ Public declarations }
procedure ReadKeySection;

end;

var
Form1: TForm1;
lcP1470SRV: String;
lcP1471SRV: String;
lcP1472SRV: String;



implementation

{$R *.dfm}
{ TForm1 }

procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage('Îáðàáîòêà XML');
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Close;
end;




procedure TForm1.ReadKeySection();
var
oIni: TIniFile;
lcIniFileName: String;

begin
lcIniFileName := 'setup.ini';
oIni := TIniFile.Create( ExtractFilePath( Application.ExeName ) + lcIniFileName );

lcP1470SRV := oIni.ReadString('PATH_IN', 'P1470SRV', '');
lcP1471SRV := oIni.ReadString('PATH_IN', 'P1471SRV', '');
lcP1472SRV := oIni.ReadString('PATH_IN', 'P1472SRV', '');

ShowMessage(lcP1470SRV + ' ' + lcP1471SRV + ' ' + lcP1472SRV);
end;





procedure TForm1.FillListShizd();
var
oFDConn: TFDConnection;
begin

oFDConn := FDConnection1.Create(nil);
oFDConn.Params.Clear;
oFDConn.Params.Values['Login Prompt'] := 'False';
oFDConn.Params.Values['DriverID'] := 'ODBC';
oFDConn.Params.Values['ODBCDriver'] := '{Microsof Visual FoxPro Driver}';
//oFDConn.Params.Values['ODBCAdvanced'] := 'SourceDB=' + ExtractFilePath(lcP1470SRV) + ';SourceType=DBF;Exclusive=No;BackgroundFetch=Yes;Collate=Machine';
oFDConn.Params.Values['Database'] := ExtractFilePath(lcP1470SRV);
// FDConnection1.DriverName := 'Microsof Visual FoxPro Driver';
oFDConn.Connected := True;


FDTable1.Connection := FDConnection1;
FDTable1.TableName := ExtractFileName(lcP1470SRV);



// FDTable1.Active := True; '


FDTable1.Open;

while not FDTable1.Eof do
begin
ListBox1.Items.Add(FDTable1.FieldByName('SHIZD').AsString);
end;
FDTable1.Close;



// TFileP1470 := TDBF.Create(nil);
// TFileP1470.TableName := ExtractFileName(lcP1470SRV);
// TFileP1470.Open;

// while not TFileP1470.EOF do
// begin
// ListBox1.Items.Add(TFileP1470.FieldByName('SHIZD').AsString);
// TFileP1470.Next;
// end;
// TFileP1470.Close;

//TFileP1470 := TTable.Create(Application);
//table2.TableType := ttFoxPro; // cpdbf() = 1251
//TFileP1470.TableType := ttDBase;
//TFileP1470.DatabaseName := ExtractFilePath(lcP1470SRV);
//TFileP1470.TableName := ExtractFileName(lcP1470SRV);
//TFileP1470.Active := true;



//TFileP1470.First;
//while not TFileP1470.Eof do
// begin
// ListBox1.Items.Add(TFileP1470.Fields[1].AsString);
// TFileP1470.Next;
// end;
//TFileP1470.Close;



end;

end.

Дмитрий, я очень внимателен, знаю Вы (ты) сильны в Делфях. Пните в правильное направление, я там, глядишь, разберемся. ;)

ъъъъъ,

Да, конечно. Просто поторопился и не знал, как тут ПРАВИЛЬНО оформляется кодес. Спасибо, я учту.

Не нашел, как исправить сообщение. Про теги кода понял. Сейчас пишу - теги вижу. А как отредактировать? Может мало сообщений? Зареган давно так-то... Чего не знаю?

Dimitry Sibiryakov,

Наверное. :)
Хотелось бы FireDAC допинать, все же более продвинутая технология. Читаешь техфорумы - то одно хвалят, то другое... Каждый выбирает свой путь, это понятно. Хочется, чтобы было без ненужного мегатонного кодеса, без привязок а-ля BDE, масштабируемо и пр.