	[x] Posted via EE Mobile
	Search, ask, and monitor your questions on the go with EE Mobile. Visit Experts Exchange from your mobile device and never be out of touch again.

06/18/2009 at 08:22AM PDT, ID: 24502889

	[x] Attachment Details

[x]

The Solution Rating System

With so many solutions, how can you tell which solutions are most likely to help you and which ones are not? To provide you with a tool to use, we rate our solutions based on various elements that most accurately determine if a solution is a quality solution. To explain what factors affect the solution rating, here are the elements we take into consideration when formulating our solution rating.

The Grade of the Solution
The Zone Rank of the Expert Providing the Solution
The Number of Author and Expert Comments
The Number of Experts Contributing
The Feedback of the Community

Your Input Matters
Because of the way the system is set up, the most important variable in this equation is you. As a member of Experts Exchange, you are able to cast your vote on the quality of the solutions in regard to how complete, accurate, helpful and easy to understand each solution is. When you provide your feedback, each rating is adjusted accordingly. So, if you see a solution that has a poor rating that you think is a good solution, let us know by rating it. As you do, the rating will be adjusted and will become more accurate for other members of our site.

If you have any suggestions that you would like to make for our rating system, please ask a question in the Suggestions Zone of Community Support.

Thank you!

8.7

How do I save xls files from disk to an sql database and from a sqldatabase to file

Asked by FSPNowee in Delphi Programming, Databases Miscellaneous, Delphi Database

Tags: Delphi, sql, office

Hello,

I want to save files to an sql database en from the datbase to file.
It works with pdf, and word files, but XLS files give me troubles.
If i save a file form f.i. 96k to my sql database, and then save it to file again, the file is only 86 k and I can not open it then.
Below the code, on the bitbutton1 click i save the file to database and on the bitbutton2 click I save it back to disk (giving it a different name).

I tried lots of things but nothing seemed to work.

Thanks Rob Nowee

View the Solution FREE for 30 Days

         
           
             1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:

           
           
             procedure TForm1.BitBtn1Click(Sender: TObject);
Var
  OleContainer : TOleContainer;
  MStream : TMemoryStream;
  FStream : TFileStream;
  Doc: TStream;
  FileName : String;
begin
  if OpenDialog1.Execute then
  begin
    Doc := TMemoryStream.Create;
    Try
      If SameText(ExtractFileExt(OpenDialog1.FileName),'.PDF') then
      begin
        FStream := TFileStream.Create(OpenDialog1.FileName,fmOpenRead);
        Try
          //Doc := FStream;
          adsArchief.Append;
          adsArchiefFileName.Value := OpenDialog1.FileName;
          (adsArchief.FieldbyName('FileStream') as TBlobField).LoadFromStream(FSTream);
          adsArchiefExtension.Value :=  ExtractFileExt(OpenDialog1.FileName);
          adsArchief.Post;
          Finally
          FStream.Free;
         end;
      end
      else
      begin
        OleContainer := TOleContainer.Create(nil);
        Try
         OleContainer.Parent  := Form1;// Assuming there is a form
         OleContainer.visible := False;
         OleContainer.CreateObjectFromFile(OpenDialog1.FileName,False);
         MStream := TMemoryStream.Create;
         Try
          OleContainer.SaveToStream(MStream);
          adsArchief.Append;
          adsArchiefFileName.Value := OpenDialog1.FileName;
          (adsArchief.FieldbyName('FileStream') as TBlobField).LoadFromStream(MStream);
          adsArchiefExtension.Value :=  ExtractFileExt(OpenDialog1.FileName);
          adsArchief.Post;
         Finally
          MStream.Free;
         end;
        Finally
         OleContainer.Free;
        end;
      end;
    Finally
      FreeAndNil(DOC);
    End;
 
  end;
end;
 
procedure TForm1.BitBtn2Click(Sender: TObject);
Var
  OleContainer : TOleContainer;
  MStream : TMemoryStream;
  FStream : TFileStream;
  Doc: TStream;
  FileName : String;
begin
  SaveDialog1.Filter := adsArchiefExtension.Value+'|*'+adsArchiefExtension.Value;
  SaveDialog1.DefaultExt := adsArchiefExtension.Value;
  If  SaveDialog1.Execute then
  begin
    if SameText(adsArchiefExtension.Value,'.PDF') then
    begin
      FStream := TFileStream.Create(SaveDialog1.Filename,fmCreate);
      Try
        Doc := adsArchief.CreateBlobStream(adsArchief.FieldByName('FileStream'),bmRead);
        FStream.CopyFrom(Doc, Doc.Size);
        //FStream.Write;
      Finally
        FStream.Free;
      end;
    end
    else
    begin
        OleContainer := TOleContainer.Create(nil);
        OleContainer.Parent  := Form1;// Assuming there is a form
        OleContainer.visible := False;
        Doc := adsArchief.CreateBlobStream(adsArchief.FieldByName('FileStream'),bmRead);
        Try
          OleContainer.LoadFromStream(Doc);
          OleContainer.OleObject.SaveAsDocument(SaveDialog1.Filename); //SaveAsDocument(SaveDialog1.Filename);
        Finally
          freeAndNil(OleContainer);
          freeAndNil(Doc)
        End;
    end;
  end;
end;

           
         

20090824-EE-VQP-74 - Hierarchy / EE_QW_3_20080625

1. Geert_Gr... 420,416
2. Hypo 177,590
3. ThievingSix 110,131
4. MerijnB 100,165
5. EddieShip... 99,839
6. epasquier 89,800
7. SteveBay 84,402
8. Johnjces 73,431
9. rfwoolf 69,023
10. ciuly 43,806
11. developm... 41,420
12. dougaug 39,666
13. BdLm 36,630
14. JosephGl... 33,910
15. thiagoblim... 31,064
16. 8080_... 30,185
17. rllibby 28,955
18. aikimark 28,470
19. senad 27,300
20. bokist 22,565
21. TheRealL... 22,394
22. JonasMal... 19,980
23. MvanderK... 19,300
24. irishbuddha 18,800
25. ziolko 17,700

1. kretzsch... 1,417,314
2. rllibby 1,354,947
3. ciuly 1,299,984
4. ziolko 776,079
5. EddieShip... 732,301
6. Geert_Gr... 694,733
7. Madshi 662,000
8. Slick812 645,363
9. geobul 628,081
10. mnasman 607,055
11. Workshop... 558,515
12. TheRealL... 544,826
13. inthe 514,714
14. MerijnB 506,213
15. Ferruccio68 442,154
16. mokule 431,295
17. mikelittlew... 430,856
18. DragonSl... 394,371
19. Johnjces 341,450
20. Epsylon 324,729
21. esoftbg 316,932
22. Lee_Nover 297,111
23. rwilson 293,576
24. developm... 283,802
25. Ivanov_G 277,736

How do I save xls files from disk to an sql database and from a sqldatabase to file

Asked by FSPNowee in Delphi Programming, Databases Miscellaneous, Delphi Database

Tags: Delphi, sql, office

About this solution