[delphi-br] Re: Manipulando Arquivo texto
A todos que ajudaram , informo que o amigo Daniel de uma outra lista
matou o problema:
para que quizer lá vai..
procedure TFexportar.BitBtnPesClick(Sender: TObject);
var
Path, NomArquivo: String;
Arquivo: TextFile;
Handle: Integer;
begin
if RadioGroup1.ItemIndex = 0 then
begin
try
Screen.cursor:=CRSQLwait;
ExportaDados.Close;
ExportaDados.Parambyname('Pdata1').AsDate:= strtodate
(dateedit2.Text);
ExportaDados.Parambyname('Pdata2').AsDate:= strtodate
(dateedit3.Text);
ExportaDados.Parambyname('Pcodcolab').Asstring:=
glbcodigocolab;
if not (ExportaDados.Prepared)then
ExportaDados.prepare;
ExportaDados.open;
path:= 'C:\BaseAudi\Arquivos Exportados\';
if not DirectoryExists(Path) then
CreateDir(Path);
NomArquivo:= glbCodigocolab +' '+combobox1.text+'-
'+combobox2.text+ '.txt';
if not FileExists(Path + NomArquivo) then
Handle := FileCreate(Path + NomArquivo);
fileclose(handle);
AssignFile(Arquivo, Path + NomArquivo);
Rewrite(Arquivo);
Exportadados.First;
while not exportadados.Eof do
--- Em [EMAIL PROTECTED], "denjabr" <[EMAIL PROTECTED]> escreveu
>
> sim estou fechando o arquivo, vou colocar todo código e a linha que
> esta com a seta é que gera erro.
>
> procedure TFexportar.BitBtnPesClick(Sender: TObject);
> var
> Path, NomArquivo: String;
> Arquivo: TextFile;
> begin
> if RadioGroup1.ItemIndex = 0 then
>begin
> try
> Screen.cursor:=CRSQLwait;
> ExportaDados.Close;
> ExportaDados.Parambyname('Pdata1').AsDate:= strtodate
> (dateedit2.Text);
> ExportaDados.Parambyname('Pdata2').AsDate:= strtodate
> (dateedit3.Text);
> ExportaDados.Parambyname('Pcodcolab').Asstring:=
> glbcodigocolab;
> if not (ExportaDados.Prepared)then
>ExportaDados.prepare;
> ExportaDados.open;
>
> path:= 'C:\BaseAudi\Arquivos Exportados\';
> if not DirectoryExists(Path) then
> CreateDir(Path);
>
> NomArquivo:= glbCodigocolab +' '+combobox1.text+'-
> '+combobox2.text+ '.txt';
>
> if not FileExists(Path + NomArquivo) then
> FileCreate(Path + NomArquivo);
>
> AssignFile(Arquivo, Path + NomArquivo);
>
> > Rewrite(Arquivo); // aqui é que da erro
> Exportadados.First;
> while not exportadados.Eof do
>begin
> Write ( arquivo, AjustaStr(
ExportaDadosCENTRAL.AsString,
> 20));
> Write ( arquivo, AjustaStr(
ExportaDadosCoop.AsString,
> 20));
> Write ( arquivo, AjustaStr(
ExportaDadosUA.AsString,
> 20));
> Write ( arquivo, AjustaStr(
ExportaDadosArea.AsString,
> 20));
> Write ( arquivo, AjustaStr(
ExportaDadosData.AsString,
> 15));
> Write ( arquivo, AjustaStr(
ExportaDadosAno.AsString,
> 10));
> Write ( arquivo, AjustaStr(
ExportaDadosHoras.AsString,
> 10));
> Write ( arquivo, AjustaStr(
ExportaDadosColab.AsString,
> 16));
> Write ( arquivo, AjustaStr(
ExportaDadosOBS.AsString,
> 300));
> WriteLn ( arquivo );
> exportadados.Next;
>end;
> CloseFile ( arquivo );
> Showmessage('Exportação concluída.');
>finally
> screen.cursor:=crdefault;
> end;
>end
> else
>
> --- Em [EMAIL PROTECTED], "Eduardo Galvão"
<[EMAIL PROTECTED]>
> escreveu
> > Olá,
> >
> > >Não é este o problema, ja'fiz isto e continua dando erro.
> > >Parece que ele não atualiza a pasta antes de buscar o arquivo e
ai
> > >ele nao o encontra . Só depois de dar um f5 com a aplicação
fechada
> > >que resolve.
> >
> > Você está dando um arquivo.closefile quando termina a gravação
> > no arquivo ??
> >
> > Se não fizer isto, só vai funcionar da 1a vez. Na 2a vez,
> > o arquivo vai estar aberto e vai dar um erro.
> >
> > Saudações,
> > Eduardo Paci Galvão
> > Engenheiro UFMG 1990
> > Belo Horizonte - Brasil
> > www.egalvao.com.br
--
< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
[delphi-br] Re: Manipulando Arquivo texto
sim estou fechando o arquivo, vou colocar todo código e a linha que
esta com a seta é que gera erro.
procedure TFexportar.BitBtnPesClick(Sender: TObject);
var
Path, NomArquivo: String;
Arquivo: TextFile;
begin
if RadioGroup1.ItemIndex = 0 then
begin
try
Screen.cursor:=CRSQLwait;
ExportaDados.Close;
ExportaDados.Parambyname('Pdata1').AsDate:= strtodate
(dateedit2.Text);
ExportaDados.Parambyname('Pdata2').AsDate:= strtodate
(dateedit3.Text);
ExportaDados.Parambyname('Pcodcolab').Asstring:=
glbcodigocolab;
if not (ExportaDados.Prepared)then
ExportaDados.prepare;
ExportaDados.open;
path:= 'C:\BaseAudi\Arquivos Exportados\';
if not DirectoryExists(Path) then
CreateDir(Path);
NomArquivo:= glbCodigocolab +' '+combobox1.text+'-
'+combobox2.text+ '.txt';
if not FileExists(Path + NomArquivo) then
FileCreate(Path + NomArquivo);
AssignFile(Arquivo, Path + NomArquivo);
> Rewrite(Arquivo); // aqui é que da erro
Exportadados.First;
while not exportadados.Eof do
begin
Write ( arquivo, AjustaStr( ExportaDadosCENTRAL.AsString,
20));
Write ( arquivo, AjustaStr( ExportaDadosCoop.AsString,
20));
Write ( arquivo, AjustaStr( ExportaDadosUA.AsString,
20));
Write ( arquivo, AjustaStr( ExportaDadosArea.AsString,
20));
Write ( arquivo, AjustaStr( ExportaDadosData.AsString,
15));
Write ( arquivo, AjustaStr( ExportaDadosAno.AsString,
10));
Write ( arquivo, AjustaStr( ExportaDadosHoras.AsString,
10));
Write ( arquivo, AjustaStr( ExportaDadosColab.AsString,
16));
Write ( arquivo, AjustaStr( ExportaDadosOBS.AsString,
300));
WriteLn ( arquivo );
exportadados.Next;
end;
CloseFile ( arquivo );
Showmessage('Exportação concluída.');
finally
screen.cursor:=crdefault;
end;
end
else
--- Em [EMAIL PROTECTED], "Eduardo Galvão" <[EMAIL PROTECTED]>
escreveu
> Olá,
>
> >Não é este o problema, ja'fiz isto e continua dando erro.
> >Parece que ele não atualiza a pasta antes de buscar o arquivo e ai
> >ele nao o encontra . Só depois de dar um f5 com a aplicação fechada
> >que resolve.
>
> Você está dando um arquivo.closefile quando termina a gravação
> no arquivo ??
>
> Se não fizer isto, só vai funcionar da 1a vez. Na 2a vez,
> o arquivo vai estar aberto e vai dar um erro.
>
> Saudações,
> Eduardo Paci Galvão
> Engenheiro UFMG 1990
> Belo Horizonte - Brasil
> www.egalvao.com.br
--
< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
Re: [delphi-br] Re: Manipulando Arquivo texto
Olá, >Não é este o problema, ja'fiz isto e continua dando erro. >Parece que ele não atualiza a pasta antes de buscar o arquivo e ai >ele nao o encontra . Só depois de dar um f5 com a aplicação fechada >que resolve. Você está dando um arquivo.closefile quando termina a gravação no arquivo ?? Se não fizer isto, só vai funcionar da 1a vez. Na 2a vez, o arquivo vai estar aberto e vai dar um erro. Saudações, Eduardo Paci Galvão Engenheiro UFMG 1990 Belo Horizonte - Brasil www.egalvao.com.br -- < FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM > Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos <*> Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ <*> Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] <*> O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Re: Manipulando Arquivo texto
Não é este o problema, ja'fiz isto e continua dando erro. Parece que ele não atualiza a pasta antes de buscar o arquivo e ai ele nao o encontra . Só depois de dar um f5 com a aplicação fechada que resolve. --- Em [EMAIL PROTECTED], "Depto de Informatica" <[EMAIL PROTECTED]> escreveu > Pode ser por causa do nome da pasta "\Arquivos Exportados" tive problemas com nome-composto para a pasta destino. Experimente deixar esta pasta com um nome simples (Ex.: ArquivosExportados). > > Espero ter ajudado. > > Luiz Carlos > - Original Message - > From: MEB > To: firebase-br ; [EMAIL PROTECTED] ; Delphi / Lista ; delphi-br > Sent: Thursday, November 18, 2004 4:37 PM > Subject: [delphi-br] Manipulando Arquivo texto > > > To nisso desde as 11:00 e nao consegui resolver, preciso criar um arquivo texto para gravar dados da minha base, ele cria o arquivo ,mas ele não consegue gravar(da erro na linha que esta marcada com **), somente deposi de fechar a aplicacao e abrir novamente é que ele consegue gravar no arquivo gerado. > > Segue parte do código, > > ...if not (ExportaDados.Prepared)then > ExportaDados.prepare; > ExportaDados.open; > > path:= 'C:\BaseAudi\Arquivos Exportados\'; > if not DirectoryExists(Path) then > CreateDir(Path); > > NomArquivo:= glbCodigocolab +' '+combobox1.text+'- '+combobox2.text+ '.txt'; > > if not FileExists(Path + NomArquivo) then > FileCreate(Path + NomArquivo); > > AssignFile(Arquivo, Path + NomArquivo); > **Rewrite(Arquivo); > Exportadados.First; > while not exportadados.Eof do > begin... > sds > > Denis > > [As partes desta mensagem que não continham texto foram removidas] > > > > > [As partes desta mensagem que não continham texto foram removidas] -- < FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM > Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos <*> Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ <*> Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] <*> O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
