Jhonas

Veja se encontra alguma coisa aqui no forum http://scriptbrasil.com.br/forum/index.php...e=acesso+remoto abraço

Faça uma pesquisa primeiro no forum para ver se já existe alguma coisa a respeito da sua dúvida http://scriptbrasil.com.br/forum/index.php...highlite=fortes abraço

Como assim fora do Form? ... Pelo que eu entendi voce colocou um componente QuickReport dentro de um form, não foi ? FrmEtiquetas.QuickRep2.Print porque se não voce não estaria chamando desta maneira e sim somente QuickRep2.Print Criando dinamicamente você diz? ... Não voce vai no Menu do delphi na opção File > New > e clica em Report Voce terá um QuickReport independente do seu Form... depois nele voce monta a estrutura que deseja e modifica o tamanho do papel como lhe informei ... depois faça o teste para ver o que aconteçe. abraço

João Paulo ... embora a sua dúvida não seja sobre delphi vou lhe responder e mover o seu tópico para outra área, a menos que voce vá desenvolver um programa em delphi O que é SPED Contabil De maneira bastante simplificada, podemos definir o Sped Contábil como a substituição dos livros da escrituração mercantil pelos seus equivalentes digitais. Estrutura do SPED Contabil http://www.portalsped.com/sobre_sped_contabil.html Arquivos usados pelo SPED Contabil http://www1.receita.fazenda.gov.br/sped-co...de-arquivos.htm Sped - Sistema Público de Escrituração Digital ( Programa - Java ) http://www.receita.fazenda.gov.br/Sped/Dow...iplataforma.htm Manual de Orientação do Laiaute da ECD http://www.scribd.com/doc/921521/Manual-de...il-Digital-SPED abraço

Essa paradinha por uma fração de segundo pode ser em função do tamanho do papel definido Experimente usar um QuickReport fora de um Form ... e em Paper Size use a definição Custom Size e defina exatamente o tamanho do papel usado na impressora abraço

Veja se este serve http://www.toadsoft.com/sqlmonitor.zip caso contrário tente neste endereço http://soft.loginany.com/softwareInfo.php?id=826 abraço

Este comando separa apenas os itens selecionados if FileListBox1.Selected then veja se voce colocou este comando no código abraço

Faça esta alteração no código procedure TForm1.btnEnviaClick(Sender: TObject); var i : integer; begin Gauge1.MaxValue := FileListBox1.Items.Count; for i := 0 to FileListBox1.Items.Count-1 do begin try if FileListBox1.Selected[i] then begin IdFTP1.Put(FileListBox1.Items.Strings[i], FileListBox1.Items.Strings[i], false); end; Gauge1.Progress := i+1; except on e:Exception do ShowMessage(e.Message); end; end; end; abraço

Estas configurações não são do windows media enconder e sim do windows Verifique as configurações no Painel de controle > Sistema > Gerenciador de dispositivos > Controladores de Som, Video e Jogos Ainda no Painel de Controle > Sons e dispositivos de audio > veja Sons , Audio e Hardware OBS: este é o caminho para voce achar os dispositivos de som e algumas configurações que podem ser alteradas abraço

E esse codigo esta dando error, como eu digo que o campo é foreign key no oracle pois nunca fiz nenhum banco em oracle so SQL SERVER Primeiro voce cria a tabela definindo apenas a chave primaria create table Loc_Filme (Fi_Codigo number(5) not null primary key, Fi_Nome varchar(30) not null, Cat_Codigo number(5) not null, At_Codigo number(5) not null) Depois voce faz uma instrução select para alterar e adicionar a chave secundaria SQL> alter Loc_Filme add (constraint Cat_Codigo_fk foreign key (Cat_Codigo) references employee (Cat_Codigo) on delete cascade); outro exemplo: ALTER TABLE (table_name) ADD CONSTRAINT (foreign key constraint name) FOREIGN KEY ( field name ) REFERENCES primary_table_name (primary_table_primary_index_field) ALTER TABLE dependent ADD CONSTRAINT ( emp_num_fk ) FOREIGN KEY ( emp_num ) REFERENCES employee ( emp_num ); outro exemplo: http://www.databasejournal.com/features/or...s-in-Oracle.htm abraço

DECLARE QTD_REG NUMBER(9) :=0; BEGIN SELECT COUNT(*)*1 INTO QTD_REG FROM TESTE; EXCEPTION WHEN NO_DATA_FOUND THEN QTD_REG :=0; END; BEGIN IF QTD_REG > 6 THEN BEGIN // indicação do erro nesta linha DROP TABLE TESTE2; // indicação do erro nesta linha CREATE TABLE TESTE2 AS SELECT * FROM TESTE; END; END IF; END; EXIT; / Aparentemente, indica que o erro está no begin na linha 12 e o erro seguinte vem por tabela, então experimente tirá-lo DECLARE QTD_REG NUMBER(9) :=0; BEGIN SELECT COUNT(*)*1 INTO QTD_REG FROM TESTE; EXCEPTION WHEN NO_DATA_FOUND THEN QTD_REG :=0; END; BEGIN IF QTD_REG > 6 THEN DROP TABLE TESTE2; CREATE TABLE TESTE2 AS SELECT * FROM TESTE; END IF; END; EXIT; / abraço

Se voce não souber qual foi o algoritmo usado para fazer a criptografia estes dados não servirão para nada. Tente junto a telefonica saber que programa foi utilizado para criptografar os dados ou se eles podem lhe fornecer o código fonte. abraço

Voce pode usar desta maneira select * From recados WHERE data_a = '24/12/2008' Veja neste post como usar a instrução select http://scriptbrasil.com.br/forum/index.php...st&p=520800 OBS: Habitue-se a utilizar a pesquisa do forum, basta digitar uma palavra chave para pesquisar exemplo: Se voce digitar select irá aparecer todos os posts onde contem essa palavra http://scriptbrasil.com.br/forum/index.php...highlite=select abraço e Feliz Natal

Voce pode usar alguns tradutores encontrados na net, mas tera que corrigir algumas frases depois de traduzido http://www.google.com.br/search?hl=pt-BR&a...mp;o que=tradutor+ abraço

Se voce estiver usando o Windows Media Encoder, ele pega tudo o que sai da placa de som e transforma em streaming. O som meio de lata pode ser configuração ou os codecs de som Verifique as configurações no Painel de controle ( Sistema ) Gerenciador de dispositivos > Controladores de Som, Video e Jogos Ainda no Painel de Controle ( Sons e dispositivos de audio ) veja Sons , Audio e Hardware faça algumas mudanças e veja o que acontece. abraço e Feliz Natal.

Vou fazer um exemplo usando o Memo Imagine que voce tem essa sequencia no seu banco de dados.... então o que voce quer é o proximo depois do ( 4 ), mas usando ( dm.QueryMaxPro.SQL.Add('SELECT MAX (PROCOD) FROM ESTAPRO.dbf') voce teria o numero 7896065880106 para contornar esse problema, uma das maneiras seria esta: procedure TForm1.Button1Click(Sender: TObject); var S, s1: string; i, num : integer; begin for i := 0 to Memo1.Lines.Count do begin S := Memo1.Lines.Strings[i]; if Pos('0000', S) > 0 then begin num := strtoint(s); FmtStr(s1, '%.13d', [num+1]); end; end; Label1.Caption := ' O Proximo numero será ' + s1; // 0000000000005 end; OBS: Modifique o código para o seu uso abraço e Feliz Natal

Neste caso não... entretanto voce tambem deve levar em conta, possiveis erros no HD, como Bad Clusters, e neste caso se eles forem poucos, uma formatação do HD resolve. mas antes de chegar a este extremo, faça uma limpeza nos contatos das memórias usando uma borracha macia, e tente novamente.. se não funcionar então tente a formatação. abraço

Function DownloadFile1(sSource1, sDest1: String): Boolean; Begin Try Result := UrlDownloadToFile(nil, PChar(sSource1), PChar(sDest1), 0, nil) = 0; Except Result := False; End; Veja a sintaxe da função no help. Voce pode tratar o resultado do UrlDownloadToFile UrlDownloadToFile(nil, PChar(sSource1), PChar(sDest1), 0, nil) = 0; alguns exemplos: 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: uses UrlMon function DownloadFile(Source, Dest: string): Boolean; begin try Result := UrlDownloadToFile(nil, PChar(source), PChar(Dest), 0, nil) = 0; except Result := False; end; end; procedure TForm1.Button1Click(Sender: TObject); begin if DownloadFile ('http://www.delphi3000.com/index.htm, 'c:\index.htm') then ShowMessage('Download successful') else ShowMessage('Download unsuccessful') end; outros exemplos: http://www.devmedia.com.br/articles/viewcomp.asp?comp=306 http://www.swissdelphicenter.ch/torry/showcode.php?id=412 abraço e feliz natal

abraço

Antonio ... um feliz natal para voce e sua família ...que Deus lhe dê saúde, paz e prosperidade. Se esforçe para ser um programador pleno. Leia muito e pratique muito .. só assim se chega a perfeição e ao reconhecimento. abraço do amigo Jhonas

Oi Eder .. é possivel sim ...basta modificar para o seu uso procedure TForm1.Button1Click(Sender: TObject); var s, s1, s2, s3: string; begin s := Edit1.Text; // HRG;23-9 s1 := copy(s,1,pos(';',s)); delete(s,1,pos(';',s)); s2 := copy(s,pos(';',s)+1,pos('-',s)-1); S3 := copy(s,pos('-',s),2); FmtStr(s, '%.6d', [StrToInt(s2)]); edit1.text := s1 + s + s3; // HRG;000023-9 end; abraço e feliz natal para voce e sua família

Este problema é causado por arquivos de configuração do windows corrompido. Para solucionar voce pode fazer uma atualização do windows via CD de instalação do windows ou ainda ir em Iniciar > Executar e digitar sfc /scannow com o CD de instalação do windows no CD Rom. espere completar o processo e reinicie o micro abraço

Isso é um vírus ... não danifica nada no seu pc, entretanto enche a paciência ter que ficar a todo momento escolhendo com qual programa voce quer explorar o drive. para solucionar este problema use o Flash_Disinfector.exe http://www.nakido.com/6B10928B2B52CA646300...805D0EF4B9DEE17 abraço

MatLab não é o meu forte .... mas literatura sempre ajuda a esclarecer dúvidas. Mais especificamente a função que esta procurando http://www.mathworks.com/access/helpdesk/h...ttonName=Search abraço

Realmente é um erro de configuração. sugestões: (testei o arquivo no servidor de meu amigo.. ele colocou o arquivo e funcionou normal 100%) peça para o seu amigo lhe passar a configuração usada neste servidor ou tente este endereço: http://www.scribd.com/doc/2706383/Aula08-Configuracao-Apache abraço