самое легкое

[delfin07]

вот так картинка сохраняется

if opendialog1.Execute then
image1.Picture.LoadFromFile(opendialog1.FileName);

 image1.Picture.SaveToFile('e:\L.BMP');

почему так она не сохраняется

 image1.Picture.SaveToFile('L.BMP');

как сохранить в папку с программой
без указания пути

[Valio]

http://programmersforum.ru/showthrea...002#post803002

[SERG1980]

image1.Picture.SaveToFile(ExtractFilePath(Application.ExeName)+'L.BMP');

[delfin07]

все пошло,а как с jpg

[Valio]

Сообщение от delfin07

все пошло,а как с jpg

Что как "с jpg"?

[delfin07]

программа в которой я открываю картинку в формате jpg а сохраняется это же картинка в bmp а в jpg нет. но мне и так норм

[SERG1980]

вы не поверите но это будет примерно так

image1.Picture.SaveToFile(ExtractFilePath(Application.ExeName)+'L.jpg');

[delfin07]

пробовал не сохраняет

[SERG1980]

Тогда более подробно, как открываете, чем открываете, что делаете после открытия с этой картинкой, если можно код

[delfin07]

ошибка

procedure TForm3.FormActivate(Sender: TObject);
begin
DataModule2.ADOQuery1.Insert;
end;

procedure TForm3.Image1Click(Sender: TObject);
var a:integer;
l:string;
begin
if opendialog1.Execute then
image1.Picture.LoadFromFile(opendialog1.FileName);
 dbedit1.Text:='\image\'+inttostr(a)+'.bmp'

 end;
procedure TForm3.BitBtn1Click(Sender: TObject);
begin
image1.Picture.SaveToFile(ExtractFilePath(Application.ExeName)+'\image\+a+'.bmp');

я закидываю путь в базу , не сохраняет картинку так BitBtn1Clicбтеперь думаю как проверить или есть в папке картинка с именем если есть then a=a+1; получается новое имя
или буду проверять в со мой базе

From Stilet: Что код оформить по правилам религия не позволяет?