Jhonas

Que tal voce postar o código para poder analisar melhor ? abraço

Voce terá que montar um Quick Report e convertê-lo em uma figura ( de preferência JPG ) para depois então, poder enviar por e-mail. abraço

Procure na pasta Lib ou Bin o arquivo qrchart ou algum outro com o final chart.dcu ... pelo que sei ele deve ser instalado na mão. abraço

A DBGrid é um pouco mais complicada que a StringGrid, pois não existe o conceito de células como na StringGrid. Porém, nem tudo está perdido: as colunas da DBGrid tem uma propriedade chamada PickList, que permite colocar as opções numa lista, que serão mostradas quando a coluna é editada. Para preenchê-la, basta abrir o editor de colunas da DBGrid, selecionar a coluna desejada, abrir o editor da PickList e colocar as opções para aquela coluna. Assim, ao editar a coluna, abre-se a combobox. -------------------------------------------------------------------------------------------------- Voce também pode usar um componente pronto com esta propriedade http://www.woll2woll.com/InfoPower.html --------------------------------------------------------------------------------------------------- Outras informações http://scriptbrasil.com.br/forum/index.php...st&p=367180 http://info.abril.com.br/forum-antigo/forum.php?tópico=84906 ---------------------------------------------------------------------------------------------------- Código pronto http://www.delphimais.com/modules/wfdownlo...id=1&lid=25 _____________________________________________________________________ Para usar um DateEdit no dbgrid é bem mais complicado , mas não impossível. ( sugiro usar o dateedit separado ) abraço

Se voce tivesse seguido o exemplo que te passei no outro post, voce chegaria a isto procedure TForm1.Button1Click(Sender: TObject); var s, s1, s2 : string; i : integer; begin s := Trim(edit1.text); // 9289988 i := length(s); s1 := copy(s,1,i-1); s2 := copy(s,i-1,1); FmtStr(s, '%.6d', [strtoint(s1)]); Label1.Caption := s+'-'+s2; // 928998-8 end; abraço

Veja neste endereço http://seucolega.wordpress.com/2007/07/21/...-o-delphi-2007/ abraço

então porque voce não usa o DBLookupComboBox ? Embora os valores estejam repetidos neles, ao selecionar um código cada um deles estará apontando para o registro selecionado e voce poderá usá-los como bem entender. abraço

A Atualização se aplica aos seguintes sistemas Windows Vista Ultimate Windows Vista Starter Windows Vista Home Premium Windows Vista Home Basic Windows Vista Enterprise Windows Vista Business Windows Vista Ultimate 64-bit edition Windows Vista Home Premium 64-bit edition Windows Vista Home Basic 64-bit edition Windows Vista Enterprise 64-bit edition Se o seu for alguns destes vai funcionar abraço

Para torna-la um pouco mais segura tente esta modificação. Usando dois edits voce voce digitar a palavra ou codigo que será a sua senha procedure TForm1.proEnDecryptFile1(arquivo : string); var InMS, OutMS: TMemoryStream; I : Integer; C: byte; path :string; chave, constante : Int64; begin for i := 1 to Length(Edit1.Text) do begin chave := chave + StrBufSize(Pchar(Edit1.text)); constante := constante + StrBufSize(Pchar(Edit2.text)); end; InMS := TMemoryStream.Create; OutMS := TMemoryStream.Create; path := arquivo; try InMS.LoadFromFile(path); InMS.Position := 0; for I := 0 to InMS.Size - 1 do begin InMS.Read(C, 1); C := (C xor not (ord((chave + constante shl I) - (chave + constante shr I)))); OutMS.Write(C, 1); end; OutMS.SaveToFile(path); finally InMS.Free; OutMS.Free; end; end; procedure TForm1.Button1Click(Sender: TObject); begin proEnDecryptFile1('c:\TESTE.QRP'); end; abraço

Passe um exemplo da matricula ... como é digitado abraço

Se voce baixou a versão de demostração não vai aparecer mesmo. ( existem limitações na versão trial ) A versão completa do RAD Studio-0009 Architect Novo custa em torno de 3.995,00 € ... muito salgado ainda abraço

Porque não usar apenas um DBCombox... não vejo necessidade de usar 4... explique melhor a sua idéia. abraço

Eder... voce ficou na mesma.... como já havia lhe dito, voce tem que baixar uma atualização do site da microsoft ( Versão de Compatibilidade para o windows vista ) para que isto não aconteça. abraço

Basta colocar no seu post que está resolvido a questão que colocamos, ou seguir o que o Micheus falou. abraço

Veja este post http://scriptbrasil.com.br/forum/index.php...st&p=523608 abraço

O Windev é uma ferramenta de desenvolvimento rápido de aplicativos baseado na linguagem C/C++. O windev é compatível com vários tipos de tecnologias, assim como aplicações Java, .Net, Assemblies .Net, Win32, Web Services...etc Windev trabalha por padrão com Hiper Files, acesso nativo do windev para armazenamento de dados. O Hiper Files pode ser comparado com XML. Para acesso de dados nativos o windev traz o MySql. Para acesso nativo de outros bancos de dados, estes devem ser adquiridos separadamente ou então usar o acesso via ODBC ou JDBC. É Possivel montar um programa em delphi para acessar um banco MySql Qual o tamanho deste banco ? nº de registros ? quais as informações nele contidas ? como quer trabalhar com estes dados ? seja um pouco mais abrangente em suas informações. abraço

Isso é bug de versão ... tente instalar outra versão (messenger discovery 2.0 ) ou outra. OBS: desinstale a versão atual primeiro abraço

Tem exemplo no delphi C:\Arquivos de programas\Borland\Delphi5\Demos\Teechart abraço

Observe no post acima que os indices começam com 0 e vão decrescendo -1, -2, -3 ... etc procure usar do mesmo modo procure no help do delphi .... tem mais informações sobre como usar outros cursores exemplo : Tradução Carregar um cursor animado em sua aplicação Delphi procedure TForm1.Button3Click(Sender: TObject); const NovoCursor = 1; begin Screen.Cursors[ NovoCursor ] := LoadCursorFromFile('c:\windows\cursorsglobe.ani' ); Cursor := NovoCursor; end; OBS. Para descarregar o cursor animado troque a string 'c:\windows\cursors\globe.ani' por 'OCR_NORMAL'. outro exemplo implementation {$R *.DFM} {$R cursors.RES} const CrNewCursor = 5; procedure TForm1.FormCreate(Sender: TObject); var Res : TResourceStream; begin Res := TResourceStream.Create(hInstance, 'MY_Cursor', Pchar('anicursor')); Res.SavetoFile('move.ani'); Res.Free; Screen.Cursors[CrNewCursor] := LoadCursorFromFile('move.ani'); DeleteFile('move.ani'); end; procedure TForm1.Button1Click(Sender: TObject); begin Label1.Cursor := CrNewCursor; end; end. outros http://www.mail-archive.com/delphi-br@yaho...r/msg00705.html Colocando cursores animados em arquivos de recursos {Criando o arquivo RC ANICUR RCDATA "c:\windows\cursors\appstart.ani" User o BRCC32.EXE para criar o arquivo CURSOR.RES Declare no form que for usar:} {$R CURSOR.RES} var CurRes : TResourceStream; begin CurRes := TResourceStream.Create(hInstance, 'ANICUR', RT_RCDATA); try CurRes.savetofile('tempcur.ani'); try Screen.Cursors[1] := LoadCursorFromFile('tempcur.ani'); Screen.Cursor := 1; finally DeleteFile('tempcur.ani'); end; finally CurRes.Free; end; end; abraço

Alguns exemplos: uses ExtActns, ... type TfrMain = class(TForm) ... private procedure URL_OnDownloadProgress (Sender: TDownLoadURL; Progress, ProgressMax: Cardinal; StatusCode: TURLDownloadStatus; StatusText: String; var Cancel: Boolean); ... implementation ... procedure TfrMain.URL_OnDownloadProgress; begin ProgressBar1.Max:= ProgressMax; ProgressBar1.Position:= Progress; end; function DoDownload; begin with TDownloadURL.Create(self) do try URL:='http://z.about.com/6/g/delphi/b/index.xml'; FileName := 'c:\ADPHealines.xml'; OnDownloadProgress := URL_OnDownloadProgress; ExecuteTarget(nil); finally Free; end; end; { Note: URL property points to Internet FileName is the local file } Outro exemplo: uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, CHILKATHTTPLib_TLB, OleCtrls; ... procedure TForm1.Button1Click(Sender: TObject); var http: TChilkatHttp; success: Integer; begin http := TChilkatHttp.Create(Self); // Any string unlocks the component for the 1st 30-days. success := http.UnlockComponent('Anything for 30-day trial'); if (success <> 1) then begin ShowMessage(http.LastErrorText); Exit; end; // Download the Python language install. // Note: This URL may have changed since this example was created. success := http.Download('http://www.python.org/ftp/python/2.5/python-2.5.msi','python-2.5.msi'); if (success <> 1) then begin ShowMessage(http.LastErrorText); end else begin ShowMessage('Python Download Complete!'); end; end; outro exemplo: Download Internet File uses WinInet; function GetInetFile (const fileURL, FileName: String): boolean; const BufferSize = 1024; var hSession, hURL: HInternet; Buffer: array[1..BufferSize] of Byte; BufferLen: DWORD; f: File; sAppName: string; begin result := false; sAppName := ExtractFileName(Application.ExeName); hSession := InternetOpen(PChar(sAppName), INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0); try hURL := InternetOpenURL(hSession, PChar(fileURL), nil, 0, 0, 0); try AssignFile(f, FileName); Rewrite(f,1); repeat InternetReadFile(hURL, @Buffer, SizeOf(Buffer), BufferLen); BlockWrite(f, Buffer, BufferLen) until BufferLen = 0; CloseFile(f); result := True; finally InternetCloseHandle(hURL) end finally InternetCloseHandle(hSession) end end; Para usar a função procedure TForm1.FormCreate(Sender: TObject); begin var internetFile, localFileName: string; begin internetFile := 'http://z.about.com/6/g/delphi/b/index.xml'; localFileName := 'About Delphi Programming RSS Feed.xml'; if GetInetFile(internetFile, localFileName) then ShowMessage('Download successful.') else ShowMessage('Error in file download.'); end; outro exemplo: function DownloadFile(Source, Dest: string): Boolean; begin try Result:= UrlDownloadToFile(nil, PChar(source),PChar(Dest), 0, nil) = 0; except Result:= False; end; end; Para usar esta function é preciso declarar Urlmon na seção uses da unit. Depois basta fazer uma chamada padrão: procedure TForm1.FormCreate(Sender: TObject); begin if DownloadFile ('http://www.onde.com/arq.htm','c:\arq.htm') then ShowMessage('Download Concluído.'); end; outro exemplo: uses ExtActns, ... type TfrMain = class(TForm) ... private procedure URL_OnDownloadProgress(Sender: TDownLoadURL; Progress, ProgressMax: Cardinal; StatusCode: TURLDownloadStatus; StatusText: string; var Cancel: Boolean); ... implementation ... procedure TfrMain.URL_OnDownloadProgress; begin ProgressBar1.Max := ProgressMax; ProgressBar1.Position := Progress; end; function DoDownload; begin with TDownloadURL.Create(self) do try URL := 'http://sua url.com.br'; FileName := 'local e o nome que quer salvar'; OnDownloadProgress := URL_OnDownloadProgress; ExecuteTarget(nil); finally Free; end; end; outro exemplo: procedure TForm1.Button1Click(Sender: TObject); var savedlg: TSaveDialog; begin savedlg := TSaveDialog.Create(Self); if savedlg.Execute then if DownloadFile(Edit1.Text, savedlg.FileName) then MessageBox(Application.Handle, 'Download efetuado com sucesso', 'Informação', MB_ICONINFORMATION) else MessageBox(Application.Handle, 'Download falhou', 'Informação', MB_ICONEXCLAMATION); end; function TForm1.DownloadFile(Source, Dest: string): Boolean; begin try Result := UrlDownloadToFile(nil, PChar(source), PChar(Dest), 0, nil) = 0; except Result := False; end; end; outro exemplo: Use o componente NMHTTP da palheta de Internet do Delphi. Coloque o nome com o qual ele vai ser gravado na propriedade Body, Coloque InputFileMode := True, e use NMHTTP1.Get(’http://sitedesejato/pasta/arquivo.extensao’); outro exempo: Use o componente TIdHttp: procedure TForm1.Button1Click(Sender: TObject); var vArquivo: TFileStream; begin vArquivo := TFileStream.Create('c:\arquivo.txt',fmCreate); Try Try idHTTP1.Get('http://www.site.com.br/arquivo.txt',vArquivo); Except ShowMessage('Não foi possivel baixar o arquivo !'); End; Finally FreeAndNil(vArquivo); End; end; Outros http://singularsistemas.com.br/blog/2008/0...tp-com-synapse/ abraço

cada cursor possui um numero como indice .... crMyCursor = 5 significa que o indice de numero 5 passará a ter este novo icnone definido para ele ... exemplo: Constant Value Image crDefault 0 Whatever cursor is the default for the window class (usually crArrow). crNone -1 crArrow -2 crCross -3 crIBeam -4 crSizeNESW -6 crSizeNS -7 crSizeNWSE -8 crSizeWE -9 crUpArrow -10 crHourGlass -11 crDrag -12 crNoDrop -13 crHSplit -14 crVSplit -15 crMultiDrag -16 crSQLWait -17 crNo -18 crAppStart -19 crHelp -20 crHandPoint -21 crSize -22 (obsolete) crSizeAll -22 Para ver melhor, clique na propriedade Cursor do Form e tecle F1 depois clique em TCursor abraço

Ok.. mas de qualquer maneira, para poder entender o que está acontecendo, seria melhor voce postar o código onde ocorre este problema. Ou voce pode tentar debugar o código e ir vendo o que ocorre durante a execução abraço

exatamente ... voce apenas teria mais controle se o BDE estivesse instalado no Painel de controle ( no caso de querer fazer uma manutenção nos arquivos ou trocar o nome do Alias ou verificar os registros... etc) abraço

Veja se encontra neste endereço http://udp.downloadsoftware4free.com/ abraço

Eu utilizo uma tabela que é apagada cada vez que um usuário faz acesso, e cada usuário trabalha com essa tabela independente de outro usuário, e funciona perfeitamente. Paulo ... para poder entender o que está acontecendo, seria melhor voce postar o código onde ocorre este problema...pelo que voce informou parece que o resultado esta sendo incrementado de 1 em 1 ´... é isso ? abraço