[delphi-br] Trocar esse comando por outro: tmp := StringReplace(tmp, DateSeparator, '', [rfReplaceAll]);
Colegas Uso delphi 3 e estou com problemas. Fui converter um componente feito em delphi 4 para 3 e tem esse comando: tmp := StringReplace(tmp, DateSeparator, '', [rfReplaceAll]); Como faço para transforma-lo para delphi 3? Agradeco qualquer ajuda. []´s Tiano. ___ Yahoo! Mail - Sempre a melhor opção para você! Experimente já e veja as novidades. http://br.yahoo.com/mailbeta/tudonovo/
Re: [delphi-br] Trocar esse comando por outro: tmp := StringReplace(tmp, DateSeparator, '', [rfReplaceAll]);
O StringReplace substitui uma string por outra.
Nesse caso, vai pegar o separador de data ('/') e substituir por nada ('').
Vc precisa fazer uma função que leia a string Tmp e retire todos os
DateSeparetor que encontrar nela.
att,
Leandro
- Original Message -
From: [EMAIL PROTECTED]
To: delphi-br@yahoogrupos.com.br
Sent: Saturday, March 10, 2007 7:52 AM
Subject: [delphi-br] Trocar esse comando por outro: tmp := StringReplace(tmp,
DateSeparator, '', [rfReplaceAll]);
Colegas
Uso delphi 3 e estou com problemas.
Fui converter um componente feito em delphi 4 para 3 e tem esse comando:
tmp := StringReplace(tmp, DateSeparator, '', [rfReplaceAll]);
Como faço para transforma-lo para delphi 3?
Agradeco qualquer ajuda.
[]´s
Tiano.
___
Yahoo! Mail - Sempre a melhor opção para você!
Experimente já e veja as novidades.
http://br.yahoo.com/mailbeta/tudonovo/
[As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Trocar esse comando por outro: tmp := StringReplace(tmp, DateSeparator, '', [rfReplaceAll]);
A implementação dele no delphi é essa function StringReplace(const S, OldPattern, NewPattern: string; Flags: TReplaceFlags): string; var SearchStr, Patt, NewStr: string; Offset: Integer; begin if rfIgnoreCase in Flags then begin SearchStr := AnsiUpperCase(S); Patt := AnsiUpperCase(OldPattern); end else begin SearchStr := S; Patt := OldPattern; end; NewStr := S; Result := ''; while SearchStr '' do begin Offset := AnsiPos(Patt, SearchStr); if Offset = 0 then begin Result := Result + NewStr; Break; end; Result := Result + Copy(NewStr, 1, Offset - 1) + NewPattern; NewStr := Copy(NewStr, Offset + Length(OldPattern), MaxInt); if not (rfReplaceAll in Flags) then begin Result := Result + NewStr; Break; end; SearchStr := Copy(SearchStr, Offset + Length(Patt), MaxInt); end; end; primeiro parâmetro é a String Original segundo parâmetro é a string que vc quer remover terceiro parâmetro é a nova string q vc quer colocar no lugar da antiga quarto é se vc quer q ele faça para string inteira...replacealltodos...tem outros params tb abs, Rodrigo Mota. _ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de [EMAIL PROTECTED] Enviada em: sábado, 10 de março de 2007 07:52 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Trocar esse comando por outro: tmp := StringReplace(tmp, DateSeparator, '', [rfReplaceAll]); Colegas Uso delphi 3 e estou com problemas. Fui converter um componente feito em delphi 4 para 3 e tem esse comando: tmp := StringReplace(tmp, DateSeparator, '', [rfReplaceAll]); Como faço para transforma-lo para delphi 3? Agradeco qualquer ajuda. []´s Tiano. ___ Yahoo! Mail - Sempre a melhor opção para você! Experimente já e veja as novidades. http://br.yahoo. http://br.yahoo.com/mailbeta/tudonovo/ com/mailbeta/tudonovo/ [As partes desta mensagem que não continham texto foram removidas]
RE: [delphi-br] Aplicação win32 Mac
Cara, eu acho que isso nem em sonho existe! Sds. From: Natanael Rodrigues [EMAIL PROTECTED] Reply-To: delphi-br@yahoogrupos.com.br To: delphi-br@yahoogrupos.com.br Subject: [delphi-br] Aplicação win32 Mac Date: Fri, 9 Mar 2007 09:44:19 -0300 Alguém já rodou alguma aplicação compilada em Delphi em Mac? [As partes desta mensagem que não continham texto foram removidas] _ MSN Messenger: converse com os seus amigos online. http://messenger.msn.com.br
Res: [delphi-br] NMFTP e idFTP problemas
Edu n achei nenhuma propriedade para o tipo de transferencia: transf.. type,
typetrans, bynari, ascii, este componente tem? n queria mudar meu projeto pois
uma coisa boa eh q esse componente n congela o form ja o idftp sim, e fora
outras informações q ele tem de status q o outro n tem
Leandro...
[ Mutuka ]
- Mensagem original
De: Edu Nicácio [EMAIL PROTECTED]
Para: delphi-br@yahoogrupos.com.br
Enviadas: Quinta-feira, 8 de Março de 2007 14:44:01
Assunto: Re: [delphi-br] NMFTP e idFTP problemas
Verifique se os arquivos estão sendo baixados como binários ou
ASCII.
Abraço.
- - - - - -
Atenciosamente:
Eduardo Cláudio Nicácio
Analista Programador JR.
Fábrica 02 - CTIS
Tel.: (11) 3150-6834
rsn01.web03@ telesp.com. br
- Original Message -
From: [ Mutuka ]
To: [EMAIL PROTECTED] os.com.br
Sent: Thursday, March 08, 2007 11:39 AM
Subject: [delphi-br] NMFTP e idFTP problemas
Estou com o seguinte problema meu projeto de Update do sistema fiz usando o
NMFTP q funcionava perfeitamento utilizando um FTP local no meu servidor, agora
q passei para um servidor de FTP Web estou tendo problemas com o executavel,
eles vem danificados, tanto no remotehost q eh meu servidor ftp quanto no terra
isso ocorre ou seja o problema n eh os servidores e sim o componente, ai fiz
variso teste e descobri q com o idFTP esse problema n ocorre, mas teria q
modificar meu sistema inteiro para trocar, se alguem tiver uma luz para
resolver este problema do NMFTP agradeço
o executavel baixado pelo remotehost acusa q n eh um aplicativo win32 valido
ja baixado pelo terra gera um erro de arquivo do windows e eh fechado
fico no aguardo...
Leandro...
[ Mutuka ]
_ _ _ _ __
Fale com seus amigos de graça com o novo Yahoo! Messenger
http://br.messenger .yahoo.com/
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
!--
#ygrp-mlmsg {font-size:13px;font-family:arial,helvetica,clean,sans-serif;}
#ygrp-mlmsg table {font-size:inherit;font:100%;}
#ygrp-mlmsg select, input, textarea {font:99% arial,helvetica,clean,sans-serif;}
#ygrp-mlmsg pre, code {font:115% monospace;}
#ygrp-mlmsg * {line-height:1.22em;}
#ygrp-text{
font-family:Georgia;
}
#ygrp-text p{
margin:0 0 1em 0;
}
#ygrp-tpmsgs{
font-family:Arial;
clear:both;
}
#ygrp-vitnav{
padding-top:10px;
font-family:Verdana;
font-size:77%;
margin:0;
}
#ygrp-vitnav a{
padding:0 1px;
}
#ygrp-actbar{
clear:both;
margin:25px 0;
white-space:nowrap;
color:#666;
text-align:right;
}
#ygrp-actbar .left{
float:left;
white-space:nowrap;
}
.bld{font-weight:bold;}
#ygrp-grft{
font-family:Verdana;
font-size:77%;
padding:15px 0;
}
#ygrp-ft{
font-family:verdana;
font-size:77%;
border-top:1px solid #666;
padding:5px 0;
}
#ygrp-mlmsg #logo{
padding-bottom:10px;
}
#ygrp-vital{
background-color:#e0ecee;
margin-bottom:20px;
padding:2px 0 8px 8px;
}
#ygrp-vital #vithd{
font-size:77%;
font-family:Verdana;
font-weight:bold;
color:#333;
text-transform:uppercase;
}
#ygrp-vital ul{
padding:0;
margin:2px 0;
}
#ygrp-vital ul li{
list-style-type:none;
clear:both;
border:1px solid #e0ecee;
}
#ygrp-vital ul li .ct{
font-weight:bold;
color:#ff7900;
float:right;
width:2em;
text-align:right;
padding-right:.5em;
}
#ygrp-vital ul li .cat{
font-weight:bold;
}
#ygrp-vital a {
text-decoration:none;
}
#ygrp-vital a:hover{
text-decoration:underline;
}
#ygrp-sponsor #hd{
color:#999;
font-size:77%;
}
#ygrp-sponsor #ov{
padding:6px 13px;
background-color:#e0ecee;
margin-bottom:20px;
}
#ygrp-sponsor #ov ul{
padding:0 0 0 8px;
margin:0;
}
#ygrp-sponsor #ov li{
list-style-type:square;
padding:6px 0;
font-size:77%;
}
#ygrp-sponsor #ov li a{
text-decoration:none;
font-size:130%;
}
#ygrp-sponsor #nc {
background-color:#eee;
margin-bottom:20px;
padding:0 8px;
}
#ygrp-sponsor .ad{
padding:8px 0;
}
#ygrp-sponsor .ad #hd1{
font-family:Arial;
font-weight:bold;
color:#628c2a;
font-size:100%;
line-height:122%;
}
#ygrp-sponsor .ad a{
text-decoration:none;
}
#ygrp-sponsor .ad a:hover{
text-decoration:underline;
}
#ygrp-sponsor .ad p{
margin:0;
}
o {font-size:0;}
.MsoNormal {
margin:0 0 0 0;
}
#ygrp-text tt{
font-size:120%;
}
blockquote{margin:0 0 0 4px;}
.replbq {margin:4;}
--
__
Fale com seus amigos de graça com o novo Yahoo! Messenger
http://br.messenger.yahoo.com/
[As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] NMFTP e idFTP problemas
valeu edu, consegui resolver usei NMFTP1.Mode(MODE_BYTE);
Leandro...
[ Mutuka ]
- Mensagem original
De: Edu Nicácio [EMAIL PROTECTED]
Para: delphi-br@yahoogrupos.com.br
Enviadas: Quinta-feira, 8 de Março de 2007 14:44:01
Assunto: Re: [delphi-br] NMFTP e idFTP problemas
Verifique se os arquivos estão sendo baixados como binários ou
ASCII.
Abraço.
- - - - - -
Atenciosamente:
Eduardo Cláudio Nicácio
Analista Programador JR.
Fábrica 02 - CTIS
Tel.: (11) 3150-6834
rsn01.web03@ telesp.com. br
- Original Message -
From: [ Mutuka ]
To: [EMAIL PROTECTED] os.com.br
Sent: Thursday, March 08, 2007 11:39 AM
Subject: [delphi-br] NMFTP e idFTP problemas
Estou com o seguinte problema meu projeto de Update do sistema fiz usando o
NMFTP q funcionava perfeitamento utilizando um FTP local no meu servidor, agora
q passei para um servidor de FTP Web estou tendo problemas com o executavel,
eles vem danificados, tanto no remotehost q eh meu servidor ftp quanto no terra
isso ocorre ou seja o problema n eh os servidores e sim o componente, ai fiz
variso teste e descobri q com o idFTP esse problema n ocorre, mas teria q
modificar meu sistema inteiro para trocar, se alguem tiver uma luz para
resolver este problema do NMFTP agradeço
o executavel baixado pelo remotehost acusa q n eh um aplicativo win32 valido
ja baixado pelo terra gera um erro de arquivo do windows e eh fechado
fico no aguardo...
Leandro...
[ Mutuka ]
_ _ _ _ __
Fale com seus amigos de graça com o novo Yahoo! Messenger
http://br.messenger .yahoo.com/
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
!--
#ygrp-mlmsg {font-size:13px;font-family:arial,helvetica,clean,sans-serif;}
#ygrp-mlmsg table {font-size:inherit;font:100%;}
#ygrp-mlmsg select, input, textarea {font:99% arial,helvetica,clean,sans-serif;}
#ygrp-mlmsg pre, code {font:115% monospace;}
#ygrp-mlmsg * {line-height:1.22em;}
#ygrp-text{
font-family:Georgia;
}
#ygrp-text p{
margin:0 0 1em 0;
}
#ygrp-tpmsgs{
font-family:Arial;
clear:both;
}
#ygrp-vitnav{
padding-top:10px;
font-family:Verdana;
font-size:77%;
margin:0;
}
#ygrp-vitnav a{
padding:0 1px;
}
#ygrp-actbar{
clear:both;
margin:25px 0;
white-space:nowrap;
color:#666;
text-align:right;
}
#ygrp-actbar .left{
float:left;
white-space:nowrap;
}
.bld{font-weight:bold;}
#ygrp-grft{
font-family:Verdana;
font-size:77%;
padding:15px 0;
}
#ygrp-ft{
font-family:verdana;
font-size:77%;
border-top:1px solid #666;
padding:5px 0;
}
#ygrp-mlmsg #logo{
padding-bottom:10px;
}
#ygrp-vital{
background-color:#e0ecee;
margin-bottom:20px;
padding:2px 0 8px 8px;
}
#ygrp-vital #vithd{
font-size:77%;
font-family:Verdana;
font-weight:bold;
color:#333;
text-transform:uppercase;
}
#ygrp-vital ul{
padding:0;
margin:2px 0;
}
#ygrp-vital ul li{
list-style-type:none;
clear:both;
border:1px solid #e0ecee;
}
#ygrp-vital ul li .ct{
font-weight:bold;
color:#ff7900;
float:right;
width:2em;
text-align:right;
padding-right:.5em;
}
#ygrp-vital ul li .cat{
font-weight:bold;
}
#ygrp-vital a {
text-decoration:none;
}
#ygrp-vital a:hover{
text-decoration:underline;
}
#ygrp-sponsor #hd{
color:#999;
font-size:77%;
}
#ygrp-sponsor #ov{
padding:6px 13px;
background-color:#e0ecee;
margin-bottom:20px;
}
#ygrp-sponsor #ov ul{
padding:0 0 0 8px;
margin:0;
}
#ygrp-sponsor #ov li{
list-style-type:square;
padding:6px 0;
font-size:77%;
}
#ygrp-sponsor #ov li a{
text-decoration:none;
font-size:130%;
}
#ygrp-sponsor #nc {
background-color:#eee;
margin-bottom:20px;
padding:0 8px;
}
#ygrp-sponsor .ad{
padding:8px 0;
}
#ygrp-sponsor .ad #hd1{
font-family:Arial;
font-weight:bold;
color:#628c2a;
font-size:100%;
line-height:122%;
}
#ygrp-sponsor .ad a{
text-decoration:none;
}
#ygrp-sponsor .ad a:hover{
text-decoration:underline;
}
#ygrp-sponsor .ad p{
margin:0;
}
o {font-size:0;}
.MsoNormal {
margin:0 0 0 0;
}
#ygrp-text tt{
font-size:120%;
}
blockquote{margin:0 0 0 4px;}
.replbq {margin:4;}
--
__
Fale com seus amigos de graça com o novo Yahoo! Messenger
http://br.messenger.yahoo.com/
[As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Nota Fiscal Eletrônica (NF-e)
Olá, Alguém na lista já desenvolveu uma aplicação para emissão de notas fiscais eletrônicas? Estou desenvolvendo uma rotina que faz isso, só não sei como faço para enviar os arquivos para o destido. Sei que há um serviço disponível na internet que recebe os dados(Em XML), homologa e me retorna(Em XML). Alguém poderia me ajudar, me indicar o caminho? Pesquisei no Google, mas só o que consegui achar foi a estrutura dos arquivos XML que devem ser enviados, e quais as possíveis respostas do serviço. Agradeço por qualquer dica. Willer Alves da Costa. [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Nota Fiscal Eletrônica (NF- e)
Estamos com o mesmo problema, parece uma caixa de pandora, quem fez não diz como, e o suporte junto ao Sefaz/SP é um lixo. Se alguém tiver um luz de como fazer por favor se habilite será grande valia. willer escreveu: Olá, Alguém na lista já desenvolveu uma aplicação para emissão de notas fiscais eletrônicas? Estou desenvolvendo uma rotina que faz isso, só não sei como faço para enviar os arquivos para o destido. Sei que há um serviço disponível na internet que recebe os dados(Em XML), homologa e me retorna(Em XML). Alguém poderia me ajudar, me indicar o caminho? Pesquisei no Google, mas só o que consegui achar foi a estrutura dos arquivos XML que devem ser enviados, e quais as possíveis respostas do serviço. Agradeço por qualquer dica. Willer Alves da Costa. [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Nota Fiscal Eletrônica (NF-e)
Sei que através do serviço: https://homologacao.nfe.fazenda.sp.gov.br/nfeWEB/services/NfeRecepcaoSoap, é possível enviar o arquivo xml conmtendo a estrutura básica de emissão de Nota Fiscal, mas não consigo usar o serviço no Delphi porque ainda não tenho um e-CNPJ que me parece ser necessário. O Sefaz/SP não disponibiliza nenhum ambiente de testes? O que já fiz foi tentar acessar o serviço pelo internet explorer para obter os métodos, mas nem assim ele disponibilizam, só com uma assinatura digital(e-CNPJ). Willer Alves da Costa. - Original Message - From: O2 Tecnologia (aJato) To: delphi-br@yahoogrupos.com.br Sent: Saturday, March 10, 2007 1:38 PM Subject: Re: [delphi-br] Nota Fiscal Eletrônica (NF-e) Estamos com o mesmo problema, parece uma caixa de pandora, quem fez não diz como, e o suporte junto ao Sefaz/SP é um lixo. Se alguém tiver um luz de como fazer por favor se habilite será grande valia. willer escreveu: Olá, Alguém na lista já desenvolveu uma aplicação para emissão de notas fiscais eletrônicas? Estou desenvolvendo uma rotina que faz isso, só não sei como faço para enviar os arquivos para o destido. Sei que há um serviço disponível na internet que recebe os dados(Em XML), homologa e me retorna(Em XML). Alguém poderia me ajudar, me indicar o caminho? Pesquisei no Google, mas só o que consegui achar foi a estrutura dos arquivos XML que devem ser enviados, e quais as possíveis respostas do serviço. Agradeço por qualquer dica. Willer Alves da Costa. [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] __ Informação do NOD32 IMON 2106 (20070310) __ Esta mensagem foi verificada pelo NOD32 sistema antivírus http://www.eset.com.br [As partes desta mensagem que não continham texto foram removidas]
