Импорт CSV ASCII

unit Cdbascii;

interface

uses
 SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
 Forms, Dialogs, DbiErrs, DbiTypes, DbiProcs, DB, DBTables;

type
 TAsciiDelimTable = class(TTable)
 private
 { Private declarations }
                                fQuote: Char;
 fDelim: Char;
 protected
 { Protected declarations }
                                function CreateHandle: HDBICur; override;
 procedure SetQuote(newValue: Char);
 procedure SetDelim(newValue: Char);
 public
 { Public declarations }
                                constructor Create(AOwner: TComponent); override;
 destructor Destroy; override;
 { Эти свойства не должны больше публиковаться }
                                property IndexFieldNames;
 property IndexName;
 property MasterFields;
 property MasterSource;
 property UpdateMode;
 published
 { Published declarations }
                                property Quote: Char read fQuote write setQuote default '"';
 property Delim: Char read fDelim write setDelim default ',';
 end;

procedure Register;

implementation

uses DBConsts;

procedure Register;
begin
 RegisterComponents('Data Access', [TAsciiDelimTable]);
end;

constructor TAsciiDelimTable.Create(AOwner: TComponent);
begin
 inherited Create(AOwner);
 Exclusive := True;
 TableType := ttASCII;
 fQuote := '"';
 fDelim := ',';
end;

destructor TAsciiDelimTable.Destroy;
begin
 inherited Destroy;
end;

{ Рабочий код }

function CheckOpen(Status: DBIResult): Boolean;
begin
 case Status of
 DBIERR_NONE:
 Result := True;
 DBIERR_NOTSUFFTABLERIGHTS:
 begin
 if not Session.GetPassword then
 DbiError(Status);
 Result := False;
 end;
 else
 DbiError(Status);
 end;
end;

function TAsciiDelimTable.CreateHandle: HDBICur;
const
 OpenModes: array[Boolean] of DbiOpenMode = (dbiReadWrite, dbiReadOnly);
 ShareModes: array[Boolean] of DbiShareMode = (dbiOpenShared, dbiOpenExcl);
var
 STableName: array[0..SizeOf(TFileName) - 1] of Char;
 SDriverType: array[0..12] of Char;
begin
 if TableName = '' then
 DBError(SNoTableName);
 AnsiToNative(DBLocale, TableName, STableName, SizeOf(STableName) - 1);
 StrPCopy(SDriverType, 'ASCIIDRV-' + Quote + '-' + Delim);
 Result := nil;
 while not CheckOpen(DbiOpenTable(DBHandle, STableName, SDriverType,
 nil, nil, 0, OpenModes[ReadOnly], ShareModes[Exclusive],
 xltField, False, nil, Result)) do {Повтор}
                                ;
end;

procedure TAsciiDelimTable.SetQuote(newValue: Char);
begin
 if Active then
 { DBError(SInvalidBatchMove); };
 fQuote := newValue;
end;

procedure TAsciiDelimTable.SetDelim(newValue: Char);
begin
 if Active then
 { DBError(SInvalidBatchMove); };
 fDelim := newValue;
end;

end.