paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-13 07:34:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

fcl-db: base: implements AsBytes for TBlobField

Browse Source 
git-svn-id: trunk@25294 -
This commit is contained in:
lacak 2013-08-19 12:06:36 +00:00
parent 9cf1ef90cd
commit 721d695ae4
2 changed files with 51 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
packages/fcl-db/src/base/db.pas
View File

@ -864,15 +864,17 @@ type
Function GetBlobStream (Mode : TBlobStreamMode) : TStream;
protected
procedure FreeBuffers; override;
function GetAsBytes: TBytes; override;
function GetAsString: string; override;
function GetAsVariant: Variant; override;
function GetAsWideString: WideString; override;
function GetBlobSize: Longint; virtual;
function GetIsNull: Boolean; override;
procedure GetText(var TheText: string; ADisplayText: Boolean); override;
procedure SetAsBytes(const AValue: TBytes); override;
procedure SetAsString(const AValue: string); override;
procedure SetText(const AValue: string); override;
procedure SetVarValue(const AValue: Variant); override;
function GetAsWideString: WideString; override;
procedure SetAsWideString(const AValue: WideString); override;
public
constructor Create(AOwner: TComponent); override;

63
packages/fcl-db/src/base/fields.inc
View File

@ -2737,7 +2737,7 @@ end;
{ TBlobField }
Function TBlobField.GetBlobStream(Mode : TBlobStreamMode) : TStream;
function TBlobField.GetBlobStream(Mode: TBlobStreamMode): TStream;
begin
Result:=FDataset.CreateBlobStream(Self,Mode);
@ -2748,6 +2748,24 @@ procedure TBlobField.FreeBuffers;
begin
end;
function TBlobField.GetAsBytes: TBytes;
var
Stream : TStream;
Len : Integer;
begin
Stream := GetBlobStream(bmRead);
if Stream <> nil then
try
Len := Stream.Size;
SetLength(Result, Len);
if Len > 0 then
Stream.ReadBuffer(Result[0], Len);
finally
Stream.Free;
end
else
SetLength(Result, 0);
end;
function TBlobField.GetAsString: string;
var
@ -2756,7 +2774,7 @@ var
begin
Stream := GetBlobStream(bmRead);
if Stream <> nil then
With Stream do
with Stream do
try
Len := Size;
SetLength(Result, Len);
@ -2776,7 +2794,7 @@ var
begin
Stream := GetBlobStream(bmRead);
if Stream <> nil then
With Stream do
with Stream do
try
Len := Size;
SetLength(Result, (Len+1) div 2);
@ -2799,7 +2817,8 @@ begin
s := GetAsString;
result := s;
end
else result := Null;
else
result := Null;
end;
@ -2807,29 +2826,29 @@ function TBlobField.GetBlobSize: Longint;
var
Stream: TStream;
begin
Stream := GetBlobStream(bmread);
Stream := GetBlobStream(bmRead);
if Stream <> nil then
With Stream do
with Stream do
try
Result:=Size;
finally
Free;
end
else
result := 0;
Result := 0;
end;
function TBlobField.GetIsNull: Boolean;
begin
If Not Modified then
result:= inherited GetIsnull
if Not Modified then
Result:= inherited GetIsNull
else
With GetBlobStream(bmread) do
with GetBlobStream(bmRead) do
try
Result:=(Size=0);
Finally
finally
Free;
end;
end;
@ -2841,12 +2860,26 @@ begin
TheText:=inherited GetAsString;
end;
procedure TBlobField.SetAsBytes(const AValue: TBytes);
var
Len : Integer;
begin
with GetBlobStream(bmWrite) do
try
Len := Length(AValue);
if Len > 0 then
WriteBuffer(AValue[0], Len);
finally
Free;
end;
end;
procedure TBlobField.SetAsString(const AValue: string);
var
Len : Integer;
begin
With GetBlobStream(bmwrite) do
with GetBlobStream(bmWrite) do
try
Len := Length(AValue);
if Len > 0 then
@ -2861,7 +2894,7 @@ procedure TBlobField.SetAsWideString(const AValue: WideString);
var
Len : Integer;
begin
With GetBlobStream(bmwrite) do
with GetBlobStream(bmWrite) do
try
Len := Length(AValue) * 2;
if Len > 0 then
@ -2923,8 +2956,8 @@ end;
procedure TBlobField.LoadFromStream(Stream: TStream);
begin
With GetBlobStream(bmWrite) do
Try
with GetBlobStream(bmWrite) do
try
CopyFrom(Stream,0);
finally
Free;