mORMot Open Source

Hello,
I am using

1.SynTaskDialog.pas
2.SynZip.pas
3.SynZipFiles.pas
4.Synopse.inc
5.deflate.obj
6.trees.obj

for my application from from -http://synopse.info/fossil/dir?ci=tip

mine is a component as well as a application that use 1.SynTaskDialog.pas
for showing messages

we plan to give the
1.Bpl
2.DCU
3.dpk file

4 and the application

so for the component
what exactly i have to mention?

" Units used from http://synopse.info
1.SynTaskDialog.pas
2.SynZip.pas
3.SynZipFiles.pas
4.Synopse.inc
5.deflate.obj
6.trees.obj
"

and about the Licence? MPL ?
as i want to make all the open source i have used as open but keep mine as closed.

i have only modified 1.SynTaskDialog.pas
so i will make it open with component

Ok, got it

i tried

procedure SynZipZipper(sZipFileName,sJpegFileName : string);
var
  Data     : string;
  sUmlDPath : string;
begin
 if FileExists(sZipFileName)  then DeleteFile(pchar(sZipFileName));
 with TZipWrite.Create(sZipFileName) do
  try
    AddDeflated(sJpegFileName);
    AddDeflated(FullUmldFilePath);  
  free;
except
    on E : Exception do
    begin
     free;
    end;
  end;

end;

what is `data` in the following code?

procedure TestCompression;
var FN: TFileName;
begin
  FN := ChangeFileExt(paramstr(0),'.zip');
  with TZipWrite.Create(FN) do
  try
    AddDeflated('one.exe',pointer(Data),length(Data));  //here what is data?
    assert(Count=1);
    AddDeflated('ident.txt',M.Memory,M.Position);         //here what is M?
    assert(Count=2);
  finally
    Free;
  end;
end;

im trying this code for compressing a jpg file

procedure TestCompression;
var FN: TFileName;
Data : string;
begin
  FN := ChangeFileExt(paramstr(0),'.zip');
  with TZipWrite.Create(FN) do
  try
    AddDeflated('C:\Documents and Settings\All Users\Documents\leakTracker\14_06_12 11_33_50 AM.jpg',pointer(Data),length(Data));
    assert(Count=1);
except
    on E : Exception do
      free ;
  end;
end;

it does not work, it shows the zip size a s 1 KB

can you tell me what is wrong?