Загрузка/сохранение рисунков

[Marsik]

Напишите пожалуйста как на Дельфине 7-ом загружать рисунок на определенный участок,а потом сохранять рисунок?

[kommunist]

form1.image1.loadfromfile('плный адрес и название файла');

[Marsik]

Да мне ведь нужно чтобы любой рисунок открывался,а не с каким-то определенным именем

[Alex21]

Напишите пожалуйста как на Дельфине 7-ом загружать рисунок на определенный участок

Какой еще участок? Монтажный, строительный?

Да мне ведь нужно чтобы любой рисунок открывался,а не с каким-то определенным именем

Как вы себе это представляете?

[Dude_first]

if OpenDialog.Execute then
form1.image1.loadfromfile(OpenDialo g.filename);

тока перед этим добавь компонент OpenDialog, так же там есть диалог специально для загрузки картинок. Тот по аналогии сделаешь

[Marsik]

На каком,на каком на огородном конечно.А если серъезно чтобы на определенном участке окна показывалась.А кстати те OpenDIALOGI куда ставить и скрипт который написан куда вводить,а то я молодой и неопытный(3 дня еле программирую (-: )

[Alex21]

1. Метод тыка это хорошо, но утомительно и долго. Настоятельно рекомендую для начала обзавестись литературой по Delphi.
2. Не скрипт а код. Соответственно вводить в редактор кода.
Если не знаешь что такое компонент, то см. пункт 1.
3. С четвертым днем

[Stilet]

Загрузка

unit Unit1;

interface

uses        jpeg,
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Opendialog:Topendialog
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}


procedure TForm1.Button1Click(Sender: TObject);

var

JpegIm: TJpegImage;
      bdc,adc:HDC;
bm, am: TBitMap;

begin
if Opendialog.execute then begin

bm := TBitMap.Create;
JpegIm := TJpegImage.Create;
JpegIm.LoadFromFile(Opendialog.Filename);
bm.Assign(JpegIm);
am:=TBitmap.Create;
adc:=bm.Canvas.Handle;
bdc:=Form1.Canvas.Handle;  //getdc(bm.Handle);
if BitBlt(bdc,10,10,400,400,adc,400,400,SRCCOPY) then
 else RaiseLastWin32Error;
bm.Destroy;
JpegIm.Destroy;
 end;      
end;

end.

Кста, не всякий файл мона так открыть...

[Marsik]

STILET спасибо те БОЛЬШОЕ;
ALEX21 какой еще метод тыка и лит-ру откуда снять?А в какое именно место вводить скрипт(т.е. код)

[Stilet]

Марсик, Алекс говорит о том что нуна б те литературу умную почитать и пару примеров попробовать на практике, и это здравая мысль, ато ты вопрос задал ну (прости) очень неочень...