MemoryStream

[kemal]

Kod: Tümünü seç

procedure TForm1.Button3Click(Sender: TObject);
var
MemStr:TMemoryStream;
begin
MemStr:=TMemoryStream.Create;
IBTable1.Open;
IBTable1DAT.SaveToStream(MemStr);
StringGrid1.Cols[0].LoadFromStream(MemStr);
Memo1.Lines.LoadFromStream(MemStr);

MemStr.SaveToFile('Deneme.txt');

end;

Yukarıdaki kodları Blob (Text) kullandığım bir DAT adında alanım var ve bu alandan mesela bir memo'ya bilgi aktarmak istiyorum fakat olmuyor. Aynı şekilde TStringStream ve TStream üzerinde de denedim fakat yine olmadı bu basit problemi nasıl çözebiliriz? Ya da başka bir yöntemle nasıl olabilir?


Şimdiden Teşekkürler.

Kemal Gök

[freeman35]

Kod: Tümünü seç

procedure TForm1.Button3Click(Sender: TObject);
var
 MemStr:TMemoryStream;
begin
MemStr:=TMemoryStream.Create;
MemStr.Position := 0;
try
IBTable1.Open;
IBTable1DAT.SaveToStream(MemStr);
MemStr.Position := 0;
StringGrid1.Cols[0].LoadFromStream(MemStr);
MemStr.Position := 0;
Memo1.Lines.LoadFromStream(MemStr);
MemStr.Position := 0;
MemStr.SaveToFile('Deneme.txt');
finally
 if Assigned(MemStr)then begin
   MemStr.Clear; //Gerekyok ama ben genede yazarım :)
   freeandnil(MemStr);
 end;
end;
end;

eğer stream e bir şey yazarsan yada okursan position en sona konumlanır, yapılacak okuma yada yazma Position dan itibaren başlar.

Kolay gele

[kemal]

Hmmm . Teşekkürler.