Jhonas

José ... a unica diferença entre o Random Values e a query, é que no random os valores são gerados aleatoriamente e na query não .... veja se voce esta usando o componente certo .... o TDBChart e não o TChart este componente esta na paleta Data Controls ( DBChart1 ) eu uso este componente com query sem problemas abraço

Usuário Logado function GetUserName:string; var Nome: array[0..64] of char; begin if DbiGetNetUserName(Nome) DBIERR_NONE then Nome:=''; Result:=StrPas(Nome); end; Endereço de outras informações que poderão ser uteis para voce neste assunto: http://www.webmundi.com/delphi/dfuncaof.asp?SubTipo=Rede abraço

essa é a mensagem que o delphi te dá ( em ingles ) quando um erro gera uma exceção e voce esta rodando o seu programa em ambiente delphi, mesmo que voce tenha um tratamento para este erro.... mas quando voce roda o programa fora do ambiente dephi, e tem esse tratamento do erro, ai a mensagem sera dada pelo seu programa e não pelo delphi. se voce rodar o exemplo ( somente o Programa executavel ) que te passei fora do delphi, vera que a mensagem sera a do programa e não do delphi. abraço

Colegas onde estou errando nesse código procedure TForm1.GridDrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState); begin CarregarGrid; /// Esta chamada esta errada, não deve ser feita aqui if (ACol = Coluna) and (ARow = Linha) then Grid.Canvas.Brush.color := clBlue; Grid.canvas.fillRect(Rect); Grid.Canvas.TextRect(Rect, Rect.Left, Rect.Top,Grid.Cells[Coluna, Linha]); end; OBS: no evento GridDrawCell voce esta fazendo uma chamada a uma procedure ou função ( essa chamada não funciona ) por isso quando voce coloca os valores manualmente funciona; Se voce perceber, a cada chamada somente um valor sera retornado ( o primeiro registro), mesmo que voce tenha mais de um registro Forma correta : var : integer; with qryAuxiliar do begin Close; SQL.Clear; SQL.Add('Select de_Coluna, de_Linha, de_Cor From Tab_Grid'); Open; end; if qryAuxiliar.RecordCount > 0 then begin for i := 1 to qryAuxiliar.RecordCount do // aqui voce consegue trazer todos os registros da query begin Coluna:= qryAuxiliar.FieldByName('de_Coluna').AsInteger; Linha:= qryAuxiliar.FieldByName('de_Linha').AsInteger; qryAuxiliar.Next; end; end; se esta chamada estiver num botao por exemplo, voce vai perceber que a cada registro lido, o evento GridDrawCell refletirá os valores lidos da query defina as variaveis coluna e linha como publicas abraço

Só para que outros possam entender o que é Serviço de depuração Common Language Runtime OBS: Supondo que voce consegue rodar o programa na sua maquina, esse erro pode ser em virtude, de no outro computador, voce não ter instalado junto com o programa as bibliotecas ( dlls ) do delphi.net. entretanto se voce tem instalado no micro: -------------------------------------------------------------------------------- • Microsoft .NET Framework 1.0 • Microsoft .NET Framework 1.1 • Microsoft .NET Framework Class Libraries 1.0 • Microsoft .NET Framework Class Libraries 1.1 A Microsoft confirmou que este é um bug nos produtos listados. abraço

unit UData; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Edit1: TEdit; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.DFM} function tbStrIsDate(const S: string): boolean; begin try StrToDate(S); Result := true; except Result := false; end; end; procedure TForm1.Button1Click(Sender: TObject); begin if tbStrIsDate(Edit1.Text) then ShowMessage(Edit1.Text + ' é data válida.') else ShowMessage(Edit1.Text + ' NÃO é data válida.'); end; end. OBS: Se rodar o programa em ambiente delphi, a exceção será respondida pelo delphi , mas se rodar o programa sem o delphi, a mensagem será dada pelo programa abraço

Amigo .. o Jedi VCL é uma biblioteca sobre de 600 componentes de Delphi desenvolvidos pelo " Projeto JEDI" membros.。 Só uma coisa que você DEVE prestar atenção. Quando se instala o Jedi VCL o utilitário de instalação detecta quais versões do Delphi estão na máquina e permite selecionar para qual versão você quer instalar a JEDI. (D5, D6, D7, D2006 ...) acho que voce não esta usando a versão correta do JEDI para o delphi que esta instalado no seu micro, entretanto devo lembrar, que se voce tiver instalado na sua maquina mais de uma versão do delphi, com certeza voce vai ter muitas dores de cabeça ... pode dar muitos problemas OBS: porque voce não faz dowload somente dos componentes que voce realmente precisa usar ? abraço

No proprio delphi tem exemplos, na pasta demos, mas vou colocar outras fontes de informação a respeito C:\Arquivos de programas\Borland\Delphi5\Demos\TeeChart [delphi5] C:\Arquivos de programas\Borland\Delphi6\Demos\TeeChart [delphi6] C:\Arquivos de programas\Borland\Delphi7\Demos\TeeChart [delphi7] http://imasters.uol.com.br/artigo/3872/del...o_com_graficos/ Criação de gráficos com dbChart Passo a Passo http://www.devmedia.com.br/articles/viewco...omp=502&hl= http://br.geocities.com/valdoedri/dbchart.pdf http://wpslive.pearsoncmg.com/wps/media/ob...%20Graficos.pdf abraço

Colega ... va no menu do delphi em Component e clique na opção Install Packages e verifique se existe a referencia do componente que voce instalou, ele pode estar la, mas não estar com o checbox marcado. Caso não exista nem a referencia da instalação, sugiro tentar reintala-lo novamente e ver o que acontece ... abraço

Oi amigo ... não precisa .... vou ajudar no que estiver ao meu alcançe ... valeu ? amigo ... o erro inicial que voce postou refere-se a usuario ou senha invalidos, ou seja, o usuario ou a senha não eram os esperados ( ao que parece faltou a senha ) Voce não tem instalado o banco de dados MySQL ? se não tiver veja este endereço para download http://superdownloads.uol.com.br/download/181/mysql/ Manual em portugues http://baixaki.ig.com.br/download/MySQL-Manual.htm http://www.ziggi.com.br/downloads/2226.asp MySQL Administrator ( Manual em portugues) http://dev.mysql.com/doc/administrator/pt/index.html Com relação aos passos que te passei... seria para caso o usuario e senha ( padrão) definidos no banco não estivessem funcionando, então voce criaria um novo usuario e senha e daria a este usuario todos os previlegios para uso Neste caso, se voce estiver usando um firewall ele poderia estar bloqueando a conexão, neste caso voce teria que habilitar uma porta atraves do firewall do windows, criar um novo usuario e definir uma password, e criar a conexão Mas antes de voce se aventurar, leia o manual do DBDesginer http://www.ziggi.com.br/downloadnow/id/2976/tipo/2 OBS: Antes de voce dizer que não entedeu nada ... sugiro dar uma boa lida nos manuais ... ok ? rs abraço

Oi colega ... OpenC2Pas é um tradutor de C/C++/BCB para Object Pascal (Delphi/Kylix). É um poupador de tempo: não espere nenhuma conversão completa e exaustiva, mas pode converter uma gande porção do código para você. faça o download https://sourceforge.net/project/showfiles.php?group_id=50975 abraço

vai ai um exemplo: unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ComCtrls; type TForm1 = class(TForm) MonthCalendar1: TMonthCalendar; Button1: TButton; Label1: TLabel; Label2: TLabel; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; Meses: array[1..12] of STRING = ('Janeiro', 'Fevereiro', 'Março', 'Abril', 'Maio', 'Junho', 'Julho', 'Agosto', 'Setembro', 'Outubro', 'Novembro', 'Dezembro'); implementation {$R *.DFM} procedure TForm1.Button1Click(Sender: TObject); var Data: TDateTime; Year, Month, Day, Hour, Min, Sec, MSec: Word; begin Data:= MonthCalendar1.Date; DecodeDate(Data, Year, Month, Day); Label1.Caption := 'Hoje é dia ' + IntToStr(Day) + ' do mes ' + meses[Month] + ' do Ano ' + IntToStr(Year); DecodeTime(now, Hour, Min, Sec, MSec); Label2.Caption := 'Hora atual ' + IntToStr(Hour) + ' horas e ' + IntToStr(Min) + ' minutos'; end; end. abraço

que tal voce tentar este componente, acho que vai resolver http://www.tmssoftware.com/download/PLANNERCAL.ZIP abraço

necessariamente o usuario e senha devem ser do servidor de email que voce esta usando para enviar os emails veja este exemplo: Observe que é praticamente a mesma seguencia para o delphi 7, so que com os componentes indy, eu tinha feito um em delphi 7 mas precisei formatar o meu micro e perdi este codigo... olhe neste exemplo e o no outro ... acho que vai ajuda-lo abraço

Ivalido nome de usuario ou senha .... pode tentar este mysql>SET PASSWORD FOR 'some_user'@'some_host' = OLD_PASSWORD('newpwd'); SET PASSWORD FOR root@localhost = OLD_PASSWORD("myownnewpasswordhere"); verifique este artigo pode ajudar : http://dev.mysql.com/doc/refman/5.0/en/old-client.html outra possivel soluçao ou ainda ve se ajuda .... abraço

O erro significa que voce não digitou nem usuario nem senha para poder se logar ao servidor de email quanto ao artigo, se voce olhar direitinho vera que é praticamente o mesmo codigo que voce esta usando, somente esta explicado para melhor entendimento do uso dos componentes ( indy ) para envio de email, supondo-se é claro que voce esteja usando o delphi 7 se host é este, significa que voce esta usando o servidor de email do Yahoo para enviar os emails abraço

" autorização falhou: só usuários de SBC podem ter acesso a este servidor (5.7.0). verifique seu username/password ou colocações de segurança." de qualquer forma vai um exemplo bem explicado: http://www.activedelphi.com.br/modules.php...r=0&thold=0 abraço

OBS: o codigo está correto porem ....este é um erro muito comum se a opção active do componente table estiver true quando voce executar o programa ( mesmo que voce feche durante a execução ), ele tem que estar false para que este erro não ocorra. abraço Feliz Ano novo aos amigos e colegas do forum ....

Função para matar um processo uses Tlhelp32; function KillTask(ExeFileName: string): Integer; const PROCESS_TERMINATE = $0001; var ContinueLoop: BOOL; FSnapshotHandle: THandle; FProcessEntry32: TProcessEntry32; begin Result := 0; FSnapshotHandle := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0); FProcessEntry32.dwSize := SizeOf(FProcessEntry32); ContinueLoop := Process32First(FSnapshotHandle, FProcessEntry32); while Integer(ContinueLoop) <> 0 do begin if ((UpperCase(ExtractFileName(FProcessEntry32.szExeFile)) = UpperCase(ExeFileName)) or (UpperCase(FProcessEntry32.szExeFile) = UpperCase(ExeFileName))) then Result := Integer(TerminateProcess( OpenProcess(PROCESS_TERMINATE, BOOL(0), FProcessEntry32.th32ProcessID), 0)); ContinueLoop := Process32Next(FSnapshotHandle, FProcessEntry32); end; CloseHandle(FSnapshotHandle); end; procedure TForm1.Button1Click(Sender: TObject); begin KillTask('notepad.exe'); // coloque aqui o nome do programa antivirus que voce que parar end; { For Windows NT/2000/XP } procedure KillProcess(hWindowHandle: HWND); var hprocessID: INTEGER; processHandle: THandle; DWResult: DWORD; begin SendMessageTimeout(hWindowHandle, WM_CLOSE, 0, 0, SMTO_ABORTIFHUNG or SMTO_NORMAL, 5000, DWResult); if isWindow(hWindowHandle) then begin // PostMessage(hWindowHandle, WM_QUIT, 0, 0); { Get the process identifier for the window} GetWindowThreadProcessID(hWindowHandle, @hprocessID); if hprocessID <> 0 then begin { Get the process handle } processHandle := OpenProcess(PROCESS_TERMINATE or PROCESS_QUERY_INFORMATION, False, hprocessID); if processHandle <> 0 then begin { Terminate the process } TerminateProcess(processHandle, 0); CloseHandle(ProcessHandle); end; end; end; end; procedure TForm1.Button2Click(Sender: TObject); begin KillProcess(FindWindow('notepad',nil)); // coloque aqui o nome do programa antivirus que voce que parar end; abraço

procedure TForm1.Button1Click(Sender: TObject); begin if Memo1.Text = '' then Exit; VSSpell1.CheckText := Memo1.Text; if VSSpell1.ResultCode = 0 then Memo1.Text := VSSpell1.Text; end; { Para distribuir a sua aplicação com o VisualSpeller voce deve incluir estes arquivos: - VsSpell.HLP - VSPELL32.OCX - VSPELL32.DLL - AMERICAN.VTD - VSPELL.HLP } abraço

function SetNewTime(Hora, Min, Seg: word): boolean; var st: TSYSTEMTIME; begin GetLocalTime(st); // Pega hora corrente st.wHour := Hora; st.wMinute := Min; st.wSecond := seg; if not SetLocalTime(st) then Result := FALSE else Result := true; end; procedure TForm1.Timer1Timer(Sender: TObject); var Present: TDateTime; Hour, Min, Sec, MSec: word; hh, mm, ss : shortstring; begin Present:= Now; DecodeTime(Present, Hour, Min, Sec, MSec); sec := sec - 59; // mantem o relogio voltando a hora anterior a cada minuto hh := IntToStr(hour); mm := IntToStr(min); ss := IntToStr(sec); SetNewTime(StrToInt(hh),StrToInt(mm),StrToInt(ss)); end; OBS: coloque o interval do timer = 60000 a cada minuto ele voltara ao minuto anterior e mudara a hora do sistema abraço

Stored Procedures and Functions no mysql 5.0 http://dev.mysql.com/doc/refman/5.0/en/sto...procedures.html abraço

olha a diferença da path no meu micro talvez isto D:\Delphi\Borland Studio Projects\Bpl deveria estar em C:\Delphi\Borland Studio Projects\Bpl tente instalar tudo no dirve C: .... não vejo outra alternativa, já que modificando a path não funciona abraço

eu não tenho este componente instalado no meu micro, mas creio que deva ser onde apareça a opção address ou host procure nos componentes de conexão de banco de dados do mysql que voce vai achar abraço

Experimente este exemplo procedure TForm1.Button1Click(Sender: TObject); begin messagebox(0,'Titulo da Mensagem','AVISO',0); messagebox(0,'Titulo da Mensagem','AVISO 1',1); messagebox(0,'Titulo da Mensagem','AVISO 2',2); messagebox(0,'Titulo da Mensagem','AVISO 3',3); messagebox(0,'Titulo da Mensagem','AVISO 4',4); messagebox(0,'Titulo da Mensagem','AVISO 5',5); messagebox(0,'Titulo da Mensagem','AVISO 6',6); end; abraço