[DUG] Images and MS SQL Server

Dave O'Brien dave at ICCS.CO.NZ
Tue Aug 19 10:54:54 NZST 2008 

How is ADOQueryGetMacroFileCol defined?

-----Original Message-----
From: delphi-bounces at delphi.org.nz [mailto:delphi-bounces at delphi.org.nz]
On Behalf Of Leigh Wanstead
Sent: Tuesday, 19 August 2008 10:28 a.m.
To: NZ Borland Developers Group - Delphi List
Subject: Re: [DUG] Images and MS SQL Server

I assume this code should help.

  ADOQueryGetMacro.sql.text := 'SELECT FileCol FROM table WHERE ID =
:ID';
  ADOQueryGetMacro.Parameters.ParamByName('ID').Value := someID;
  ADOQueryGetMacro.Open;
  try
    if not ADOQueryGetMacro.EOF then
    begin
      varStream := TMemoryStream.Create;
      try
        ADOQueryGetMacroFileCol.SaveToStream(varStream);
	  ... do something useful here
      finally
        FreeAndNil(varStream);
      end;
    end;
  finally
    ADOQueryGetMacro.Close;
  end;

Have a nice day

Regards
Leigh
www.smootharm.com


-----Original Message-----
From: delphi-bounces at delphi.org.nz
[mailto:delphi-bounces at delphi.org.nz]On Behalf Of Dave O'Brien
Sent: Tuesday, 19 August 2008 10:11 a.m.
To: NZ Borland Developers Group - Delphi List
Subject: Re: [DUG] Images and MS SQL Server


That's exactly what I am doing to save the image, how do I retrieve it?
Every method I have tried comes up blank.

-----Original Message-----
From: delphi-bounces at delphi.org.nz [mailto:delphi-bounces at delphi.org.nz]
On Behalf Of Leigh Wanstead
Sent: Monday, 18 August 2008 4:32 p.m.
To: NZ Borland Developers Group - Delphi List
Subject: Re: [DUG] Images and MS SQL Server

IIRC, I will do this way.

	varStream just a memory stream, you might want to instante with
a
TFileStream

	ADOQueryTest.sql.text := 'UPDATE table SET FileCol =
:FileColOBJECTS WHERE
ID = :ID';
	...

ADOQueryTest.Parameters.ParamByName('FileColOBJECTS').LoadFromStream(v
arStream, ftBlob);
      ADOQueryTest.ExecSQL;

Have a nice day

Regards
Leigh
www.smootharm.com


-----Original Message-----
From: delphi-bounces at delphi.org.nz
[mailto:delphi-bounces at delphi.org.nz]On Behalf Of Dave O'Brien
Sent: Monday, 18 August 2008 4:17 p.m.
To: NZ Borland Developers Group - Delphi List
Subject: Re: [DUG] Images and MS SQL Server


So did I, but I can't tell if it's not working because it's not saving
or loading...

The problem is FieldByName doesn't have any saveto... methods.

I have tried to cast it as a Tblobfield
(TBlobField(adoq.fieldbyname('Image')).Saveto...), but either this
doesn't work or my save code doesn't work.

-----Original Message-----
From: delphi-bounces at delphi.org.nz [mailto:delphi-bounces at delphi.org.nz]
On Behalf Of Neven MacEwan
Sent: Monday, 18 August 2008 4:06 p.m.
To: NZ Borland Developers Group - Delphi List
Subject: Re: [DUG] Images and MS SQL Server

Dave

I thought you had code to save it?

To tretrieve it (rough I don't have )

ADOQuery.SQL.Add('SELECT FileCol FROM Table WHERE ID = 1');
ADOQuery.Open;
ADOQuery.FieldByName('FileCol ').SaveToFile(FileName);

FieldByName('FileCol ') should be a TBlobField

Neven



> I've struck a complete blank on this.
> Can anyone show me some code to save and load images from SQL Server
> using TADOQuery?
> The methods I've come up with don't appear to work at all...
>
> -----Original Message-----
> From: delphi-bounces at delphi.org.nz
[mailto:delphi-bounces at delphi.org.nz]
> On Behalf Of Neven MacEwan
> Sent: Friday, 15 August 2008 4:02 p.m.
> To: NZ Borland Developers Group - Delphi List
> Subject: Re: [DUG] Images and MS SQL Server
>
> Dave
>
> Hasn't Tblobfield got the same streaming functions IIRC
>
>> I have worked out how to save an image into an Image field, but I'm
>> having brain fade on how to retrieve the image... Using TADOQuery,
>>
> D2005.
>
>> Save:
>>
>> ...
>>
>> datamod.ADOU.SQL.Add(':Image)') ;
>>
>> ms := TMemoryStream.Create ;
>>
>> try
>>
>> Image.Picture.Bitmap.SaveToStream(ms);
>>
>> ms.seek(0,0) ;
>>
>> datamod.ADOU.Parameters.ParamByName('Image').LoadFromStream(ms,
>> ftGraphic);
>>
>> finally
>>
>> ms.Free ;
>>
>> end ;
>>
>> datamod.ADOU.ExecSQL ;
>>
>> Anyone (I suppose everyone has) got a way to get the image back?
>>
>> Cheers,
>>
>> Dave.
>>
>>
>>
>
------------------------------------------------------------------------
>
>> _______________________________________________
>> NZ Borland Developers Group - Delphi mailing list
>> Post: delphi at delphi.org.nz
>> Admin: http://delphi.org.nz/mailman/listinfo/delphi
>> Unsubscribe: send an email to delphi-request at delphi.org.nz with
>>
> Subject: unsubscribe
>
> _______________________________________________
> NZ Borland Developers Group - Delphi mailing list
> Post: delphi at delphi.org.nz
> Admin: http://delphi.org.nz/mailman/listinfo/delphi
> Unsubscribe: send an email to delphi-request at delphi.org.nz with
Subject:
> unsubscribe
>
> No virus found in this incoming message.
> Checked by AVG - http://www.avg.com
> Version: 8.0.138 / Virus Database: 270.6.4/1616 - Release Date:
> 16/08/2008 5:12 p.m.
>
> _______________________________________________
> NZ Borland Developers Group - Delphi mailing list
> Post: delphi at delphi.org.nz
> Admin: http://delphi.org.nz/mailman/listinfo/delphi
> Unsubscribe: send an email to delphi-request at delphi.org.nz with
Subject: unsubscribe
>
>
>

_______________________________________________
NZ Borland Developers Group - Delphi mailing list
Post: delphi at delphi.org.nz
Admin: http://delphi.org.nz/mailman/listinfo/delphi
Unsubscribe: send an email to delphi-request at delphi.org.nz with Subject:
unsubscribe

No virus found in this incoming message.
Checked by AVG - http://www.avg.com
Version: 8.0.138 / Virus Database: 270.6.4/1617 - Release Date:
17/08/2008 12:58 p.m.

_______________________________________________
NZ Borland Developers Group - Delphi mailing list
Post: delphi at delphi.org.nz
Admin: http://delphi.org.nz/mailman/listinfo/delphi
Unsubscribe: send an email to delphi-request at delphi.org.nz with Subject:
unsubscribe


_______________________________________________
NZ Borland Developers Group - Delphi mailing list
Post: delphi at delphi.org.nz
Admin: http://delphi.org.nz/mailman/listinfo/delphi
Unsubscribe: send an email to delphi-request at delphi.org.nz with Subject:
unsubscribe

No virus found in this incoming message.
Checked by AVG - http://www.avg.com
Version: 8.0.138 / Virus Database: 270.6.4/1617 - Release Date:
17/08/2008 12:58 p.m.

_______________________________________________
NZ Borland Developers Group - Delphi mailing list
Post: delphi at delphi.org.nz
Admin: http://delphi.org.nz/mailman/listinfo/delphi
Unsubscribe: send an email to delphi-request at delphi.org.nz with Subject:
unsubscribe


_______________________________________________
NZ Borland Developers Group - Delphi mailing list
Post: delphi at delphi.org.nz
Admin: http://delphi.org.nz/mailman/listinfo/delphi
Unsubscribe: send an email to delphi-request at delphi.org.nz with Subject:
unsubscribe

No virus found in this incoming message.
Checked by AVG - http://www.avg.com 
Version: 8.0.138 / Virus Database: 270.6.5/1619 - Release Date:
18/08/2008 5:39 p.m.

More information about the Delphi mailing list