[delphi-br] Check out my photos on Facebook
Hi delphi-br@yahoogrupos.com.br, I set up a Facebook profile where I can post my pictures, videos and events and I want to add you as a friend so you can see it. First, you need to join Facebook! Once you join, you can also create your own profile. Thanks, Reginaldo To sign up for Facebook, follow the link below: http://www.facebook.com/p.php?i=10271425449k=Z6E3Y5U3TZ3B2FMJPBW3QRW2VWr delphi-br@yahoogrupos.com.br was invited to join Facebook by Reginaldo Donizete Felix. If you do not wish to receive this type of email from Facebook in the future, please click on the link below to unsubscribe. http://www.facebook.com/o.php?k=83ed89u=1080066852mid=11b9d9cG40608324G0G8 Facebook's offices are located at 1601 S. California Ave., Palo Alto, CA 94304. [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Instalação de programas
Utilizo o Install Maker da Wise Solutions é otimo para gerar instalador permite voce adicionar os arquivos necessários, fontes e trabalhar com variaves de registro. 2009/8/25 Marcio Carneiro marcio-carne...@ig.com.br Olá, amigos Alguém teria algum material explicando como instalar programas em redes.Já vi vários textos, sugerindo o Innosetup, e gostaria de utilizá-lo, mas tenho algumas dúvidas: 1) Como instalar o firebird conjuntamente? 2) Quais os arquivos necessários para a instalação? 3) Nos computadores --clientes o que devo instalar? Como vocês fazem? Um grande abraço Marcio [As partes desta mensagem que não continham texto foram removidas] -- Reginaldo D. Felix regife...@hotmail.com [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Descompactar arquivos zip
Eu uso a biblioteca Zlib e funcina perfeitamente,
segue um exemplo do codigo que uso.
///exemplo de uso
procedure TForm2.Salva1Click(Sender: TObject);
var
sTexto : TStringList;
sArquivo : String;
sArquivo2 :String;
begin
sArquivo := 'C:\ENVIA.TEMPISS';
sArquivo2 := ChangeFileExt(sArquivo, '.zp');
sTexto := TStringList.Create;
sTexto.LoadFromFile(sArquivo);
ShowMessage('Tamanho antes de comprimir=' +
intToStr(Length(sTexto.Text)));
Comprime(sTexto, sArquivo2 );
sTexto := Descomprime(sArquivo2);
ShowMessage(sTexto.Text);
ShowMessage('Tamanho antes de comprimir de descomprimir=' +
intToStr(Length(sTexto.Text)));
sTexto.SaveToFile('c:\descomprimido.txt');
end;
//FUNÇÃO PARA COMPACTAR
procedure TForm2.Comprime(sTexto: TStringList; sArquivo: String);
var
NewFile: TMemoryStream;
OutFile : TMemoryStream;
ZStream : TCompressionStream ;
begin
NewFile := TMemoryStream.Create;
try
sTexto.SaveToStream(NewFile);
OutFile := TMemoryStream.Create;
try
ZStream := TCompressionStream.Create(clMax, OutFile);
try
ZStream.CopyFrom(NewFile, 0);
finally
ZStream.Free;
end;
finally
OutFile.Seek(0,0);
OutFile.SaveToFile(sArquivo);
OutFile.Free;
end;
finally
NewFile.Free;
end;
end;
//FUNÇÃO PARA DESCOMPACTAR
function TForm2.Descomprime(sArquivo: String):TStringList;
var
Count: Integer;
NewFile: TMemoryStream;
InFile : TMemoryStream;
ZStream : TDecompressionStream;
Buffer : array[0..BufferSize]of Byte;
sTexto :TStringList;
begin
NewFile := TMemoryStream.Create;
InFile := TMemoryStream.Create;
try
InFile.LoadFromFile(sArquivo);
InFile.Seek(0,0);
try
ZStream := TDecompressionStream.Create(InFile);
try
repeat
Count := ZStream.Read(Buffer, BufferSize);
if Count 0 then NewFile.WriteBuffer(Buffer, Count) else
Break;
until count = 0;
NewFile.SaveToFile('c:\escrito.txt');
NewFile.Seek(0,0);
sTexto := TStringList.Create;
sTexto.LoadFromStream(NewFile);
ShowMessage(sTexto.Text);
Result := sTexto;
finally
ZStream.Free;
end;
finally
NewFile.Free;
end;
finally
InFile.Free;
end;
end;
2009/7/28 Raphae Fonseca raphaelprograma...@yahoo.com.br
Bom dia Amigo,
Vc utiliza o zipMaster?
Teria como me enviar o componente e um exemplo de uso?
Att
Raphael
De: EmbarcaDelphi embarcadel...@yahoo.com.brembarcadelphi%40yahoo.com.br
Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br
Enviadas: Segunda-feira, 27 de Julho de 2009 18:16:10
Assunto: Re: [delphi-br] Descompactar arquivos zip
Se não gostar desse que ele te passou, ou se ainda continua com erros,
tente utilizar a biblioteca mais usada no mundo Delphi (rsrs), procura
no Google por: ZipMaster
Blz.
André Moraes - Gmail escreveu:
Veja http://sourceforge. net/projects/ tpabbrevia/
http://sourceforge. net/projects/ tpabbrevia/
André F. Moraes
- Original Message -
From: Raphae Fonseca
To: delphi...@yahoogrup os.com.br mailto:delphi- br%40yahoogrupos .
com.br
Sent: Monday, July 27, 2009 4:55 PM
Subject: [delphi-br] Descompactar arquivos zip
Boa tarde amigos da lista
Estou desenvolvendo um aplicativo que salva um aquivo .zip que está
gravado na base de dados.
E preciso descompactá-lo. A rotina que já existe no momento, está
mantendo o arquivo alocado na memória e como são muitos arquivos eu
gostaria de tempos em tempos excluir os mesmos.
Já tentei várias opções sem ter um resultado satizfatótio.
Algum amigo conhece um componente free que eu possa utilizar e tem uma
rotina de descompactação de arquivos zip que possa me passar?
Não pode ser usando softwares como winzip, winrar, filzip, tem que ser
feito por dentro da aplicação.
Tentei usar a bibliocar zlib mas não funciona aqui.
Att
Raphael
.
__
Veja quais são os assuntos do momento no Yahoo! +Buscados
http://br.maisbuscados.yahoo.com
[As partes desta mensagem que não continham texto foram removidas]
--
Reginaldo D. Felix
regife...@hotmail.com
[As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] WebService Java + Servidor JBoss + Client Delphi 7
Fiz o Update do Delphi SOAP, mais mesmo assim continua com o problema de
passar null.
2009/7/20 Rubem Rocha rubem.ro...@dtmanaus.com.br
Você aplicou Delphi SOAP Runtime and Importer Update? Se não, faça isso!
Procure na Internet (Google, AltaVista, etc.) link para download e
aplique-o! Depois de aplicá-lo, gere novamente a unit usando o utilitário
WSDLImp atualizado (e não o assistente de geração embutido no IDE do
Delphi). Provavelmente, isso pode ajudá-lo.
Sds.
De: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br [mailto:
delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br] Em
nome de Reginaldo Donizete Felix
Enviada em: segunda-feira, 20 de julho de 2009 09:18
Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br
Assunto: [delphi-br] WebService Java + Servidor JBoss + Client Delphi 7
WebService Java + Servidor JBoss + Client Delphi 7
Estou fazendo testes em WebService no JBoss e estou com um problema ao
acessar o webservice pelo Delphi.
Criei dois metodos no WebService, o primeiro não recebe parametro nenhum so
devolve um valor string. O Segundo recebe um parametro String e devolve uma
string concatenada.
No segundo estou tendo problema na passagem de parâmetro do delphi para o
webservice. O seviço esta recebendo null no parametro.
Alguem sabe o que pode estar ocorrendo ?
Segue o codigo do webservice e o codigo de acesso do delphi:
No codigo abaixo a funçao gravar com parametro esta recebendo sempre null
no
parametro de envio.
---
//codigo webservice
package com.sistemabancario.servico;
import javax.ejb.*;
import javax.jws.*;
@Stateless
@WebService
public class GerenteWS implements GerenteWSRemote {
public String gravarSemParametro() {
//
System.out.println(WebService executado no servidor.);
//
return ParametroDeRetorno;
}
@Override
public String gravarComParametro(String envio) {
// TODO Auto-generated method stub
return envio + adicionei mais texto no retorno;
}
}
--
Codigo Delphi da Classe de Acesso ao WebService
//
//
// The types declared in this file were generated from data read from the
// WSDL File described below:
// WSDL : http://localhost:8080/SistemaBancarioEJB/GerenteWS?wsdl
// (20/07/2009 09:59:40 - 1.33.2.5)
//
//
unit GerenteWS1;
interface
uses InvokeRegistry, SOAPHTTPClient, Types, XSBuiltIns;
type
//
//
// The following types, referred to in the WSDL document are not being
represented
// in this file. They are either alias...@] of other types represented or
were referred
// to but never[!] declared in the document. The types from the latter
category
// typically map to predefined/known XML or Borland types; however, they
could also
// indicate incorrect WSDL documents that failed to declare or import a
schema type.
//
//
// !:string - http://www.w3.org/2001/XMLSchema;
//
//
// Namespace : http://servico.sistemabancario.com/
// transport : http://schemas.xmlsoap.org/soap/http
// style : document
// binding : GerenteWSBinding
// service : GerenteWSService
// port : GerenteWSPort
// URL : http://127.0.0.1:8080/SistemaBancarioEJB/GerenteWS
//
//
GerenteWS = interface(IInvokable)
['{4FBA3E30-3C2B-2579-2B43-B1676B2FB70F}']
function gravarComParametro(const arg0: WideString): WideString;
stdcall;
function gravarSemParametro: WideString; stdcall;
end;
type
TWSGerenteWS = class(TObject)
public
function gravarSemParametro: WideString;
function gravarComParametro(const arg0: WideString): WideString;
stdcall;
private
end;
function GetGerenteWS(UseWSDL: Boolean=System.False; Addr: string='';
HTTPRIO: THTTPRIO = nil): GerenteWS;
implementation
function TWSGerenteWS.gravarSemParametro: WideString;
var RIO: THTTPRIO;
ws: GerenteWS;
oldSeparator: Char;
retorno: WideString;
begin
try
RIO := THTTPRIO.Create(nil);
RIO.HTTPWebNode.ConnectTimeout := 100;
RIO.HTTPWebNode.SendTimeout := 100;
RIO.HTTPWebNode.ReceiveTimeout := 100;
ws := GetGerenteWS(false, '', RIO);
retorno := ws.gravarSemParametro;
result := retorno;
Finally
end;
end;
function TWSGerenteWS.gravarComParametro(const arg0: WideString):
WideString;
var RIO: THTTPRIO;
ws: GerenteWS;
oldSeparator: Char;
retorno: WideString;
begin
try
RIO := THTTPRIO.Create(nil);
RIO.HTTPWebNode.ConnectTimeout := 100;
RIO.HTTPWebNode.SendTimeout := 100;
RIO.HTTPWebNode.ReceiveTimeout := 100;
ws := GetGerenteWS(false, '', RIO
[delphi-br] WebService Java + Servidor JBoss + Client Delphi 7
WebService Java + Servidor JBoss + Client Delphi 7
Estou fazendo testes em WebService no JBoss e estou com um problema ao
acessar o webservice pelo Delphi.
Criei dois metodos no WebService, o primeiro não recebe parametro nenhum so
devolve um valor string. O Segundo recebe um parametro String e devolve uma
string concatenada.
No segundo estou tendo problema na passagem de parâmetro do delphi para o
webservice. O seviço esta recebendo null no parametro.
Alguem sabe o que pode estar ocorrendo ?
Segue o codigo do webservice e o codigo de acesso do delphi:
No codigo abaixo a funçao gravar com parametro esta recebendo sempre null no
parametro de envio.
---
//codigo webservice
package com.sistemabancario.servico;
import javax.ejb.*;
import javax.jws.*;
@Stateless
@WebService
public class GerenteWS implements GerenteWSRemote {
public String gravarSemParametro() {
//
System.out.println(WebService executado no servidor.);
//
return ParametroDeRetorno;
}
@Override
public String gravarComParametro(String envio) {
// TODO Auto-generated method stub
return envio + adicionei mais texto no retorno;
}
}
-
Codigo Delphi da Classe de Acesso ao WebService
//
//
// The types declared in this file were generated from data read from the
// WSDL File described below:
// WSDL : http://localhost:8080/SistemaBancarioEJB/GerenteWS?wsdl
// (20/07/2009 09:59:40 - 1.33.2.5)
//
//
unit GerenteWS1;
interface
uses InvokeRegistry, SOAPHTTPClient, Types, XSBuiltIns;
type
//
//
// The following types, referred to in the WSDL document are not being
represented
// in this file. They are either alias...@] of other types represented or
were referred
// to but never[!] declared in the document. The types from the latter
category
// typically map to predefined/known XML or Borland types; however, they
could also
// indicate incorrect WSDL documents that failed to declare or import a
schema type.
//
//
// !:string - http://www.w3.org/2001/XMLSchema;
//
//
// Namespace : http://servico.sistemabancario.com/
// transport : http://schemas.xmlsoap.org/soap/http
// style : document
// binding : GerenteWSBinding
// service : GerenteWSService
// port : GerenteWSPort
// URL : http://127.0.0.1:8080/SistemaBancarioEJB/GerenteWS
//
//
GerenteWS = interface(IInvokable)
['{4FBA3E30-3C2B-2579-2B43-B1676B2FB70F}']
function gravarComParametro(const arg0: WideString): WideString;
stdcall;
function gravarSemParametro: WideString; stdcall;
end;
type
TWSGerenteWS = class(TObject)
public
function gravarSemParametro: WideString;
function gravarComParametro(const arg0: WideString): WideString;
stdcall;
private
end;
function GetGerenteWS(UseWSDL: Boolean=System.False; Addr: string='';
HTTPRIO: THTTPRIO = nil): GerenteWS;
implementation
function TWSGerenteWS.gravarSemParametro: WideString;
var RIO: THTTPRIO;
ws: GerenteWS;
oldSeparator: Char;
retorno: WideString;
begin
try
RIO := THTTPRIO.Create(nil);
RIO.HTTPWebNode.ConnectTimeout := 100;
RIO.HTTPWebNode.SendTimeout:= 100;
RIO.HTTPWebNode.ReceiveTimeout := 100;
ws := GetGerenteWS(false, '', RIO);
retorno := ws.gravarSemParametro;
result := retorno;
Finally
end;
end;
function TWSGerenteWS.gravarComParametro(const arg0: WideString):
WideString;
var RIO: THTTPRIO;
ws: GerenteWS;
oldSeparator: Char;
retorno: WideString;
begin
try
RIO := THTTPRIO.Create(nil);
RIO.HTTPWebNode.ConnectTimeout := 100;
RIO.HTTPWebNode.SendTimeout:= 100;
RIO.HTTPWebNode.ReceiveTimeout := 100;
ws := GetGerenteWS(false, '', RIO);
retorno := ws.gravarComParametro(arg0);
result := retorno;
Finally
end;
end;
function GetGerenteWS(UseWSDL: Boolean; Addr: string; HTTPRIO: THTTPRIO):
GerenteWS;
const
defWSDL = 'http://localhost:8080/SistemaBancarioEJB/GerenteWS?wsdl';
defURL = 'http://127.0.0.1:8080/SistemaBancarioEJB/GerenteWS';
defSvc = 'GerenteWSService';
defPrt = 'GerenteWSPort';
var
RIO: THTTPRIO;
begin
Result := nil;
if (Addr = '') then
begin
if UseWSDL then
Addr := defWSDL
else
Addr := defURL;
end;
if HTTPRIO = nil then
RIO := THTTPRIO.Create(nil)
else
RIO := HTTPRIO;
try
Result := (RIO as GerenteWS);
if UseWSDL then
begin
[delphi-br] Eu sou de Aries . E você???
Brincadeira divertida ... Depois de abrir este e-mail, não há retorno. Abaixo são verdadeiras descrições de signos do Zodíaco. Leia e encaminhe *com seu signo na linha de assunto*. Isto é a real, e se tentar ignorar ou mudar isto a primeira coisa que você notará será um dia horrível que começa amanhã de manhã - e só fica pior a partir daí. ÁRIES. O Diabo de Desafio Enérgico. Aventureiro e espontâneo. Confiante e entusiástico. Divertido. Ama um desafio. EXTREMAMENTE impaciente. Às vezes egoísta. Fusível curto (enfurece facilmente). Vivido, inteligência apaixonada e afiada. Gosta de sair. Perde interesse depressa - facilmente entediado. Egoístico. Corajoso e afirmativo. Tende a ser físico e atlético. 16 anos de azar se você não remeter. TOURO - O Resistente. Que encanta, mas agressivo. Podem parecer enfadonhos, mas não são. Trabalhadores duros. Amável. Forte, tem resistência. Seres sólidos e estáveis e seguros dos modos deles/delas. Não procuram atalhos. Orgulhosos da beleza deles/delas. Pacientes e seguros. Fazem grandes amigos e dão bons conselhos. Bom coração. Amam profundamente - apaixonados. Expressam-se emocionalmente. Propenso a temperamentos e acessos de raiva ferozes. Determinado. Cedem aos seus desejos frequentemente. Muito generoso. 12 anos de azar se você não remeter. GÊMEOS - O Tagarela. Inteligente e engenhoso. Parece estar sempre de saída, muito falador. Vivo e enérgico. Adaptável mas com necessidade de se expressar. Argumentativo e franco. Gosta de mudança. Versátil. Ocupado, mas às vezes nervoso e tenso. Fofoqueiros. Pode parecer superficial ou incoerente. Mas só é sujeito a mudança. Bonito fisicamente e mentalmente. 5 anos de azar se você não remeter. CÂNCER - O Projetor. Às vezes mal-humorado. Emocional. Pode ser tímido. Muito amoroso e gentil. Bonito. Sócios excelentes para vida. Projetor. Inventivo e imaginativo. Cauteloso. Tipo de pessoa sensível. Necessidade de ser amado pelos outros. Magoa-se facilmente, mas simpático. 16 anos de azar se você não remeter. LEÃO - O Chefe. Muito organizado. Precisa de ordem nas vidas deles/delas - como estar em controle. Gosta de limites. Tende a assumir tudo. Mandão. Gosta de ajudar os outros. Social e gosta de sair. Extrovertido, generoso, amável. Sensível. Energia criativa. Confiantes neles próprios. Bons amantes. Fazer a coisa certa é importante para Leão. Atraente. 13 anos de azar se você não remeter. VIRGEM - O Perfeccionista. Dominante em relações. Conservador. Sempre quer a última palavra. Argumentativo. Preocupado. Muito inteligente. Antipatiza com barulho e caos. Ansioso. Trabalhador. Leal. Bonito. Fácil falar. Difícil de agradar. Severo. Prático e muito exigente. Frequentemente tímido. Pessimista. 7 anos de azar se você não remeter. LIBRA - O Harmonizador. Agradável a todo o mundo que se encontra com eles. Indeciso. Tem uma atração própria sem igual. Criativo, enérgico e muito social. Odeia estar só. Calmo, generoso. Muito amoroso e bonito. Gosta de flertar. Cede muito facilmente. Tende a deixar para depois. Muito crédulo. 9 anos de azar se você não remeter. ESCORPIÃO - O Intenso. Muito enérgico. Inteligente. Pode ser ciumento e/ou possessivo. Trabalhador. Grande beijador. Pode ficar obsessivo ou reservado. Guarda rancor. Atraente. Determinado. Amores que estão em relações longas. Falador. Romântico. Pode ser às vezes egocêntrico. Apaixonado e emocional. 4 anos de azar se você não remeter. SAGITÁRIO - O Otimista. Agradável. Irrefletido. Não quer crescer (Peter Pan Síndrome). Favorece o ego. Orgulhoso. Gosta de luxos e jogar, social e gosta de sair. Não gosta de responsabilidades. Frequentemente fantasia. Impaciente. Divertido estar ao seu redor. Tem muitos amigos.. Coquete e gosta de flertar. Não gosta de regras. Às vezes hipócrita.. Antipatiza com espaços limitados ou apertados ou até mesmo roupas apertadas. Não gosta que duvidem dele. Bonito por dentro e por fora. 14 anos de azar se você não remeter. CAPRICÓRNIO - O Paciente. Pessoa agressiva e sábia. Prático e rígido. Ambicioso. Tende a estar bonito. Humorístico e engraçado. Pode ser um pouco tímido e reservado. Frequentemente pessimistas. Capricórnio tende a agir antes de pensar e podem ser às vezes pouco amigáveis. Guarda rancor. Gosta de competição. Obtém o que eles querem. 20 anos de azar se você não remeter. AQUÁRIO - O Amado. Otimista e honesto. Doce personalidade. Muito independente. Inventivo e inteligente. Amigável e leal. Pode parecer não emotivo. Pode ser um pouco rebelde. Muito teimoso, mas original e sem igual. Atraente no lado de dentro e fora. Personalidade excêntrica. 11 anos de azar se você não remeter. PEIXES - O Sonhador Generoso. Bom coração e pensativo. Muito criativo e imaginativo. Pode ficar reservado e vago. Sensível. Não gosta de detalhes. Sonhador e irreal. Simpático e amoroso. Tipo desinteressado. Bom beijador. Bonito. 8 anos de azar se você não remeter. Envie JÁ !!! Preparado ??? Jogo ..ENVIE !!! 01-03 pessoas 1 minuto de sorte *04-07
[delphi-br] Decompilador Delphi
Alguem tem algum decompilador delphi, tenho um projetinho meu antigo que ja nao tenho mais os fontes, vou ter que refazê-lo de novo. sei que não tem um decompilador que volta 100% mais pelo menos alguma coisa ja estava bom, o que estou precisando é de algumas rotinas que eu tinha na biblioteca que iriam me ajudar muito. Alguem tem alguma indicação ? Obrigado -- Reginaldo D. Felix regife...@hotmail.com [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Criptografia
Pessoal, Valeu pela dicas que enviaram, Por enquando estou conseguindo fazer uns testes usando o Blowfish, tenho uma dificuldade a mais tambem pois tenho que encryptar em Delphi e depois decryptar em Php. Vou gerar um codigo hash tambem para ser usado na validação, para cryptografar o hash vou usar MD5. Encontrei uns exemplos bons em delphi em http://www.cityinthesky.co.uk/cryptography.html Valeu pela ajuda de todos. 2009/4/9 Joao Morais jcmorai...@gmail.com 2009/4/8 Reginaldo Donizete Felix regife...@gmail.comregifelix%40gmail.com : Qual é o melhor algoritimo de criptografia ? IDEA, CAST128, GOST, BLOWFISH, TWOFISH Vou suar para enviar arquivos textos na web e preciso saber qual o melhor para usar na minha aplicação. Todos são excelentes. Por curiosidade, Rijndael (atualmente AES) e TwoFish são dois dos finalistas para substituição do DES - algoritmo de criptografia usado pelo governo americano. Joao Morais -- Reginaldo D. Felix regife...@hotmail.com [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Re: Compressão dados no TIdHTTP
Ja encontrei a solução,
Vou compactar usando o ZLib, e depois adicionar o arquivo como anexo no
TIdHTTP e depois descompactar o arquivo recebido via post no PHP.
Abaixo as funções:
Função para comprimir :
procedure TForm2.Comprime(sTexto: TStringList; sArquivo: String);
var
NewFile: TMemoryStream;
OutFile : TMemoryStream;
ZStream : TCompressionStream ;
begin
NewFile := TMemoryStream.Create;
try
sTexto.SaveToStream(NewFile);
OutFile := TMemoryStream.Create;
try
ZStream := TCompressionStream.Create(clMax, OutFile);
try
ZStream.CopyFrom(NewFile, 0);
finally
ZStream.Free;
end;
finally
OutFile.Seek(0,0);
OutFile.SaveToFile(sArquivo);
OutFile.Free;
end;
finally
NewFile.Free;
end;
end;
Pegar um arquivo texto normal e compactar usando a função comprime acima :
procedure TForm2.Salva1Click(Sender: TObject);
var
sTexto : TStringList;
sArquivo : String;
sArquivo2 :String;
begin
sArquivo := 'C:\ENVIA.TEMPISS';
sArquivo2 := ChangeFileExt(sArquivo, '.zp');// vai salvar o mesmo arquivo
com extençao .zp
sTexto := TStringList.Create;
sTexto.LoadFromFile(sArquivo);
ShowMessage('Tamanho antes de comprimir=' +
intToStr(Length(sTexto.Text)));
Comprime(sTexto, sArquivo2 );
end;
---
AGORA SIM ENVIAR O ARQUIVO VIA TIdHTTP
procedure TForm2.Send2Click(Sender: TObject);
var
data: TIdMultiPartFormDataStream;
retorno : string;
NomArq : String;
begin
data := TIdMultiPartFormDataStream.Create;
try
{ add the used parameters for the script }
data.AddFormField('perm', '1');
data.AddFormField('action', 'envia');
data.AddFile( 'arquivo', 'C:\ENVIA.zp', 'multipart/mixed' );
{ Call the Post method of TIdHTTP and read the result into TMemo }
retorno := IdHTTP_ISS.Post('http://localhost/SPDNet/script.php', data);
showmessage(retorno);
finally
data.Free;
end;
end;
-
EXEMPLO EM PHP DO script.php que recebe o formulario
?
//ARQUIVO PHP script.php QUE RECEBE O FORMULARIO VIA POST E VAI PEGAR O
ARQUIVO ENVIADO.
//OBS para funcinar as função do Zlib tem que estar abilitado no PHP.ini
$DfAnexo = $_FILES[arquivo][name];
if(empty($DfAnexo)) {
ECHO Arquivo de compactação inválido.;
} else {
#Se o anexo for maior que 5 MB, exibe a mensagem de erro abaixo e
termina a execução do script
if($_FILES[arquivo][size] 512) {
ECHOArquivo maior que 5MB!;
exit;
}
if(!empty($_FILES[arquivo][tmp_name]) and
is_file($_FILES[arquivo][tmp_name])) {
if(eregi(.zp$, $_FILES[arquivo][name]) ) {
#DESCOMPACTA ARQUIVO
if($file_handle = gzopen($_FILES[arquivo][tmp_name],
r)){
$contents = gzread($file_handle,
filesize($_FILES[arquivo][tmp_name]));
$content=gzuncompress($contents);
echo $content; //vai mostrar na tela o texto original do
arquivo
//gzclose($file_name);
}
}
#Se o anexo não tiver uma extensão aceita, exibe a mensagem de
erro abaixo e termina a execução do script
else {
echo Arquivo de compactação inválido.!;
exit;
}
}
#Se o anexo tiver sido indicado através de um caminho inválido ou
tenha um nome inválido, exibe a mensagem de erro abaixo e termina a execução
do script
else {
echoArquivo de compactação da Declaração inválido.!;
exit;
}
}
?
BOM É ISSO
2009/4/7 Reginaldo Donizete Felix regife...@gmail.com
Alguem ai ja trabalhou com compressão de dados no TIdHTTP da Indy, para
enviar dados via post ?
Vi que tem uma propriedade do TidHTTP chamada Compressor, onde poderia
passar os dados comprimidos, mais não sei como trabalhar com isso.
Tenho um sistema em Delphi que envia uma msg via Post com o TIHTTP e um
pagina php recebe esse formulario e processa as informaçoes. Só que tenho
que comprimir antes de enviar depois no php descomprimir de novo. Seria
isso.
Desde já agradeço pela atenção.
--
Reginaldo D. Felix
regife...@hotmail.com
--
Reginaldo D. Felix
regife...@hotmail.com
[As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Criptografia
Qual é o melhor algoritimo de criptografia ? IDEA, CAST128, GOST, BLOWFISH, TWOFISH Vou suar para enviar arquivos textos na web e preciso saber qual o melhor para usar na minha aplicação. Obrigado -- Reginaldo D. Felix regife...@hotmail.com [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Compressão dados no TIdHTTP
Alguem ai ja trabalhou com compressão de dados no TIdHTTP da Indy, para enviar dados via post ? Vi que tem uma propriedade do TidHTTP chamada Compressor, onde poderia passar os dados comprimidos, mais não sei como trabalhar com isso. Tenho um sistema em Delphi que envia uma msg via Post com o TIHTTP e um pagina php recebe esse formulario e processa as informaçoes. Só que tenho que comprimir antes de enviar depois no php descomprimir de novo. Seria isso. Desde já agradeço pela atenção. -- Reginaldo D. Felix regife...@hotmail.com [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Compactar String usando Zlib
Pessoal, tenho exemplos de compactação de arquivos usando a Zlib, porem o que eu precisava era de compactar e descompactar uma string sem precisar de trabalhar com arquivo. Alguem tem algum codigo de exemplo ? Obrigado -- Reginaldo D. Felix regife...@hotmail.com [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Compactar String usando Zlib
Obrigado pela ajuda Rubem, Mais estes ainda usam a ZLib para trabalhar com compactação de Arquivos. Precisa de exemplos que utlizem com String e sem gravar arquivo em disco. Se alguem tiver algum. Obrigado. 2009/3/31 Rubem Nascimento da Rocha djpardalro...@hotmail.com Quem procura, acha! http://www.torry.net/vcl/compress/std/LZZLib1.0.zip http://www.torry.net/pages.php?id=300 Sds. To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br From: regife...@gmail.com regifelix%40gmail.com Date: Tue, 31 Mar 2009 09:43:01 -0300 Subject: [delphi-br] Compactar String usando Zlib Pessoal, tenho exemplos de compactação de arquivos usando a Zlib, porem o que eu precisava era de compactar e descompactar uma string sem precisar de trabalhar com arquivo. Alguem tem algum codigo de exemplo ? Obrigado -- Reginaldo D. Felix regife...@hotmail.com regifelix%40hotmail.com [As partes desta mensagem que não continham texto foram removidas] __ Conheça o Windows Live Spaces, a rede de relacionamentos do Messenger! http://www.amigosdomessenger.com.br/ [As partes desta mensagem que não continham texto foram removidas] -- Reginaldo D. Felix regife...@hotmail.com [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Compactar / Descompactar Mensagem Texto
Pessoal, Tenho um trabalho a ser feito, em que tenho uma mensagem XML que é enviada para um web service , E estamos gerando um trafego muito grande no servidor com isso solicitaram que fizemos uma compactação da mensagem andes de enviar para o webservice e no webservice descompactar tudo isso. Bom acho que isso vai acabar gerando um outro problema relacionado com processamento no servidor, mais como a ordem da gerencia no presente é liberar banda no servidor. Gostaria de saber se alguem tem algum algoritimo de compacatação te texto, ou ferramenta e que eu possa depois implementar no meu aplicativo em Delphi e tambem fazer a descompactação no WebService Java. Dede já Obrigado. -- Reginaldo D. Felix regife...@hotmail.com [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Convite para conhecer o jogo online da travian
Olá, O jogador regifelix (regife...@gmail.com) convida-o a conhecer e jogar o mais viciante e bem construído jogo de WebBrowser: Travian. regifelix joga no servidor br4 como membro da tribo Romanos. Para criar a sua conta de jogo, clique neste link: http://www.travian.com.br/?uc=br4_54994signup -- Reginaldo D. Felix regife...@hotmail.com [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Documentação de Regras de Negócio do Sistema
Tenho uma questão acho que todos se deparam com esse trabalho meio que braçal. Como documentar as regras de negócio de um sistema. Por exemplo tenho determinadas regras em determinados campos de minhas telas qual a melhor alterantiva que vocês usam para documentar essas regras. Regras essas muitas as vezes internas do sistema que auxiliam o programador a endender o codigo. Estamos montando aqui na empresa tabelas com os campos de cada tela com as regras em word ou excel, mais não acho isso legal. Que alternativas podemos usar podem ser melhores ? Existes ferramentas proprias pra isso ? Alguem que utiliza alguma que pode indicar ? -- Reginaldo D. Felix regife...@hotmail.com -- Reginaldo D. Felix regife...@hotmail.com [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Arquivo XML
Não sei se te ajuda mais segue um exemplo de como trabalhar com XML
Uses
MSXML_TLB,
XMLDoc,ActiveX,
ComObj ;
function CriarXMLRemessa:String;
var vXMLDoc : TXMLDocument;
ContRps, ContItens, ContDeducoes: Integer;
begin
vXMLDoc := TXMLDocument.Create(Nil);
With vXMLDoc do begin
Active := True;
Version := '1.0';
Encoding := 'UTF-8';
AddChild('ns1_ReqEnvioLoteRPS','');
DocumentElement.Attributes['xmlns:ns1'] := '
http://localhost:8080/WsNFe2/lote';
DocumentElement.Attributes['xmlns:tipos']:= '
http://localhost:8080/WsNFe2/tp';
DocumentElement.Attributes['xmlns:xsi'] := '
http://www.w3.org/2001/XMLSchema-instance';
DocumentElement.Attributes['xsi:schemaLocation'] := '
http://localhost:8080/WsNFe2/lote
http://localhost:8080/WsNFe2/xsd/ReqEnvioLoteRPS.xsd';
{DocumentElement.Attributes['xmlns:ns1'] := 'lote';
DocumentElement.Attributes['xmlns:tipos']:= 'tp';
DocumentElement.Attributes['xmlns:xsi'] := '
http://www.w3.org/2001/XMLSchema-instance';
DocumentElement.Attributes['xsi:schemaLocation'] := 'lote
http://localhost:8080/WsNFe2/xsd/ReqEnvioLoteRPS.xsd'; }
DocumentElement.AddChild('Cabecalho');
With DocumentElement.ChildNodes['Cabecalho'] do begin
ChildNodes['CodCidade'].NodeValue:= Cabecalho.CodCidade;
ChildNodes['CPFCNPJRemetente'].NodeValue :=
Cabecalho.CPFCNPJRemetente;
ChildNodes['RazaoSocialRemetente'].NodeValue :=
Cabecalho.RazaoSocialRemetente;
ChildNodes['transacao'].NodeValue:= Cabecalho.transacao ;
ChildNodes['dtInicio'].NodeValue :=
FormatdateTime('-mm-dd',StrToDate( Cabecalho.dtInicio ));
ChildNodes['dtFim'].NodeValue:=
FormatdateTime('-mm-dd',StrToDate( Cabecalho.dtFim ));
ChildNodes['QtdRPS'].NodeValue := Cabecalho.QtdRps ;
ChildNodes['ValorTotalServicos'].NodeValue :=
Cabecalho.ValorTotalServicos;
ChildNodes['ValorTotalDeducoes'].NodeValue :=
Cabecalho.ValorTotalDeducoes;
ChildNodes['Versao'].NodeValue := '1';
end;
DocumentElement.AddChild('Lote');
For ContRps := 0 to Cabecalho.QtdRps - 1 do begin
DocumentElement.ChildNodes['Lote'].AddChild('RPS');
with DocumentElement.ChildNodes['Lote'].ChildNodes.Last do begin
ChildNodes['Assinatura'].NodeValue :=
ArrayRPS[ContRps].Assinatura ;
ChildNodes['InscricaoMunicipalPrestador'].NodeValue :=
ArrayRPS[ContRps].InscricaoMunicipalPrestador ;
ChildNodes['RazaoSocialPrestador'].NodeValue:=
ArrayRPS[ContRps].RazaoSocialPrestador ;
ChildNodes['TipoRPS'].NodeValue :=
ArrayRPS[ContRps].TipoRPS ;
ChildNodes['SerieRPS'].NodeValue :=
ArrayRPS[ContRps].SerieRPS ;
ChildNodes['NumeroRPS'].NodeValue:=
ArrayRPS[ContRps].NumeroRPS;
ChildNodes['DataEmissaoRPS'].NodeValue :=
FormatdateTime('-mm-dd',StrToDate( ArrayRPS[ContRps].DataEmissaoRPS)) ;
ChildNodes['SituacaoRPS'].NodeValue :=
ArrayRPS[ContRps].SituacaoRPS ;
ChildNodes['SerieRPSSubstituido'].NodeValue :=
ArrayRPS[ContRps].SerieRPSSubstituido ;
ChildNodes['NumeroRPSSubstituido'].NodeValue :=
ArrayRPS[ContRps].NumeroRPSSubstituido;
ChildNodes['NumeroNFSeSubstituida'].NodeValue:=
ArrayRPS[ContRps].NumeroNFSeSubstituida;
ChildNodes['DataEmissaoNFSeSubstituida'].NodeValue :=
FormatdateTime('-mm-dd',StrToDate(
ArrayRPS[ContRps].DataEmissaoNFSeSubstituida));
ChildNodes['SeriePrestacao'].NodeValue :=
ArrayRPS[ContRps].SeriePrestacao ;
ChildNodes['InscricaoMunicipalTomador'].NodeValue :=
ArrayRPS[ContRps].InscricaoMunicipalTomador ;
ChildNodes['CPFCNPJTomador'].NodeValue:=
ArrayRPS[ContRps].CPFCNPJTomador ;
ChildNodes['RazaoSocialTomador'].NodeValue:=
ArrayRPS[ContRps].RazaoSocialTomador ;
ChildNodes['TipoLogradouroTomador'].NodeValue :=
ArrayRPS[ContRps].TipoLogradouroTomador ;
ChildNodes['LogradouroTomador'].NodeValue :=
ArrayRPS[ContRps].LogradouroTomador ;
ChildNodes['NumeroEnderecoTomador'].NodeValue :=
ArrayRPS[ContRps].NumeroEnderecoTomador ;
ChildNodes['TipoBairroTomador'].NodeValue :=
ArrayRPS[ContRps].TipoBairroTomador ;
ChildNodes['BairroTomador'].NodeValue :=
ArrayRPS[ContRps].BairroTomador ;
ChildNodes['CidadeTomador'].NodeValue :=
TFuncoesDll.StrZero( ArrayRPS[ContRps].CidadeTomador, 7 );
ChildNodes['CidadeTomadorDescricao'].NodeValue:=
ArrayRPS[ContRps].CidadeTomadorDescricao ;
ChildNodes['CEPTomador'].NodeValue:=
ArrayRPS[ContRps].CEPTomador ;
ChildNodes['EmailTomador'].NodeValue :=
ArrayRPS[ContRps].EmailTomador ;
ChildNodes['CodigoAtividade'].NodeValue :=
ArrayRPS[ContRps].CodigoAtividade ;
ChildNodes['AliquotaAtividade'].NodeValue
[delphi-br] Problema ao executar projeto no Delphi 2005 - Abre tela do windows installer
Pessoal estou com um problema meio fantasma como algumas coisas na informatica. Estou usando o Delphi 2005 e todo vez q abro ou crio um novo projeto, quando vou executar o projeto ele abre uma tela do Windows Installer com uma mensagem Preparing to install com o botão cancelar abilitado, ai tento cancelar e ele exibe essa mensagem mais umas daus vezes. Isso acontece na primeira vez que vou executar qualquer projeto no Delphi 2005, dpois que eu clico em cancelar, das outravez vezes q executo o mesmo projeto nao abre mais essa tela do Windows installer. Alguem sabe como faço para resolver isso ? se é alguma configuração no delphi 2005. Obrigado. -- Reginaldo D. Felix regife...@hotmail.com [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Homologação NF-e
Boa tarde Fabio Lima, Existem alternativas, você pode usar soluções de outros fornecedores de sistemas ERP que tenham soluções para NF-e, a FIT-Sistemas possui uma solução que pode se integrar com a sistema utilizado na empresa. qualquer coisa entre em contato com o Zuza da Fit Sistemas. Telefone para contato : (11) 3586 7393 Reginaldo D. Felix msn: regife...@hotmail.com 2009/1/16 Fabio Lima fabio.l...@grupocoan.com.br Boa tarde a todos! Temos uma seguinte dúvida aqui na empresa. Uma empresa do grupo onde trabalho terá a necessidade de emitir NF-e e a versão do sistema atual não tem esta funcionalidade. O fornecedor desta ferramenta disse que teremos que atualizar para uma versão mais nova que possui esta funcionalidade, concordo plenamente com esta postura. Porém o diretor da empresa questionou se há realmente a necessidade de atualização e se esta necessidade vem por conta da versão estar homologada junto ao governo e sendo somente ela autorizada a emitir a NF-e. Basicamente o diretor da empresa quer ter certeza de que há outra maneira de se obter esta funcionalidade, deixando como ultimo recurso a atualização de versão. Fábio Lima de Oliveira Analista de Sistema E-mail: mailto:fabio.l...@grupocoan.com.brfabio.lima%40grupocoan.com.br fabio.l...@grupocoan.com.br fabio.lima%40grupocoan.com.br Site: http://www.grupocoan.com.br/ http://www.grupocoan.com.br [As partes desta mensagem que não continham texto foram removidas] -- Reginaldo D. Felix regife...@hotmail.com [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Problema ao instalar QuickReport no Delphi 2005 falta rtl100.bpl
Obrigado Walter, Descobri o erro que estava ocorrendo, eu nao estava copiando os bpl's do Quick Report para a pasta C:\Arquivos de programas\Borland\BDS\3.0\Bin , eu estava tentando instalar direto de uma outra pasta local. 2009/1/12 Walter Chagas (Bol) wchag...@bol.com.br Voce deve estar usando uma versão do Quick que não seja para o D2K5. O mais provavel. []s Walter Alves Chagas Junior Belo Horizonte - MG - Brazil wchag...@bol.com.br wchagasj%40bol.com.br http://www.geocities.com/SiliconValley/Bay/1058 http://delphitocorporerm.blogspot.com/ MSN: whitesock...@hotmail.com whitesockets%40hotmail.com SKYPE: WalterChagasJr - Original Message - From: Reginaldo Donizete Felix To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Sent: Monday, January 12, 2009 11:55 AM Subject: [delphi-br] Problema ao instalar QuickReport no Delphi 2005 falta rtl100.bpl Estou com um problema ao instalar o QuickReport no Delphi 2005, aparece a seguinte mensagem : Este aplicativo não pode ser iniciado porque não foi encontrado rtl100.bpl. A reinstalação do aplicativo pode corrigir o problema. Alguem sabe porque ocorre isto e como faço para conseguir esta rtl100.bpl ? Obrigado Reginaldo D. Felix Analista de Sistemas www.regifelix.com.br msn: regife...@hotmail.com regifelix%40hotmail.com -- Reginaldo D. Felix regife...@hotmail.com regifelix%40hotmail.com [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] -- Reginaldo D. Felix regife...@hotmail.com [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Problema ao instalar QuickReport no Delphi 2005 falta rtl100.bpl
Estou com um problema ao instalar o QuickReport no Delphi 2005, aparece a seguinte mensagem : Este aplicativo não pode ser iniciado porque não foi encontrado rtl100.bpl. A reinstalação do aplicativo pode corrigir o problema. Alguem sabe porque ocorre isto e como faço para conseguir esta rtl100.bpl ? Obrigado Reginaldo D. Felix Analista de Sistemas www.regifelix.com.br msn: regife...@hotmail.com -- Reginaldo D. Felix regife...@hotmail.com [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Comando para repetir ações no Delphi - Teclas de Atalho
Pessoal, alguem pode me relembrar no no editor do Delphi um comando de teclas que quando pressionadas ele grava na memória a sequencia de comandos realizados no editor depois usando teclas rapidas voce repete estes comandos. Esse comando é otimo quando tem um sequencia de ações repetitivas a ser execultado no editor de codigo. Obrigado -- Reginaldo D. Felix web: www.regifelix.com.br [EMAIL PROTECTED] [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Gerar XML de TClientDataSet com Detail
Tenho um TClienteDataSet chamado cdsPAI gerado dinamicamente e este possui
seu DataSource dsrPAI,
e este tem seus registros detalhes de um outro TClienteDataSet denominado
cdsfilho, e neste filho coloquei a propriedade MasterSource para o dsrPai.
No codigo coloquei o seguinte codigo :
cdsPai.CreateDataSet ;
cdsPai.Open;
cdsPai.Insert;
cdsPai.FieldByName('CodCidade').AsString := '01' ;
cdsPai.FieldByName('NomeCidade').AsString := 'SAO PAULO' ;
cdsPai.Post ;
cdsFilho.CreateDataSet ;
cdsFilho.Open;
cdsFilho.Insert;
cdsFilho.FieldByName('CodCidade').AsString := '01' ;
cdsFilho.FieldByName('CodRua').AsString := '01' ;
cdsFilho.FieldByName('NomeRua').AsString := 'RUA FULANA DE TAL' ;
cdsFilho.Post ;
CdsPai.SaveToFile('CDS_CIDADE.xml');
---
No Xml do pai ele so gera dele proprio as tags XML e nao gera do filho
como faço para fazer ele gerar do filho
O XML QUE GEROU FOI O SEGUINTE
?xml version=1.0 standalone=yes? DATAPACKET
Version=2.0METADATAFIELDSFIELD attrname=CodCidade
fieldtype=string WIDTH=20/FIELD attrname=NomeCidade
fieldtype=string WIDTH=20//FIELDSPARAMS CHANGE_LOG=1 0
4//METADATAROWDATAROW RowState=4 CodCidade=01 NomeCidade=SAO
PAULO//ROWDATA/DATAPACKET
COMO FAÇO PARA GERAR JUNO NO XML O FILHO TAMBEM ???
DESDE JA
OBRIGADO
--
Reginaldo D. Felix
[EMAIL PROTECTED]
[As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Gerar XML de TClientDataSet com Detail
Desta forma nao vou ter as tags xml formatadas certinhas
e preciso seguir um padrao xml .
os ClientDataSet tem que ser criados dinamicamente tambem.
2008/11/27 Guionardo Furlan [EMAIL PROTECTED]
Acho que não vai funcionar desse jeito, pelo que entendo do CDS.
Mas vc poderia criar outro CDS, com todos os campos do pai e do filho
e com dois loops aninhados preencher com os dados desejados.
Depois, teria um XML só.
Mas é POG!!!
2008/11/27 Reginaldo Donizete Felix [EMAIL
PROTECTED]regifelix%40gmail.com:
Tenho um TClienteDataSet chamado cdsPAI gerado dinamicamente e este
possui
seu DataSource dsrPAI,
e este tem seus registros detalhes de um outro TClienteDataSet denominado
cdsfilho, e neste filho coloquei a propriedade MasterSource para o
dsrPai.
No codigo coloquei o seguinte codigo :
cdsPai.CreateDataSet ;
cdsPai.Open;
cdsPai.Insert;
cdsPai.FieldByName('CodCidade').AsString := '01' ;
cdsPai.FieldByName('NomeCidade').AsString := 'SAO PAULO' ;
cdsPai.Post ;
cdsFilho.CreateDataSet ;
cdsFilho.Open;
cdsFilho.Insert;
cdsFilho.FieldByName('CodCidade').AsString := '01' ;
cdsFilho.FieldByName('CodRua').AsString := '01' ;
cdsFilho.FieldByName('NomeRua').AsString := 'RUA FULANA DE TAL' ;
cdsFilho.Post ;
CdsPai.SaveToFile('CDS_CIDADE.xml');
---
No Xml do pai ele so gera dele proprio as tags XML e nao gera do filho
como faço para fazer ele gerar do filho
O XML QUE GEROU FOI O SEGUINTE
?xml version=1.0 standalone=yes? DATAPACKET
Version=2.0METADATAFIELDSFIELD attrname=CodCidade
fieldtype=string WIDTH=20/FIELD attrname=NomeCidade
fieldtype=string WIDTH=20//FIELDSPARAMS CHANGE_LOG=1 0
4//METADATAROWDATAROW RowState=4 CodCidade=01 NomeCidade=SAO
PAULO//ROWDATA/DATAPACKET
COMO FAÇO PARA GERAR JUNO NO XML O FILHO TAMBEM ???
--
Timeo hominem unius libri
Cogito ergo sum - Carpe diem
[]s
Guionardo Furlan
http://guionardo.blogspot.com
--
Reginaldo D. Felix
[EMAIL PROTECTED]
[As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Duvida sobre DLL em Delphi
Bom dia, Estou com uma duvida básica em DLL Esta lendo um artigo sobre DLL e vi que alguns tipos de variaveis quando utilizadas em uma DLL podem não ser reconhecidas em uma outra linguagem ao utilizar esta dll, como chamadas de funções e etc. Estou desenvolvendo uma DLL e estou com duvida em relação aos tipos que devo usar nas chamadas de função. gostaria de saber se os tipos básicos de Delphi : String, Integer, Double. se eu posso usar estes tipos nos parametros das funções ou se existe outros fomatos que devo usar. Obrigado -- Reginaldo D. Felix [EMAIL PROTECTED] [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Dll com funcoes para grava notas ficais
Bom dia pessoal, tenho que desenvolver uma dll com rotinas que trabalham com notas fiscais gostaria de saber a melhor maneira cria uma funcao que receba como parametro o cabecalho da nota fiscal e os itens. Tenho que desenvolver essa Dll de modo que ela possa ser utilizada por outras plataformas, entao estou em duvida quando a melhor maneira de fazer as funções se seria uma funcao que eu registro o cabeçalho e outra para os itens como abaixo : funcao NotaFiscal ( NroNota, Data, Clietes, Etc ) funcao ItensDaNota( NroNota, NroItem, Produto, Etc ) Desta forma quando for fazer o codigo da chamada, teria que primeiro chamar a funcao NotaFiscal que envia o cabecalho, depois um loop com a funcao dos itens. mais queria saber poderia fazer de um forma melhor. -- Reginaldo D. Felix [EMAIL PROTECTED] [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Aumentar o tamanho da fonte em um TMainMenu
Boa Noite a todos por favor alguem sabe como aumentar o tamanho da fonte em um MainMenu procurei na net e não encontrei, se alguem puder me ajudar obrigado -- _ Reginaldo Donizete Felix msn: [EMAIL PROTECTED] icq: 264587310 web: www.regifelix.com.br [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
[delphi-br] Erro ao instalar componente no delphi
Estou com um problema se alguem puder me ajudar. Ao tentar instalar um componente ele da a seguinte mensagem. Primeiro eu compilo ele normalmente. Depois ao clicar em instalar da a seguinte mensagem. Este aplicativo não pôde ser iniciado porque não foi encontrado rtl90.bpl. A reinstalação do aplicativo pode corrigir o problema. Logo em seguida aparece a seguinte mensagem : Can't load package c:\aquivos de programas\borland\delphi7\Project\Bpl\gbCob7.bpl. Não foi possivel encontrar o módulo especificado. Estou utilizando o Delphi7 Alguem poderia me ajudar Obrigado Reginaldo Donizete Felix msn: [EMAIL PROTECTED] icq: 264587310 web: www.regifelix.com.br [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
[delphi-br] Serial do Delphi 7 não funciona
Pessoal aguem poderia me ajudar eu instalei o delphi 7 pro e não consegui rodar, ele fica exibindo uma mensagem de serila invalido e não aceita o serial. alguem sabe como proceder se puder me ajudar mande para meu email : [EMAIL PROTECTED] -- _ Reginaldo Donizete Felix msn: [EMAIL PROTECTED] icq: 264587310 web: www.regifelix.com.br [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
[delphi-br] Problema com a instalação do Delphi
Pessoal, estou com um problema com o delphi, estava usando normalmente o delphi, qndo derepende esses dias, ele começou a dar a mensagem: Borland License Information for Delhi does not yet exist. Check the Register Now, e abre um caixa para infomar o código de licença. Coloco o serial e a chave mais ainda não funciona. Ja reinstalei o delphi e mesmo assim aparece a mesma coisa. Alguem sabe o que pode ser ? E como soluciono ? Obrigado -- _ Reginaldo Donizete Felix msn: [EMAIL PROTECTED] icq: 264587310 web: www.regifelix.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] 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
