Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.02.03;
Скачать: CL | DM;

Вниз

опять запись/чтение рисунков ... ну не получается...   Найти похожие ветки 

 
Relict   (2003-01-15 11:57) [0]

итак..MSSQL, D6, BDE...
есть табличка с двумя полями npp типа int
imag типа image
на форме две кнопки и два имагера
в Image1 загружена картинка.
на кнопках:
запись

procedure TForm1.Button1Click(Sender: TObject);
var MS: TMemoryStream;
begin
Query1.Open;
if not (Query1.State in [dsInsert, dsEdit]) then Query1.Insert;
MS := TMemoryStream.Create();
try
Image1.Picture.Bitmap.SaveToStream(MS);
Query1imag.LoadFromStream(MS);
finally
MS.Free;
end;
Query1.Post;
Query1.Close;
end;

чтение

procedure TForm1.Button2Click(Sender: TObject);
var
MS: TMemoryStream;
begin
Query1.Open;
MS := TMemoryStream.Create;
try
Query1imag.SaveToStream(MS);
Image2.Picture.Bitmap.LoadFromStream(MS);
finally
MS.Free;
end;
Query1.Close;
end;

ошибок не выдает....
при записи чего пишет...
при чтении в Image2 всегда пусто...
объясните плиз чего я не так делаю...


 
Kuusiniemi ©   (2003-01-15 12:42) [1]

Query1imag.SaveToStream(MS);

MS.Position := 0; // <<<<!!!!

Image2.Picture.Bitmap.LoadFromStream(MS);


 
rom900 ©   (2003-01-15 12:45) [2]

Посылаю тебе часть моей рабочей программы.

procedure TForm1.BitBtn1Click(Sender: TObject);
var
B1STR:TStringStream;
// Bm2: TMemoryStream;
begin


B1STR:= TStringStream.Create("");
try
Image1.Picture.LoadFromFile(disk1.DirList.FileList.FileName);
Image1.Picture.Graphic.SaveToStream(B1STR);
except
MessageDlg("


 
Relict   (2003-01-15 13:30) [3]

MS.Position := 0;

помогло..)
всем спасибо



Страницы: 1 вся ветка

Текущий архив: 2003.02.03;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.011 c
4-5319
DrFaust
2002-12-18 12:57
2003.02.03
Умные окна


1-4995
NN_Nikita
2003-01-23 15:31
2003.02.03
Word 2000 + Delphi 7 + Win2000Pro


1-5044
Azim
2003-01-24 10:35
2003.02.03
DBGrid


1-4891
Armageddon
2003-01-25 10:22
2003.02.03
Как програмно посмотреть путь к файлу form1.BitBtn1.Glyph в кото


6-5124
Top Gun
2002-12-07 19:40
2003.02.03
Что такое passive mode в FTP ?