[delphi-br] [TXT - COMO SABER SE ARQUIVO ESTA EM USO]
Ola , ola ... Help companheiros ... estou abrindo um arquivo TXT(xml). vXMLDoc.LoadFromFile(ArquivoEnder); so que qndo o arquivo esta em uso da pau !! tem alguma funcao para testar se o arquivo esta em uso ?? Marcio .
RE: [delphi-br] [TXT - COMO SABER SE ARQUIVO ESTA EM USO]
Não tem função pronta pra isso, nem no Object Pascal e nem na API do Windows. Tem que codificar uma. Um exemplo de função para fazer esse teste, usando a API do Windows, pode ser visto em http://www.swissdelphicenter.ch/en/showcode.php?id=104. Boa sorte. Sds. To: delphi-br@yahoogrupos.com.br From: mar...@sulfabril.com.br Date: Mon, 6 Apr 2009 13:30:54 -0300 Subject: [delphi-br] [TXT - COMO SABER SE ARQUIVO ESTA EM USO] Ola , ola ... Help companheiros ... estou abrindo um arquivo TXT(xml). vXMLDoc.LoadFromFile(ArquivoEnder); so que qndo o arquivo esta em uso da pau !! tem alguma funcao para testar se o arquivo esta em uso ?? Marcio . _ Emoticons e Winks super diferentes para o Messenger. Baixe agora, é grátis! http://specials.br.msn.com/ilovemessenger/pacotes.aspx [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] [TXT - COMO SABER SE ARQUIVO ESTA EM USO]
function ArquivoJaEstaAberto(const NomeDoArquivo: string): boolean;
var
StreamArquivo: TFileStream;
begin
if not FileExists(NomeDoArquivo) then
raise Exception.CreateFmt('O arquivo %s não existe', [NomeDoArquivo])
else
try
StreamArquivo := TFileStream.Create('nomedoarquivo.txt',
fmShareExclusive and fmOpenRead);
StreamArquivo.Free;
Result := False;
except
Result := True;
end;
end;
Rubem Nascimento da Rocha escreveu:
Não tem função pronta pra isso, nem no Object Pascal e nem na API do
Windows. Tem que codificar uma. Um exemplo de função para fazer esse
teste, usando a API do Windows, pode ser visto em
http://www.swissdelphicenter.ch/en/showcode.php?id=104.
http://www.swissdelphicenter.ch/en/showcode.php?id=104.
Boa sorte.
Sds.
To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
From: mar...@sulfabril.com.br mailto:marcio%40sulfabril.com.br
Date: Mon, 6 Apr 2009 13:30:54 -0300
Subject: [delphi-br] [TXT - COMO SABER SE ARQUIVO ESTA EM USO]
Ola , ola ...
Help companheiros ...
estou abrindo um arquivo TXT(xml).
vXMLDoc.LoadFromFile(ArquivoEnder);
so que qndo o arquivo esta em uso da pau !!
tem alguma funcao para testar se o arquivo esta em uso ??
Marcio .
__
Emoticons e Winks super diferentes para o Messenger. Baixe agora, é grátis!
http://specials.br.msn.com/ilovemessenger/pacotes.aspx
http://specials.br.msn.com/ilovemessenger/pacotes.aspx
[As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] TXT para variavel
O jeito mais cômodo é usar tstringlist, loadfromfile. Veja aí no help. 2008/4/29 Filippe Maymone [EMAIL PROTECTED]: GAlera boa tarde Eu tenho um arquivo TXT com alguns codigos exemplo: 01,03,120,301,359,623,700 Eu preciso pegar desse TXT esses codigos e jogar para uma variavel string. Teria como fazer isso ?? Abraços, -- Timeo hominem unius libri Cogito ergo sum - Carpe diem []s Guionardo Furlan http://guionardo.blogspot.com
[delphi-br] TXT para variavel
GAlera boa tarde Eu tenho um arquivo TXT com alguns codigos exemplo: 01,03,120,301,359,623,700 Eu preciso pegar desse TXT esses codigos e jogar para uma variavel string. Teria como fazer isso ?? Abraços, [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] TXT
procedure TForm1.FormCreate(Sender: TObject);
begin
GravaTXT('C:\eduardo.txt');
end;
procedure TForm1.GravaTXT(VFileName: String);
var
vAux : String;
vTXT : TextFile;
i, x : Integer;
begin
vAux := '';
if Trim(VFileName) = '' then
VFileName := 'C:\eduardo.txt';
if FileExists(VFileName) then
begin
AssignFile(vTXT, VFileName);
Append(vTXT);
end
else
begin
AssignFile(vTXT, VFileName);
Rewrite(vTXT);
Reset(vTXT);
Append(vTXT);
end;
with TQuery.Create(Nil) do
try
DatabaseName := Database1.DatabaseName;
SQL.Add('SELECT * FROM TESTE_EDU');
Open;
if not IsEmpty then
begin
vAux := SQL.GetText;
WriteLn(vTXT, VAux);
for i := 0 to RecordCount - 1 do
begin
vAux := '';
for x := 0 to Fields.Count - 1 do
vAux := vAux + Fields[x].AsString + ';';
WriteLn(vTXT, VAux);
Next;
end;
end;
Free;
except
Free;
end;
CloseFile(vTXT);
end;
Fiz agora, testa ai e v se funciona ...
Eduardo
- Original Message -
From: dionatanhenrique
To: delphi-br@yahoogrupos.com.br
Sent: Thursday, May 05, 2005 9:13 AM
Subject: [delphi-br] TXT
Alguem teria uma funçao ou procedimento para exportar dados de uma
tabela para um arquivo txt .
Valeu!
--
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]
Yahoo! Grupos, um serviço oferecido por:
PUBLICIDADE
--
Links do Yahoo! Grupos
a.. Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
b.. Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço
do Yahoo!.
[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
Re: [delphi-br] TXT
Dei uma melhorada, olhe e adapte ...
procedure TForm1.FormCreate(Sender: TObject);
begin
with Query1 do
begin
DatabaseName := Database1.DatabaseName;
SQL.Add('SELECT * FROM TESTE_EDU');
end;
GravaTXT('C:\eduardo.txt', Query1, Nil);
end;
procedure TForm1.GravaTXT(VFileName : String; vQuery : TQuery = Nil; vTable :
TTable = Nil);
var
vAux : String;
vTXT : TextFile;
i, x : Integer;
begin
vAux := '';
if Trim(VFileName) = '' then
VFileName := 'C:\eduardo.txt';
if FileExists(VFileName) then
begin
AssignFile(vTXT, VFileName);
Append(vTXT);
end
else
begin
AssignFile(vTXT, VFileName);
Rewrite(vTXT);
Reset(vTXT);
Append(vTXT);
end;
if vQuery Nil then
with vQuery do
try
Open;
if not IsEmpty then
begin
vAux := SQL.GetText;
WriteLn(vTXT, VAux);
for i := 0 to RecordCount - 1 do
begin
vAux := '';
for x := 0 to Fields.Count - 1 do
vAux := vAux + Fields[x].AsString + ';';
WriteLn(vTXT, VAux);
Next;
end;
end;
Free;
except
Free;
end
else
if vTable Nil then
with vTable do
try
Open;
if not IsEmpty then
begin
vAux := 'Tabela : ' + TableName;
WriteLn(vTXT, VAux);
for i := 0 to RecordCount - 1 do
begin
vAux := '';
for x := 0 to Fields.Count - 1 do
vAux := vAux + Fields[x].AsString + ';';
WriteLn(vTXT, VAux);
Next;
end;
end;
Free;
except
Free;
end;
CloseFile(vTXT);
end;
Eduardo
- Original Message -
From: Eduardo
To: delphi-br@yahoogrupos.com.br
Sent: Thursday, May 05, 2005 4:24 PM
Subject: Re: [delphi-br] TXT
procedure TForm1.FormCreate(Sender: TObject);
begin
GravaTXT('C:\eduardo.txt');
end;
procedure TForm1.GravaTXT(VFileName: String);
var
vAux : String;
vTXT : TextFile;
i, x : Integer;
begin
vAux := '';
if Trim(VFileName) = '' then
VFileName := 'C:\eduardo.txt';
if FileExists(VFileName) then
begin
AssignFile(vTXT, VFileName);
Append(vTXT);
end
else
begin
AssignFile(vTXT, VFileName);
Rewrite(vTXT);
Reset(vTXT);
Append(vTXT);
end;
with TQuery.Create(Nil) do
try
DatabaseName := Database1.DatabaseName;
SQL.Add('SELECT * FROM TESTE_EDU');
Open;
if not IsEmpty then
begin
vAux := SQL.GetText;
WriteLn(vTXT, VAux);
for i := 0 to RecordCount - 1 do
begin
vAux := '';
for x := 0 to Fields.Count - 1 do
vAux := vAux + Fields[x].AsString + ';';
WriteLn(vTXT, VAux);
Next;
end;
end;
Free;
except
Free;
end;
CloseFile(vTXT);
end;
Fiz agora, testa ai e v se funciona ...
Eduardo
- Original Message -
From: dionatanhenrique
To: delphi-br@yahoogrupos.com.br
Sent: Thursday, May 05, 2005 9:13 AM
Subject: [delphi-br] TXT
Alguem teria uma funçao ou procedimento para exportar dados de uma
tabela para um arquivo txt .
Valeu!
--
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]
Yahoo! Grupos, um serviço oferecido por:
PUBLICIDADE
--
Links do Yahoo! Grupos
a.. Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
b.. Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do
Serviço do Yahoo
Re: RES: [delphi-br] txt
Você também pode usar o método do writeln ou write mas primeiro dê o caminho do arquivo com assignfile Tipo assim: var vArq : textfile; begin AssignFile(vArq, 'C:\arquivo.txt'); Writeln(vArq, 'PUTEDO!!'); CloseFile(vArq); end; Não esquece de colocar o closefile quando terminar... A diferença entre o writeln e o write é que o writeln quebra linha depois de escrever... Führ Arnaldo Vicente Scarin wrote: Você pode usar um tStringList, e adicionar as linhas que você deseja, e quando o seu arquivo estiver pronto, use o método SaveToFile(cNomeArq), onde cNomeArq é o nome do arquivo que você deseja criar. Arnaldo V. Scarin [EMAIL PROTECTED] [EMAIL PROTECTED] [EMAIL PROTECTED] [EMAIL PROTECTED] [EMAIL PROTECTED] -Mensagem original- De: Emi Monzani [mailto:[EMAIL PROTECTED] Enviada em: quarta-feira, 6 de outubro de 2004 21:30 Para: [EMAIL PROTECTED] Assunto: [delphi-br] txt gente como eu faço para gravar dados em um arquivo txt. bj emilene - Yahoo! Acesso Grátis - Internet rápida e grátis. Instale o discador agora! [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 --- Incoming mail is certified Virus Free. Checked by AVG anti-virus system (http://www.grisoft.com). Version: 6.0.772 / Virus Database: 519 - Release Date: 1/10/2004 --- Outgoing mail is certified Virus Free. Checked by AVG anti-virus system (http://www.grisoft.com). Version: 6.0.772 / Virus Database: 519 - Release Date: 1/10/2004 -- 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] txt
gente como eu faço para gravar dados em um arquivo txt. bj emilene - Yahoo! Acesso Grátis - Internet rápida e grátis. Instale o discador agora! [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
RES: [delphi-br] txt
Você pode usar um tStringList, e adicionar as linhas que você deseja, e quando o seu arquivo estiver pronto, use o método SaveToFile(cNomeArq), onde cNomeArq é o nome do arquivo que você deseja criar. Arnaldo V. Scarin [EMAIL PROTECTED] [EMAIL PROTECTED] [EMAIL PROTECTED] [EMAIL PROTECTED] [EMAIL PROTECTED] -Mensagem original- De: Emi Monzani [mailto:[EMAIL PROTECTED] Enviada em: quarta-feira, 6 de outubro de 2004 21:30 Para: [EMAIL PROTECTED] Assunto: [delphi-br] txt gente como eu faço para gravar dados em um arquivo txt. bj emilene - Yahoo! Acesso Grátis - Internet rápida e grátis. Instale o discador agora! [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 --- Incoming mail is certified Virus Free. Checked by AVG anti-virus system (http://www.grisoft.com). Version: 6.0.772 / Virus Database: 519 - Release Date: 1/10/2004 --- Outgoing mail is certified Virus Free. Checked by AVG anti-virus system (http://www.grisoft.com). Version: 6.0.772 / Virus Database: 519 - Release Date: 1/10/2004 -- 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
