Marcos Augusto

ola pessoal estou aki d novo para perguntar c alguel sabe como faÇo para acionar um botao para fazer uma aÇao com o click e fazer outra aÇao com o control acionado ex: quando eu clico no botao sem o control precionado ele move o banco de dados um indice para frente table.next; quando eu clico no botao com o control precionado ele move o banco de dados 10 indice para frente for cont := 0 to 9 do table.next; c alguém souber, por favor preciso desta dica. grato marcos augusto 3º e ultimo Aviso ..... Por Favor siga as regras do Forum

O duduh_capixaba, muito obrigado eu não tinha visto que um comando no segundo form ( formshow ), resolveu o problema muito obrigado Por favor siga as regras do forum

Eu coloque todos os objetos do banco em um data module o forme que desaparece esta u dbgrid que carrega de um ibquery o outro forme É para adicionar dados no banco, tipo "nome, endereco" mas quando eu clico no botao para abrir o form os dados do dbgrid desaparece e quando eu fecho o forme eles aparecem novamente. duduh_capixaba, c você não entendeu tentarei explicar novamente, É que estou meio sem tempo agora grato Marcos Augusto 3.7 Ao postar uma mensagem, procure usar o tamanho de fonte padrão do fórum, não deixando as letras grandes ou pequenas demais; evite o uso de cores fortes, as quais prejudicam a leitura, e não insira textos totalmente em caixa alta (ESTE É UM TEXTO EM CAIXA ALTA). Tópicos que violaremm essa regra serão editados sem prévio aviso.

Jhonas já tentei isso também mas não funcionou, não sei o que esta acontecendo porque não tem nenhuma propriedade e nenhum comando no DataSet para habilitar ou desabilitar o read-only, não sei c é a versao do delphi (CodeGear 2007) ou alguma coisa ao cria o banco de dados, tentei coloca o edit tb mas não funcionou. mas c você tiver outra explicacao pra isso eu agradeco. SQLDataSet1.Open; SQLDataSet1.Edit; SQLDataSet1.Append; SQLDataSet1.Post; GRATO. MARCOS AUGUSTO

ola pessoal sou novato em delphi e banco de dados, me indicaram o firebird para usar com delphi, achei ele bom mas como estou comecando gostaria de uma ajudinha, preciso saber como faco para incluir dados dentro de um banco de dados que já criei com o ibexpert e salvei no diretorio c:\testedb.fdb, com 1 tabela cliente com 2 campos nome e endereco e com o form que fiz no delphi que esta descrito logo abaixo. 1 edit = nome 1 edit = endereco 1 button = adicionar 1 SQLConnection1 = já configurado para o banco teste e conectado 1 SQLDataSet1 = tambem configurado no botao adicionar eu coloquei o seguinte comando so para teste SQLDataSet1.Open; SQLDataSet1.Append; SQLDataSet1.Post; mas quando eu clico nele, me retorna um erro assim descrito: 'SQLDataset1: Cannot modify a read-only datase'. já tentei de tudo mas não acho o erro, não sei c estou fazendo certo com os comando ou inclui os objetos certos. alguém pode me ajudar??? Grato Marcos Augusto

Marcos Augusto, você precisará criar uma procedure para ser atribuída ao evento OnProgress da classe TCompressionStream. Com isso, a cada parte do processo de compactação que for avançada, este seu procedimento será chamado. Deve ficar mais ou menos assim (não tenho isso implementado): type TForm4 = class(TForm) ... private procedure CompactaArquivo(CaminhoIn, CaminhoOut, NomeFile : String); procedure OnCompressProgress(Sender :TObject); << ============= AQUI { Private declarations } ... procedure TForm4.OnCompressProgress(Sender :TObject); begin ProgressBar1.Position := (Sender as TStream).Position; Application.ProcessMessages; end; procedure TForm4.CompactaArquivo(CaminhoIn, CaminhoOut, NomeFile : String); ... Zip := TCompressionStream.Create(clMax, FileOut); Zip.OnProgress := OnCompressProgress; << ======= AQUI ProgressBar1.Max := FileIni.Size; Zip.CopyFrom(FileIni, FileIni.Size); // ProgressBar1.Position := FileIni.Position; << ======= AQUI - retira/comenta Zip.Free; ... end; Tente e veja se faltou algo. Abraços Grato Micheus, sua dica serviu como uma luva. Muito obrigado.

Olá pessoal, estou tentando compactar com o zlib do delphi, a compactacao em consigo mas noa consigo mostrar o andamento da compactação em um ProgressBar, o progressbar so funciona apos ter acabado de compactar, alguém tem alguma resposta simples para isso pois sou novato em programacao. Grato Marcos Augusto esse é o codigo que compacata mas não funciona o progressbar unit Unit4; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Zlib, ComCtrls, StdCtrls; type TForm4 = class(TForm) ProgressBar1: TProgressBar; Button1: TButton; procedure Button1Click(Sender: TObject); private procedure CompactaArquivo(CaminhoIn, CaminhoOut, NomeFile : String); { Private declarations } public { Public declarations } end; var Form4: TForm4; implementation {$R *.dfm} procedure TForm4.Button1Click(Sender: TObject); begin CompactaArquivo('c:\z.z', 'c:\', 'z.y'); end; procedure TForm4.CompactaArquivo(CaminhoIn, CaminhoOut, NomeFile : String); var FileIni, FileOut : TFileStream; //TMemoryStream Zip : TCompressionStream; cont : Integer; begin if FileExists(CaminhoIn) then begin Screen.Cursor := crHourGlass; if NomeFile <> '' then NomeFile := CaminhoOut + NomeFile; if NomeFile = '' then NomeFile := CaminhoOut + '\DefArq.cmf'; FileIni := TFileStream.Create(CaminhoIn, fmOpenRead and fmShareExclusive); FileOut := TFileStream.Create(NomeFile, fmCreate or fmShareExclusive); Zip := TCompressionStream.Create(clMax, FileOut); ProgressBar1.Max := FileIni.Size; Zip.CopyFrom(FileIni, FileIni.Size); ProgressBar1.Position := FileIni.Position; Zip.Free; FileOut.Free; FileIni.Free; Screen.Cursor := crDefault; end else begin Application.MessageBox('Arquivo não encontrado.','Erro',MB_ICONERROR); end; end; end.