[delphi-br] OFF TOPIC - ZEOS

[Rodilson]

Sergio "sa_souza"

Poderia dar mais detalhes sobre os componentes de acesso Zeos, pois no link que 
você indicou para download a versão é de 22/09/2001, tendo em vista que ja 
tivemos varias versões dos bancos de dados (Firebird, PostgreSql, Oracle, etc), 
que banco de dados e versão você está usando?

Um abraço 
Rodilson

[As partes desta mensagem que não continham texto foram removidas]

Re: [delphi-br] Agenda Médica

[Paulo Batalhão]

pois bem , sabendo que o primeiro começa as 08:00 e o seugundo as 08:41
verifique nas datas acdastradas no dia se os horários que começam estão 
cadastrados.

espero ter ajudado.

- - - -
att' Paulo Batalhão - [EMAIL PROTECTED]
arphanet.com 
batalhao.eti.br 
saudeamericana.com.br 
fusame.com.br 

"Não existe patch para a estupidez humana"
  - Original Message - 
  From: Marcelo Hoepfner (SI) 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Tuesday, January 23, 2007 1:27 PM
  Subject: RES: [delphi-br] Agenda Médica


  Bom rodrigo eu uso sql server e eu resolveria desta forma:

  Os horários vazios (vagos) deixe o campo como null e os preenchidos ponho a 
data e a hora resolveria o problema.

  _ 

  De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Rodrigo 
Magno
  Enviada em: segunda-feira, 22 de janeiro de 2007 12:38
  Para: delphi-br@yahoogrupos.com.br
  Assunto: [delphi-br] Agenda Médica

  Amigos,

  Estou precisando fazer uma agenda aonde tenha a data e o horário, ate ai tudo 
bem ja fiz, so que eu quero pegar o intervalo de horas vagas disponivel no 
sistema. 

  Exemplo :

  O medico ele atende de 08:00 as 12:00

  O primeiro horario dele e as 08:00 ja ta preenchido no banco esta tudo 
direitinho , a proxima consulta dele e as 08:40, que tb esta preenchido, cada 
consulta dele tem um intervalo de 40 a 40 minutos.

  Gostaria de pegar no banco ou alguma funcao no delphi aonde eu possa 
descobrir o horario dele vago neste periodo de horas de 08:00 as 12:00.

  Se alguem puder me ajudar ficarei grato.

  Obs : os horarios ja preenchidos e gravados no banco ja fiz a coleta destes 
dados agora so quere pegar o horario vago que e o mais importante pra mim.

  No mais agradeço a atenção de todos.

  Rodrigo 

  __
  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]



   

[As partes desta mensagem que não continham texto foram removidas]

[delphi-br] OPORTUNIDADES DELPHI RIO DE JANEIRO

[Bianca Teixeira]

Galera

 

Segue abaixo as oportunidades que ainda estamos trabalhando e as que já foram 
fechadas.

Com isso gostaria de aproveitar e agradecer a todos os profissionais que nos 
enviaram currículos e que participaram dos processos seletivos  e avisa-los que 
os candidatos que não foram aprovados e/ou não foram chamados devido a estarem 
fora do perfil solicitado pelo cliente que manteremos em nosso banco os 
currículos para futuras oportunidades.

Qualquer duvida estaremos a disposição através dos contatos 021 4501 1041 - 
Jessica e/ou [EMAIL PROTECTED] 

 

OPORTUNIDADESDE DELPHI NO  RIO DE JANEIRO EM ABERTO

*   ANALISTA PROGRAMADOR - 5 vagas

Experiência de 4 anos com Delphi 5, SQL Server.

Experiência com analise e desenvolvimento de sistemas

 

Desejável:

 

UML

Oracle

 

Currículo urgente com a experiência exigida e pretensão salarial para [EMAIL 
PROTECTED] com o nome da vaga no campo assunto do e-mail "ANALISTA PROGRAMADOR"

 

* DESENVOLVEDOR SENIOR - 9 vagas

 
Experiência de 5 anos em desenvolvimento delphi (30% Analista / 70% 
Desenvolvedor )
Nível Superior (pode ser incompleto).


Linguagem Delphi e Banco de Dados SQL Server.


Currículo urgente com a experiência exigida e pretensão salarial para [EMAIL 
PROTECTED] com o nome da vaga no campo assunto do e-mail "DESENVOLVEDOR SENIOR"

*   ANALISTA JUNIOR - 2 VAGAS 

Experiência de 03 anos no cargo em questão;

DELPHI

SQL SERVER

ORACLE

EXCEL

Cursando o nível superior;

 

Currículo urgente com a experiência exigida e pretensão salarial para [EMAIL 
PROTECTED] com o nome da vaga no campo assunto do e-mail "ANALISTA JUNIOR"

 

* ANALISTA PLENO - 2 VAGAS


Pelo menos 5 anos de experiência em analise e desenvolvimento; 
DELPHI

SQL SERVER

ORACLE

EXCEL

CONHECIMENTO EM CONTROLE DE ESTOQUE

Cursando Nível Superior

 

Currículo urgente com a experiência exigida e pretensão salarial para [EMAIL 
PROTECTED] com o nome da vaga no campo assunto do e-mail "ANALISTA PLENO"

* ANALISTA DE TESTES - 3 VAGAS

Minimo de 4 anos de experiência no cargo 
Experiência em Ferramentas de testes 
Desejável experiência com Delphi e Banco de Dados SQL Server
 

Currículo urgente com a experiência exigida e pretensão salarial para [EMAIL 
PROTECTED] com o nome da vaga no campo assunto do e-mail "TESTES"

 

 

 

PROCESSOS FECHADOS

 

*  ESTAGIARIO DE INFRA ESTRUTURA

*  ANALISTA DE SISTEMAS PLENO - 1 VAGA

*  DESENVOLVEDOR DELPHI - 1 VAGA

*  DESIGNER - 1 VAGA

*  ADMINISTRADOR DE DADOS 

 

 

 

TODOS OS CURRICULOS DEVEM SER ENCAMINHADOS EM FORMATO .DOC COM O NOME DA VAGA 
NO CAMPO ASSUNTO E QUALQUER DUVIDA DOS PROCESSOS PODEM SER TIRADAS PELO  021 
45011041 - JESSICA OU 011 5507 5756 - JULIANA.

[EMAIL PROTECTED] 

 

CONHEÇA A IMAGO ATRAVES DO NOSSO SITE : WWW.IMAGO.COM.BR 
  

 

AGRADEÇO A TODOS :-)

 

BJS

 

BIANCA TEIXEIRA

 

 

 

 

 

 

 



[As partes desta mensagem que não continham texto foram removidas]

Re: [delphi-br] Re: [OFF] Licença de Delphi antigo

[Joao Morais]

wandarlei wrote:

> Na empresa que trabalho surgiu esta necessidade, 
> O que tivemos que fazer foi o seguinte, tivemos que comprar uma 
> licença do Delphi 2006 e depois disto um angrade para o Delphi 7.
> Foi a único geito que conseguimos a licença para o Delphi 7.

Pessoal,

obrigado por todos os comentários.

A intenção original era economizar um troco, já que comprar BDS e depois 
baixar pra D5 soa como você ir ao concessionário, comprar um carro zero, 
depois passar em uma garagem pra trocar por um ano 2000.

Provavelmente vou ficar com o Turbo Delphi Pro.

--
João Morais

Re: [delphi-br] CAD com Delphi

[Joao Morais]

Fellipe Henrique wrote:

> Valeu pessoal, tem um PowerCad...pelo que vi nos exemplos é do que preciso..
> o problema é o valor.. :o)
> 
> Quem souber de mais algum, estou as ordens

http://www.codeaccelerate.com/drawing_engine.html


--
João Morais



> Em 17/01/07, Ricardo Berti <[EMAIL PROTECTED]> escreveu:
>>   No site da Torry.net tem uma seção soh com componentes CAD, desde de
>> visualização até para desenhar...
>>
>> Abraços
>>
>> - Original Message -
>> From: Fellipe Henrique
>> To: delphi-br@yahoogrupos.com.br 
>> Sent: Wednesday, January 17, 2007 1:48 PM
>> Subject: [delphi-br] CAD com Delphi
>>
>> Olá amigos, alguém poderia me informar alguma coisa sobre CAD com delphi.
>> Componentes, bibliotecas, API o que for... estou precisando de algo sobre
>> isso.
>>
>> desde já agradeço
>>
>> []s
>>
>> --
>> _
>> Fellipe Henrique
>> [EMAIL PROTECTED] 
>>
>> "Venham até a borda, ele disse.
>> Eles disseram: Nós temos medo.
>> Venham até a borda, ele insistiu.
>> Eles foram, Ele os empurrou...
>> E eles voaram."
>> (Guillaume Apollinaire)

Res: [delphi-br] Problemas com update

[Renato Lorandi]

não, não é isso amigo, a mudança nos dados do endereço que é da tabela endereço 
não funciona nem na primeira vez que se tenta não...


- Mensagem original 
De: Alexandre Pedroto <[EMAIL PROTECTED]>
Para: delphi-br@yahoogrupos.com.br
Enviadas: Terça-feira, 23 de Janeiro de 2007 13:39:23
Assunto: Re: [delphi-br] Problemas com update

Se eu entendi bem, na primeira alteração funciona e nas subsequentes 
não, correto?
Já tentou dar um refresh no clientdataset?

Alexandre

Renato Lorandi escreveu:
>
> Olá pessoal bom dia!
>
> Galera uso delphi 7 com os componentes da paleta dbx... ClientDataSet 
> + SqlQuery + DatasetProvider e DataSource.. .. o que acontece é o 
> seguinte. eu tenho uma tela de cadastro de clientes, por ex: Nome, 
> telefone, rua etc
>
> eu tenho uma tabela de pessoas, onde nesta tabela possuo uma chave 
> estrangeira para a tabela de endereços ... Então na minha tela eu 
> uso tudo dbedit, ou seja quando estou navegando entre os pacientes se 
> eu editar um campo por ex o campo nome a tabela pessoa entra em modo 
> de edição, ai quando dou um post ele grava blz
>
> o que esta acontencendo é o seguinte... o form de cadastro de 
> pacientes é uma herança de um form pai que criei, então no form pai no 
> botão gravar eu tenho esse codigo, que é igual a todos os outros ...
>
> procedure TFrmCadastrosPai. SpeedButton2Clic k(Sender: TObject);
> begin
>
> //CDEndereco = ClientDataSet para a tabela endereço. ...
>
> IF(CDEndereco. State in [dsEdit, dsInsert]) Then
> begin
> try
> CDEndereco.Post;
> CDEndereco.ApplyUpd ates(0);
> except
> on e: EDatabaseError do
> begin
> ShowMessage( 'Erro:'+ E.Message);
> abort;
> end;
> on e:Exception do
> begin
> ShowMessage( 'Erro:'+ E.Message);
> abort;
> end;
> end;
> end;
>
> no form de clientes que é uma herança desse form ai de cima o código é 
> especifico no botão gravar fica assim..
>
> procedure TFrmCadastrosPacien te.SpeedButton2C lick(Sender: TObject);
> var
> codigo:Integer;
> begin
> inherited;
>
> IF(CDPessoas. State in [dsEdit, dsInsert]) Then
> begin
> //ADICIONA VALORES ESPECIFICOS PARA O PACIENTE.
> CDPessoas.FieldByNa me('TIPO_ PESSOA'). AsString: ='P';
> CDPessoas.FieldByNa me('ATIVO' ).AsString: ='1';
> CDPessoas.FieldByNa me('TIPO_ PESSOA_FJ' ).AsString: ='F';
> try
> CDPessoas.Post;
> CDPessoas.ApplyUpda tes(0);
> except
> on e:Exception do
> begin
> showMessage( 'Erro:'+ e.Message);
> CDPessoas.Cancel;
> abort;
> exit;
> end;
> end;
> end;
> If MessageDlg(' Deseja Inserir Novo 
> Registro?',mtConfir mation,[mbyes, mbNo],0) = mryes Then
> begin
> EditConvenio. Text:='';
> edtBairro.Text: ='';
> edtCidade.Text: ='';
> CDPessoas.Refresh;
> CDPessoas.Last;
> codigo:=CDPessoas. FIELDBYNAME( 'PESSOA_ID' ).AsInteger;
> CDPessoas.Insert;
> edtcodigo.Text: =intToStr( codigo + 1);
> end;
> end;
>
> Bom vamos ao problema o que acontece é o seguinte estou na tela de 
> cadastro estou vendo o cliente Renato, bom vou la e edito o telefone 
> do renato e dou um gravar blz ele altera sem problemas, agora estou na 
> mesma tela e altero a rua do renato e dou um gravar ele não da erro 
> mas não muda ai executei a partir do delphi mesmo e quando ele 
> chega no CDEndereco.ApplyUpd ates(0); ele da erro dizendo que não 
> encontrou registo que a chave não esta especificada, ve se pode um 
> negocio desses, e no select que faço estou puxando todos os campos 
> dessa tabela endereço veja bem é só quando vou editar o endereço 
> na tela de cadastro que não altera nada, que é o primeiro codigo la em 
> cima...
>
> bom fico no aguardo de vc's não consegui achar o problema ate agora
>
> valeu.
>
>  _ _ _ _ __
> 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]
>
> 




__
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]

RE: [delphi-br] Funçao que tranforme Binar io em INTEIRO

[Rubem Nascimento da Rocha]

function DecToBin(const IntValue: Integer): String;
var
  lValue: Integer;
begin
  Result := '';
  lValue := IntValue;
  while lValue > 2 do
  begin
Result := Chr(48 + (lValue mod 2)) + Result;
lValue := lValue div 2;
  end;
  Result := Chr(48 + lValue) + Result;
end;

function BinToDec(const BinValue: String): Integer;
var
  lValue: String;
begin
  Result := 0;
  lValue := BinValue;
  while Length(lValue) > 0 do
  begin
Result := Result + ((Ord(lValue[1]) - 48) * (1 shl (Length(lValue) - 
1)));
System.Delete(lValue, 1, 1);
  end;
end;

Sds.


>From: Julio Cesar Quierati <[EMAIL PROTECTED]>
>Reply-To: delphi-br@yahoogrupos.com.br
>To: delphi br 
>Subject: [delphi-br] Funçao que tranforme Binario em INTEIRO
>Date: Tue, 23 Jan 2007 10:13:53 -0300 (ART)
>
>   Olá, pessoal.
>
>   estou precisando de uma função para transformar binario em inteiro, 
>utilizei estas duas funções abaixo mas nao estao retornando os valores 
>corretos, alguem sabe de outra que funcione ou o que esta ocorrendo com 
>essas funções ?
>
>
>   Function BinToInt(valor: string):longint;
>   var i, tamanho, np : Integer;
>   Begin
>   Result :=0;
>   tamanho := Length(valor);
>   For i:=0 to Tamanho-1 do
>   Begin
>   NP := strtoint(valor[tamanho-1]);
>   Result := Result + NP *Trunc(Power(2,i));
>   end;
>   end;
>
>   Function bintoint( valor:string): integer;
>   var i, tamanho : integer;
>   begin
>   result :=0;
>   tamanho:= length(valor);
>   for i:= tamanho downto 0 do
> begin
>   if copy(valor,i,1)='1' then
>  begin
> result := result +(1 shl i);
>   end;
>  end;
>   end;
>
>
>   no mais Grato,
>
>   Julio Quierati
>
>  __
>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]
>

_
MSN Busca: fácil, rápido, direto ao ponto.  http://search.msn.com.br

Re: [delphi-br] OFF-Topic PC Virtual - MSDOS

[Eduardo Silva dos Santos]

Nem sempre roda não, depende de como o programa foi linkado, se for antigo e
o processador for AMD ja era..
e bom tentar configurar o autoexec.nt e o config.nt... se de tudo não der...
virtualizaçao neles...


Em 23/01/07, Ronaldo Pena <[EMAIL PROTECTED]> escreveu:
>
>   O sistemas Jurássicos em clipper rodam no Windows XP! Basta configurar o
> Config.net  e o Autoexec.nt.
>
> _
>
> De: delphi-br@yahoogrupos.com.br  [mailto:
> delphi-br@yahoogrupos.com.br ] Em
> nome de ME
> Enviada em: segunda-feira, 22 de janeiro de 2007 15:31
> Para: delphi-br@yahoogrupos.com.br 
> Assunto: [delphi-br] OFF-Topic PC Virtual - MSDOS
>
> Ola Povo
>
> Sera que alguem que trabalha com o PC Virtual teria o arquivo .vdh de um
> ambiente MS-Dos para abrir uns sistemas jurasticos em Clipper que estão
> sendo passados para o Delphi?
>
> Se alguem tiver eu agradeço muito.
>
> Marô
>
> [As partes desta mensagem que não continham texto foram removidas]
>
> ---
> spam free by SafestMail(r)
> www.safestmail.com.br
> SafO.X 1.0.160
>
> [As partes desta mensagem que não continham texto foram removidas]
>
> 
>



-- 
Eduardo Silva dos Santos
DRD Sistemas.
(27) 3218-4201
MSN: [EMAIL PROTECTED]
Site: http://www.drdsistemas.com/


[As partes desta mensagem que não continham texto foram removidas]

[delphi-br] Problemas com componentes do MiSql no Delphi 2006

[Lucas Lima]

Sim, porém a instalação do provider do MySql deu um erro. Ele carrega tudo 
certinho no Data Explorer mas na tela de inicialização do Delphi 2006 aparece 
uma mensagem de erro dizendo que foi impossível carregar o provider do MySql. O 
nome do componente que instalei é Core Labs MySql Developer Tools.
  Com isso, procurei pelo provider .NET no site do MySql e este instalou 
corretamente, aparecendo o aba do Mysql na Tool Palete junto com o commands, 
connections, etc..
  Usando estes componentes do MySql o erro não ocorreu, porém mais pra frente 
surgiu um outro, e creio que a culpa seja do provider do Mysql.
  Quando crio um Parâmetro no Command, ele dá erro ao compilar o progama.
  O processo de criação e como executar o parâmetro está correto, pois faço 
video-aulas e lá dá certo, somente aqui que não.
  Segue a linha de comando e o erro:
   

Self.MySqlCommand1.Parameters.Add(MySql.Data.MySqlClient.MySqlParameter.Create('c'
 +
  'or', System.Data.DbType.&String, 0, 
System.Data.ParameterDirection.Input, 
False, (Byte(0)), (Byte(0)), 'cor', System.Data.DataRowVersion.Current, 
nil));
   
  Erro:
   
  [Pascal Error] WebForm1.pas(56): E2250 There is no overloaded version of 
'Create' that can be called with these arguments
  [Pascal Fatal Error] FundamentosADONETCommands.dpr(22): F2063 Could not 
compile used unit 'WebForm1.pas'
   
  O que poderia estar acarretando estes problemas ? Seriam os componente do 
MySql ?
   
  Desde já agradeço a ajuda.

Murillo Proença <[EMAIL PROTECTED]> escreveu:
  Tentou fazer este mesmo teste utilizando o provider do MySQL?

--- Em delphi-br@yahoogrupos.com.br, "mestre_skald" <[EMAIL PROTECTED]>
escreveu
>
> Olá a todos,
> 
> Estou tentando fazer uma rotina simples de inclusão, alteração e 
> exclusão de dados através do ASP.NET, porém sou iniciante nesta área 
> e estou com uma pequena dúvida.
> Faço estas rotinas em Delphi 7 e nunca apresentaram problemas. Uso o 
> MySQL como banco de dados e instruções SQL para as operações.
> Mas não quer funcionar no Delphi 2006.
> 
> Segue o código:
> 
> procedure TWebForm1.Button1_Click(sender: System.Object; e: 
> System.EventArgs);
> begin
> bdpConnection1.Open;
> try
> BdpCommand1.ExecuteNonQuery();
> finally
> BdpConnection1.Close;
> end;
> end;
> 
> O BdpCommand está configurado corretamente, com o CommandType em Text 
> e o CommandText correto também.
> O erro é o seguinte:
> 
> Execute failed. 
> Description: An unhandled exception occurred during the execution of 
> the current web request. Please review the stack trace for more 
> information about the error and where it originated in the code. 
> 
> Exception Details: Borland.Data.Common.BdpException: Execute failed. 
> 
> Source Error: 
> 
> 
> Line 95: bdpConnection1.Open;
> Line 96: try
> Line 97: BdpCommand1.ExecuteNonQuery();
> Line 98: finally
> Line 99: BdpConnection1.Close;
> 
> Na linha 97.
> 
> Desde já agradeço a atenção.
> Abraços.
>



 

 __
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]

Re: [delphi-br] OFF-Topic PC Virtual - MSDOS

[Karkaju]

Todavia, na pior das hipoteses, pode-se usar um VirtualPC ou VMWare pra
rodar um boot de DOS 7 ... Vc acha na internet facil facil


Em 23/01/07, Ronaldo Pena <[EMAIL PROTECTED]> escreveu:
>
> O sistemas Jurássicos em clipper rodam no Windows XP! Basta configurar o
> Config.net e o Autoexec.nt.
>
>
>
>   _
>
> De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
> nome de ME
> Enviada em: segunda-feira, 22 de janeiro de 2007 15:31
> Para: delphi-br@yahoogrupos.com.br
> Assunto: [delphi-br] OFF-Topic PC Virtual - MSDOS
>
>
>
> Ola Povo
>
> Sera que alguem que trabalha com o PC Virtual teria o arquivo .vdh de um
> ambiente MS-Dos para abrir uns sistemas jurasticos em Clipper que estão
> sendo passados para o Delphi?
>
> Se alguem tiver eu agradeço muito.
>
> Marô
>
> [As partes desta mensagem que não continham texto foram removidas]
>
>
>

email:  [EMAIL PROTECTED] (+googletalk)
skype: karkajukarkamano
messenger:  [EMAIL PROTECTED]
ICQ:2199001
__


[As partes desta mensagem que não continham texto foram removidas]

Re: [delphi-br] Funçao que tranforme Binario em INTE IRO

[Edu Nicácio]

O binário que você se refere seria uma String?



  Atenciosamente:

 
 Eduardo Cláudio Nicácio
  Analista Programador JR.
  Fábrica 02 - CTIS
  Tel.: (11) 3150-6834
  [EMAIL PROTECTED]
 



  - Original Message - 
  From: Julio Cesar Quierati 
  To: delphi br 
  Sent: Tuesday, January 23, 2007 10:13 AM
  Subject: [delphi-br] Funçao que tranforme Binario em INTEIRO


  Olá, pessoal.

  estou precisando de uma função para transformar binario em inteiro, utilizei 
estas duas funções abaixo mas nao estao retornando os valores corretos, alguem 
sabe de outra que funcione ou o que esta ocorrendo com essas funções ?


  Function BinToInt(valor: string):longint;
  var i, tamanho, np : Integer;
  Begin
  Result :=0;
  tamanho := Length(valor);
  For i:=0 to Tamanho-1 do
  Begin
  NP := strtoint(valor[tamanho-1]);
  Result := Result + NP *Trunc(Power(2,i));
  end;
  end;

  Function bintoint( valor:string): integer;
  var i, tamanho : integer;
  begin
  result :=0;
  tamanho:= length(valor);
  for i:= tamanho downto 0 do 
  begin
  if copy(valor,i,1)='1' then
  begin
  result := result +(1 shl i);
  end; 
  end;
  end;


  no mais Grato,

  Julio Quierati 

  __
  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]

RES: [delphi-br] OFF-Topic PC Virtual - MSDOS

[Ronaldo Pena]

O sistemas Jurássicos em clipper rodam no Windows XP! Basta configurar o
Config.net e o Autoexec.nt.

 

  _  

De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de ME
Enviada em: segunda-feira, 22 de janeiro de 2007 15:31
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] OFF-Topic PC Virtual - MSDOS

 

Ola Povo

Sera que alguem que trabalha com o PC Virtual teria o arquivo .vdh de um
ambiente MS-Dos para abrir uns sistemas jurasticos em Clipper que estão
sendo passados para o Delphi?

Se alguem tiver eu agradeço muito.

Marô 

[As partes desta mensagem que não continham texto foram removidas]

 

---
spam free by SafestMail®
www.safestmail.com.br
SafO.X 1.0.160




[As partes desta mensagem que não continham texto foram removidas]

[delphi-br] Gerador de Relatorios com ReportBuilder

[Gleidson Yahoo]

Ola pessoal. Estou fazendo  um Gerador de Relatórios com o ReportBuilder mas
não estou conseguindo implementar o  QUERY WIZARD alguém pode me
ajudar. 


[As partes desta mensagem que não continham texto foram removidas]

[delphi-br] Invalid image size. Can't load package, durante o boot do Delphi2006

[eduna67]

Boa tarde pessoal,

Estou com problemas na instalação de alguns componentes que eu uso,
ocorre o seguinte:
Durante a instalação do pacote de componentes (por exemplo, dos meus
componente), corre tudo bem, eu incluo o diretorio no library-win32 do
menu tools do delpi2006, abro o pacote de componentes, depois faço um
build all que é executado certinho e depois faço o install que tambem
diz que foi instalado certinho, até ai corre tudo certinho sem
problemas. Quando termino instalar o pacote de componente eu saio do
delphi2006 em salvar o projeto e logo depois carrego o delphi2006
novamente, e ai diz que da error, ai vai a msg original de erro:
--
Error:
Can't load package c:\documents and settings\programa\meus
documentos\borland studio projects\bpl\valant.bpl.
Invalid image size.
Do you wnat to attempt to load this package the next time a project is
loaded?
-
O pacote de componentes valant.bpl esta instalado, mas a imagem esta
com tamanho incorreto, isso eu já entendi,mas o problema que tenho
outras 2 maquinas instaladas na minha rede usando o mesmo diretório
onde estão esse pacote de componente(alias esta tudo no mesmo
diretorio, pacote e componentes) e a instalação funciona corretamente,
e o delphi2006 funciona certinho.
em resumo:
é o mesmo cd do delphi2006 instalado em varias maquina.
a instalação do delphi2006 e dos componentes seguem a mesma orgem em
todas as maquina.
todas as maquina são iguais, P4,3.2mhz,1gb-Ram,HD120gb


Por favor preciso de ajuda 


Grato desde já
Eduardo

Re: [delphi-br] Funçao que tranforme Bina rio em INTEIRO

[Joao Morais]

Julio Cesar Quierati wrote:
>   Olá, pessoal.
>
>   estou precisando de uma função para transformar binario em inteiro, 
> utilizei estas duas funções abaixo mas nao estao retornando os valores 
> corretos, alguem sabe de outra que funcione ou o que esta ocorrendo com essas 
> funções ?

Feito no improviso, vê se funciona:

function BinToInt(const ABinStr: string): Integer;
var
   I: Integer;
begin
   Result := 0;
   for I := 1 to Length(ABinStr) do
   begin
 Result := 2 * Result;
 if ABinStr[I] = '1' then
   Inc(Result)
 else if ABinStr[I] <> '0' then
   raise Exception.Create('não é binário');
   end;
end;

--
João Morais


>   Function BinToInt(valor: string):longint;
>   var i, tamanho, np : Integer;
>   Begin
>   Result :=0;
>   tamanho := Length(valor);
>   For i:=0 to Tamanho-1 do
>   Begin
>   NP := strtoint(valor[tamanho-1]);
>   Result := Result + NP *Trunc(Power(2,i));
>   end;
>   end;
>
>   Function bintoint( valor:string): integer;
>   var i, tamanho : integer;
>   begin
>   result :=0;
>   tamanho:= length(valor);
>   for i:= tamanho downto 0 do 
> begin
>   if copy(valor,i,1)='1' then
>  begin
> result := result +(1 shl i);
>   end; 
>  end;
>   end;

RES: [delphi-br] Agenda Médica

[Marcelo Hoepfner \(SI\)]

Bom rodrigo eu uso sql server e eu resolveria desta forma:

 

Os horários vazios (vagos) deixe o campo como null e os preenchidos ponho a 
data e a hora  resolveria o problema.

 

 

 

 

  _  

De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Rodrigo 
Magno
Enviada em: segunda-feira, 22 de janeiro de 2007 12:38
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Agenda Médica

 

Amigos,

Estou precisando fazer uma agenda aonde tenha a data e o horário, ate ai tudo 
bem ja fiz, so que eu quero pegar o intervalo de horas vagas disponivel no 
sistema. 

Exemplo :

O medico ele atende de 08:00 as 12:00

O primeiro horario dele e as 08:00 ja ta preenchido no banco esta tudo 
direitinho , a proxima consulta dele e as 08:40, que tb esta preenchido, cada 
consulta dele tem um intervalo de 40 a 40 minutos.

Gostaria de pegar no banco ou alguma funcao no delphi aonde eu possa descobrir 
o horario dele vago neste periodo de horas de 08:00 as 12:00.

Se alguem puder me ajudar ficarei grato.

Obs : os horarios ja preenchidos e gravados no banco ja fiz a coleta destes 
dados agora so quere pegar o horario vago que e o mais importante pra mim.

No mais agradeço a atenção de todos.

Rodrigo 

__
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]

Re: [delphi-br] Problemas com update

[Alexandre Pedroto]

Se eu entendi bem, na primeira alteração funciona e nas subsequentes 
não, correto?
Já tentou dar um refresh no clientdataset?

Alexandre

Renato Lorandi escreveu:
>
> Olá pessoal bom dia!
>
> Galera uso delphi 7 com os componentes da paleta dbx... ClientDataSet 
> + SqlQuery + DatasetProvider e DataSource o que acontece é o 
> seguinte. eu tenho uma tela de cadastro de clientes, por ex: Nome, 
> telefone, rua etc
>
> eu tenho uma tabela de pessoas, onde nesta tabela possuo uma chave 
> estrangeira para a tabela de endereços... Então na minha tela eu 
> uso tudo dbedit, ou seja quando estou navegando entre os pacientes se 
> eu editar um campo por ex o campo nome a tabela pessoa entra em modo 
> de edição, ai quando dou um post ele grava blz
>
> o que esta acontencendo é o seguinte... o form de cadastro de 
> pacientes é uma herança de um form pai que criei, então no form pai no 
> botão gravar eu tenho esse codigo, que é igual a todos os outros ...
>
> procedure TFrmCadastrosPai.SpeedButton2Click(Sender: TObject);
> begin
>
> //CDEndereco = ClientDataSet para a tabela endereço
>
> IF(CDEndereco.State in [dsEdit, dsInsert]) Then
> begin
> try
> CDEndereco.Post;
> CDEndereco.ApplyUpdates(0);
> except
> on e: EDatabaseError do
> begin
> ShowMessage('Erro:'+ E.Message);
> abort;
> end;
> on e:Exception do
> begin
> ShowMessage('Erro:'+ E.Message);
> abort;
> end;
> end;
> end;
>
> no form de clientes que é uma herança desse form ai de cima o código é 
> especifico no botão gravar fica assim..
>
> procedure TFrmCadastrosPaciente.SpeedButton2Click(Sender: TObject);
> var
> codigo:Integer;
> begin
> inherited;
>
> IF(CDPessoas.State in [dsEdit, dsInsert]) Then
> begin
> //ADICIONA VALORES ESPECIFICOS PARA O PACIENTE.
> CDPessoas.FieldByName('TIPO_PESSOA').AsString:='P';
> CDPessoas.FieldByName('ATIVO').AsString:='1';
> CDPessoas.FieldByName('TIPO_PESSOA_FJ').AsString:='F';
> try
> CDPessoas.Post;
> CDPessoas.ApplyUpdates(0);
> except
> on e:Exception do
> begin
> showMessage('Erro:'+ e.Message);
> CDPessoas.Cancel;
> abort;
> exit;
> end;
> end;
> end;
> If MessageDlg('Deseja Inserir Novo 
> Registro?',mtConfirmation,[mbyes,mbNo],0) = mryes Then
> begin
> EditConvenio.Text:='';
> edtBairro.Text:='';
> edtCidade.Text:='';
> CDPessoas.Refresh;
> CDPessoas.Last;
> codigo:=CDPessoas.FIELDBYNAME('PESSOA_ID').AsInteger;
> CDPessoas.Insert;
> edtcodigo.Text:=intToStr(codigo + 1);
> end;
> end;
>
> Bom vamos ao problema o que acontece é o seguinte estou na tela de 
> cadastro estou vendo o cliente Renato, bom vou la e edito o telefone 
> do renato e dou um gravar blz ele altera sem problemas, agora estou na 
> mesma tela e altero a rua do renato e dou um gravar ele não da erro 
> mas não muda ai executei a partir do delphi mesmo e quando ele 
> chega no CDEndereco.ApplyUpdates(0); ele da erro dizendo que não 
> encontrou registo que a chave não esta especificada, ve se pode um 
> negocio desses, e no select que faço estou puxando todos os campos 
> dessa tabela endereço veja bem é só quando vou editar o endereço 
> na tela de cadastro que não altera nada, que é o primeiro codigo la em 
> cima...
>
> bom fico no aguardo de vc's não consegui achar o problema ate agora
>
> valeu.
>
> __
> 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] Funçao que tranforme Binario em INTEIRO

[Julio Cesar Quierati]

  Olá, pessoal.
   
  estou precisando de uma função para transformar binario em inteiro, utilizei 
estas duas funções abaixo mas nao estao retornando os valores corretos, alguem 
sabe de outra que funcione ou o que esta ocorrendo com essas funções ?
   
   
  Function BinToInt(valor: string):longint;
  var i, tamanho, np : Integer;
  Begin
  Result :=0;
  tamanho := Length(valor);
  For i:=0 to Tamanho-1 do
  Begin
  NP := strtoint(valor[tamanho-1]);
  Result := Result + NP *Trunc(Power(2,i));
  end;
  end;
   
  Function bintoint( valor:string): integer;
  var i, tamanho : integer;
  begin
  result :=0;
  tamanho:= length(valor);
  for i:= tamanho downto 0 do 
begin
  if copy(valor,i,1)='1' then
 begin
result := result +(1 shl i);
  end; 
 end;
  end;
   
   
  no mais Grato,
   
  Julio Quierati 

 __
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] Problemas com update

[Renato Lorandi]

Olá pessoal bom dia!


Galera uso delphi 7 com os componentes da paleta dbx... ClientDataSet + 
SqlQuery + DatasetProvider e DataSource o que acontece é o seguinte.   eu 
tenho uma tela de cadastro de clientes, por ex: Nome, telefone, rua etc

eu tenho uma tabela de pessoas, onde nesta tabela possuo uma chave estrangeira 
para a tabela de endereços... Então na minha tela eu uso tudo dbedit, ou 
seja quando estou navegando entre os pacientes se eu editar um campo por ex o 
campo nome a tabela pessoa entra em modo de edição, ai quando dou um post ele 
grava blz

o que esta acontencendo é o seguinte... o form de cadastro de pacientes é uma 
herança de um form pai que criei, então no form pai no botão gravar eu tenho 
esse codigo, que é igual a todos os outros ...


procedure TFrmCadastrosPai.SpeedButton2Click(Sender: TObject);
begin

//CDEndereco = ClientDataSet para a tabela endereço

 IF(CDEndereco.State in [dsEdit, dsInsert]) Then
begin
  try
CDEndereco.Post;
CDEndereco.ApplyUpdates(0);
  except
on e: EDatabaseError do
  begin
ShowMessage('Erro:'+ E.Message);
abort;
  end;
on e:Exception do
  begin
ShowMessage('Erro:'+ E.Message);
abort;
  end;
  end;
end;




no form de clientes que é uma herança desse form ai de cima o código é 
especifico no botão gravar fica assim..

procedure TFrmCadastrosPaciente.SpeedButton2Click(Sender: TObject);
var
  codigo:Integer;
begin
  inherited;
  
 IF(CDPessoas.State in [dsEdit, dsInsert]) Then
begin
  //ADICIONA VALORES ESPECIFICOS PARA O PACIENTE.
  CDPessoas.FieldByName('TIPO_PESSOA').AsString:='P';
  CDPessoas.FieldByName('ATIVO').AsString:='1';
  CDPessoas.FieldByName('TIPO_PESSOA_FJ').AsString:='F';
 try
CDPessoas.Post;
CDPessoas.ApplyUpdates(0);
  except
on e:Exception do
  begin
showMessage('Erro:'+ e.Message);
CDPessoas.Cancel;
abort;
exit;
  end;
  end;
end;
  If MessageDlg('Deseja Inserir Novo Registro?',mtConfirmation,[mbyes,mbNo],0) 
= mryes  Then
begin
  EditConvenio.Text:='';
  edtBairro.Text:='';
  edtCidade.Text:='';
  CDPessoas.Refresh;
  CDPessoas.Last;
  codigo:=CDPessoas.FIELDBYNAME('PESSOA_ID').AsInteger;
  CDPessoas.Insert;
  edtcodigo.Text:=intToStr(codigo + 1);
end;
end;

Bom vamos ao problema o que acontece é o seguinte estou na tela de cadastro 
estou vendo o cliente Renato, bom vou la e edito o telefone do renato e dou um 
gravar blz ele altera sem problemas, agora estou na mesma tela e altero a rua 
do renato e dou um gravar ele não da  erro mas não muda ai executei a 
partir do delphi mesmo e quando ele chega  no CDEndereco.ApplyUpdates(0); ele 
da erro dizendo que não encontrou registo que a chave não esta especificada, ve 
se pode um negocio desses, e no select que faço estou puxando todos os campos 
dessa tabela endereço veja bem é só quando vou editar o endereço na tela de 
cadastro que não altera nada, que é o primeiro codigo la em cima... 


bom fico no aguardo de vc's não consegui achar o problema ate agora 

valeu.

__
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]

RE: [delphi-br] impressao via putty no xharbour para linux

[Rubem Nascimento da Rocha]

Ei, camarada! Aqui é lista de Delphi, e não de dBase, Clipper ou xHarbour. 
Poste sua dúvida em uma lista que tenha realmente haver com sua dúvida. Sds.

>From: "bene20032004" <[EMAIL PROTECTED]>
>Reply-To: delphi-br@yahoogrupos.com.br
>To: delphi-br@yahoogrupos.com.br
>Subject: [delphi-br] impressao via putty no xharbour para linux
>Date: Tue, 23 Jan 2007 11:05:03 -
>
>Pessoal estou com um problema de impressao em formulario com 45
>linhas .Estou no xp conectado a um servidor linux via putty e quero
>imprimir na impressora epson local, ate ai tudo bem a impressao sai
>perfeita em todos os relatorios. O problema é o seguinte, no
>formulario de 45 linhas que é um pedido nao consigo controlar a
>cabeca de impressao se dou um eject no final do rel ela vai parar la
>em baixo pula uma pagina inteira se não dou ela para antes do picote
>se mando pular umas duas tres linhas ela da o eject e sai tudo fora
>de novo.
>
>No inicio do relatorio informo que o formulario e de 45 linas assim
>
>@ prow()+01,00 say chr(27)+chr(67)+chr(45)
>No final
>eject pula uma pagina inteira
>ou
>@ prow()+04 ,00 say ""  vai no meio da pagina
>
>
>Eu jogo o relatorio em um arquivo prn e depois faco
>run ("/bin/ipansi /tmp/"+impressao.prn)
>
>Alguém ja deparou com uma situção dessa ?
>Muito obrigado por enquanto !
>
>

_
MSN Busca: fácil, rápido, direto ao ponto.  http://search.msn.com.br

Re: [delphi-br] Form pelo nome

[Henrique Netzka \(Vetor Sistemas\)]

Opa!

Se eu entendi direito... o que você está procurando é a criação de um form pela 
CLASSE. Neste caso, procure por "criar form pela classe delphi" no google que 
você encontra :)

Keywords: RegisterClass, UnregisterClass, initialization, finalization, 
TFormClass, FindClass

Abraços
Henrique

  - Original Message - 
  From: Adauri Antonio Camacho Junior 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Tuesday, January 23, 2007 8:14 AM
  Subject: [delphi-br] Form pelo nome


  Bom dia a todos, eu gostaria de chamar o form pelo nome, por exemplo, 
  gravo em um campo que o cadastro de cliente é o form FRM_CLIENTE, 
  quando chamasse o cadastro de cliente eu passaria o nome do form, eu 
  faria o create e o showmodal pelo nome do form. Alguem sabe como fazer 
  isso ?

  Obrigado

  Jr.



   

[As partes desta mensagem que não continham texto foram removidas]

[delphi-br] impressao via putty no xharbour para linux

[bene20032004]

Pessoal estou com um problema de impressao em formulario com 45 
linhas .Estou no xp conectado a um servidor linux via putty e quero 
imprimir na impressora epson local, ate ai tudo bem a impressao sai 
perfeita em todos os relatorios. O problema é o seguinte, no 
formulario de 45 linhas que é um pedido nao consigo controlar a 
cabeca de impressao se dou um eject no final do rel ela vai parar la 
em baixo pula uma pagina inteira se não dou ela para antes do picote 
se mando pular umas duas tres linhas ela da o eject e sai tudo fora 
de novo.

No inicio do relatorio informo que o formulario e de 45 linas assim

@ prow()+01,00 say chr(27)+chr(67)+chr(45) 
No final
eject pula uma pagina inteira
ou 
@ prow()+04 ,00 say ""  vai no meio da pagina


Eu jogo o relatorio em um arquivo prn e depois faco 
run ("/bin/ipansi /tmp/"+impressao.prn)

Alguém ja deparou com uma situção dessa ?
Muito obrigado por enquanto !

Res: [delphi-br] Olá Pessoal!!

[Renato Lorandi]

amigo o componente IBUpdateSql do vc usa ele junto com um ibQuey para fazer 
(Updates,Inserts,Drop) etc..., pois so o IBQury sozinho é utilizado apenas para 
fazer select's no banco, então vc coloca um IBQuery + IBUpdateSql e na 
propriedade UpdateSql do IbQuery vc aponta para o IBUpdateSql. Depois vc clica 
com o botão direito no UpdateSql e em UpdateSql editor, vc gera o sql ok... é 
bem simples, se essa era sua duvida...

acho que esta respondida ok...

abraço.


- Mensagem original 
De: Damiao Denilson(ddamy´s) <[EMAIL PROTECTED]>
Para: delphi-br@yahoogrupos.com.br
Enviadas: Segunda-feira, 22 de Janeiro de 2007 18:23:51
Assunto: [delphi-br] Olá Pessoal!!

Olá pessoal!!!

Gostaria de saber se alguem tem como me dizer como se usa o componente do 
delphi UpdateSQL... ?!

Abraços e,
Obrigado!!!

 _ _ _ _ __
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]




__
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]

RE: [delphi-br] Re: impedir o ctrl esc (iniciar)

[Rubem Nascimento da Rocha]

Como eu sempre digo, quem procura acha:

http://www.swissdelphicenter.ch/en/showcode.php?id=1212

Sds.

>From: "Rafael Monico" <[EMAIL PROTECTED]>
>Reply-To: delphi-br@yahoogrupos.com.br
>To: delphi-br@yahoogrupos.com.br
>Subject: [delphi-br] Re: impedir o ctrl esc (iniciar)
>Date: Tue, 23 Jan 2007 00:28:19 -
>
>--- Em delphi-br@yahoogrupos.com.br, "Desenvolvimento \(Anderson\)"
><[EMAIL PROTECTED]> escreveu
> >
> > alguém aí sabe como bloquear o acesso ao iniciar via teclado???
> > obrigado.
> >
> > And
> >
> > [As partes desta mensagem que não continham texto foram removidas]
> >
>
>Não tenho certeza se funciona para essa combinação específica, dá uma
>olhada no setwindowshookex
>
>Obs: o uso da função é complicado, não espere conseguir fazer
>funcionar na primeira nem na segunda vez, se precisar de mais ajuda
>grite :)
>

_
MSN Messenger: converse com os seus amigos online. 
http://messenger.msn.com.br

Res: [delphi-br] Form pelo nome

[Renato Lorandi]

amigo, não sei se entendi direito, mas pelo que eu entendi é so vc passar um 
parameto do tipo TForm, ai vc passa o nome do form e deu


se for isso blz...


- Mensagem original 
De: Adauri Antonio Camacho Junior <[EMAIL PROTECTED]>
Para: delphi-br@yahoogrupos.com.br
Enviadas: Terça-feira, 23 de Janeiro de 2007 8:14:57
Assunto: [delphi-br] Form pelo nome

Bom dia a todos, eu gostaria de chamar o form pelo nome, por exemplo, 
gravo em um campo que o cadastro de cliente é o form FRM_CLIENTE, 
quando chamasse o cadastro de cliente eu passaria o nome do form, eu 
faria o create e o showmodal pelo nome do form. Alguem sabe como fazer 
isso ?

Obrigado

Jr.




__
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] Form pelo nome

[Adauri Antonio Camacho Junior]

Bom dia a todos, eu gostaria de chamar o form pelo nome, por exemplo, 
gravo em um campo que o cadastro de cliente é o form FRM_CLIENTE, 
quando chamasse o cadastro de cliente eu passaria o nome do form, eu 
faria o create e o showmodal pelo nome do form. Alguem sabe como fazer 
isso ?

Obrigado

Jr.

[delphi-br] Re: Problemas com componentes do MySql no Delphi 2006

[Murillo Proença]

Realmente o provider do MySQL está com um bug quando utiliza-se
parametros, mas se vc montar os comandos SQL na mão funciona blzinha.
Tenho um site rodando com ele há uns 6 meses e tá indo muito bem.

Abraço 

Murillo


--- Em delphi-br@yahoogrupos.com.br, Lucas Lima <[EMAIL PROTECTED]>
escreveu
>
> Sim, porém a instalação do provider do MySql deu um erro. Ele
carrega tudo certinho no Data Explorer mas na tela de inicialização do
Delphi 2006 aparece uma mensagem de erro dizendo que foi impossível
carregar o provider do MySql. O nome do componente que instalei é Core
Labs MySql Developer Tools.
>   Com isso, procurei pelo provider .NET no site do MySql e este
instalou corretamente, aparecendo o aba do Mysql na Tool Palete junto
com o commands, connections, etc..
>   Usando estes componentes do MySql o erro não ocorreu, porém mais
pra frente surgiu um outro, e creio que a culpa seja do provider do Mysql.
>   Quando crio um Parâmetro no Command, ele dá erro ao compilar o
progama.
>   O processo de criação e como executar o parâmetro está correto,
pois faço video-aulas e lá dá certo, somente aqui que não.
>   Segue a linha de comando e o erro:
>
>
Self.MySqlCommand1.Parameters.Add(MySql.Data.MySqlClient.MySqlParameter.Create('c'
+
>   'or', System.Data.DbType.&String, 0,
System.Data.ParameterDirection.Input, 
> False, (Byte(0)), (Byte(0)), 'cor',
System.Data.DataRowVersion.Current, 
> nil));
>
>   Erro:
>
>   [Pascal Error] WebForm1.pas(56): E2250 There is no overloaded
version of 'Create' that can be called with these arguments
>   [Pascal Fatal Error] FundamentosADONETCommands.dpr(22): F2063
Could not compile used unit 'WebForm1.pas'
>
>   O que poderia estar acarretando estes problemas ? Seriam os
componente do MySql ?
>
>   Desde já agradeço a ajuda.
> 
> Murillo Proença <[EMAIL PROTECTED]> escreveu:
>   Tentou fazer este mesmo teste utilizando o provider do MySQL?
> 
> --- Em delphi-br@yahoogrupos.com.br, "mestre_skald" 
> escreveu
> >
> > Olá a todos,
> > 
> > Estou tentando fazer uma rotina simples de inclusão, alteração e 
> > exclusão de dados através do ASP.NET, porém sou iniciante nesta área 
> > e estou com uma pequena dúvida.
> > Faço estas rotinas em Delphi 7 e nunca apresentaram problemas. Uso o 
> > MySQL como banco de dados e instruções SQL para as operações.
> > Mas não quer funcionar no Delphi 2006.
> > 
> > Segue o código:
> > 
> > procedure TWebForm1.Button1_Click(sender: System.Object; e: 
> > System.EventArgs);
> > begin
> > bdpConnection1.Open;
> > try
> > BdpCommand1.ExecuteNonQuery();
> > finally
> > BdpConnection1.Close;
> > end;
> > end;
> > 
> > O BdpCommand está configurado corretamente, com o CommandType em Text 
> > e o CommandText correto também.
> > O erro é o seguinte:
> > 
> > Execute failed. 
> > Description: An unhandled exception occurred during the execution of 
> > the current web request. Please review the stack trace for more 
> > information about the error and where it originated in the code. 
> > 
> > Exception Details: Borland.Data.Common.BdpException: Execute failed. 
> > 
> > Source Error: 
> > 
> > 
> > Line 95: bdpConnection1.Open;
> > Line 96: try
> > Line 97: BdpCommand1.ExecuteNonQuery();
> > Line 98: finally
> > Line 99: BdpConnection1.Close;
> > 
> > Na linha 97.
> > 
> > Desde já agradeço a atenção.
> > Abraços.
> >
> 
> 
> 
>  
> 
>  __
> 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]
>