Jhonas

necessariamente não... eu tenho arquivo .res com skins diferentes, bitmaps, icones etc ... so preciso carrega-los quando for preciso exemplos: http://www.edudelphipage.com.br/dicas_text...a=10&busca= http://br.dir.groups.yahoo.com/group/delphi-br/message/6203 http://www.planetadelphi.com.br/artigo/41/...s-ao-executavel OBS: Na verdade voce nem precisa compilar o arquivo .Res usando o Brcc32 , basta ir em Menu > Project > Resources e clicar com o botão direito do mouse e clicar em New e escolher o que fara pare do arquivo de recursos abraço

como voce observou, o programa concatena 2 arquivos .dat, mas não da maneira que voce precisa ... se o conteudo fosse arquivo texto, não teria nenhum problema acho que voce pode usar arquivo .Res do proprio delphi para armazenar imagens ... procure no forum abraço

usando array diamico procedure MyCopyFile(FromName, ToName: string); var FromF, ToF : file; NumRead, NumWritten : Integer; //Buf: array[1..2048] of Char; Buf: array of Char; Ch : Char; begin AssignFile(FromF, FromName); Reset(FromF,1); AssignFile(ToF, ToName); Reset(ToF,1); Seek(ToF, FileSize(ToF)); SetLength(Buf, FileSize(ToF)); //ReWrite(ToF,1); repeat BlockRead(FromF, Buf, SizeOf(Buf), NumRead); BlockWrite(ToF, Buf, NumRead, NumWritten); until (NumRead = 0) or ( NumWritten <> NumRead); CloseFile(FromF); CloseFile(ToF); showmessage('Copia efetuada com sucesso!'); end; OBS: arquivos .dat podem ser arquivos de texto, vídeo, imagem, etc.... dependendo do conteúdo, ele cria uma entrada no registro onde um programa especifico usa para abrir este tipo de arquivo ao juntar 2 arquivos, o registro de entrada do outro arquivo ficará no final do primeiro... o programa que vai utiliza-lo precisa desse registro no inicio ( como se fosse um header ... cabeçalho de indice ) para poder identificar onde ele vai procurar a informação que necessita. acho que terá que pensar em outra solução abraço

voce tem que saber qual é o tamanho maximo das linhas do arquivo .dat Buf: array[1..2048] of Char; o tamanho maximo definido é de 2048 caracteres .. se seu arquivo dat tiver mais do que isso voce deve mudar esse comando para 3072, ou 4096 ou 5210 ...etc para que ele possa ler todo o conteudo dessa linha como eu disse, podia ou não funcionar corretamente abraço

levei apenas 5 minutos para montar vai funcionar a copia, mas não tenho certeza quando voce for utilizar o arquivo concatenado abraço

ok ... me esqueci de um detalhe ... o comando Rewrite zera o arquivo destino então tente essa modificação unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; OpenDialog1: TOpenDialog; SaveDialog1: TSaveDialog; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; File1, File2 : string; implementation {$R *.DFM} procedure MyCopyFile(FromName, ToName: string); var FromF, ToF : file; NumRead, NumWritten : Integer; Buf: array[1..2048] of Char; Ch : Char; begin AssignFile(FromF, FromName); Reset(FromF,1); AssignFile(ToF, ToName); Reset(ToF,1); Seek(ToF, FileSize(ToF)); //ReWrite(ToF,1); repeat BlockRead(FromF, Buf, SizeOf(Buf), NumRead); BlockWrite(ToF, Buf, NumRead, NumWritten); until (NumRead = 0) or ( NumWritten <> NumRead); CloseFile(FromF); CloseFile(ToF); showmessage('Copia efetuada com sucesso!'); end; procedure TForm1.Button1Click(Sender: TObject); begin // abrir arquivo1 if OpenDialog1.Execute then File1 := OpenDialog1.FileName; // salvar no arquivo destino if SaveDialog1.execute then MyCopyFile(File1, SaveDialog1.FileName); end; end. o procedimento é o seguinte: abra o arquivo origem exemplo : ( Arquivo1.dat ) e depois digite um nome de arquivo para ser salvo o conteudo do Arquivo1.dat exemplo: Teste.dat faça isso para cada arquivo que for juntar ao arquivo Teste.dat abraço

já que voce está usando o MySQL Front, va na aba SQL Editor e digite SELECT * from tab_geral order by codigo, nome se ficar do jeito que esta querendo, use o componente ZQuery com essa instrução abraço

OK ... este não é um arquivo texto e sim de dados faça o seguinte teste: unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; OpenDialog1: TOpenDialog; SaveDialog1: TSaveDialog; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; File1, File2 : string; implementation {$R *.DFM} procedure MyCopyFile(FromName, ToName: string); var FromF, ToF : file; NumRead, NumWritten : Integer; Buf: array[1..2048] of Char; begin Reset(FromF,1); AssignFile(ToF, Form1.SaveDialog1.Filename); Rewrite(ToF,1); repeat BlockRead(FromF, Buf, SizeOf(Buf), NumRead); BlockWrite(ToF, Buf, NumRead, NumWritten); until (NumRead = 0) or ( NumWritten <> NumRead); CloseFile(FromF); CloseFile(ToF); end; procedure TForm1.Button1Click(Sender: TObject); begin // abrir arquivo1 if OpenDialog1.Execute then File1 := OpenDialog1.FileName; // abrir arquivo2 if OpenDialog1.Execute then File2 := OpenDialog1.FileName; // copiar arquivo1 para arquivo2 MyCopyFile(File2, File1); end; end. Se o conteudo for texto , vai dar erro ... se for dados deve funcionar OBS: a concatenação desse tipo de arquivo pode não funcionar do jeito que voce está querendo ou pode não funcionar mais ... cuidado abraço

a versão que eu uso no delphi 7 é: JVCL338CompleteJCL201-Build3449.zip http://es.sourceforge.jp/projects/sfnet_jv...-Build3449.zip/ abraço

me referi ao conteudo do arquivo .... se texto , binario , etc para saber o conteudo basta abri-lo no bloco de notas

já tive esse problema, e era versão não compativel... instalava mas não mostrava os componentes na paleta baixei a versão correta de outro site e consegui fazer a instalação corretamente outra sugestão: desistale o delphi, limpe os registros ( CClean ou outro ) e instale tudo novamente abraço

o que extamente voce quer abrir pelo TMediaPlayer ? Video ? Midis ? ... passe um endereço de uma URL que deseja abrir pelo TMediaPlayer

veja http://www.baixaki.com.br/tecnologia/3098-...os-e-pastas.htm abraço

eu uso o QR sem problemas e fazendo quebras usando o qrgroupHeader, detail e qrGroupFooter em relatorios desse tipo, prefiro usar os componentes de acesso ao banco de dados , dentro do proprio QR então siga os passos: 1 - colocar os componentes TQuery, TDataSetProvider, TClientDataSet e TDataSource no QR 2 - Indexar a tabela usando a propriedade SQL do TQuery 3 - Na propriedade DataSet do QR colocar o nome do TDataSource 4 - Na propriedade Expression do QRGroup1 da banda qrgroupHeader colocar o nome do campo ( NOME ) que fara a quebra 5 - Na banda Detail coloque os campos da tabela que serão exibidos em sequencia 6 - Na Banda qrGroupFooter não coloque nada 7 - Ative a query no evento AfterPreview ou antes da chamada do preview do QR como exemplo, a sua DBGrid deveria apresentar os dados mais ou menos assim NOME...................DESC_PROD CONSUMIDOR1.....PRODUTOA CONSUMIDOR1.....PRODUTOC CONSUMIDOR1.....PRODUTOE CONSUMIDOR2.....PRODUTOA CONSUMIDOR2.....PRODUTOD CONSUMIDOR2.....PRODUTOJ se o campo NOME estiver na banda qrgroupHeader e o campo DESC_PROD estiver na banda Detail não há como errar abraço

Será q é porque o meu win7 é de 64 bist? ou n tem nada haver! é possivel que tenha haver com permissão de escrita no win7 ... pois se não houver essa permissão, os componentes não serão instalados se os componentes estiverem na mesma pasta do delphi, de permissão total sobre essa pasta e subpastas abraç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 ...) instale todos os pacotes, començando pelo jvcl ... procure pelo arquivo readme.txt que traz as instruões de instalação dos componentes abraço

voce pode até encontrar certificados digitais para testar, mas de qualquer maneira terá que comprar um tente esse: http://www.certisign.com.br/suporte/utilit...tograficos/aic/ abraço

function Tan ( const Number : Extended ) : Extended; A função Tan é uma função matemática que dá o valor Tangente de Número determinado radianos. PI Radianos = 180 graus exemplo: uses math; procedure TForm1.Button1Click(Sender: TObject); var float : single; begin // A tangente de 45 graus = 1.0 float := Tan(PI/4); // = 180/4 = 45 graus ShowMessage('Tan(PI/4) = '+FloatToStr(float)); end; veja esse post http://scriptbrasil.com.br/forum/index.php?showtopic=67224 mais informações: http://www.macsystemeduc.com.br/livros/ex5/exemplo5.html abraço

leia este post ... acho que vai esclarecer um pouco mais http://scriptbrasil.com.br/forum/index.php...st&p=610979 abraço

para testar: crie um novo report copie e cole tudo o que esta no relProdutos .. mude o que for necessario e faça o teste abraço

existe diferença de um para o outro exemplo: if ZTable.State = dsInsert then begin ZStoredProc.ExecProc; ZTableCODIGO.Value := ZSToredProc.Params[0].AsInteger; end; abraço

veja http://www.vivenciaemtecnologia.com/certif...gital-gratuito/ abraço

pode ser aqui mesmo, ou pode ser em outros softwares ou ate mesmo em php se a dúvida for mais relativa ao proprio comando em php abraço

o raciocínio está correto ... para testar se a tabela está ordenada corretamente, use um dbgrid para visualizar os dados na tabela voce devera encontrar o campo NOME repetido para cada um dos produtos que estiverem indexados a ele se ele aparecer corretamente, então o erro é somente na configuração das bandas do quick report abraço

Use componentes Zeos para acessar um banco de dados remoto ( web ) em uma conexão de 200 kb, uma operação de inclusão de 1000 registros em uma tabela demorou 4 seg quanto mais rapida a conexão, melhor será a performance leve em conta que a estrutura do programa conta muito nessa performance leia tambem a respeito de otimização de consultas sql http://ziggi.uol.com.br/downloads/12551 abraço