delphi memory/string stream

dobry den,
mam mensi problem s tymto kodom:

    ...
    zdrojak:TStringStream;
    zdrojak1:TMemoryStream;                     
begin
    zdrojak1:=TMemoryStream.Create();       
    zdrojak1.LoadFromFile(SuborStiahnuteData);   
    zdrojak:=TStringStream.Create(''); 
    zdrojak.CopyFrom(zdrojak1,zdrojak1.Size);
    zaciatokRiadok:=pos('td id=',zdrojak.DataString);
    zaciatokUdaj:=PosEx('>',zdrojak.DataString,zaciatokRiadok);

do zdrojak1 sa mi asi spravne nacita subor(stiahnuta webstranka). ked som to po nacitani zo suboru hned ulozil do dalsieho suboru, tak to bolo rovnake ALE zdrojak1.size mi ukazuje mensiu hodnotu! resp. rovnaku hodnotu ako zdrojak.size....ked sa pouzije ta hodnota, tak obsahuje iba stvrtinu udajov zo stranky. jej velkost je okolo 125 000.

problem je, ze ked pouzijem zdrojak.CopyFrom, tak sa mi tam nenakopiruju vsetky data. robim to preto takto, aby som v tom stringstream mohol vyhladavat pomocou pos a posex funkcii.

odkopiroval som to z programu co som robil kedysi a vtedy mi to fungovalo. nevie mi niekto poradit preco mi to nejde, alebo ako to spravit tak, aby mi to islo?

dakujem.

Jsou zobrazeny jen nové odpovědi. Zobrazit všechny

Předmět	Autor	Datum
Potrebuješ zistiť výskyt nejakého reťazca v súbore? Aspoň tak som to pochopil.... Ja by som to rieš… poslední pme 23.12.2010 13:07	pme	23.12.2010 13:07

Potrebuješ zistiť výskyt nejakého reťazca v súbore? Aspoň tak som to pochopil....

Ja by som to riešil asi takto:

function PosInFile(Str,FileName:string):integer;
 var
   Buffer:array[0..1023]of char;
   BufPtr,BufEnd:integer;
   F:File;
   Index:integer;
   Increment:integer;
   c:char;

 function NextChar:char;
 begin
   if BufPtr>=BufEnd then
   begin
     BlockRead(F,Buffer,1024,BufEnd);
     BufPtr := 0;
     Form1.ProgressBar1.Position := FilePos(F);
     Application.ProcessMessages;
   end;
   Result := Buffer[BufPtr];
   Inc(BufPtr);
 end;

 begin
   Result := -1;
   AssignFile(F,FileName);
   Reset(F,1);
   Form1.ProgressBar1.Max := FileSize(F);
   BufPtr:=0;
   BufEnd:=0;
   Index := 0;
   Increment := 1;
   repeat
     c:=NextChar;
     if c=Str[Increment] then
       Inc(Increment)
     else
     begin
       Inc(Index,Increment);
       Increment := 1;
     end;
     if Increment=(Length(Str)+1) then
     begin
       Result := Index;
       Break;
     end;
   until BufEnd = 0;
   CloseFile(F);
   Form1.ProgressBar1.Position := 0;
 end;

Zpět do poradny Odpovědět na původní otázku Nahoru