Fórum Ler/Gravar dados em uma Eprom utilizando Delphi é Possivel? #320927

Claro,vc vai utilizar ou a porta Paralela ou serial,mas vai ter que projetar o HardWare.

Esse problema de projeto fica por conta dos engenheiros o q preciso saber é como de q maneira com quais comandos do Delphi?
Writeln() por exemplo ou mesmo Write?

Como funciona seu gravador de eprom? Qual tipo de eprom você pretende utilizar?

Vc precisa dizer se vai usar a porta Paralela ou serial,se deseja assembler ou não(mais fácil).
Tenho vários programas do genero(tambem projeto o hardware então não vai ser difícil te ajudar).

Exemplo básico,vc tem que adicionar o tamanho válido dos dados(tamanho do arquivo menos cabeçalhos) para envio completo dos dados válidos.
Max:integer;//quantidades de dados a transmitir,a rotina de saída vai depender da OS(só me dizer) e interface.

Var
Arq:string;
T:Byte;
X,Max:integer;
...
procedure EnviaByte;//dizer qual windows e qual a interface de saida;
begin
out(T);
Sleep(50);//Depende da Eeprom.
Application.ProcessMessages;
end;

function NumToHex(Num: Byte): String;//Decimal p/ Hex de 1 Byte
Var
L : string[16];
BHi,BLo : byte;
Begin
L := ´0123456789ABCDEF´;
BHi := Hi(Num);
BLo := Lo(Num);
result := copy(L,succ(BLo shr 4),1) + copy(L,succ(BLo and 15),1);
end;

procedure TForm1.Button1Click(Sender: TObject);
Var
Arq:string;
Buf: TFileStream;
Begin
Button1.Enabled:=false;
x:=0;
Memo1.Clear;
Max:=766;
Arq:=´C:\stop.ico´;
Buf:= TFileStream.Create(Arq,fmOpenReadWrite);
While x < Max do begin//x=tamanho dos dados válidos.
Buf.Position:=x;//Aqui vc deve determinar o inicio da transferência( tipo de arquivo).
Buf.Read(T,1);//Ler 1 Byte;
Memo1.Lines.Add(NumToHex(T));
Label1.Caption:=IntToStr(X);
Application.ProcessMessages;
EnviaByte;
Inc(x);
End;
Buf.Free;
Button1.Enabled:=true;
End;

Muito obrigado por enquanto

Vou tentar montar um com esse exemplo que vc me passou, qquer duvida espero poder contar com o amigo.

Abraço.

Tadeu Rodrigues de Oliveira
Números Informática
sistemas@numerosinformatica.com.br