[delphi] strumienie

No wiec napisalem sobie cos takiego:

procedure TForm1.Button1Click(Sender: TObject);
var s : tfilestream;
a : tfilestream;
begin
if opendialog1.Execute then
if savedialog1.Execute then
begin
s := tfilestream.Create(opendialog1.FileName,fmopenread);
a := tfilestream.Create(savedialog1.FileName,fmopenwrite);
a.Seek(s.Size,sofromend);
a.CopyFrom(s,s.Size);
a.WriteBuffer(a,sizeof(a));
a.Free;
s.Free;
end;
end;

No i powinno chyba odczytac dane z jednego pliku i zapisac do drugiego na jego koncu. Ja sie tym bawilem z plikami textowymi ale cos sie zle zapisywalo i na koncu drugiego pliku pojawiaja sie krzaki hmm...

--
pozdrawiam PEDROS {hello}

Szukasz pomocy - najszybsza na ircu
#4programmers.net

Masz cos ciekawego. Napisz gotowca:
http://www.4programmers.net/delphi/gotowce/index.php?action=create

Delphi 6 Personal.

Moze s:=tfilestream.create('....',fmcreate or fmopenreadwrite);
albo cos podobnego....--Le murdoc

Jeżeli chcesz dopisać zawartość pierwszego pliku, na końcu drugiego, to tu masz błąd:
a.Seek(s.Size,sofromend); &lt- źle
a.Seek(0, soFromEnd);&lt- dobrze

Pierwsza linijka jest równoznaczna z a.Seek(0, soFromBeginning);--Jest jeszcze jeden błąd ... :)

Apel: Piszcie w tematach o jaki język programowania chodzi np. : [Delphi], [C++], itp.

Pomoc do Delphi po polsku. http://www.4programmers.net/forum/index.php?action=show&id=21335&c=2

Oficjalny kanał IRC serwisu 4programers:
serwer: warszawa.ircnet.pl sieć: POLNet kanał: #4programmers.net

Teraz juz dopisuje dobrze ale nadal w drugim pliku textwoym sa krzaki a co najdziwniejsze sa to '?' ale wyswietlane jako kwadracik :-) Czy sprawdzal to ktos czy dziala :-)--pozdrawiam PEDROS {hello}

Szukasz pomocy - najszybsza na ircu
#4programmers.net

Masz cos ciekawego. Napisz gotowca:
http://www.4programmers.net/delphi/gotowce/index.php?action=create

Delphi 6 Personal.

Pedros napisał:
Teraz juz dopisuje dobrze ale nadal w drugim pliku textwoym sa krzaki a co najdziwniejsze sa to '?' ale wyswietlane jako kwadracik :-) Czy sprawdzal to ktos czy dziala :-)

Nie sprawdzałem, ale mam jakieś dziwne przeczucie, że to wina kombinacji CopyFrom i WriteBuffer. Zawsze wydawało mi się, że wystarczy użyć tylko CopyFrom lub kombinacji Read/WriteBuffer.--Jest jeszcze jeden błąd ... :)

Apel: Piszcie w tematach o jaki język programowania chodzi np. : [Delphi], [C++], itp.

Pomoc do Delphi po polsku. http://www.4programmers.net/forum/index.php?action=show&id=21335&c=2

Oficjalny kanał IRC serwisu 4programers:
serwer: warszawa.ircnet.pl sieć: POLNet kanał: #4programmers.net