Fórum Erro na Funcao WriteFile #326035

vc tentou retirar o @ antes do FWriteOS?

Já retirar mas o erro continua

Não use um parametro com nome [b:db5743aa84]Result[/b:db5743aa84] pois é uma palavra
´reservada´ para retorno de funções. Declare a variavel [b:db5743aa84]Res[/b:db5743aa84] como:

var Res : ^DWord;


Na função faça :

[b:db5743aa84]if not WriteFile(FHandle, Buf, Count, Res^, @FWriteOS) then....[/b:db5743aa84].

Acho que vai compilar..

[b:a5fffb2f14]antseralves[/b:a5fffb2f14], olhando melhor, realmente o problema está associado à Result. Entretanto, é devido ao fato de o parâmetro esperado por WriteFile ser do tipo DWORD, enquanto que Result estará implicitamente declarado como Integer.
Mas, alterar o retorno da função para DWORD não resolverá o problema, porque a seguir há uma atribuição a result de um valor que não é válido para este tipo (-1). A saída é realmente declarar uma variável para esta finalidade conforme vc sugeriu. Porém, seria conveniente que ela fosse declarada apenas: var Res :DWord;
A utilização do ^, faz com que essa variável seja do tipo ponteiro para um DWORD, ou seja, possui o endereço de uma área de memória que conterá um DWORD. Entretanto, se esta área não for previamente alocada poderá haver algum efeito colateral. :(

Não há qualquer restrição em utilizar Result nas operações dentro da função, já que é uma variável como outra qualquer.
Sobre declaração de Functions no help:
[i:a5fffb2f14]Every function implicitly has a local variable Result of the same type as the function´s return value.[/i:a5fffb2f14]
Traduzindo...:
[i:a5fffb2f14]Cada função tem implicitamente um variável local Result do mesmo tipo do valor retornado pela função.[/i:a5fffb2f14]

[]s

Mudando um pouco o enfoque...
Talvez fosse mais produtivo você usar um componente atualizado para o D7 do que tentar fazer esse componente antigo compilar/funcionar no D7.

Para comunicação serial tem estes que são gratuitos com fontes:[list:8b4009a4f5][*:8b4009a4f5][url=http://sourceforge.net/projects/tpapro/]AsyncPro[/url]: uma das melhores bibliotecas para comunicação serial[*:8b4009a4f5][url=http://sourceforge.net/projects/comport/]ComPort[/url]: uma biblioteca freeware muito popular[*:8b4009a4f5][url=http://www.ararat.cz/synapse/]SynaSer[/url]: biblioteca de classes para comunicação serial[/list:u:8b4009a4f5]

Para comunicação serial tem estes que são gratuitos com fontes:[list:21cf08cedd][*:21cf08cedd][url=http://sourceforge.net/projects/tpapro/]AsyncPro[/url]: uma das melhores bibliotecas para comunicação serial[*:21cf08cedd][url=http://sourceforge.net/projects/comport/]ComPort[/url]: uma biblioteca freeware muito popular[*:21cf08cedd][url=http://www.ararat.cz/synapse/]SynaSer[/url]: biblioteca de classes para comunicação serial[/list:u:21cf08cedd]