Til borrisholt (Ang. Encrypt/Decrypt stor txt fil)

sæt en ekstra memo på samt en knap. på knappen onclick event skrives :

procedure TForm1.Button1Click(Sender: TObject);
var
  Buffer : String;
  MemoryStream : TMemoryStream;
  Len : Integer;
begin
  MemoryStream := TMemoryStream.Create;
  Buffer := Memo1.Text;
  Len := Length(Buffer);
  FastCrypt(PChar(Buffer), Len);
  MemoryStream.Position := 0;
  MemoryStream.Write(Len,SizeOf(integer));
  MemoryStream.Write(Buffer,Len);
  MemoryStream.SaveToFile(Filename);
  MemoryStream.Free;

  Memo2.Lines.Clear;
  Memo2.Lines.Add(Buffer);

  if not FileExists(Filename) then
    exit;

  MemoryStream := TMemoryStream.Create;
  MemoryStream.LoadFromFile(Filename);
  MemoryStream.Read(Len,sizeOf(Integer));
  MemoryStream.Read(Buffer,Len);
  FastDecrypt(Pchar(Buffer),Len);
  Memo3.Text := Buffer;
  MemoryStream.Free;
end;


Jens B. http://fotx.net/borrisholt

Tak, det vil jeg prøve når jeg kommer hjem! Lige nu er jeg på skolen :) Læser til multimedie designer!

michael-schou  >> skal du ikke være RIGTIG nørd som os andere ?

borrisholt >> Jo det er jeg også i fritiden, dette er bar for at få en udd. :)

tsk. tsk. .... :-)

Jens B

Min fritid går mest med programmering i delphi og til at hjælpe andre med problemer (Hardware, software o.s.v. :)

Betyder det at jeg ikke mår drille ?

Jens B

jo jeg kan tåle det :) det svækker ikke min selvtillid. Hvordan er du egentlig blevet sådan en haj til delphi?

Det startede med jeg fik et fem tal til eksamen i programmering efter første semester. Så besluttede jeg det skulle være løgn ....

Det viste sig dog senere at den præve vi fik udleveret var langt over niveau. med vilje for at teste hvad vi kunne ....

Jens B

hehe lytter med :-)

/ZIRON

Ok, du hare bare læst dig til alt hvad du kan? Kan du anbefale nogle bøger?

Jeg har bare læst og læst ....

Anbefalinger :

Sams Teach Yourself Delphi 4 in 21 Days ~ Sams Development Team
Mastering Delphi 5 ~ Marco Cantu
Delphi 5 Developer\'s Guide (Developer\'s Guide) ~ Steve Teixeira, Xavier Pacheco

generelt littratur om Delphi. Jo mere jo bedere ....

Jens B

Ok Tak, undskyld jeg er så længe om at skrive, sidder og sms\'er med kærsten :)

borrisholt, din løsning er til den gamle version af programmet, løsningen skulle køre sammen med den Unit2 du havde lavet :)

michael-schou  >>A Sikkert .. Kunne du så ikke sende mig eksemplet så skal jeg lige mokke det på pladt. Det eksempel har jeg ikke længere...

Jens B  http://fotx.net/borrisholt

borrisholt >> Jeg har sendt dig en E-mail med alt hvad du behøver for at kunne hjælpe mig :)

borrisholt >> Tak for din e-mail det virker fint :)