Stream

Brug evt. en TMemoryStream og SaveToFile(); du kan bruge CopyFrom hvis du har data i en anden Stream

/Martin

kunne du give et eks.?

VAR
  S,S2 : TMemoryStream;

begin
  S := TMemoryStream.Create;
  S2 := TMemoryStream.Create;
  S.LoadFromFile(\'C:\\AutoExec.Bat\');
  S2.CopyFrom(S,0);
  S2.SaveToFile(\'MinKopi.Dat\');
  S2.Free;
  S.Free;
end;

jeg har prøvet at lave et eks. så jeg ka overføre filer mellem to computere men den vil ikk gemme det :-(

COMPUTER1:
procedure TForm1.Button1Click(Sender: TObject);
var
  MyFStream: TFileStream;
begin
  If OpenDialog1.Execute then
  Begin
    NMStrm1.Host := Edit2.Text;
    NMStrm1.FromName := Edit1.Text;
    MyFStream := TFileStream.Create(OpenDialog1.FileName, fmOpenRead);
    try
      NMStrm1.PostIt(MyFStream);
    finally
      MyFStream.Free;
    end;
  end;
end;


COMPUTER 2:
procedure TForm1.NMStrmServ1MSG(Sender: TComponent; const sFrom: String;
  strm: TStream);
begin
  if savedialog1.execute then
  begin
    dennis.Copyfrom(strm,0);
    dennis.SaveToFile(savedialog1.filename);
  end;
end;

den viser både open og save dialogen men der kommer ikk nogen fil :-(

Jeg mener det er hele streamen du for med copyfrom(strm,0) men check lige hjælpen, og check evt. strm.size og evt. sæt strm.position := 0; inden du laver en copyfrom, jeg formoder at dennis = TMemoryStream. Det virker som om Strm.size er lig 0, får du en fejl ??

/Martin

Prøv evt. lige at tilføje en dennis.Free efter du har lavet en SaveToFile, for at være sikker på den flusher til disk.

ingen fejl den kører der ud af men laver ingen fil

Denner du siger du er så god til det så kan du ik bare lave det (og husk vi har tysk for) LOL!!!!



:-)

rohr>> Hvilket tysk?

jeg har prøvet at bruge position og brugt free men intet hjælper

Ik noget tror jeg udover det sædvanlige (geheime mission og et eller andet gramma)

Er ik sikker på vi har noget for overhovedet men regner med det

Denner svar lige på ICQ ok

rohr>>
HUSK:
ICH BIN
DU BIST
ER, SIE, ES IST
---------------
WIR SIND
IHR SEID
SIE, SIE SIND

martinlind>> Ved du hva det ka være?

Hvad var Strm.Size ???

Den er sikkert lig 0, og derfor ingen fil

904704

jeg har både prøvet at skrive:
dennis.Copyfrom(strm,0);
og
dennis.Copyfrom(strm,strm.size);
hvis det skulle være noget med det

Mærkeligt, prøv evt. at lave din Dennis ( stream ) om til en filestream også nøjes med en CopyFrom og en Free, det burde også virke

jeg har ikke lige nogle ider til hvorfor det andet ikke virker, er du sikker på du kigger efter din fil det rigtige sted på din disk, jeg plejer ikke at havde problemer med stream\'s de plejer sku bare at køre

/Martin

jeg prøvede at lave en:
    showmessage(\'Der er \' + InTToStr(dennis.Size));

efter dennis.copyfrom(bla) og den vil den slet ikk køre

Du skal skrive CopyFrom(Strm,0) for at få hele source stream kopi\'eret ( kig i online hjælpen )

    dennis.Copyfrom(strm,0); virker ikk

Så er det fordi CopyFrom kommer med en fejl, sæt din Delphi op til at breake på delphi excptions så vil den stoppe ved fejlen når du runner, det forklarer også hvorfor du ikke får en fil, delphi jumper ud at din procedure når du for en fejl og kører ikke den efter følgende koden, du kan evt. lave en try except og i din except skrive
fejlen ud.


try
  copyfrom();
  ....
  except
  on E:Exception do
    ShowMEssage(E.Message);
end;

Du skal jo lige huske at Dennis skal være createt

det kan jeg ikke se ud af din kode om den er, noget kunne tyde på at den ikke er det

Access violation at address 0040EE6F in module \'PROJECT1.EXE\'. Read of address FFFFFFFF

dooh create

øøhh foresten nu du er igang ved du så hvordan at jeg ka finde ud af:
Først hvilke mapper der ligger i en bedstemt mappe eller et drev og så bagefter filer (De ska ligges i hver deres memofelt

hvis du ve det gider du så ik svare her: http://www.eksperten.dk/spm/109193 ??????

Det spm er da lukket !

Du kan kigge her i løbet af i morgen : www.e-lind.dk

/Martin