| T O P I C R E V I E W |
| monolisa |
Posted - Mar 12 2013 : 00:19:37
procedure TForm1.Button1Click(Sender: TObject);
var ms:TMemoryStream;
begin
UniQuery1.SQL.Clear;
UniQuery1.SQL.Add('INSERT INTO MAN_PIC ( Name, MAN_PIC)');
UniQuery1.SQL.ADD('Values ('+QuotedStr(Trim(Edit1.Text))+', :MyPicture'+')' );
ms:=TMemoryStream.Create;
ImageEnVect1.SaveToStreamAll(ms);
ms.Position := 0;
UniQuery1.ParamByName('MyPicture').LoadFromStream(ms,FTBLOB);
ms.Free;
UniQuery1.ExecSQL;
end;
What's the problem?
|
| 3 L A T E S T R E P L I E S (Newest First) |
| fab |
Posted - Mar 12 2013 : 11:17:17
Please try to save the memory stream to a file (just after SaveToStreamAll):
ms.SaveTofile('output.all');
Now look at the output.all (check its file size or try to load it using TImageEnVect.LoadFromFileAll()).
This just to check the problem comes actually from ImageEn. |
| monolisa |
Posted - Mar 12 2013 : 06:14:46
run query without error, but image will not be saved. What's the problem?
|
| xequte |
Posted - Mar 12 2013 : 02:39:40
Hi
What is the error or problem that you encounter?
Nigel
Xequte Software
www.xequte.com
nigel@xequte.com
|
Search
