pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

Provide a property manager to the filters so a "Password" can be store and retrieved.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2379 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
inoussa
2012-04-03 17:41:29 +00:00
parent 1287ce1650
commit 2e30bc622b
2 changed files with 54 additions and 18 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
wst/trunk/client_utils.pas
View File

@ -227,7 +227,11 @@ var
locOldPos : Int64;
begin
if ASource.InheritsFrom(TMemoryStream) then begin
locBuffer := FFilter.ExecuteInput(TMemoryStream(ASource).Memory^,ASource.Size);
locBuffer := FFilter.ExecuteInput(
TMemoryStream(ASource).Memory^,
ASource.Size,
FFilter.GetPropertyManager()
);
end else begin
SetLength(locInBuffer,ASource.Size);
locOldPos := ASource.Position;
@ -237,7 +241,7 @@ begin
finally
ASource.Position := locOldPos;
end;
locBuffer := FFilter.ExecuteInput(locInBuffer[0],Length(locInBuffer));
locBuffer := FFilter.ExecuteInput(locInBuffer[0],Length(locInBuffer),FFilter.GetPropertyManager());
end;
ADest.Size := Length(locBuffer);
ADest.Position := 0;
@ -251,7 +255,7 @@ var
locOldPos : Int64;
begin
if ASource.InheritsFrom(TMemoryStream) then begin
locBuffer := FFilter.ExecuteOutput(TMemoryStream(ASource).Memory^,ASource.Size);
locBuffer := FFilter.ExecuteOutput(TMemoryStream(ASource).Memory^,ASource.Size,FFilter.GetPropertyManager());
end else begin
SetLength(locInBuffer,ASource.Size);
locOldPos := ASource.Position;
@ -261,7 +265,7 @@ begin
finally
ASource.Position := locOldPos;
end;
locBuffer := FFilter.ExecuteOutput(locInBuffer[0],Length(locInBuffer));
locBuffer := FFilter.ExecuteOutput(locInBuffer[0],Length(locInBuffer),FFilter.GetPropertyManager());
end;
ADest.Size := Length(locBuffer);
ADest.Position := 0;