зравствуйте уважаемые жители королевства
проблема: я копирую с сервера текстовый файл размером от 5MB до 10MB, затем открываю его для совершения некоторых действий над ним, так вот, копирование проходит на "ура", а вот открыть его не удается, пишет invalid filename, по
моему разумению это присходит из за того, что процедуры копирования файла и процедура открытия файла находится в TForm1.FormActivate(Sender: TObject);и идут друг за другом т.е сначала копирование, а затем открытие и возможно получается следующие:
файл скопировался не до конца, а процедура открытия файла уже пытается его открыть
код программы
procedure TForm1.FormActivate(Sender: TObject);
var
shfileopstruct:tshfileopstruct;
begin
with shfileopstruct do
begin
wnd:=handle;
wfunc:=Fo_copy;
pfrom:='C:\Program Files\keriodatabase\weblog.log';
pto:='C:\Documents and Settings\програмист\Мои документы\Borland Studio Projects\keriologs2.0\database';
fflags:=Fof_NOCONFIRMATION;
end;
shfileoperation(shfileopstruct);
zapolnit();// вызов процедуры открытия файла
end;
procedure Tform1.zapolnit();
var
z:textfile;
i,g:integer;
polz:array[1..10000] of string;
str,nakopitel:string;
begin
i:=0;
assignfile(z,'\database\weblog.log');
reset(z);// в этом месте возникает ошибка (invalid filename)
посоветуйте пожалуйста как от этого избавится