Nasao sam nacin da citam binarno sve podatke iresio glavni problem:
Citat:
program console2;
{$Apptype console}
const
cBuffSize = 1024;
var
buff : array[1..cBuffSize] of char;
NumRead : integer;
inF : file of char;
outF : file of char;
mByte : byte;
prompt : char = '>';
begin
Assign (inf, '');
Reset(inf);
Assign (outF, '');
Rewrite(outf);
while not eof do
begin
BlockRead(inf, mByte, cBuffSize, NumRead);
WriteLn; Write (NumRead);
if (NumRead > 0) then begin
BlockWrite (outf, prompt, 1);
BlockWrite(outf, mByte, NumRead);
end else begin
Break;
end;
end;
CloseFile (inf);
end.
|
... ali se sad pojavio novi: Uvek preskocidarocita neke podatke sa pocetka.
Kada se podaci citaju preko Input promenijve koja je pokazivac na standradni ulaz u tekst rezimu, onda svec ita (dok je ulaz obican tekst), ali kada se cita binarno, onda cita sve ali prekoci na pocetku (ne)odredjeni broj bajtova...
Nikad me nije Delphi ovako iznervirao...