Probelm sa TFileStream-om....Code:
ReadStream := TFileStream.Create(AstrFile, fmOpenRead or fmShareDenyWrite);
with ReadStream do
begin
while (Position < pred(Size)) and (not Terminated) and (not blnSkip) do
begin
intRange := Read(FBuf^, FContext.BufferSizeKb*1024);
for intBrojac := 0 to Pred(intRange) do
begin
{ovde je problem}
end;
end;
end;
ReadStream := TFileStream.Create(AstrFile, fmOpenRead or fmShareDenyWrite);
with ReadStream do
begin
while (Position < pred(Size)) and (not Terminated) and (not blnSkip) do
begin
intRange := Read(FBuf^, FContext.BufferSizeKb*1024);
for intBrojac := 0 to Pred(intRange) do
begin
{ovde je problem}
end;
end;
end;
Potreban mi je da dobijem karaker koji se nalati na procitanoj poziciji
što u opštem slučaju nije teško:
Code:
(Char(Pointer(Longint(FBuf)+intBrojac)^))
(Char(Pointer(Longint(FBuf)+intBrojac)^))
medjutim problem nastaje prilikom čitanja fajlova koji u sebi sadrže unicode
karaktere.
Ideja? Rešenje?
