Erro ao gerar arquivo txt

Delphi

21/02/2003

procedure TfEnvio.BitBtn1Click(Sender: TObject);
begin

data:=datetostr(date);
data:=Copy(data,1,Length(data)-5);
Delete(data,Pos(´/´,data),1); ///Delata o caracter ´/´
/// namearq:=´M´+´´+edtempresa.text+´´+data;
namearq:=´M´+´´+edtemp+´´+data;
path:= edtEscolha.text+´\´+namearq+´.txt´;
with dmEnvio.qryImporta, sql do
begin
clear;
close;
add(´select (l.nomecidade) as NomeAtend,(c.nomecidade) as NomeCidade,´);
add(´u.* from usuario u, localatend l, cidade c´);
add(´where u.idlocalatendimento = l.idlocalatend´);
add(´and u.idcidade = c.idcidade´);
add(´and ((dtcadastro >= :D1) and (dtcadastro <= :D2))´);
add(´and usuemp = ´´´+edtEmpresa.Text+´´´´);
add(´and enviado =´´N´´´);
ParamByName(´D1´).AsDateTime := Trunc(fEnvio.DateTimePicker1.date);
ParamByName(´D2´).AsDateTime := Trunc(fEnvio.DateTimePicker2.Date);
open;
end;
AssignFile(F, path);
Rewrite(F);
dmEnvio.qryImporta.First;
While not dmEnvio.qryImporta.Eof Do
Begin

Writeln(F, dmEnvio.qryImportaidseq.Value);
dmEnvio.qryImporta.Next;
end;
CloseFile(F);

Faco a criacao do arquivo txt, mas quando ele comeca a gerar aparece o seguinte erro:

´Invalid File Name´


O que significa este erro??


Qual a solucao????




Grato.

Evandro Araujo de Abreu
Cpd - Uniodonto Campinas
E-mail: sistemas@uniodontocamp.com.br
19 - 37314020


Anonymous

Anonymous

Curtidas 0

Respostas

Aroldo Zanela

Aroldo Zanela

21/02/2003

[quote=´Evandro´]procedure TfEnvio.BitBtn1Click(Sender: TObject);
begin

data:=datetostr(date);
data:=Copy(data,1,Length(data)-5);
Delete(data,Pos(´/´,data),1); ///Delata o caracter ´/´
/// namearq:=´M´+´´+edtempresa.text+´´+data;
namearq:=´M´+´´+edtemp+´´+data;
path:= edtEscolha.text+´\´+namearq+´.txt´;
with dmEnvio.qryImporta, sql do
begin
clear;
close;
add(´select (l.nomecidade) as NomeAtend,(c.nomecidade) as NomeCidade,´);
add(´u.* from usuario u, localatend l, cidade c´);
add(´where u.idlocalatendimento = l.idlocalatend´);
add(´and u.idcidade = c.idcidade´);
add(´and ((dtcadastro >= :D1) and (dtcadastro <= :D2))´);
add(´and usuemp = ´´´+edtEmpresa.Text+´´´´);
add(´and enviado =´´N´´´);
ParamByName(´D1´).AsDateTime := Trunc(fEnvio.DateTimePicker1.date);
ParamByName(´D2´).AsDateTime := Trunc(fEnvio.DateTimePicker2.Date);
open;
end;
AssignFile(F, path);
Rewrite(F);
dmEnvio.qryImporta.First;
While not dmEnvio.qryImporta.Eof Do
Begin

Writeln(F, dmEnvio.qryImportaidseq.Value);
dmEnvio.qryImporta.Next;
end;
CloseFile(F);

Faco a criacao do arquivo txt, mas quando ele comeca a gerar aparece o seguinte erro:

´Invalid File Name´


O que significa este erro??


Qual a solucao????

ShowMessage(path);    // Vê se o que aparece é um nome válido
AssignFile(F, path); 
Rewrite(F); 
dmEnvio.qryImporta.First; 
While not dmEnvio.qryImporta.Eof Do 
Begin 

Writeln(F, dmEnvio.qryImportaidseq.Value); 
dmEnvio.qryImporta.Next; 
end; 
CloseFile(F);


Verifique as permissões de gravação.


GOSTEI 0
Dor_poa

Dor_poa

21/02/2003

por acaso a variavel path não esta vazia ou com um nome inválido???


GOSTEI 0
POSTAR