Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.06.27;
Скачать: CL | DM;

Вниз

Перекодировка таблиц   Найти похожие ветки 

 
Viktor   (2004-05-30 22:30) [0]

Здравствуйте Мастера! Есть dbf файл и БД FireBird. Необходимо закинуть записи из dbf. Делаю перекодировку так:

procedure TForm1.Button2Click(Sender: TObject);
var
src:PChar;
begin
Table1.First;
Gauge1.MaxValue:=Table1.RecordCount;
ProgressBar1.Max:=Table1.RecordCount;
while not Table1.Eof do
begin
 with pFIBStoredProc1 do
  begin
   Prepare;
   ParamByName("SUMA").AsCurrency:=Table1SUMMA.AsCurrency;
   Src:=StrPCopy(src,Table1FIO.AsString);
   OemToChar(Pointer(Table1FIO.AsString), Src);
   ParamByName("FIO").AsString:=StrPas(src);
   ExecProc;
   Close;
  end;
 Table1.Next;
 Gauge1.AddProgress(1);
 ProgressBar1.StepBy(1);
 end;
pFIBTransaction1.CommitRetaining;
pFIBDataSet1.CloseOpen(True);
Gauge1.Progress:=0;
end;

Записи вставляются, но после окончания цикла выскакивает ошибка " access violation .....". Что неправильно?
Спасибо.


 
mad0max   (2004-05-31 06:55) [1]

to Viktor

Мдяяяяя. кто бы еще пямять под src выделил...
возможно это наведет тебя на какие-нибудь мысли?
var
src:PChar;
begin
    GetMem(src, 1024);
...
end;

я так думаю...



Страницы: 1 вся ветка

Текущий архив: 2004.06.27;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.045 c
14-1086576248
Думкин
2004-06-07 06:44
2004.06.27
С днем рождения! 7 июня


14-1086933878
Rouse_
2004-06-11 10:04
2004.06.27
С Днем Рождения 11 июня


6-1083856173
shek
2004-05-06 19:09
2004.06.27
NMFTP


14-1086947796
MBo
2004-06-11 13:56
2004.06.27
Пятница - время поломать голову ;^)


1-1086773336
Valeri
2004-06-09 13:28
2004.06.27
InstallShield