Jhonas

qual é a mensagem de erro ?

agora entendi o seu poblema ... no evento OnClick do DBgrid, voce deve executar um select em uma query para filtrar apenas esse registro ou qualquer outro, a não ser que os outros componentes estejam linkados ao mesmo DataSource do DBgrid abraço

Desculpas aceitas ... quanto a sua dúvida: Preciso saber se a Form atual é show ou showModal. ShowModal retorna um valor para a propriedade ModalResult quando o form é fechado exemplo: showmessage(ModalResult); se o form foi aberto com Show o resultado será 0 .. e se foi aberto com ShowModal o resultado será > 0 outra maneira: é que o form aberto com show permite a perca do foco para outro form sem a necessidade de fecha-lo , e o form aberto com showmodal não deixa o foco sair do form enquanto ele não for fechado abraço

ClearFields depois de um ApplyUpdates, não deve ter dado muito certo ... veja um exemplo With dbgrd1 do Begin if SelectedRows.Count = 0 then begin MessageDlg('Operação Anulada! '+ #13 + #13 + 'Selecione os componentes.' , mtInformation, [mbOK], 0); dbgrd1.SetFocus; Exit; end; cdsChamadoComp.EmptyDataSet; // ou outra rotina para limpar os registros for Cont:= 0 to Pred(SelectedRows.Count) do Begin Datasource.Dataset.Bookmark:= SelectedRows[cont]; cdsChamadoComp.Last; cdsChamadoComp.Insert; cdsChamadoComp.Edit; cdsChamadoCompCOD_CHAMADO.Value := cdsCadastroCODIGO.Value; cdsChamadoCompCOD_COMPONENTE.Value := cdsComponenteCODIGO.Value; cdsChamadoComp.Post; end; cdsChamadoComp.ApplyUpdates(-1); abraço

ZPL2 com delphi http://www.baixaki.com.br/download/impressora-zebra-zpl2.htm http://www.igara.com.br/faq_zebra_zpl2.htm http://ultradownloads.uol.com.br/download/...ora-ZEBRA-ZPL2/ abraço

Por favor o mais rápido possível! Vlw sugiro a voce ser mais humilde, o forum não é help desk e ninguém é obrigado a lhe responder porque voce esta com pressa. procure no help do delphi sobre ShowModal method (TCustomForm) e voce vai encontrar a resposta. abraço

voce faz a chamada atraves do evento ActiveForm ? se for, porque esta finalizando o timer, já que é ele quem tem que verificar qual a url para fazer o redirecionamento. onde voce esta digitando ?? no IE ( e qual é a versão que esta usando ? ) ou num campo do proprio form ? qual sistema operacional ? qual a versão do seu delphi ? etc... quanto mais informações voce puder dar, melhor fica para entender a sua lógica abraço

voce adicionou o caminho do componente no lybrary path ou no browsing path ?

Faça uma pesquisa no forum usando a palavra xml http://scriptbrasil.com.br/forum/index.php...mp;highlite=xml abraço

um exemplo: não entendi o seu código ou seria OBS: Se voce lesse o manual ou apostila do delphi não teria esse tipo de problema tem apostilas no forum https://www.scriptbrasil.com.br/apostilas/programas/delphi/ abraço

Mensagem de erro: "Tentativa de leitura ou gravação em memória protegida." Na verdade a mensagem refere-se a memória do popularmente chamado HD (derivação de HDD do inglês hard disk drive) ou winchester (termo em desuso), "memória de massa" ou ainda de "memória secundária" que é a parte do computador onde são armazenados os dados. quando voce faz a desfragmentação do disco, voce percebe que alguns blocos estão com a cor vermelha... isso correponde a blocos de memória que não poderão ser utilizados pois estão protegidos contra leitura ou gravação. a mensagem ocorre porque algum programa tentou acessar esses blocos de memória idevidamente isso ocorre por problemas de configuração ou geralmente o SourceSafe ou SourceGear da instalação está corrompido ou no HD existem Bad Clusters no local onde o software esta instalado a solução é desinstalar delphi 2009 , limpar os registros usando o CCleaner ou outro e depois instalar novamente OBS: Como ultima solução será necessario formatar o HD novamente abraço

Veja a diferença: And AGENDA.PACIENTEID = PACIENTE.PACIENTEID AND AGENDA.DATA =: Data And AGENDA.PACIENTEID = PACIENTE.PACIENTEID AND AGENDA.DATA = :Data abraço

no proprio site do fabricante ... olhe no link abraço

Voce não esta usando assim ? coloque somente a instrução select dentro da propriedade SQL da query e depois defina os parametros na propriedade PARAMS da propria query ou na properiedade PARAMS do ClientDataSet se estiver usando ele. OBS: Leia o manual ou apostila do delphi ... vai encontrar as soluções para os seus problemas abraço

Fiz um teste aqui... funciona perfeitamente. troque o componente e tente novamente abraço

Cannot load libmysql.dll library (error code 126). The libmsql.dll library may be missing from the system path Não pode carregar a biblioteca libmysql.dll. A biblioteca libmsql.dll não foi encontrada para o caminho do sistema o windows 7 é chato com relação a permissões de pastas e usuários ... verifique isso abraço

coloque o código completo para poder analisar abraço

Voce já disvirtuou complentamente do tópico inicial que era DBgrid com varias cores problemas....tipo...ele tah copiando o arquivo de banco de dados...porem copia o arquivo completo... 'c:\Origem\*.*' usando coringas ele copia todos os arquivos Ou voce faz assim usando tabela temporaria ou pode usar sql para filtrar os registros abraço

Procure no forum por ExtractFilePath http://scriptbrasil.com.br/forum/index.php...extractfilepath abraço

Vai encontrar o que precisa nesse link http://www.dnautomacao.com.br/produto.asp?codSeqProduto=638 OBS: Para funcionar em USB, ou voce consegue a dll especifica para isso, ou redireciona a porta LPT1 para a USB via windows abraço

Procure no forum por FindDialog http://scriptbrasil.com.br/forum/index.php...lite=finddialog abraço

limpe os registros antes de salvar novamente abraço

2 maneiras: a primeira usando o ClietDataSet http://www.inf.ufsc.br/~prass/artigos/artigo07.html na segunda maneira, voce copia a tabela e depois deleta todos os registros para poder usar ( essa será a tabela temporaria ) //- Coloque um Button no Form; //- Altere o evento OnClick deste Button conforme abaixo: } procedure TForm1.Button1Click(Sender: TObject); var SR: TSearchRec; I: integer; Origem, Destino: string; begin I := FindFirst('c:\Origem\*.*', faAnyFile, SR); while I = 0 do begin if (SR.Attr and faDirectory) <> faDirectory then begin Origem := 'c:\Origem\' + SR.Name; Destino := 'c:\Destino\' + SR.Name; if not CopyFile(PChar(Origem), PChar(Destino), true) then ShowMessage('Erro ao copiar ' + Origem + ' para ' + Destino); end; I := FindNext(SR); end; end; OBS: isso é apenas um exemplo, voce terá que fazer as modificações para o seu uso Outra função que podera usar function CopiaEstruturaTabela(TableEmpty:Boolean;FromDir,SrcTblName,ToDir, DestTblName:String): Boolean; // // Copia uma tabela podendo ou não levar seu conteúdo para outro lugar // // Requer a BDE declarada na clausula uses da unit // var DBHandle : HDBIDB; ResultCode : DBIResult; Src, Dest : Array[0..255] of Char; SrcTbl, DestTbl : TTable; begin if (ToDir <> '') and (FromDir <> '') then begin if (FromDir[length(FromDir)]= '\') then begin delete(FromDir,length(FromDir),1); end; if (ToDir[length(ToDir)] = '\') then begin delete(ToDir,length(ToDir),1); end; SrcTbl := TTable.Create(nil); DestTbl := TTable.Create(nil); try SrcTbl.DatabaseName := FromDir; SrcTbl.TableName := SrcTblName; SrcTbl.Open; DBHandle := SrcTbl.DBHandle; SrcTbl.Close; ResultCode := DbiCopyTable(DBHandle,false, StrPCopy(Src,FromDir + '\' + SrcTblName),nil, StrPCopy(Dest,ToDir + '\' + DestTblName)); if (ResultCode <> DBIERR_NONE) then begin Result := False; end else begin if TableEmpty then begin With DestTbl do begin Close; TableName := DestTblName; DataBaseName := ToDir; Exclusive := True; EmptyTable; Exclusive := False; end; end; Result := True; end; finally SrcTbl.Free; DestTbl.Free; end; end; end; abraço

extrair JPGs ou a url onde está o JPG ?

Se a sua grid for essa ( DBGrid1 ) e cdsChamadoComp pertencer a uma tabela vazia, voce vai ter nessa grid somente os registros selecionados uses dbgrids; var cont : integer begin With Dbgrid1 do Begin if SelectedRows.Count = 0 then begin MessageDlg('OPERAÇÃO ANULADA! '+ #13 + #13 + 'SELECIONE OS REGISTROS.' , mtInformation, [mbOK], 0); DBGrid1.SetFocus; Exit; end; for Cont:= 0 to Pred(SelectedRows.Count) do Begin Datasource.Dataset.Bookmark:= SelectedRows[cont]; cdsChamadoComp.Last; cdsChamadoComp.Insert; cdsChamadoComp.Edit; cdsChamadoCompCOD_CHAMADO.Value := cdsCadastroCODIGO.Value; cdsChamadoCompCOD_COMPONENTE.Value := cdsComponenteCODIGO.Value; cdsChamadoComp.Post; end; cdsChamadoComp.ApplyUpdates(-1); end; abraço