Jhonas

Veja se é isso: {Definição das funções da DLL.} function inportb(EndPorta: Integer): BYTE stdcall; external 'inpout32.DLL' name 'Inp32'; procedure outportb(EndPorta: Integer; Valor:BYTE); stdcall; external 'inpout32.DLL' name 'Out32'; procedure TForm1.Timer1Timer(Sender: TObject); begin Label2.Caption := IntToStr( inportb($379) ); end; procedure TForm1.Button1Click(Sender: TObject); begin outportb($378,255); //Liga todos os pinos do Registro de Dados. end; procedure TForm1.Button2Click(Sender: TObject); begin outportb($378,0); //Desliga todos os pinos do Registro de Dados. end; end. OBS: Veja a partir da pagina 20 , vai te dar uma idéia melhor http://www.google.com.br/url?q=http://bibd...Zrwrr2V5G3C0dWQ abraço

O retorno seria assim ? http://www.devmedia.com.br/post-4877-Utili...up-restore.html pelo WinExec basta fazer isso: procedure TForm1.Button1Click(Sender: TObject); begin WinExec('cmd /c gbak –user SYSDBA –pas masterkey 172.16.20.14:c:\dados.fdb c:\backup.fbk >c:\StatusBanco.txt', 0); end; OBS: Estou usando o exemplo do link, mas basta voce alterar para o seu uso veja tambem que o retorno do Dos vai ficar em um arquivo ( c:\StatusBanco.txt ) que voce poderá ler pelo delphi e jogar em um Memo ( exemplo acima ) abraço

maneira correta: function TForm1.fValor(Teste: string): integer; var pvalor: ^String; begin Teste := '123'; pvalor := @Teste; Result := strtoint(pvalor^); end; procedure TForm1.Button2Click(Sender: TObject); var Valor : string; begin showmessage(inttostr(fValor(Valor))); end; abraço

exemplos: http://info.abril.com.br/forum/viewtopic.p...=154&t=4145 https://www.scriptbrasil.com.br/forum/lofiv...php/t87214.html http://www.baixaki.com.br/download/renomear-tudo.htm abraço

if (qnt_vot (i) > maior_qnt) then maior_qnt = qnt_vot (i) cand_eleit = nome(i) sexo_cand = sexo(i) endif porc = (qnt_sup/num_cand) * 100 enddo experimente assim if (qnt_vot (i) > maior_qnt) then maior_qnt = qnt_vot (i) cand_eleit = nome(i) sexo_cand = sexo(i) endif enddo porc = (qnt_sup/num_cand) * 100 OBS: vale lembrar que se ( qnt_sup ) for zero o resultado ( porc ) será sempre zero abraço

exemplo: algoritmo "Palindromo" var palavra1: caractere Resp: caractere h: logico i, j:inteiro inicio repita limpatela escreva("Digite uma palavra: ") leia(Palavra1) i <- 1 j <- compr(Palavra1) h <- verdadeiro enquanto (i<j) faca escreval(copia(palavra1,i,1)) escreval(copia(palavra1,j,1)) se copia(palavra1,i,1)=copia(palavra1,j,1) então h<-verdadeiro senao h<-falso fimse j<-j-1 i<-i+1 fimenquanto escreval se h=verdadeiro então escreval("A palavra informada é um palindromo.") senao escreval("A palavra informada não é um palindromo.") fimse escreval escreva("Continuar (*/n): ") leia(Resp) ate Resp = "N" fimalgoritmo codificação usando pascal uses crt, DOS, sysUtils; var receber,NString:string; count,qtdeDig:byte; palindromo:boolean; sair:char; begin repeat textbackground(lightblue); clrscr; textcolor(yellow); writeln('DIGITE O TEXTO:'); readln(receber); NString:=upcase(receber); qtdeDig:=Length(NString); repeat delete(NString,pos(' ',NString),1) until pos(' ',NString) = 0; //remover espaços repeat delete(NString,pos('-',NString),1) until pos('-',NString) = 0; //remover hífens qtdeDig:=Length(NString); count:=0; repeat if NString[count+1]=NString[qtdeDig-Count] then begin palindromo:=true; count:=count+1; end else begin palindromo:=false; count:=qtdeDig; end; until count=qtdeDig; write('O TEXTO DIGITADO'); if not palindromo then write(' N',#199,'O'); writeln(' ',#144,' PAL',#214,'NDROMO!'); writeln; write('OUTRA CONSULTA? [S/N] >> '); repeat sair:=upcase(readkey) until sair in ['S','N']; until sair='N'; end. outros exemplos: http://www.daniweb.com/software-developmen...i/threads/49753 http://www.mail-archive.com/delphi-br@yaho...r/msg42847.html abraço

como uma das possibilidades, use o delphi além de ter componentes prontos para isso ( ou seja, não precisa codificar ), é uma linguagem bem facil de aprender exemplos: http://www.google.com.br/search?q=chat+del...p;aqi=&aql= abraço

veja http://www.infoescola.com/matematica/media...rica-harmonica/ http://www.matematicamuitofacil.com/medias.html http://pt.scribd.com/doc/53297189/Apostila...itmo-e-Logica-I abraço

as funções que eu informei das dll da impressora fiscal, como exemplo, fazem esse processo! eu não tenho impressora fiscal, mas voce não entendeu o que quis dizer ... a questão não é se pode ou não pode usar o var dentro da função, voce não cria functions somente usando o delphi ... voce pode usar outras linguagem de programação, como C++, VB, etc ... (dlls do windows) o delphi pode chamar e usar funções externas, feitas em outras linguagens ... o que eu quis dizer é que voce pode usar essas dlls pelo delphi, desde que voce saiba o nome e os seus parametros. entretanto se voce quer construir a dll usando o delphi, deve seguir o padrão estabelecido pela Borland para isso ( Ver exemplos na Unit SysUtils.pas e System.pas .... já dá pra ter uma boa noção ) O valor do número do cupom retornará da função e ai a minha variavel XCOO receberá esse valor. voce deve levar em conta que a impressora fiscal trabalha com microprocessadores e tem valores armazenados em posições de memoria que são retornados quando voce faz o acesso. meu conhecimento é limitado ... gostaria de poder ajudá-lo mais abraço

amigo, voce está querendo colocar chifre em cabeça de cavalo ... rs isso não tem logica nenhuma function TForm1.testeDataHora(Data: String; Hora: String): Integer; begin Data:= FormatDateTime('ddmmyyyy',date); Hora:= FormatDateTime('hhmmss',now); end; procedure TForm1.Button1Click(Sender: TObject); begin showmessage(inttostr(testeDataHora('',''))); end; o certo seria: function DataHora: TDateTime; var SystemTime: TSystemTime; begin GetLocalTime(SystemTime); with SystemTime do Result := EncodeDate(wYear, wMonth, wDay) + EncodeTime(wHour, wMinute, wSecond, wMilliseconds); end; procedure TForm1.Button1Click(Sender: TObject); var teste1, teste2 : string; begin Teste1 := FormatDateTime('ddmmyyyy',DataHora); Teste2 := FormatDateTime('hhmmss',DataHora); showmessage(Teste1); showmessage(Teste2); Teste1 := datetostr(DataHora); Teste2 := timetostr(DataHora); showmessage(Teste1); showmessage(Teste2); end; se voce ainda tem dúvidas quanto a definição de functions no delphi, sugiro voce ver a unit SysUtils.pas ( ponha o cursor em FormatDateTime e tecle F1 ) ela mostra como são montadas as functions que o delphi usa abraço

O retorno da função tem que ser do tipo inteiro e os parametros não podem conter o "var" nos parametros. isso depende de como a função foi construida... para maiores detalhes veja a unit Sysutil.pas do delphi function Data: Integer; begin Result:= strtoint(FormatDateTime('ddmmyyyy',now)); end; function Hora: Integer; begin Result:= strtoint(FormatDateTime('hhmmss',now)); end; procedure TForm1.Button1Click(Sender: TObject); begin showmessage(INTTOSTR(Data)); showmessage(INTTOSTR(Hora)); end; abraço

se voce quiser transformar um texto em voz, não precisa mudar nada, basta digitar o texto, e a fala será em portugues ( Raquel ) ... no entanto se voce quer falar no microfone e executar algum comando, existem programas na internet que fazem isso. abraço

veja se é isso function DataHora(Data: string; Hora: string): Integer; begin Data:= FormatDateTime('ddmmyyyy',now); Hora:= FormatDateTime('hhmmss',now); end; procedure TForm1.Button1Click(Sender: TObject); begin showmessage(INTTOSTR(DataHora('21/12/2011','20:00:00'))); // Resultado = 9254536 end; se não for isso.... veja: http://www.delphibasics.co.uk/RTL.asp?Name=FormatDateTime abraço

um exemplo: // esta é uma função do delphi que está no System.pas function Now: TDateTime; var SystemTime: TSystemTime; begin GetLocalTime(SystemTime); with SystemTime do Result := EncodeDate(wYear, wMonth, wDay) + EncodeTime(wHour, wMinute, wSecond, wMilliseconds); end; procedure TForm1.Button1Click(Sender: TObject); begin ShowMessage('Data = '+DateToStr(now)); ShowMessage('Hora = '+TimeToStr(now)); end; outra maneira procedure TForm1.Button1Click(Sender: TObject); begin ShowMessage('Data / Hora = '+ DateTimetostr(now)); end; a function now, é uma função do delphi que pega a data e a hora atual do micro abraço

baixe o arquivo Realspeak-português+brasil+Raquel ... é gratis http://www.4shared.com/get/dUzBBzIt/realsp..._sapi5_-_p.html 1º instale 2º Vá em Painel de controle/Fala 3º Selecione como padrão: ScanSoft Raquel_Full_22KHz abraço

agora falta só acha algo que leia a frequencia do sinal na entrada voce pode usar algo como o TabTrend No pacote do IOComp tem o componente TIScope que é parecido com esse da figura abraço

Help do delphi Length function Retorna um inteiro contendo o número de caracteres em uma string ou o número de elementos em uma matriz. declaração function Length(const S: string): integer function Length(const S: array): integer descrição Retorna um inteiro contendo o número de caracteres em uma string ou o número de elementos em uma matriz. Para uma matriz, Length (S) sempre retorna Ord (High (S)), Ord (Low (S)) +1 exemplo: var s : string; i : integer; s:='DELPHI'; i := Length(s); //i=6; //.................................................................. SetLenght procedure Altera o tamanho de uma matriz dinâmica ou uma string. declaração procedure SetLength(var S; Length1: Integer [; Lenght2: Integer]); descrição Altera o tamanho de uma matriz dinâmica ou uma string. S é uma variável string ou array dinâmico. Se S é uma matriz multidimensional dinâmica, podemos passar um ou mais comprimentos ao procedimento. Para uma variável de string curta, SetLength simplesmente define o indicador de caracteres de comprimento (o caractere em S [0]) para o valor dado. Neste caso, newlength deve ser um valor entre 0 e 255. exemplo: //create an integer vector of N elements type TVector = array of integer; procedure SetVector(var V: TVector; N: integer); var i: integer; begin SetLength(V,N); for i:= 0 to N-1 do N[i]:= N-1-i; end; //if N=6 then v={5,4,3,2,1,0}; abraço

OBS: traduza os erros para que fique mais facil o entendimento, para que voce possa solucioná-los o numero dentro do parentesis (75) refere-se a linha de código onde o erro foi achado veja que na tradução do erro, já dá pra voce ter uma idéia do que deverá fazer para resolver tipos incompatíveis: 'String' e 'TDBEdit' procure a linha 75 do seu código e veja como está definido a sintaxe do comando exemplo: var s : string; // Correto TDBEdit1.Text := s; // Erro TDBEdit1 := s; Caso tenha muitas dúvidas, sugiro procurar no forum ou na net apostilas basicas de delphi abraço

uma porta fica aberta até que o dispositivo seja fechado... exemplo disso, é o envio de email ou o download de algum arquivo, ou quando voce acessa um banco de dados interbase ou mysql ( a porta 3055 fica aberta enquanto existir comunicação com o banco ) se voce está usando a entrada de audio, não seria tipo um Vu-Meter que voce está querendo ? http://www.abaecker.biz/abkcomponents.html http://www.google.com.br/search?hl=pt-BR&a...l1122l2-3.1l4l0 abraço

procure na área de download, no link que eu passei abraço

sim... são independentes veja: http://campeche.inf.furb.br/tccs/2002-I/20...irajuniorap.pdf http://www2.dc.uel.br/nourau/document/?view=635 outra sugestão: Procure pelo Tcomport http://scriptbrasil.com.br/forum/index.php...ghlite=tcomport abraço

voce deve sempre colocar o erro que aparece na tela, caso contrario fica dificil ajudar... abraço

procedure TForm1.Button1Click(Sender: TObject); var s : string; begin if baixar.Text = '' Then begin If MessageDlg('Tem certeza que deseja dar baixa nesse lançamento ?', mtConfirmation, [mbYes, mbNo], 0) = mrYes then begin Query1.Close; Query1.SQL.Clear; s := ' Select * from a_pagar where codigo = ' + Me.txtcodigo; Query1.SQL.Append(s); Query1.Open; With Query1 do begin Update; FieldByName('data_pagamento'):= Date; Update; end; MessageDlg('Seu lançamento foi dado baixa com sucesso !', mtinformation, [mbyes], 0); end else Exit end else MessageDlg('Esse lançamento já foi dado baixa em: '+ baixar.Text + #13+#13+ 'Erro ao tentar dar baixa!', mterror, [mbno], 0); end; abraço

Função para tratamento do buffer geral enviado pela balança procedure Trata_Buffer(Buffer: String; var SWA, SWB, SWC, Peso, Tara: String); se o preço for a Tara, então voce pode fazer uma conversão de tipo valor := strtofloat(Tara) veja o que encontra na área de downloads obs: link corrigido http://www.igara.com.br/downloads/ abraço

só que não da certo na hora de compilar... coloque o erro extamente como ele aparece na sua tela ou faça uma pesquisa no forum http://scriptbrasil.com.br/forum/index.php...hlite=keylogger abraço