изменение кодовой страницы dbf-файла (foxPro)

[Ks2010]

вот и вопрос, что делать???...
потому что мне надо чтоб были буковки

через exel окрывается как надо (ну и когда CPCONVERT (866,1251, .. использую).

а через foxpro 2.5b - <>,,,

[Stilet]

В Фоксе набери команду:

REPLACE ALL  vessel WITH CPCONVERT(866,1251,vessel)

И сохрани таблицу

[Ks2010]

проблема в том, что таких таблиц много, делаю их не я. (и база пополняется, не могу сказать точно какая будет к.с.)

и когда люди будут пользоваться программой, которую я пишу, у них будут возникать такие же проблемы (что появляются вместо букв непонятные символы). они точно не смогут зайти в fox и изменить к.с.

поэтому мне надо это сделать какую-то кнопочку чтоб по её нажатию менялась к.с. (причем просто корректного отображение мне не достаточно - которое достигается с помощью cpconvert ).

[Serge_Bliznykov]

все подобные случаи делятся на две категории, когда можно править исходный файл и когда это делать нельзя.

если можно - то тогда попробуйте через патч кодовой таблицы.
К слову, а что, в поле VESSEL реально должен быть текст ЛЫДД ? Если да - то Ваш DBF файл банально кривой - в заголовке стоит кодовая страница 1251, а реально текст в DOS кодировке...

изменённая таблица в аттаче.

ну и программка на Delphi тоже в аттаче.
(p.s. программку писал в своё время (давно) "на коленке", сейчас бы я сделал это через TFileStream, захотите - переделаете сами, будут трудности - обращайтесь. Хотя, это тоже рабочий вариант)

[Ks2010]

да, там должно быть ЛЫДД.

в файле, который Вы мне прислали переключается кодовая страница вот так:

Var
 dbf: file of byte;
 CP: byte;
begin
ADOQuery1.Close;
AssignFile(dbf, 'c:\delphi7\kalmsql\llyd02_1.DBF');
Reset(dbf);
Seek(dbf, 29);
CP := $С9;
Write(dbf, CP);
CloseFile(dbf);
ADOQuery1.Open;
end;

все нормально!!

сделала так

procedure TForm2.Button1Click(Sender: TObject);
Var
 dbf: file of byte;
 CP: byte;
 Table_Name: string;
begin
ADOQuery1.Close;
Table_Name:= Form1.OpenDialog1.FileName;
AssignFile(DBF, Table_Name );
Reset(DBF);
Seek(DBF, 29);
CP := $65;
Write(DBF, CP);
CloseFile(DBF);
ADOQuery1.Open;
end;

меняет ср на 866 (причем не по нажатию на кнопку Button1 а когда запускаю программу.... ну или в момент OpenDialog1.Execute не знаю точно... ), а если пишу CP := $С9; обратно на 1251 не меняет....

[Serge_Bliznykov]

меняет ср на 866, а если пишу CP := $С9; обратно на 1251 не меняет....

честно говоря, не понял, что теперь не так?
Проблема, как я понимаю, не решена?
А зачем Вам менять кодировку на 1251 ?!!
Это ведь неверно, в файле должна быть кодировка 866!
или я чего-то не понимаю?

[Ks2010]

не, эт я чего-то не понимаю!! =)

нормально все меняет ср (на 866), и когда OpenDialog.FileName спользую,
но изменения применяются только когда я выхожу из приложения и заново его запускаю.

что мне где надо refresh??

что такого происходит при закрытии программы, что позволяет обновлять таблицу, чего нельзя вызвать программно???

[Serge_Bliznykov]

давайте пример программки (простой тестовой - сделайте отдельной простое приложение, не использующее ничего лишнего), которая не работает!
(запакуйте исходники в архив и выложите сюда).
посмотрим...

[Ks2010]

лучше так нипишу,
если не нажимать на кнопку

procedure TForm1.Button12Click(Sender: TObject);
var ready:string;
begin
q:=0;
Form2.ADOQuery1.Filtered:=false;
Form2.Edit1.Text:='';
Form2.Edit2.Text:='';
if Edit1.Text='' then
    begin
    messageDlg('таблица не выбрана', mtError, [mbOK], 0);
    exit;
    end;
Form2.ADOTable1.Active:=true;
ready:= ChangeFileExt(ExtractFileName(Form2.ADOTable1.TableName), '');
Form2.Label1.Caption:='открыта таблицa '+ ready;
Form2.Caption:='открыта таблицa '+ ready;
Form2.DBGrid1.DataSource:=Form2.DataSource2;
Form2.ADOQuery1.SQL.Text:='select * from ' + ready ;
Form2.ADOQuery1.Open;
Form2.Show;
Form2.Label2.Caption:='количество строк  -  '+ inttostr(Form2.DBGrid1.DataSource.DataSet.RecordCount);
Form2.Edit2.Text:= inttostr(Form2.DBGrid1.DataSource.DataSet.RecordCount);
Form2.ADOQuery1.Append;
end;

к.с. заменяется во время работы программы, а если нажму, то только после перезапуска.

конечно, я что здесь открыла, то и закрыла потом

procedure TForm1.SelButton3Click(Sender: TObject);
Var
 dbf: file of byte;
 CP: byte;
begin
if Edit1.Text='' then
    begin
    messageDlg('òàáëèöà íå âûáðàíà', mtError, [mbOK], 0);
    exit;
    end;
Form2.ADOQuery1.Filtered:=false;
ADOQuery1.Close;
AssignFile(dbf, Form1.OpenDialog1.FileName);
Reset(dbf);
Seek(dbf, 29);
CP := $65;
Write(dbf, CP);
CloseFile(dbf);
Form2.Close;

Form2.ADOTable1.Active:=false;
ready:='';
Form2.Label1.Caption:='';
Form2.Caption:='';
Form2.DBGrid1.DataSource.DataSet.Close;
Form2.ADOQuery1.SQL.Text:='' ;
Form2.ADOQuery1.Close;
Form2.Close;
Form2.CloseQuery;
Form2.Label2.Caption:='';
Form2.Edit2.Text:= '';
Form1.Button4.Perform(WM_LBUTTONDOWN, 0, 0);
Form1.Button4.Perform(WM_LBUTTONUP, 0, 0);
end;

[Ks2010]

я поставила в ADOCjnnection1. KeepConnection:=false;
и всё хорошо!!!!
всем спасибо большое!!!