Unable to retrieve more than 8 bytes from a text field in sql server via Delphi ADO -

Delphi 7 SQLSERVER 2000

I'm having a problem with a legacy app that I can recompile I'm unable to, because when I lose the ability to retrieve documents from a text field, they are stored in and on disk, I only get the first 8 bytes. I have a huge application, but In fact, a simple app will rebuild the problem and Yes.

The code below is used to connect the connection string.

  Provider = SQLOLEDB.1; Password = toophlidium; Continue protection information = true; User id = a bit; Initial Catalog = DocManager; Data source = DELPHIBOX; To prepare the procedure use = 1; Auto translate = true; Packet size = 4096; Workplace ID = DELPHIBOX; Use encryption for data = false; Tag with column collation when possible = false  

test case for the whole code

  unit unit 1; Interface uses Windows, Messaging, SUUsutils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Grid, DBGride, ADODB, DB, STDCTL, DBCTRLs; Type TForm1 = Class (TForm) ADOConnection1: TADOConnection; ADOOCOTI 1: TADOAQUIRE; Edit 1: TEdit; Button 1: Tibbon; DBText1: TDB Text; DBText 2: TDB Text; DBText 3: TDBtext; Data Source 1: TDITSource; Adobe 1: Tidotable; Data source 2: TDITSource; DB Grid 1: TDBGrid; ADOQuery1DocumentDataID: TAutoIncField; EdoCocity 1 WarsianID: Tinterfield; ADOQuery1DocName: TStringField; Adectoria 1 Actual Doc: TMemoField; Click Process Button 1 (Sender: Tubect); Private {Private Announcement} public {public declaration} end; Var Form 1: Teform 1; Implementation {$ R *. Dfm} Process TForm1.Button1Click (Sender: Tubbed); Var sql: string; Start SQL: = 'Choose from tblDocumentData, select Top 1 * where version id =' + adobeable 1.fildbayname ('version id'). Astring; ADOQuery1.Close; Ado value1 SQL.Text: = SQL; ADOQuery1.Open; Tibbfiled (Adoculator 1.FieldByanName ('ActiveDoc')) SetoFile ('C: \ Temporary Temp \ myfile' + ADOTable1.FieldByName ('VersionId'). Asstring + '.doc'); End; End.  

This entire file is written for D

  ÐÏà¡ ± á  

, let me complete the 20 - 50 word document.

I have rebuilt a whole machine, to see that something went wrong on my god machine and that's the problem I have about rebuilding. If I try and try just against the live database then I have the same problem, but the old version (now about 4 years) works fine.

Any thoughts?

I got the problem I have to move the machines after the last update and install Update 1 for Delphi 7 has not been done.

An update has been installed and this problem has been fixed - Before I was looking for other problems, I should have raised.

Hope this answer can help some others.