[delphi-br] ClientDataSet1.Assign - Error
Olha soh, estou tentando fazer um assign em tempo de execução de um componente ADOQuery e está dando a seguinte mensagem Cannot assign a TADOQuery to a TclientDataSet Sendo que está conectado o AdoConnection e lincado com o AdoQuery e aberto tbm! ClientDataSet1.Assign(ADOQuery1); Detalhe quando estou trabalhando com o delphi eu posso clicar com o botao direito do mouse sobre o clientdataset e dar um Assign Local Data... e fazer o assign assim, mas se dá de fazer em tempo de design tbm deve dar de fazer em tempo de execução. Alguém conhece ? []'s rafa [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Campos obrigatrios
Bom dia, Utilizo o banco de dados MySQL, e gostaria de saber se tem alguma forma de antes de salvar ou passar p/ outro registro num cadastramento ou alteração o programa avisar que o campo é obrigatório e dar o foco nele ? A maior dúvida é para quando tenho mais uma Table pintada na tela e pressiono o botão Salvar! []s rafa [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
RES: [delphi-br] Re: DELPHI 7 COM MYSQL - ERRO
Entre no dos e digite path Vai aparecer algo assim PATH=C:\Arquivos de programas\Borland\Delphi7\Bin;C:\Arquivos de programas\Borland\Delphi7\Projects\Bpl\;C:\oracle\ora81\bin;C:\Arquivos de programas\Oracle\jre\1.1.7\bin;C:\WINNT\system32;C:\WINNT;C:\WINNT\System32\ Wbem;C:\Arquivos de programas\Symantec\pcAnywhere\;C:\ARQUIV~1\Borland\Delphi6\Bin;C:\ARQUIV~1\B orland\Delphi6\Projects\Bpl;C:\mysql\bin;C:\mysql\;D:\util\componentes\upx12 5w\ E a dll está dentro de c:\mysql\ eu a coloquei ali dentro, então como esse local está no path ele vai ali primeiro a localizar.. pode ser que tenhas mais de uma dll no micro e ele está pegando outra ! _ De: lquinhone [mailto:[EMAIL PROTECTED] Enviada em: terça-feira, 22 de março de 2005 09:42 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Re: DELPHI 7 COM MYSQL - ERRO Onde eu vejo isso? *** --- Em delphi-br@yahoogrupos.com.br, Rafael Stoever [EMAIL PROTECTED] escreveu veja se a dll está correta no path do micro ! On Mon, 21 Mar 2005 15:08:06 -0300, Luis Carlos Quinhone [EMAIL PROTECTED] wrote: Pessoal, tudo bem, estive afastado por um bom tempo... mas estou de volta... Meu problema é o seguinte, estou usando Delphi 7 com MySQL, mas estou com problema na DLL - LIBMYSQL.DLL - quando tento acessá-la dá esse erro - Unable to load LibMySQL.dll Alguém pode me ajudar, já troquei de DLL mas nada, continua dando esse erro Luis Carlos Quinhone - [EMAIL PROTECTED] www.direciona.com.br - [EMAIL PROTECTED] Fones: (65) 625-2319 Cuiabá - MT [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Yahoo! Grupos, um serviço oferecido por: Links do Yahoo! Grupos Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Yahoo! Grupos, um serviço oferecido por: http://br.i1.yimg.com/br.yimg.com/i/br/ads4/2309_lrec_yshopping2.gif http://br.rd.yahoo.com/SIG=12a7fkmrq/M=264105.3931087.6562589.1588051/D=brc lubs/S=2137111264:HM/EXP=626872/A=2361264/R=6/SIG=10v4acpp0/*http:/br.sh opping.yahoo.com/ _ 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] mailto:[EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos Termos http://br.yahoo.com/info/utos.html do Serviço do Yahoo!. [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
RES: [delphi-br] Ultimo campo focado
Blz... Isto resolveu o meu caso !!! valeu _ De: Francisco Thiago [mailto:[EMAIL PROTECTED] Enviada em: quarta-feira, 23 de março de 2005 00:29 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Ultimo campo focado Teoricamente, se você usar um TSpeedButton, ou qqr outro botão que não receba foco, você pode testar o conteúdo do ActiveControl, ou fazer um loop checando se os campos do seu form estão com foco Thiago - Original Message - From: Rafael Stoever [EMAIL PROTECTED] To: delphi-br@yahoogrupos.com.br Sent: Monday, March 21, 2005 10:21 PM Subject: [delphi-br] Ultimo campo focado Tenho como saber qual foi o ultimo campo na tela que foi focado ??? ex.: Sai do campo DBEditCidade p/ o botão Adicionar, mas na programação, fazer com que o programa identifique qual foi o componente focused ? []'s rafa -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Yahoo! Grupos, um serviço oferecido por: http://br.rd.yahoo.com/SIG=12aa93d9d/M=264379.5078783.6203979.1588051/D=brc lubs/S=2137111264:HM/EXP=634555/A=2191897/R=0/SIG=10vqa2grn/*http:/br.di versao.yahoo.com/ http://br.rd.yahoo.com/SIG=12aa93d9d/M=264379.5078783.6203979.1588051/D=brc lubs/S=2137111264:HM/EXP=634555/A=2191897/R=1/SIG=10vqa2grn/*http:/br.di versao.yahoo.com/ São PauloRio de JaneiroCuritibaPorto AlegreBelo Horizonte Brasília _ 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] mailto:[EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos Termos http://br.yahoo.com/info/utos.html do Serviço do Yahoo!. [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Ultimo campo focado
Tenho como saber qual foi o ultimo campo na tela que foi focado ??? ex.: Sai do campo DBEditCidade p/ o botão Adicionar, mas na programação, fazer com que o programa identifique qual foi o componente focused ? []'s rafa -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] DELPHI 7 COM MYSQL - ERRO
veja se a dll está correta no path do micro ! On Mon, 21 Mar 2005 15:08:06 -0300, Luis Carlos Quinhone [EMAIL PROTECTED] wrote: Pessoal, tudo bem, estive afastado por um bom tempo... mas estou de volta... Meu problema é o seguinte, estou usando Delphi 7 com MySQL, mas estou com problema na DLL - LIBMYSQL.DLL - quando tento acessá-la dá esse erro - Unable to load LibMySQL.dll Alguém pode me ajudar, já troquei de DLL mas nada, continua dando esse erro Luis Carlos Quinhone - [EMAIL PROTECTED] www.direciona.com.br - [EMAIL PROTECTED] Fones: (65) 625-2319 Cuiabá - MT [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Yahoo! Grupos, um serviço oferecido por: Links do Yahoo! Grupos Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
RES: [delphi-br] Controlar Licença
/*
Eu fiz um exemplo simples de controle de licença, onde utilizo criptografia
de datas p/ dificultar o acesso.
1. Primeiramente eu gravo a data inicial e final das licenças criptografadas
no banco de dados
2. E daí eu verifico se ele expirou a data.. expirando de alguma forma eu
gravo uma data criptografada lá que não existe '29/02/1991 mas lembrando..
que eu gravo até no código fonte já criptografado.. pois alguém pode abrir o
fonte algum dia.. heheheh
3. E quando expira eu utilizo um usuário LIBERAR e uma senha gerada em tempo
real para liberar uma nova data.
Ex.: HORADATASEMANA;DATAMESANO[DE LIBERACAO] isso criptografado
ESTA FORMA DE CONTROLE É SIMPLES PODE SER QUEBRADO facilmente!
*/
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, DB, MemDS, DBAccess, MyAccess, DateUtils;
type
TForm1 = class(TForm)
function myAbs(i: integer): Integer;
function crypt(str:string):string;
function decrypt(str:string):string;
procedure TravaSistemaChaveInvalida(d:string);
private
{ Private declarations }
public
{ Public declarations }
end;
const chave = 'ABCDEFGHIJLMNOPQR123456789{}##^[EMAIL PROTECTED],;*4521021;
var
Form1: TForm1;
//Função Simples para Criptografar String
function TForm1.crypt(str: string): string;
var
crypted : string;
i,iC : integer;
begin
crypted:='';
for i:=1 to length(str) do begin
iC := i - length(chave);
if (ic0) then iC := i;
crypted := crypted + Chr( myAbs(Ord(str[i]) + Ord(chave[iC])));
end;
Result:=crypted;
end;
// Função Simples para Descriptografar String
function TForm1.decrypt(str: string): string;
var
decrypted: string;
i,iC : integer;
begin
decrypted := '';
for i:=1 to length(str) do begin
iC := i - length(chave);
if (ic0) then iC := i;
decrypted := decrypted + chr(myabs(ord(str[i]) - ord(chave[iC])));
end;
Result := decrypted;
end;
function TForm1.myAbs(i: integer): Integer;
begin
if (i 255) then Result := i - 255
else Result := i;
end;
// Acertando a Data
procedure AcertaPadraoData;
const
arrShortDayNames: array[1..7] of string[3] = ('Dom','Seg','Ter','Qua',
'Qui','Sex','Sab');
arrLongDayNames: array[1..7] of string[15] = ('Domingo','Segunda','Terça',
'Quarta','Quinta','Sexta', 'Sábado');
arrShortMonthNames: array[1..12] of string[3] = ('Jan','Fev','Mar','Abr',
'Mai','Jun','Jul','Ago','Set','Out','Nov','Dez');
arrLongMonthNames: array[1..12] of string[15] = ('Janeiro','Fevereiro',
'Março','Abril','Maio', 'Junho','Julho','Agosto', 'Setembro','Outubro',
'Novembro','Dezembro');
var
ii: integer;
begin
ShortDateFormat := 'dd/mm/';
DecimalSeparator := '.';
ThousandSeparator := ',';
for ii := 1 to 7 do begin
ShortDayNames[ii] := arrShortDayNames[ii];
LongDayNames[ii] := arrLongDayNames[ii];
end;
for ii := 1 to 12 do begin
ShortMonthNames[ii] := arrShortMonthNames[ii];
LongMonthNames[ii] := arrLongMonthNames[ii];
end;
LongTimeFormat:= 'HH:mm:ss';
TimeSeparator:=':';
end;
//Exemplo simples de controle de datas
procedure TForm1.FormCreate(Sender: TObject);
var
ext : string;
begin
AcertaPadraoData;
ext :=
IntToStr(DayOfTheMonth(Now))+'/'+IntToStr(MonthOfTheYear(Now))+'/'+IntToStr(
YearOf(Now));
try
if (StrToDate(ext) StrToDate(decrypt(MyTable1CHAVEINI.AsString))) then
begin
TravaSistemaChaveInvalida('29/02/1991');
end;
if (StrToDate(ext) StrToDate(decrypt(MyTable1CHAVEEND.AsString))) then
begin
TravaSistemaChaveInvalida('29/02/1991');
end;
except
TravaSistemaChaveInvalida('29/02/1991');
end;
end;
procedure TForm1.TravaSistemaChaveInvalida(d:string);
begin
MyTable1.Edit;
MyTable1CHAVEINI.AsString := crypt(d);
MyTable1CHAVEEND.AsString := crypt(d);
MyTable1.Post;
MyTable1.ApplyUpdates;
MyTable1.CommitUpdates;
MyTable1.Connection.Commit;
ShowMessage('Erro ao entrar no sistema, verifique a data de sua licença
!');
try
Application.Terminate;
except
end;
end;
_
De: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]
Enviada em: terça-feira, 15 de março de 2005 13:22
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Controlar Licença
Não estou conseguindo encontrar...
- Original Message -
From: Rubem Rocha
To: delphi-br@yahoogrupos.com.br
Sent: Tuesday, March 15, 2005 12:12 PM
Subject: RES: [delphi-br] Controlar Licença
Se bem me lembro, no site da revista ClubeDelphi deve ter um exemplo de
licenciamento de aplicação. Bem simples, mas muito bom! Agora, só procurando
lá, pq eu num lembro do endereço!
[]s
-Mensagem original-
De: easywaysistemas [mailto:[EMAIL PROTECTED]
Enviada em: terça-feira, 15 de março de 2005 10:02
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Controlar
RES: [delphi-br] Controlar Licença
/*
Eu fiz um exemplo simples de controle de licença, onde utilizo
criptografia de datas p/ dificultar o acesso.
1. Primeiramente eu gravo a data inicial e final das licenças
criptografadas no banco de dados
2. E daí eu verifico se ele expirou a data.. expirando de alguma forma
eu gravo uma data criptografada lá que não existe '29/02/1991' mas
lembrando.. que eu gravo até no código fonte já criptografado.. pois
alguém pode abrir o fonte algum dia.. heheheh
3. E quando expira eu utilizo um usuário LIBERAR e uma senha gerada em
tempo real para liberar uma nova data.
Ex.: HORADATASEMANA;DATAMESANO[DE LIBERACAO] isso criptografado
ESTA FORMA DE CONTROLE É SIMPLES PODE SER QUEBRADO facilmente!
*/
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, DB, MemDS, DBAccess, MyAccess, DateUtils;
type
TForm1 = class(TForm)
function myAbs(i: integer): Integer;
function crypt(str:string):string;
function decrypt(str:string):string;
procedure TravaSistemaChaveInvalida(d:string);
private
{ Private declarations }
public
{ Public declarations }
end;
const chave = 'ABCDEFGHIJLMNOPQR123456789{}##^[EMAIL PROTECTED],;*4521021';
var
Form1: TForm1;
//Função Simples para Criptografar String
function TForm1.crypt(str: string): string;
var
crypted : string;
i,iC : integer;
begin
crypted:='';
for i:=1 to length(str) do begin
iC := i - length(chave);
if (ic0) then iC := i;
crypted := crypted + Chr( myAbs(Ord(str[i]) + Ord(chave[iC])));
end;
Result:=crypted;
end;
// Função Simples para Descriptografar String
function TForm1.decrypt(str: string): string;
var
decrypted: string;
i,iC : integer;
begin
decrypted := '';
for i:=1 to length(str) do begin
iC := i - length(chave);
if (ic0) then iC := i;
decrypted := decrypted + chr(myabs(ord(str[i]) - ord(chave[iC])));
end;
Result := decrypted;
end;
function TForm1.myAbs(i: integer): Integer;
begin
if (i 255) then Result := i - 255
else Result := i;
end;
// Acertando a Data
procedure AcertaPadraoData;
const
arrShortDayNames: array[1..7] of string[3] =
('Dom','Seg','Ter','Qua', 'Qui','Sex','Sab');
arrLongDayNames: array[1..7] of string[15] =
('Domingo','Segunda','Terça', 'Quarta','Quinta','Sexta', 'Sábado');
arrShortMonthNames: array[1..12] of string[3] =
('Jan','Fev','Mar','Abr',
'Mai','Jun','Jul','Ago','Set','Out','Nov','Dez');
arrLongMonthNames: array[1..12] of string[15] =
('Janeiro','Fevereiro', 'Março','Abril','Maio',
'Junho','Julho','Agosto', 'Setembro','Outubro',
'Novembro','Dezembro');
var
ii: integer;
begin
ShortDateFormat := 'dd/mm/';
DecimalSeparator := '.';
ThousandSeparator := ',';
for ii := 1 to 7 do begin
ShortDayNames[ii] := arrShortDayNames[ii];
LongDayNames[ii] := arrLongDayNames[ii];
end;
for ii := 1 to 12 do begin
ShortMonthNames[ii] := arrShortMonthNames[ii];
LongMonthNames[ii] := arrLongMonthNames[ii];
end;
LongTimeFormat:= 'HH:mm:ss';
TimeSeparator:=':';
end;
//Exemplo simples de controle de datas
procedure TForm1.FormCreate(Sender: TObject);
var
ext : string;
begin
AcertaPadraoData;
ext :=
IntToStr(DayOfTheMonth(Now))+'/'+IntToStr(MonthOfTheYear(Now))+'/'+IntToStr(YearOf(Now));
try
if (StrToDate(ext)
StrToDate(decrypt(MyTable1CHAVEINI.AsString))) then begin
TravaSistemaChaveInvalida('29/02/1991');
end;
if (StrToDate(ext)
StrToDate(decrypt(MyTable1CHAVEEND.AsString))) then begin
TravaSistemaChaveInvalida('29/02/1991');
end;
except
TravaSistemaChaveInvalida('29/02/1991');
end;
end;
procedure TForm1.TravaSistemaChaveInvalida(d:string);
begin
MyTable1.Edit;
MyTable1CHAVEINI.AsString := crypt(d);
MyTable1CHAVEEND.AsString := crypt(d);
MyTable1.Post;
MyTable1.ApplyUpdates;
MyTable1.CommitUpdates;
MyTable1.Connection.Commit;
ShowMessage('Erro ao entrar no sistema, verifique a data de sua licença !');
try
Application.Terminate;
except
end;
end;
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
[delphi-br] Cannot access field 'CAMPO' as type text
O meu campo na tabela é um varchar(200) mas o field na tela é um TDBEdit e na hora de rodar o programa está aparecendo um (MEMO) no campo, onde q se eu for editar ele dá o erro mencionado acima Cannot access field 'CAMPO' as type text, como posso resolver isso ??? Valeu []'s .rafa -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
RES: [delphi-br] Acesso a Mysql
Utilize o MyDAC da CoreLab, é mto bom ! http://www.crlab.com/ Ou Zeos... mas particularmente, não utilizei; p/ obter mais informações busque algumas mensagens antigas ! []'s rafa -Mensagem original- De: Listas Jades [mailto:[EMAIL PROTECTED] Enviada em: sábado, 12 de fevereiro de 2005 01:13 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Acesso a Mysql Caros amigos Tenho uma pequena duvida e estou contando com a juda de vcs, para me socorrerem. O seguinte: tenho que acessar um banco de dados Mysql, em um servidor, mas nao quero ter que instalar o driver ODBC en cada maquina q eu for istalar o meu programa, de que forma posso fazer para acessar o Mysql? ou como faço para compilar o Driver ODBC junto com o programa. Grato Jades -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Table.UpdatesPending
Ae estou querendo que o applyUpdates sejá executado, mas como não dei um
post na tabela ela não fica pendente..
Eu antes disto tenho q dar um tabela.post ? ou teria algum outro tipo de
consolidação da tabela p/ eu dar um updatespending ??? sei q ir p/ frente e
voltar funciona tbm... mas gostaria de uma forma mais simples e fácil !
if (Tabela.UpdatesPending) then begin
Tabela.ApplyUpdates;
end;
valeu ae
.Rafael Stoever
.Developer/Designer
.rstoever.com - Blumenau/SC
. http://www.rstoever.com http://www.rstoever.com -
mailto:[EMAIL PROTECTED] [EMAIL PROTECTED]
function Stoever (){
if (estudo + dedicacao == quot;sucessoquot;) return quot;Oba! Tô
salvoquot;;
else return quot;Xiii, tô ferradoquot;;
}
[As partes desta mensagem que não continham texto foram removidas]
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
[delphi-br] Como relacionar mais de uma tabela no delphi ?
Ae pessoal.. estou com uma dúvida em relação de um cadastro e/ou consulta que estou desenvolvendo : [DB = MySQL] CREATE TABLE ESTADO ( CODIGO INTEGER(5) UNSIGNED NOT NULL AUTO_INCREMENT, UF CHAR(2) NULL, ESTADO VARCHAR(150) NULL, PRIMARY KEY(CODIGO) ) TYPE=InnoDB; INSERT INTO ESTADO VALUES (1,'SC','SANTA CATARINA'), (2,'PR','PARANÁ'), (3,'SP','SÃO PAULO'), (4,'RJ','RIO DE JANEIRO'); CREATE TABLE CIDADE ( CODIGO INTEGER(5) UNSIGNED NOT NULL AUTO_INCREMENT, ESTADO INTEGER(5) UNSIGNED NOT NULL, CIDADE VARCHAR(150) NULL, PRIMARY KEY(CODIGO), INDEX CIDADE_FKIndex1(ESTADO), FOREIGN KEY(ESTADO) REFERENCES ESTADO(CODIGO) ON DELETE CASCADE ON UPDATE CASCADE ) TYPE=InnoDB; INSERT INTO CIDADE (ESTADO,CIDADE) VALUES (1,'BLUMENAU'), (1,'TIMBÓ'), (1,'INDAIAL'), (3,'SÀO PAULO'), (3,'SÃO BERNADO DO CAMPO'), (2,'CURITIBA'), (4,'RIO DE JANEIRO'); CREATE TABLE CLIENTE ( CODCLIENTE INTEGER(5) UNSIGNED NOT NULL AUTO_INCREMENT, ESTADO_DOCTO INTEGER(5) UNSIGNED NOT NULL, CIDADE_NASCIMENTO INTEGER(5) UNSIGNED NOT NULL, CIDADE_RESIDENTE INTEGER(5) UNSIGNED NOT NULL, NOMECLIENTE VARCHAR(150) NULL, DTNASCIMENTO DATE NULL, ATIVO BOOL NULL, PRIMARY KEY(CODCLIENTE), INDEX CLIENTE_FKIndex1(CIDADE_NASCIMENTO), INDEX CLIENTE_FKIndex2(CIDADE_RESIDENTE), INDEX CLIENTE_FKIndex3(ESTADO_DOCTO), FOREIGN KEY(CIDADE_NASCIMENTO) REFERENCES CIDADE(CODIGO) ON DELETE RESTRICT ON UPDATE CASCADE, FOREIGN KEY(CIDADE_RESIDENTE) REFERENCES CIDADE(CODIGO) ON DELETE RESTRICT ON UPDATE CASCADE, FOREIGN KEY(ESTADO_DOCTO) REFERENCES ESTADO(CODIGO) ON DELETE RESTRICT ON UPDATE CASCADE ) TYPE=InnoDB; Eu fiz esse pequeno exemplo ai.. pois tenho mais de um relacionamento com a tabela de cliente, sendo que é somente a tabela de cidade, onde a pessoa informa a cidade onde nasceu e a cidade onde reside. Mas lá no DataModule, tenho como fazer esse relacionamento ??? Como ? Estou usando MySQL Access(MyDAC). Eu utilizo o MasterSource p/ dizer de onde vem os parametros que mencionei no SQL. Como deveria fazer ??? Ali nesse caso tbm se relaciona o estado do documento do cliente, q tbm está relacionado como faria isso tbm ?? Se alguém pudesse me mandar um exemplo p/ me mostrar como fazer esse relacionamento com um componente do interbase/Firebird qualquer um, que é tudo meio parecido mesmo, eu agradeceria []'s rafa -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Comparar XML's
Olá ... alguém sabe alguma rotina fácil de comparação de estruturas de um arquivo xml ? -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Pegar conteudo dos campos que estão na tela
Primeiramente, é que irei fazer funções que tratem algumas funções básicas
para facilitar uma busca por like no banco, por exemplo.
.Rafael Stoever .Suporte/Desenvolvimento
- Original Message -
From: Rubem Rocha [EMAIL PROTECTED]
To: delphi-br@yahoogrupos.com.br
Sent: Saturday, January 22, 2005 12:38 PM
Subject: RES: [delphi-br] Pegar conteudo dos campos que estão na tela
Pq gastar tempo pegando os dados dos componentes se poderia simplesmente
pegar os dados direto do dataset?
Não entendo pq disso!
[]s
-Mensagem original-
De: Márcio Theis [mailto:[EMAIL PROTECTED]
Enviada em: sexta-feira, 21 de janeiro de 2005 10:56
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Pegar conteudo dos campos que estão na tela
vc pode acessar da seguinte forma?
(form1.Components[i] as TEdit).Text
- Original Message -
From: Rafael Stoever [EMAIL PROTECTED]
To: delphi-br@yahoogrupos.com.br
Sent: Friday, January 21, 2005 11:27 AM
Subject: [delphi-br] Pegar conteudo dos campos que estão na tela
eu tenho alguns campos TDBEdit e outros no form, e gostaria de fazer
uma rotina que pegasse o conteudo dos componentes.. bom, eu consigo
achar os componentes.. agora como faço p/ pegar o valor do TEXT dos
campos TDBEdit
?
for i:=0 to form1.ComponentCount-1 do begin
if form1.Components[i] is TDBEdit then begin
ShowMessage('Achou um TDBEdit -'+ Form1.Components[i].Name);
end;
if form1.Components[i] is TDBCheckBox then begin
ShowMessage('Achou um TDBCheckBox -'+ Form1.Components[i].Name);
end;
end;
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED]
ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
---
Incoming mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.799 / Virus Database: 543 - Release Date: 19/11/2004
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
[delphi-br] Pegar conteudo dos campos que estão na tela
eu tenho alguns campos TDBEdit e outros no form, e gostaria de fazer uma
rotina que pegasse o conteudo dos componentes.. bom, eu consigo achar os
componentes.. agora como faço p/ pegar o valor do TEXT dos campos TDBEdit ?
for i:=0 to form1.ComponentCount-1 do begin
if form1.Components[i] is TDBEdit then begin
ShowMessage('Achou um TDBEdit -'+ Form1.Components[i].Name);
end;
if form1.Components[i] is TDBCheckBox then begin
ShowMessage('Achou um TDBCheckBox -'+ Form1.Components[i].Name);
end;
end;
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
[delphi-br] Campos alterados antes de sair Salvar[S/N]
Ae pessoal, Estou fazendo uma alteração numa tabela por transação, gostaria de saber se tenho como saber se foi alterado algum campo na tela ou não.. por exemplo: chamo um registro para tela, para alteracao e este nao foi feito nenhuma alteracao, e o usuário quer sair da tela.. dai iria perguntar se deseja salvar antes de sair.. caso tenha feito alteracao senao.. fecha sem pedir isso... tem como ? -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Campos alterados
Ae pessoal, Estou fazendo uma alteração numa tabela por transação, gostaria de saber se tenho como saber se foi alterado algum campo na tela ou não.. por exemplo: chamo um registro para tela, para alteracao e este nao foi feito nenhuma alteracao, e o usuário quer sair da tela.. dai iria perguntar se deseja salvar antes de sair.. caso tenha feito alteracao senao.. fecha sem pedir isso... tem como ? -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] TAB que não funciona
Olha soh .. fiz um exemplo do q está acontecendo.. e o que percebi é q qdo
preciono o TAB o Tab está no form pai e nao neste filho q criei.
Sds
.Rafael Stoever .Desenvolvimento
- Original Message -
From: rstoever [EMAIL PROTECTED]
To: [EMAIL PROTECTED]
Sent: Wednesday, November 03, 2004 1:02 AM
Subject: [delphi-br] TAB que não funciona
Eu estou com um problema... criei um form dentro de uma DLL e qdo
executado o [TAB] para pular de campo a campo nao está funcionando..
parece q o tabstop está false para todos os campos.. ou taborder
errado.. algo assim.. mas nao ... estão tudo ok.. pois se coloco o
taborder para um campo q está no final do form.. qdo abre o mesmo
está setado naquele q indiquei no source.
Mas depois disto nao funciona mais...
essa é a procedure q utilizo para abrir o form.. e detalhe.. tenho q
informar o tamanho do form em tempo de execução pois ele tbm parece q
perde essas caracteristicas de qdo estava programando.
Procedure ShowFormDCAD00301
(PParentApplication:TApplication;PParentForm:Tform);export;stdcall;
var
DllProc : Pointer;
begin
try
Application:=PParentApplication;
FCAD00301 := TFCAD00301.Create(PParentForm);
with FCAD00301 do begin
MyParentForm:=PParentForm;
MyParentApplication:=PParentApplication;
if (PParentForm.FormStyle = fsMDIForm) then begin
FormStyle := fsMDIChild;
end;
Width := 424;
Height := 204;
Constraints.MaxWidth := Width;
Constraints.MinWidth := Width;
Constraints.MaxHeight := Height;
Constraints.MinHeight := Height;
Visible := true;
MyConnection1.Connected := true;
MyConnection1.StartTransaction;
Show;
end;
except
on E : exception do begin
ShowMessage('Error ao
carregar '+Application.Name+#13+e.Message);
end;
end;
end;
Alguém poderia me dar uma ajuda com isso ??? pois isso é péssimo p/ o
cliente.. ter q mudar tudo no mouse.
valeu !
.rafa
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
[As partes desta mensagem que não continham texto foram removidas]
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
Re: [delphi-br] TAB que não funciona
O arquivo não foi em anexo mas estou colocando o fonte neste link
http://www.rstoever.com/download/teste02.zip
.Rafael Stoever .Desenvolvimento
- Original Message -
From: Rafael Stoever [EMAIL PROTECTED]
To: [EMAIL PROTECTED]
Sent: Friday, November 05, 2004 9:07 AM
Subject: Re: [delphi-br] TAB que não funciona
Olha soh .. fiz um exemplo do q está acontecendo.. e o que percebi é q qdo
preciono o TAB o Tab está no form pai e nao neste filho q criei.
Sds
.Rafael Stoever .Desenvolvimento
- Original Message -
From: rstoever [EMAIL PROTECTED]
To: [EMAIL PROTECTED]
Sent: Wednesday, November 03, 2004 1:02 AM
Subject: [delphi-br] TAB que não funciona
Eu estou com um problema... criei um form dentro de uma DLL e qdo
executado o [TAB] para pular de campo a campo nao está funcionando..
parece q o tabstop está false para todos os campos.. ou taborder
errado.. algo assim.. mas nao ... estão tudo ok.. pois se coloco o
taborder para um campo q está no final do form.. qdo abre o mesmo
está setado naquele q indiquei no source.
Mas depois disto nao funciona mais...
essa é a procedure q utilizo para abrir o form.. e detalhe.. tenho q
informar o tamanho do form em tempo de execução pois ele tbm parece q
perde essas caracteristicas de qdo estava programando.
Procedure ShowFormDCAD00301
(PParentApplication:TApplication;PParentForm:Tform);export;stdcall;
var
DllProc : Pointer;
begin
try
Application:=PParentApplication;
FCAD00301 := TFCAD00301.Create(PParentForm);
with FCAD00301 do begin
MyParentForm:=PParentForm;
MyParentApplication:=PParentApplication;
if (PParentForm.FormStyle = fsMDIForm) then begin
FormStyle := fsMDIChild;
end;
Width := 424;
Height := 204;
Constraints.MaxWidth := Width;
Constraints.MinWidth := Width;
Constraints.MaxHeight := Height;
Constraints.MinHeight := Height;
Visible := true;
MyConnection1.Connected := true;
MyConnection1.StartTransaction;
Show;
end;
except
on E : exception do begin
ShowMessage('Error ao
carregar '+Application.Name+#13+e.Message);
end;
end;
end;
Alguém poderia me dar uma ajuda com isso ??? pois isso é péssimo p/ o
cliente.. ter q mudar tudo no mouse.
valeu !
.rafa
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
[As partes desta mensagem que não continham texto foram removidas]
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
Re: [delphi-br] Delphi 7 + MySQL
tens q ter o libmysql.dll no path do seu programa esse libmysql tem as funcoes para cone~xão e outros do mysql. .Rafael Stoever .Desenvolvimento - Original Message - From: lixeirod [EMAIL PROTECTED] To: [EMAIL PROTECTED] Sent: Friday, November 05, 2004 4:10 PM Subject: [delphi-br] Delphi 7 + MySQL Olá! Estou tentando criar uma aplicação em Delphi 7 para comunicar com um banco MySQL que está hospedado remotamente na internet. Estou utilizando o componente SQLConnection1(dbExpress) para a coneção. A princípio coloquei os dados todos corretos. Host, banco, usuario, senha. Ele retonava um erro que não foi possível achar LIBMYSQL.DLL. Baixei essa DLL e coloquei na pasta da aplicação. Problema resolvido. Mas quando tento conectar o componente (Connected := True) ele agora retorna o seguinte erro: dbExpress Error: Invalid Username/Password, sendo que eu tenho certeza que usuario e senha estão corretos. Alguém já teve esse problema ou sabe como resolver e poderia me ajudar? Valeu! -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Re: Delphi 7 + MySQL
essa dll tem q ser compativel com o seu cliente mysql mesma versao .Rafael Stoever .Desenvolvimento - Original Message - From: lixeirod [EMAIL PROTECTED] To: [EMAIL PROTECTED] Sent: Friday, November 05, 2004 4:26 PM Subject: [delphi-br] Re: Delphi 7 + MySQL Sim, esse eu já coloquei ... Depois disso que deu o erro! []'s --- Em [EMAIL PROTECTED], Rafael Stoever [EMAIL PROTECTED] escreveu tens q ter o libmysql.dll no path do seu programa esse libmysql tem as funcoes para cone~xão e outros do mysql. .Rafael Stoever .Desenvolvimento - Original Message - From: lixeirod [EMAIL PROTECTED] To: [EMAIL PROTECTED] Sent: Friday, November 05, 2004 4:10 PM Subject: [delphi-br] Delphi 7 + MySQL Olá! Estou tentando criar uma aplicação em Delphi 7 para comunicar com um banco MySQL que está hospedado remotamente na internet. Estou utilizando o componente SQLConnection1(dbExpress) para a coneção. A princípio coloquei os dados todos corretos. Host, banco, usuario, senha. Ele retonava um erro que não foi possível achar LIBMYSQL.DLL. Baixei essa DLL e coloquei na pasta da aplicação. Problema resolvido. Mas quando tento conectar o componente (Connected := True) ele agora retorna o seguinte erro: dbExpress Error: Invalid Username/Password, sendo que eu tenho certeza que usuario e senha estão corretos. Alguém já teve esse problema ou sabe como resolver e poderia me ajudar? Valeu! -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Será que dá ? Form no dll inherited
Bom... isso nem sei se é possivel, mas vamos ver no q vai dar ! Eu estou fazendo algumas telas dentro de DLL's, e gostaria de saber se tenho como herdar caracteristicas de tela.. como botões e outros tbm nesta tela.. mas detalhe, herdar isto tudo de outra Unit, q não está no projeto. .Rafael Stoever .Desenvolvimento [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Fechar form
valeu era isso mesmo q eu queria .Rafael Stoever .Desenvolvimento - Original Message - From: Vinicius Mommensohn [EMAIL PROTECTED] To: [EMAIL PROTECTED] Sent: Thursday, October 28, 2004 12:16 AM Subject: Re: [delphi-br] Fechar form Eu não lembro qual eh o numero do cancelar (do sim se eu naum me engano é 6) mas é só vc colocar algo do tipo: Ao invez de colocar a pergunta no Onclose, coloque-a no evento OnCloseQuery (assim dá para negar o fechamento da tela). Se a resposta da pergunta for o Cancel, faça: If messagebox. = Cancel then begin // não lembro da string inteira CanClose := false; end; Isso fará com que a janela não se feche! :) Espero que isto te ajude, []s Vinicius - Original Message - From: rstoever To: [EMAIL PROTECTED] Sent: Thursday, October 28, 2004 2:05 AM Subject: [delphi-br] Fechar form Estou com um FORM - formstyle = fsMDIChild e é um form de cadastro, mas estou inserindo algumas informacoes.. mas antes do usuário fechar a tela eu verifico se ele alterou as informacoes... bom... no onclose do form coloquei algumas verificaçoes deste tipo e aquela pergunta tradicional Desejas salvar as informações alteradas ?[S/N/C] Caso eu informe Cancelar, a janela nao é p/ fechar, e sim ficar ali.. normal mas como é um form filho, ele miniza na aplicaçao, como faço p/ ela ficar ainda ali sem fechar, sem salvar, sem nada valeu ai .rafa -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Yahoo! Grupos, um serviço oferecido por: PUBLICIDADE Links do Yahoo! Grupos a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] 3 Camadas
[Linux] Banco de dados Servidor Web - PHP com acesso ao banco [Windows] Aplicação Delphi com acesso WEB No servidor de Web podes criar consultas ou cadastramentos conforme solicitações de sua aplicação delphi, para interagir utilize XML entre as aplicações (PHP e Delphi) [ Linux - WEB - User ] BD - PHP - XML - Delphi .Rafael Stoever .Desenvolvimento - Original Message - From: emerson [EMAIL PROTECTED] To: [EMAIL PROTECTED] Sent: Wednesday, October 27, 2004 6:36 AM Subject: [delphi-br] 3 Camadas Como devo proceder para fazer uma aplicação 3 camadas com o Bco no Linux. o Data Module Remoto tem necessariamente que ficar em Windows. [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Vaga PHP BH
Cadastre no http://www.ceviu.com []'s .Rafael Stoever .Desenvolvimento - Original Message - From: Walter Alves Chagas Junior [EMAIL PROTECTED] To: [EMAIL PROTECTED] Sent: Wednesday, October 27, 2004 10:56 AM Subject: RES: [delphi-br] Vaga PHP BH Ricardo, poste esta mensagem também na lista delphi-empregos [EMAIL PROTECTED] []s Walter Alves Chagas Junior Projeto e desenvolvimento Telemont Engenharia [EMAIL PROTECTED] Fone: (31) 3389-8215 Fax: (31) 3389-8200 -Mensagem original- De: Ricardo de Souza [mailto:[EMAIL PROTECTED] Enviada em: quarta-feira, 27 de outubro de 2004 10:41 Para: [EMAIL PROTECTED] Assunto: [delphi-br] Vaga PHP BH Estamos contratando programador PHP/MySql com experiência em webdesign. Interessados deverão enviar CV com pretensão salarial e portifólio. A vaga é para BH - Região de Venda Nova. Atenciosamente, Ricardo Souza -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Descrever em 2 linhas
if (lenght(campo) limite) primeiralinha := copy(campo,1,limite); segundalinha := copy(campo,limite,(lenght(campo))); // claro.. aqui na segunda linha podes tratar melhor mas seria +/- isso. end; .Rafael Stoever .Desenvolvimento - Original Message - From: Charlles Ferdinand [EMAIL PROTECTED] To: Delphi-Br [EMAIL PROTECTED] Sent: Wednesday, October 27, 2004 1:00 PM Subject: [delphi-br] Descrever em 2 linhas Pessoal tenho um relatorio no Qreport, mas acontece que um dos campos é para trazer a descrição de um bem patrimonial, só que esta descrição é muito grande e teria que continuar numa segunda linha, como acontece por exemplo no excel, tem aquele retorno automatico de texto, e o que não cabe na mesma linha joga para linha de baixo. Alguem sabe como se tem jeito de fazer isto? Abraços. Charlles Ferdinand Analista Contábil Tel.: (22) 2622-9739 [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] [OFF-TOPIC]Profissões
Aceitaria tbm receber []'s .Rafael Stoever .Desenvolvimento - Original Message - From: Sil-jo Evsan [EMAIL PROTECTED] To: [EMAIL PROTECTED] Sent: Tuesday, October 26, 2004 4:36 PM Subject: [delphi-br] [OFF-TOPIC]Profissões Olá pessoal blz!? Desculpe pelo off! Seguinte gostaria de saber se alguém possui uma listagem (em banco de dados, txt...) com vários tipos de profissões? caso possua pode mandar em pvt para o meu e-mail ou mande o link onde eu possa conseguir. [EMAIL PROTECTED] Desde já agradeço a toda e qualquer ajuda. -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Control Panel Application
Em q se utiliza esse item no Delphi ?? []'s .Rafael Stoever .Desenvolvimento -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] alterar a cor do focus
Não teria algum componente ou sei lá... um jeito mais prático de trabalhar com um edit da seguinte forma qdo focado no campo(qualquer) marcar com uma outra cor, e qdo fora retornar a cor inicial. []'s .Rafael Stoever .Desenvolvimento -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] DBLookupComboBox
como faço p/ puxar um valor q já está listado no combo ??? Ex.: Dentro do combobox já estão listados os itens, mas não está setado nenhum item p/ o cliente gostaria de fazer como buscar um item desta lista p/ visualização do cliente. flw .Rafael Stoever .Desenvolvimento -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] instalacao do mysql no windows 2000
é soh instalar ele .. q ele já faz isso .Rafael Stoever .Desenvolvimento - Original Message - From: bene20032004 [EMAIL PROTECTED] To: [EMAIL PROTECTED] Sent: Tuesday, October 05, 2004 8:02 PM Subject: [delphi-br] instalacao do mysql no windows 2000 Pessoal, como faço para instalar o mysql como sendo um serviço do windows 2000 ? Desde ja muito obrigado ! -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Sort em ListView
Ae galera, Precisava saber como fazer um sort de um listview, mas não de clicar na coluna e dai fazer o sort. (*Procedure que faz Sort das colunas, no onclick da coluna*) procedure TFcompara.ListView1ColumnClick(Sender: TObject; Column: TListColumn); begin if Column.Index = LastSortedColumn then Ascending := not Ascending else LastSortedColumn := Column.Index; TListView(Sender).CustomSort(@SortByColumn, Column.Index); end; [Codigo]|[Nome ]|[MesNiver] - Procedure ListView1ColumnClick(Sender: TObject; Column: TListColumn); 01 | Rafael | Junho 02 | Maria | Janeiro 03 | José| Outubro 04 | Ronaldo | Agosto 05 | Antonio | Fevereiro Eu já tenho isto no meu listview e quero processar essas informações.. mas para q funcione o meu processo, preciso antes de executar o listview tem q estar em ordem de MesNiver, independete do sort q ele tinha dado anteriormente no ColumnClick. A listagem p/ execução tem q comecar sempre de Janeiro p/ Dezembro. Obs 2.: tem como dar um sort de duas colunas ??? Valeu ai galera. Sds Rafael Stoever [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
