Re: [delphi-br] Login em site

[Valmor (Evoluthiva)]

Tem que entender como o site é feito.
Dar uma espiada no código do site. Talvez até hospedar alguma página com 
o preenchimento da informação.
Tudo depende de como o site é.
Manda o link do site, talvez facilite para o pessoal te ajudar.


Valeu


-- 
Valmor Flores
Evoluthiva Sistemas de Gestão Empresarial
[EMAIL PROTECTED]
www.lucrativo.com.br
51 3383.0583



Rodinei (MSN) escreveu:
>
> Tah sim cara... Vlw, muito obrigado...
>
> Rodinei Amorim
> Programador Delphi
> [EMAIL PROTECTED] 
> (11) 8208-9503 - (11) 2024-2723
>
> From: Magnun Oliveira
> Sent: Tuesday, September 09, 2008 2:07 PM
> To: delphi-br@yahoogrupos.com.br 
> Subject: RE: [delphi-br] Login em site
>
> procedure TForm1.Button1Click(Sender: TObject); var s:string; begin 
> cotacao:= idhttp1.Get('http://br.invertia.com 
> '); 
> label1.Caption:=copy(cotacao,pos('Compra',s)+115,7);
> end;
> acho q tah "entendivel" neh?
>
> flws.
>
> To: [EMAIL PROTECTED] 
> : 
> [EMAIL PROTECTED] 
> : Tue, 9 Sep 2008 11:42:45 
> -0300Subject: Re: [delphi-br] Login em site
>
> Magnum, bom dia. Infelizmente não posso ajuda-la quanto a sua dúvida. 
> Mas, gostaria de sua ajuda sobre "pegar a contação do dólar" se puder 
> me ajudar ficaria muito agradecio.AbraçosRodinei AmorimProgramador 
> [EMAIL PROTECTED] 
> (11) 8208-9503 - (11) 
> 2024-2723From: Magnun Oliveira Sent: Tuesday, September 09, 2008 11:39 
> AMTo: [EMAIL PROTECTED] 
>  ; 
> delphi-br@yahoogrupos.com.br  
> Subject: [delphi-br] Login em siteOlá, estou precisando fazer um login 
> em um site.Por ex: quando eu preciso de uma cotação do dolar, eu uso o 
> IdHttp e acesso um site que tenha essa informacao, pego o conteudo do 
> Http e verifico o $.mas agora eu preciso fazer a mesma coisa, porem em 
> um site que necessita de login. eles tem 3 informações, um tipo, a 
> escolher em um combobox, um nome de usuario e senha.Há a possibilidade 
> de eu utilizar a mesma tecnica da cotação do dolar? à outra forma de 
> fazer isso? enviando um post 
> talvez?Obrigado__Cansado
>  
> de espaço para só 50 fotos? Conheça o Spaces, o site de 
> relacionamentos com até 6,000 
> fotos!http://www.amigosdomessenger.com.br 
> [As partes desta mensagem que não 
> continham texto foram removidas][As partes desta mensagem que não 
> continham texto foram removidas]
>
> __
> Cansado de espaço para só 50 fotos? Conheça o Spaces, o site de 
> relacionamentos com até 6,000 fotos!
> http://www.amigosdomessenger.com.br 
>
> [As partes desta mensagem que não continham texto foram removidas]
>
> [As partes desta mensagem que não continham texto foram removidas]
>
>  

[delphi-br] Oportunidade de negócios

[Valmor (Evoluthiva)]

Olá Pessoal


Sou gerente de TI, e, venho em nome de uma empresa conceituada (com mais 
de 30 funcionários) e 5 anos de mercado, e, com uma carteira de clientes 
que consiste em mais de 500 empresas atendidas com êxito, tomar um pouco 
de sua atenção.
Venho, como porta-voz informar que estamos abrindo nossos sistemas para 
representação na região sul do país, Rio Grande do Sul, Santa Catarina e 
Paraná e desejamos receber de possíveis interessados em respresentar 
nosso sistema, informações profissionais, pois, possuímos uma vantajosa 
remuneração sobre nossos produtos, bem como, a possibilidade de 
trabalhar à distância.
Maiores informações, enviem e-mail para [EMAIL PROTECTED]


Atenciosamente



-- 
Valmor Flores
Evoluthiva Sistemas de Gestão Empresarial
[EMAIL PROTECTED]
www.lucrativo.com.br
51 3383.0583

Re: [delphi-br] Transferencia de varios arquivos via FTP

[valmor (Evoluthiva)]

Ops.
Alias, detalhe, o loop deve ficar assim:

 try
   for i:= 0 to Arquivos.Count -1 do
   begin
  // Pega o arquivo!
  IdFTP1.get( '/ftpdir/'+Arquivos[i], 'c:\localdir\'+Arquivos[i] );
end;
finally
 IdFTP1.Disconnect;
end;


Atenciosamente

Valmor


valmor (Evoluthiva) escreveu:

> *Parece que esta tentanto sobrescrever o mesmo arquivo.*
> 'destination file already existis.'
> É isso que diz a mensagem: Arquivo de destino já existe.
> Se deseja pegar mais arquivos deve colocar em uma lista ou em um looping.
> Veja abaixo as mudanças que eu faria no seu código:
>
>
> var
>I: integer;
>Arquivos: TStringList;
> begin
>Arquivos:= TStringList.create;
>Arquivos.add( 'arquivo1.txt' );
>Arquivos.add( 'arquivoAbcd.txt' );
>Arquivos.add( 'arquivoXxxx.txt' );
>Arquivos.add( 'especial.txt' );
>
> data:=edit1.Text; // ainda falta implementar essa variavel no codigo
> dir:= '/operacao/'; // caminho dentro do servidor
> line2:= '/operacao/arq2.txt'; // caminho do arquivo a ser enviado
> name2:= 'c:\teste\novonome2.udp'; // tem como retirar essa linha já que
> os arquivos serão enviados para a estação irão com o mesmo nome?
>
> with IdFTP1 do
> begin
>Username := '000';
>Password := '000';
>Host := 00.00.00.00;
>Connect;
>ChangeDir(dir); // muda o diretorio
> end;
>
>
>for i:= 0 to Arquivos.Count -1 do
>
>try
>   // Pega o arquivo!
>   IdFTP1.get( '/ftpdir/'+Arquivos[i], 
> 'c:\localdir\'+Arquivos[i] );
>   finally
>IdFTP1.Disconnect;
>   end;
> end;
>end;
> end;
>
>
>
> Atenciosamente
>
> Valmor
>
>
>
>
>
> Eduardo Vinicius Felipe escreveu:
>
> > vamos ao que interessa...
> >
> > To começando com o delphi e tenho instalado a versão 7, na qual eu
> > estou criando uma aplicação em FTP baseada no Indy.
> > Essa aplicação fará o seguinte:
> >
> > 1º Pegará uma variável(data) de um edit no formato DD.MM (Ex: o
> > usuário digita 29.07)
> > 2º Ao clicar no button é feita uma conexão ao servidor de FTP e pega
> > no diretorio correspondente todos os arquivos referentes a data do edit
> > 3º Com os arquivos na estação é feito um teste para verificar se todos
> > os arquivos foram copiados (diariamente o número de arquivos é o
> > mesmo. Ex: 50 arquivos)
> > 4º Se não tem o número total de arquivos ele retorna uma mensagem
> > informando que ainda estão faltando arquivos ou se os arquivos já
> > estão Ok ele faz uma conexão FTP para o outro servidor e coloca os
> > arquivos no seu diretorio correspondente.
> >
> > procurando nos posts do forum encontrei esse codigo que faz quase oque
> > eu quero mas ele transfere apenas 1 arquivo, já testei ele faz a
> > transferencia do arquivo para o diretorio, mas retorna os erros abaixo:
> >
> > project project2.exe raised exception class eldftpfilealreadyexists
> > with message 'destination file already existis.'. process stopped. use
> > step or run to continue
> >
> > aqui está o código:
> >
> > var
> > Form1: TForm1;
> > dir,line2,name2 : string;
> > data : string[5];
> > implementation
> >
> > {$R *.dfm}
> >
> > procedure TForm1.Button1Click(Sender: TObject);
> >
> > begin
> > data:=edit1.Text; // ainda falta implementar essa variavel no codigo
> > dir:= '/operacao/'; // caminho dentro do servidor
> > line2:= '/operacao/arq2.txt'; // caminho do arquivo a ser enviado
> > name2:= 'c:\teste\novonome2.udp'; // tem como retirar essa linha já
> > que os arquivos serão enviados para a estação irão com o mesmo nome?
> >
> > with IdFTP1 do
> > begin
> > Username := '000';
> > Password := '000';
> > Host := 00.00.00.00;
> > Connect;
> > ChangeDir(dir); // muda o diretorio
> > end;
> >
> > try
> > IdFTP1.get(line2, name2); // envia o arquivo!
> > finally
> > IdFTP1.Disconnect;
> > end;
> > end;
> > end.
> >
> > alguém pode me indicar como faço a transferencia (FTP --> estação) de
> > todos os arquivos de acordo com a variavel DATA? como eu crio o teste
> > para saber se todos os arquivos foram copiados? e porque está dando o
> > erro já que o arquivo é transferido?
> >
> >
> > Obrigado
> > Eduardo Vinicius
> >
> > [As partes desta mensagem que não continham texto foram removidas]
> >
> >
> >
> >
> > 
>
>
>
> [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]
 
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] Transferencia de varios arquivos via FTP

[valmor (Evoluthiva)]

*Parece que esta tentanto sobrescrever o mesmo arquivo.*
'destination file already existis.'
É isso que diz a mensagem: Arquivo de destino já existe.
Se deseja pegar mais arquivos deve colocar em uma lista ou em um looping.
Veja abaixo as mudanças que eu faria no seu código:


var
   I: integer;
   Arquivos: TStringList;
begin
   Arquivos:= TStringList.create;
   Arquivos.add( 'arquivo1.txt' );
   Arquivos.add( 'arquivoAbcd.txt' );
   Arquivos.add( 'arquivoXxxx.txt' );
   Arquivos.add( 'especial.txt' );

data:=edit1.Text; // ainda falta implementar essa variavel no codigo
dir:= '/operacao/'; // caminho dentro do servidor
line2:= '/operacao/arq2.txt'; // caminho do arquivo a ser enviado
name2:= 'c:\teste\novonome2.udp'; // tem como retirar essa linha já que 
os arquivos serão enviados para a estação irão com o mesmo nome?

with IdFTP1 do
begin
   Username := '000';
   Password := '000';
   Host := 00.00.00.00;
   Connect;
   ChangeDir(dir); // muda o diretorio
end;


   for i:= 0 to Arquivos.Count -1 do

   try
  // Pega o arquivo!
  IdFTP1.get( '/ftpdir/'+Arquivos[i], 'c:\localdir\'+Arquivos[i] );
  finally
   IdFTP1.Disconnect;
  end;
end;
   end;
end;



Atenciosamente

Valmor





Eduardo Vinicius Felipe escreveu:

> vamos ao que interessa...
>
> To começando com o delphi e tenho instalado a versão 7, na qual eu 
> estou criando uma aplicação em FTP baseada no Indy.
> Essa aplicação fará o seguinte:
>
> 1º Pegará uma variável(data) de um edit no formato DD.MM (Ex: o 
> usuário digita 29.07)
> 2º Ao clicar no button é feita uma conexão ao servidor de FTP e pega 
> no diretorio correspondente todos os arquivos referentes a data do edit
> 3º Com os arquivos na estação é feito um teste para verificar se todos 
> os arquivos foram copiados (diariamente o número de arquivos é o 
> mesmo. Ex: 50 arquivos)
> 4º Se não tem o número total de arquivos ele retorna uma mensagem 
> informando que ainda estão faltando arquivos ou se os arquivos já 
> estão Ok ele faz uma conexão FTP para o outro servidor e coloca os 
> arquivos no seu diretorio correspondente.
>
> procurando nos posts do forum encontrei esse codigo que faz quase oque 
> eu quero mas ele transfere apenas 1 arquivo, já testei ele faz a 
> transferencia do arquivo para o diretorio, mas retorna os erros abaixo:
>
> project project2.exe raised exception class eldftpfilealreadyexists 
> with message 'destination file already existis.'. process stopped. use 
> step or run to continue
>
> aqui está o código:
>
> var
> Form1: TForm1;
> dir,line2,name2 : string;
> data : string[5];
> implementation
>
> {$R *.dfm}
>
> procedure TForm1.Button1Click(Sender: TObject);
>
> begin
> data:=edit1.Text; // ainda falta implementar essa variavel no codigo
> dir:= '/operacao/'; // caminho dentro do servidor
> line2:= '/operacao/arq2.txt'; // caminho do arquivo a ser enviado
> name2:= 'c:\teste\novonome2.udp'; // tem como retirar essa linha já 
> que os arquivos serão enviados para a estação irão com o mesmo nome?
>
> with IdFTP1 do
> begin
> Username := '000';
> Password := '000';
> Host := 00.00.00.00;
> Connect;
> ChangeDir(dir); // muda o diretorio
> end;
>
> try
> IdFTP1.get(line2, name2); // envia o arquivo!
> finally
> IdFTP1.Disconnect;
> end;
> end;
> end.
>
> alguém pode me indicar como faço a transferencia (FTP --> estação) de 
> todos os arquivos de acordo com a variavel DATA? como eu crio o teste 
> para saber se todos os arquivos foram copiados? e porque está dando o 
> erro já que o arquivo é transferido?
>
>
> Obrigado
> Eduardo Vinicius
>
> [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]
 
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: RES: [delphi-br] Entrada de código de b arras

[valmor (Evoluthiva)]

Olá


Nestas horas é que faz bem um leitor de barras via serial.
Mas, voce pode tentar identificar quando esta sendo processado um código 
de barras pela sequencia dos primeiros dígitos e bloquear 
momentaneamente a entrada por teclado até ler todo o conteudo do leitor. 
(Bem, mas, no fundo, acho que não tem como. Sugiro a compra de um leitor 
com comunicação serial mesmo! Se conseguir me diga como fez!).

Sucesso!


Valmor Florez
Evoluthiva Sistemas de Gestão Empresarial


Moked - Tamara (Brazil) escreveu:

>hahahahaha Faz sentido Rogério, mas não é bem assim q funciona... meu sistema é de controle de acesso, então o q meus clientes necessitam é de q, enquanto a recepcionista está cadastrando uma nova entrada de visitante, o visitante q está saindo ñ precise esperar ela acabar para q possa pegar o crachá e dar baixa no sistema. Por isso duas entradas ao msm tempo, o visitante q está indo embora passará, ele msm o crachá na leitora e o sistema efetuará baixa automática do crachá no sistema... como vou fazer isso? ainda ñ sei, principalmente pq já estava a uma semana me matando aqui para descobrir como fazer isso e ñ consegui, agora meu cronograma já foi pro espaço...rs... mas td bem, se a solução vier já será muitissimo bom..rs...
> 
>Obrigada, 
> 
>Tamara Clemente - Suporte Técnico
>Moked do Brasil - Consultoria de Segurança Empresarial
>Divisão MokInf de Informática
>PABX: (55-11) 5071-2748
>[EMAIL PROTECTED]  
>www.moked.com.br  
>
>
>
>
>De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Rogério
>Enviada em: quinta-feira, 25 de maio de 2006 18:31
>Para: delphi-br@yahoogrupos.com.br
>Assunto: Re: [delphi-br] Entrada de código de barras
>
>
>Olá Tamara!
>
>Pelo que vc disse está faltando um terminal - rsrsrs.
>Pois há 2 pessoas dando entrada ao mesmo tempo num único terminal.
>
>diz pra comprar uma maquininha - hehehe
>
>Abraço,
>
>Rogério Ricardo Fernandes
>Desenvolvimento
>http://www.strategies.inf.br
>
>- Original Message - 
>From: "Moked - Tamara (Brazil)" <[EMAIL PROTECTED]>
>To: 
>Sent: Thursday, May 25, 2006 5:23 PM
>Subject: RES: [delphi-br] Entrada de código de barras
>
>
>Roberto,
>
>O q eu já consegui é pegar o código de barras q foi dado entrado msm q o 
>foco ñ esteja em lugar algum, o problema é se o foto estiver em algum lugar 
>e se for dado entrada de teclado e de leitor ao msm tempo.
>
>Anderson,
>
>Acho q o jeito será este msm, dai eu consigo verificar duas entradas 
>distintas?
>
>Rogério,
>
>O q eu preciso é q enquanto eu realizo um novo cadastro na mão, outra pessoa 
>possa realizar o cadastro apenas pelo código de barras. Dai vem a questão do 
>conflito...
>
>Obrigada a tds pela atenção, e q venham mais ajudas...rs...
>
>Tamara Clemente - Suporte Técnico
>Moked do Brasil - Consultoria de Segurança Empresarial
>Divisão MokInf de Informática
>PABX: (55-11) 5071-2748
>[EMAIL PROTECTED] 
>www.moked.com.br 
>
>
>
>
>De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em 
>nome de Roberto Wazen (RJ)
>Enviada em: quinta-feira, 25 de maio de 2006 17:16
>Para: delphi-br@yahoogrupos.com.br
>Assunto: Re: [delphi-br] Entrada de código de barras
>
>
>Tamara..
>Tendo em vista que o teclado e o leitor estão na mesma via, sua colocação
>neste problema  é muito interressante e vou ficar acompanhando as soluções
>que os colegas vão apresentar. No momento somente visualizo um toque de
>tecla de função  ou mouse, definindo o que se quer fazer (foco), ou melhor,
>em qual campo se quer dar entrada dos dados, porque se houver somente 1, por
>exemplo código do item, não haverá problema pois pode pegar  o erro na
>validação.
>Vamos ver, as outras soluções.
>Roberto Wazen (RJ)
>
>- Original Message - 
>From: "Moked - Tamara (Brazil)" <[EMAIL PROTECTED]>
>To: 
>Sent: Thursday, May 25, 2006 4:32 PM
>Subject: [delphi-br] Entrada de código de barras
>
>
>
>
>   Tamara Clemente - Suporte Técnico
>Moked do Brasil - Consultoria de Segurança Empresarial
>Divisão MokInf de Informática
>PABX: (55-11) 5071-2748
>[EMAIL PROTECTED]
>www.moked.com.br 
>
>Grau de Sigilo:  Confidencial  Reservado  Interno  Amplo
>Nível de Prioridade:  Alto  Médio  Baixo
>Destinatário/s: Lista de divulgação
>-
>Boa Tarde,
>
>Pessoal, estou com um grande problema para inserir o recurso de leitura de
>código de barras no meu sistema. A questão é a seguinte:
>
>Está o usuário la, alegre e contente digitando seu belo e imenso texto e
>outro usuário vai la e passa o código de barras no leitor que está conectado
>no mesmo cabo do teclado que o usuário 1 esta usando. Ocorrerá que, o
>conteúdo do código será inserido no meio do texto e eu só conseguirei pegar
>uma mescla de dados digitados pelo teclado e o conteudo do código de barras.
>
>O que eu preciso: Identifi

Re: [delphi-br] Importar do Excel p/ Delphi

[valmor (Evoluthiva)]

Salve de excel para texto.
E importe de texto para a sua base de dados.


Um abraço


Valmor

Nesio Messias escreveu:

>Ola Pessoal, tem como eu importar uma tabela do excel p/ o delphi, se tiver pesso que me ajudem, caso o contrario terei de digitar uns 6 mil itens, por favor me ajudem..Nesio.
>
>    
>-
> Abra sua conta no Yahoo! Mail - 1GB de espaço, alertas de e-mail no celular e anti-spam realmente eficaz. 
>
>[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]






  




  
Yahoo! Grupos, um serviço oferecido por:
  
  
PUBLICIDADE




  
  



  




  
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 Termos do Serviço do Yahoo!.

Re: [delphi-br] THIN CLIENT

[valmor (Evoluthiva)]

Ola


Você deve usar rdesktop nas estações Linux.
Você deve também ter cuidado para que sua aplicação não tenha restrições 
quanto a ser aberta mais de uma vez no mesmo computador.
Alguns softwares fazem controle por arquivos no HD, por exemplo e isso 
atrapalha neste caso.
Se sua aplicação usa BDE não sei quais os cuidados, mas, quanto a 
Firebird é bem tranquilo.
Se vai imprimir nas estações dai tbem tem alguns inconvenientes. Em 
Linux tem que ver o suporte as impressoras por ex. (Mas, quanto a isso 
já não tenhiu muita experiência). Já no windows se o servidor é 2003 as 
estações instalam e acessam impressoras normalmente.




Acho que é isso.


Um abraço


Valmor Florez

Thiago Henrique R. G. Caramelo escreveu:

>Bom dia a todos...
>
>Pessoal hj quando fui analisar uma situação específica de um 
>cliente, me deparei com o seguinte contexto:
>
>Nosso sistema roda perfeitamente no ambiente cliente/servidor.
>
>Ocorre que temos um cliente que se interessou pelo sistema, mas ele quer 
>trabalhar com estações Linux (thin client), a qual estas acessam um 
>servidor WINDOWS. Ou seja, teremos várias instâncias do sistema rodando 
>ao mesmo tempo no servidor.
>
>Nesse aspecto já dá para sentir o cheiro de problemas decorrentes dessa 
>forma de implementação. Quais os incômodos que vocês acham que podem 
>surgir ?
>
>Ressaltando que não encontrei nada semelhante na busca do grupo. Espero 
>que esse assunto tire a dúvida de mais pessoas.
>
>Abraços.
>
>   
>___ 
>Abra sua conta no Yahoo! Mail: 1GB de espaço, alertas de e-mail no celular e 
>anti-spam realmente eficaz. 
>http://br.info.mail.yahoo.com/
>
>
>  
>


-- 
< 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]
 
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] Exportação TXT

[valmor (Evoluthiva)]

Pesquise na internet por writeln.

Este exemplo foi extraído do seguinte endereço:
http://www.delphibasics.co.uk/RTL.asp?Name=WriteLn

var
   myFile : TextFile;
   text   : string;
 
 begin
  // Try to open the Test.txt file for writing to
   AssignFile(myFile, 'Test.txt');
   ReWrite(myFile);
 
  // Write a couple of well known words to this file
   WriteLn(myFile, 'Hello World');
 
  // Write a blank line
   WriteLn(myFile);
 
  // Write a string and a number to the file
   WriteLn(myFile, '22/7 = ' , 22/7);
 
  // Repeat the above, but with number formatting
   WriteLn(myFile, '22/7 = ' , 22/7:12:6);
 
  // Close the file
   CloseFile(myFile);
 
  // Reopen the file for reading
   Reset(myFile);
 
  // Display the file contents
   while not Eof(myFile) do
   begin
 ReadLn(myFile, text);
 ShowMessage(text);
   end;
 
  // Close the file for the last time
   CloseFile(myFile);
 end;



Dir escreveu:

>
>Pessoal preciso exportar dados de uma consulta(consulta esta pronta) para um 
>arquivo .txt, mas como nunca fiz isso, alguém poderia me dar uma dica.
>
>Cadanos
>
>[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]
 
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: RES: RES: [delphi-br] Proteção anti-có pias

[valmor (Evoluthiva)]

Ola!

Acho que o importante para as empresas que adquirem um software é o seu 
propósito.
Ninguém compra computadores pensando em ter que apagar o seu conteúdo e 
reinstalar novamente.
O propósito dos equipamentos é funcionar acima de tudo, então se o 
cliente tiver que ligar para empresa cada vez que tiver que reinstalar o 
windows acho que não será problema para o mesmo, da mesma forma que ele 
tem que fazer hoje com muitos bancos e outros softwares proprietários 
que ele tenha instalado, portanto, acho que cada um deve proteger da 
forma que bem entender.

Quanto as proteções, creio que cada um deva fazer da forma que bem 
entender, e, a unica maneira é gravando dados especiais em algum tipo de 
mídia, que poderá acidentalmente ou propositadamente ser apagada, então, 
é impossivel proteger de outra forma, a não ser por Hardlocks é claro ou 
ainda deixar o software livre para copias.

Acho ainda que a pirataria auxilia a divulgação de softwares, mas, isso 
é outro assunto, mas, não posso deixar expressar minha opnião aqui:

A Microsoft não entrou no Brasil por intermédio de uma divulgação na era 
MSDOS (Alias, nunca vi uma propaganda deste sistema operacional em midia 
alguma), mas, vi vários computadores com Sistemas Operacionais (MSDOS) 
piratas naquela época o que a meu ver causou certa dependência nas 
pessoas e empresas, e, naturalmente no dia em que cada empresa resolveu 
se legalizar o sistema operacional eleito foi naturalmente o MSDOS, até 
porque as folhas, notas, contabilidades e tantos outros softwares 
estavam rodando sobre este SO. Então, pirataria de software = divulgação.
Claro que, como desenvolvedor de software sou contra a pirataria, mas, 
bem ou mal se o produto é bom vai se disseminar com ela e quando as 
pessoas resolverem comprar, qual softwares você acha que elas vão adquirir?


Enfim, desenvolvo meus softwares com proteção média e sem a finalidade 
de bloquear seu uso, no entanto, se o mesmo estiver rodando em uma 
máquina sem licença o mesmo exibe avisos em alguns pontos estratégicos, 
alertando aos que não estão com a licença devida em seu HD.



Atenciosamente


Valmor Florez
[EMAIL PROTECTED]



Valfrid-Ly Silva Couto escreveu:

>Desculpe, opinião minha mas, eu não compraria um software com essa cláusula. 
>Eu quero ter domínio sobre o meu hardware, independente do software.
>
>
>Elazar <[EMAIL PROTECTED]> escreveu: Valfrid
>
>No contrato diz que toda e qualquer modificação no hardware deve ser
>INFORMADA previamente!!!
>
>Atenc.
>Elazar
>-Mensagem original-
>De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
>Em nome de Valfrid-Ly Silva Couto
>Enviada em: terça-feira, 31 de janeiro de 2006 09:38
>Para: delphi-br@yahoogrupos.com.br
>Assunto: Re: RES: [delphi-br] Proteção anti-cópias
>
>
>Legal sua chave, mas o que acontece se o cara fizer um upgrade e trocar
>o processador da máquina e mantiver o HD e tudo o que já está
>instalado???
>
>Se precisar formatar o HD e portando mudar o serial do volume (que é
>isso que a maior parte das funções pegam) do HD???
>
>Luciano-User-BA  escreveu: 
>Utilizo em meu sistema
>um conjunto de informações
>Fabricante Processador + Frequecia Processador + Numero IP + Serial HD +
>
>ID do proprietário
>
>hummm... Tá aí um problem pros crackers resolverem :)
>Ou vão para debugar em assembler para trocar os JUMPS da funções
>ou então o bicho pega...
>
>Tá bom...
>Podemos dificultar um pouco a ação dos crackers :)
>Nada de mensagens (apenas dá um tempo e fecha o programa)
>Timers diferente para fazer checagens periódicas das funções ... etc.
>
>Basicamente o sistema ao iniciar lê os dados da máquina...
>Compara com os dados da máquina cadastrada na base de dados
>(encriptado lógico :).
>Se checar tudo beleza...
>Aqui e ali...
>Num menu... ou num timer uma nova checadinha...
>E pronto...
>Sem telinhas de aviso...
>Apenas um HALT(0)... um Application.Terminate ali e pronto :)
>
>Deixa o cliente questionar do suporte a causa do problema...
>Pede para ele enviar o numero encriptado que é gerado
>com base no hardware em execução e pronto.
>Se ele tiver como me convencer ...
>Eu gero e libero com uma contra-chave...
>senão (MAIS UMA MÁQUINA - MAIS UMA LICENÇA).
>
>Clonar HD é fácil...
>Portanto serial de HD só se for o do Fabricante
>(hummm... Só isso também já dificulta muito a pirataria :)
>
>Serial do HD ...
>Pega um ghost da vida ...
>clona o o HD + o Serial e de quebra o seu sistema :)
>
>Hummm... Sistema em IP fixo eu gosto muito :)
>2 Serias de HD´s clonados em rede
>funcionam que é uma beleza...
>Mas 2 IP fixo com números iguais...
>Quero ver a mágica.
>
>Se o cara tem sub-redes aí pode entrar
>um ID extra para identificar o proprietário :)
>Neste caso pode ter IP iguais acessando o BD
>mas os IDs terão que ser diferentes.
>
>É isto...
>Acho que o que vale mesmo são idéias.
>
>Só queria deixar mais uma sugestão.
>Abraços
>Luciano-User-BA
>
>Walter Alves Chagas Junior escreveu:
>
>  
>
>>Uma dica interessante, é você pegar a data de