Jhonas

qual é o código que está no botão salvar ?

Caso não tenha entendido: http://www.guiadohardware.net/tutoriais/dicas-windows-7/ abraço

Exemplo: procedure TForm1.Button1Click(Sender: TObject); var linha, dat : string; data :TDate; Valor : real; begin linha := '104000000000115012010000010085'; dat := copy(linha,14,8); insert('/',dat,3); insert('/',dat,6); data := strtodate(dat); valor := (strtofloat(copy(linha,22,9))/100); Edit1.Text := datetostr(data); Edit2.Text := floattostr(valor); end; abraço

Se voce ao ligar o micro, não escutou nenhum Bip, de um reset na BIOS colocando o jumper de reset na posição 1 - 2 depois troque colocando na posição 2 - 3 ( OBS: faça isso com o micro desligado da rede ) .... feito isso tente novamente Se ainda assim não houver nenhum Bip ( pelo menos um tem que ouvir ) então tire as memórias e teste uma a uma abraço

Veja se a propriedade do TDataSetProvider (chamada ResolveToDataSet) esta como True... se estiver coloque como False. abraço e Feliz Natal

De maneira bem simples seria isso... É só adaptar ao seu código procedure TForm1.FormActivate(Sender: TObject); begin Query1.Active := false; Query1.SQL.Clear; Query1.SQL.Append('SELECT Cidade, Estado FROM Cidades'); Query1.Active := true; end; procedure TForm1.Button1Click(Sender: TObject); begin with DBLookupComboBox1 do begin ListSource := DataSource1; ListField := 'Cidade'; // nome do campo definido na Query KeyField := 'Cidade'; // nome do campo definido na Query end; end; abraço

Algumas opções para voce ver: http://wareseeker.com/free-partial-fraction-decomposition/ http://ultradownloads.com.br/busca/fracoes/1,,,,,,1,1.html https://www.scriptbrasil.com.br/script/java...a_de_frcoes.zip https://www.scriptbrasil.com.br/download/codigo/6431/ http://blogs.facef.br/matematica/?cat=150 http://ultradownloads.com.br/download/ESBP...Suite-Delphi-7/ http://www.baixaja.com.br/downloads/Window...-VCL_22267.html http://www.comunidade-firebird.org/modules...etit&lid=46 abraço e Feliz Natal

Seja bem vindo e Feliz Natal abraço!

de modo simples seria: var ImgStream : TMemoryStream; begin ImgStream := TMemoryStream.create; Image1.Graphic.SaveToStream(ImgStream); end; Leia esses artigos que poderão lhe ajudar http://www.planetadelphi.com.br/dica/6913/...o-vari%C3%A1vel http://www.activedelphi.com.br/forum/viewt...df60311fd980e11 http://www.mottaweb.com.br/blog/?cat=8&language=pt http://www.ramosdainformatica.com.br/art_r...s01.php?CDA=466 http://www.planetadelphi.com.br/dica/7361/...gra-de-negocio- abraço e Feliz Natal

Então no evento OnClose do Form direcione o foco para outro componente exemplo: procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); begin form1.SetFocus; end; abraço e Feliz Natal

Em um componente Query1 coloque o código na propriedade SQL // para jogar no DBLookupComboBox1 apenas os Estados SELECT distinct Estado FROM Cidades Em um outro componente Query2 coloque o código na propriedade SQL // para jogar no DBLookupComboBox2 apenas as Cidades selecionadas pela SIGLA SELECT Cidade, Estado FROM Cidades WHERE Estado = :SIGLA // Não esquecer de definir o parametro como string ORDER BY Cidade Depois e só montar a Unit unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, DBCtrls, Grids, DBGrids, Db, DBTables; type TForm1 = class(TForm) DataSource1: TDataSource; Query1: TQuery; DBGrid1: TDBGrid; DBLookupComboBox1: TDBLookupComboBox; DBLookupComboBox2: TDBLookupComboBox; Query2: TQuery; DataSource2: TDataSource; procedure DBLookupComboBox1Click(Sender: TObject); procedure FormActivate(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.DFM} procedure TForm1.DBLookupComboBox1Click(Sender: TObject); begin Query2.Active := false; Query2.Params[0].AsString := DBLookupComboBox1.Text; Query2.ExecSQL; Query2.Active := true; end; procedure TForm1.FormActivate(Sender: TObject); begin Query1.Active := false; Query1.Active := true; end; end. abraço e Feliz Natal

A configuração de papel personalizado que está na sua máquina local deve ser aplicada tambem nas outras máquinas da rede abraço e Feliz Natal

Caso seja realmente necessário a salva guarda dos dados, veja estes posts sobre criptografia dos dados http://scriptbrasil.com.br/forum/index.php...te=criptografia abraço e Feliz Natal

Se o erro é de password verifique novamente a configuração Voce acha nestes links http://busca.superdownloads.uol.com.br/bus...-(release).html http://osdir.com/ml/db.firebase.portuguese...1/msg01006.html http://www.filetransit.com/download.php?id=61034 OBS: Feliz Natal extensivo a família abraço

Até seria bom... mas o paradox é muito falho em questão de segurança... se o negócio é seguranda dos dados, melhor procurar outro banco de dados http://superdownloads.uol.com.br/download/45/paradox-key/ abraço

Um Feliz Natal também para voce e sua família ... e que no ano vindouro Deus ilumine o seu caminho para que com o trabalho de suas mãos abençoe a voce e o seu próximo. OBS: Isso vale a todos os membros, colegas e amigos do forum. Abraços

Vai achar a resposta neste endereço: http://www.activedelphi.com.br/forum/viewt...eda9981754dc597 abraço

O erro não está no Zeos ... como voce não mencionou, devo supor que esteja usando o Firebird 2.0 esse erro não acontece no Firebird 1.5 mas acontece no Firebird 2.0 A solução esta no Firebird 2.0.3 ( correção do bug .... * Fixed bug CORE-1434 Incorrect result with EXECUTE STATEMENT and VARCHAR columns ) http://firebird.brothersoft.com/firebird2.0.3 abraço

Me desculpe, eu não testei o link, mais já corrigí. Ainda está apontando para um arquivo vazio ou corrompido abraço

Faça um teste .... coloque o cd do xp sp2 e tente intalar novamente e diga o que acontece abraço

djfarinha... como voce não postou o código, fica dificil te ajudar, pois não tem como advinhar o que voce já fez no código entretanto neste link voce vai encontrar o codigo fonte completo de um jogo de cartas tipo 21 que tem as rotinas que voce esta querendo usar. http://www.planetadelphi.com.br/downloading/4567 OBS: sempre dê mais detalhes possiveis sobre sua dúvida para não ficar sem respostas. abraço

Tem um exemplo muito bom neste endereço: leia com calma e tente entender ...basta adaptar esse exemplo ao seu exercicio http://www.cci.unama.br/claudio/cefet/poo/POODelphi.pdf abraço

Matheus Matos... eu entendi o que ele e voce quiz dizer ... quando coloquei que o Peeper consegue visualizar mais de 30 tipos diferentes de arquivos, e com ele voce pode descobrir a estrutura do arquivo, basta voce selecionar o( Mode Native ) modo nativo ... dessa maneira é possivel descobrir qual é a estrutura desse arquivo ...ok ? e assim voce pode tentar fazer alguma coisa com o delphi. abraço

alguns exemplos: Capturar a tela em um TBitmap function CaptureScreenRect( ARect: TRect ): TBitmap; var ScreenDC: HDC; begin Result := TBitmap.Create; with Result, ARect do begin Width := Right - Left; Height := Bottom - Top; ScreenDC := GetDC( 0 ); try BitBlt( Canvas.Handle, 0, 0, Width, Height, ScreenDC, Left, Top, SRCCOPY ); finally ReleaseDC( 0, ScreenDC ); end; end; end; // Exemplo: como usar Image1.picture.Assign(CaptureScreenRect(Rect(0,0,Width,Height))); Capturar tela procedure TForm1.Button1Click(Sender: TObject); var BackgroundCanvas : TCanvas; Background : TBitmap; {bitmap holding the background } DC : hDC; begin // get the background bitmap Background:= TBitmap.Create; Background.Width:= Width; Background.Height:= Height; DC:= GetDC (0); BackgroundCanvas:= TCanvas.Create; BackgroundCanvas.Handle:= DC; // stretch the bitmap to the display size (it could be much smaller (preview)) Background.Canvas.CopyRect(Rect (0, 0, Width, Height), BackgroundCanvas, Rect (0, 0, Screen.Width, Screen.Height)); BackgroundCanvas.Free; image1.Picture.Bitmap:= Background; end; Converter Bitmap para JPeg Inclua na seção uses: Graphics, JPeg O procedimento abaixo converte um arquivo de imagem Bitmap para JPeg. O arquivo JPeg terá o mesmo nome do arquivo Bitmap, mas com a extensão jpg. procedure ConverterBmpParaJPeg(Arquivo: string); var Bmp: TBitmap; JPeg: TJPegImage; begin Bmp := TBitmap.Create; try Bmp.LoadFromFile(Arquivo); JPeg := TJPegImage.Create; try JPeg.CompressionQuality := 100; { Qualidade: 100% } JPeg.Assign(Bmp); JPeg.SaveToFile(ChangeFileExt(Arquivo, '.jpg')); finally JPeg.Free; end; finally Bmp.Free; end; end; Exemplo de uso: ConverterBmpParaJPeg('c:\diretorio\arquivo.bmp'); convert a BMP image to a JPG (JPEG) image: ~~~~~~~~~~~~~~~~~~~~~~~~~ function BMPtoJPG (var BMPpic, JPGpic: string):boolean; var Bitmap: TBitmap; JpegImg: TJpegImage; begin Result:=False; Bitmap := TBitmap.Create; try Bitmap.LoadFromFile(BMPpic); JpegImg := TJpegImage.Create; try JpegImg.Assign(Bitmap); JpegImg.SaveToFile(JPGpic); Result:=True; finally JpegImg.Free end; finally Bitmap.Free end; end; { como usar: BMPtoJPG('mybitmap.bmp','myjpeg.jpg') } Exemplo no forum http://scriptbrasil.com.br/forum/index.php...st&p=398657 Faça uma persquisa no forum http://scriptbrasil.com.br/forum/index.php...te=ClientSocket http://scriptbrasil.com.br/forum/index.php...te=ServerSocket abraço

Amigo.. o exercício ou trabalho que foi dado a voce pelo professor , tem a finalidade fazer voce se esforçar em pesquisar, ler , entender e praticar dificilmente alguém lhe dará o exercício pronto ... no entanto estou te indicando algum material para que voce tenha um ponto de partida Um exemplo ( link abaixo ) que voce pode adpatar ao seu caso e mais informações sobre definição de classes em delphi: http://www.ramosdainformatica.com.br/art_r...s01.php?CDA=509 http://imasters.uol.com.br/artigo/3777/del...sses_do_delphi/ http://www2.unoeste.br/~aglae/ling_pro/del...olimorfismo.htm http://www2.unoeste.br/~aglae/ling_pro/delphi_exemplos.htm http://www.cci.unama.br/claudio/cefet/poo/POODelphi.pdf abraço