Witam!
Mam problem z przypisaniem zdjęcia z dysku do obrazka.
TZN:
Dodaję sobie 'OpenImageDialog' i chciałbym, żeby działało coś takiego:
Image1.picture:=(openimagedialog1.filename);
lub bezpośrednio ścieżka z pliku np. :
Image1.picture:=(c:\obrazki\przykładowy.jpg);
oczywiście tak nie działa, więc chciałbym prosić o pomoc. Czy to w ogóle jest możliwe i jeśli tak to jak to powinno to wyglądać.
Z góry dziękuję za odpowiedź.
1.Otwieranie:
if OpenDialog1.Execute Then
Image1.Picture.LoadFromFile(OpenDialog1.FileName);
2.Zapisywanie:
if SaveDialog1.Execute Then
Image1.Picture.SaveToFile(SaveDialog1.FileName);
Image1.picture:=(c:\obrazki\przykładowy.jpg);
A od kiedy nawiasy, zamiast średnika ?
Poprawa:
Image1.picture:='c:\obrazki\przykładowy.jpg';
no sorki mój błąd, wiem że tak powinno być, tylko źle na forum napisałem
btw. THX za pomoc
PS.
Zapis:
if OpenDialog1.Execute Then Image1.Picture.LoadFromFile(OpenDialog1.FileName);
po wybraniu obrazka z dysku, otwiera okno przeglądania dysku jeszcze raz.
lepiej chyba zrobić:
procedure TForm1.OpenPictureDialog1CanClose(Sender: TObject;
var CanClose: boolean);
begin
Image1.Picture.LoadFromFile(OpenPictureDialog1.FileName);
end;
tylko w tedy wsio jest ok, jeśli klikamy ok, ale jeśli wybierzemy anuluj, to wywala błąd... Jakieś pomysły?
A i jeszcze, jak odwołać się do pierwszego okna? Tzn jeśli chcę, by po wybraniu obrazka pokazało się nowe okno i w tym oknie pokazało się wybrane zdjęcie?
Z pokazaniem okna nie ma problemu, ale jak przenieść wartość (openpicturedialog1.filename) z pierwszego okna do drugiego?
Sorki, że się pytam o tak wiele rzeczy, ale naprawdę mi to pomoże.
Pozdro
Otwieranie pliku dowolnego typu przy użyciu OpenDialog robi się w jakimś przycisku lub
pozycji menu po if OpenDialog.Execute then robisz ładowanie. I nie ma sensu nic rzeźbić
w CanClose, bo to do czego innego sluży. A jak dasz Anuluj - to wiadomo nie ma nazwy
pliku pobranej z OpenDialogu i stąd pewnie te błędy. Ja zwykle się w OpenDialog - tego
co ma Events nie zmieniam. Radze tam Tobie nie mieszać - chyba że wiesz co robisz :)
Rozwiązałem problem z anulowaniem dodając warunek:
procedure TForm1.Button1Click(Sender: TObject);
begin
openpicturedialog1.execute;
if (openpicturedialog1.execute) and (openpicturedialog1.filename<>'') then image1.picture.loadfromfile(openpicturedialog1.filename);
end;
ale nadal okno po wybraniu obrazka i potwierdzeniu otwiera się znowu.
Ale Ty uparty jesteś. Zrob po ifie normalnie otwarcie pliku i zadziała.
Chyba, że masz coś w Delphi namieszane. Oczywiście jeżeli po ifie
przy otwieraniu ma sie wykonać wiecej niz jedna istrukcja to trzeba
ją ująć w dodatkowe begin oraz end; Ech. Przecież to są 10x bardzo
mega banalne banały nawet jak na ten dział. Podstawy tego języka.
Arthi: Zrób tak, jak Ci zostało napisane...
if (openpicturedialog.execute() then image.picture.loadFromFile(openpicturedialog.filename);
I to wystarczy. Nic "dwa razy" nie bedzie sie pojawialo. Zapewniam Cie. Chyba, ze sam cos dalej w kodzie namieszales.
tak zrobiłem na początku, ale otwiera się dwa razy. Nie piszcie 'Na pewno nie będzie się otwierało dwa razy'. Gdyby się nie otwierało to nie byłoby problemu.
Jeśli nie wierzycie macie tu filmik (10s):
Pobierz :
http://www.megaupload.com/?d=838TABKV
lub
Obejrzyj online:
zrobiłem to tak, choć może tak nie jest poprawnie to przynajmniej działa:
openpicturedialog1.Execute;
if openpicturedialog1.filename<>'' then image1.picture.loadfromfile(openpicturedialog1.filename);
po kliknięciu Anuluj nie ma błędu i po wybraniu zdjęcia ładuje się tam gdzie trzeba
dziękuję wszystkim za pomoc, przepraszam, jeśli wyprowadziłem z równowagi.
Pozdrawiam, Arthi
To masz coś nie tak z Windowsem albo z Delphi chyba, w pustym projekcie
jeżeli na formatkę dasz Image1, OpenPictureDialog1 i Button1, ktoremu w
zdarzeniu OnClick wkleisz poniższy kod MUSI zadziałać nawet z anuluj, nie
powinno być problemów. No chyba, że któraś z pod-własności Options, dla
OpenPictureDialogu coś miesza, ale podejrzewam że nie. Tylko wiadomo,
dla obslugi plików JPEG neleży dodac do uses modul jpeg. Pierwszy raz w
ogóle widzę żeby OpenDialog jakikolwiek sprawiał takie problemy jak Tobie.
if OpenPictureDialog1.Execute then
begin
Image1.Picture.LoadFromFile(OpenPictureDialog1.FileName);
end;
Nie jest to koniecznie. Niektórzy uważają to za błąd. Jednak ja
mam taki zwyczaj. Ponieważ może być tak że po if ... then, po
jakimś czasie - zajdzie konieczność dopisania więcej niż jednej
instrukcji i wtedy co, przeformatowywać kod formatterem albo
ręcznie albo się pomylić. W 90% przypadków daje begin end;