Boa noite galera,
seguinte, eu estou querendo abrir 6 arquivos binarios de uma só vez, organizados como um array de 65535 bytes. A ideia é ir indice por indice, analisar se o primeiro e o segundo arquivos estao abaixo de um certo valor selecionado pelo usuario e mostrar os valores do indice atual dos ultimos quatro arquivos na tela.
// Cria estrutura do arquivo - Necessario?
type FileStruct = packed record
ImgFile : array [0..65535] of Byte;
end;
var
Bgnd1Cam1 : FileStruct; // Variavel para Imagem 1
BGND1File : File of FileStruct; //Arquivo a ser aberto
procedure TForm1.Button1Click(Sender: TObject);
var Filename : string;
begin
//Usa opendialog pra abrir arquivo
OpenDialog1.Title := 'OPEN CAMERA IMAGE';
OpenDialog1.Filter := 'RAWDATA files (*.rawdata)|*.rawdata'; //Filtra por tipo de arquivo
if OpenDialog1.Execute then
Filename := OpenDialog1.FileName; // Grava o nome do arquivo na variavel
If Filename<>'' then // Se o nome do arquivo nao é vazio
begin
AssignFile(BGND1File,FileName); //Da o nome ao arquivo
reset(BGND1File);// Abre arquivo pra leitura
// Le ate o final do arquivo
while not eof(BGND1File) do
begin
Read(Bgnd1Cam1,BGND1File); //Le do arquivo para a variavel
end;
closefile(BGND1File); //Fecha arquivo
Não colei o codigo inteiro, porém já essa parte não esta funcionando, estou recebendo a seguinte mensagem de erro:
unit1.pas(125,26) Error: Can't read or write variables of this type
O que estou fazendo de errado? Obrigado pela ajuda pessoal!
Att,
croto