الصور

تستطيع استخدام OpenPicture

و savePicture من الصفحة Dialog

المرفق مثال لما تريد

Open&Save Picture.rar

يعطيكم العافية

شكرا لردوكم

بصراحة ما استفدت كتير

لكن عندي سؤال

أنا حفظت صورة بواسطة TImage

و بعد ذلك حاولت بقرائتها و لكن فشلت

لكن ACD See قام بقرائتها

يا ترى شو الخطأ يلي قمت فيه

شكرا لكم

هل ممكن تعطينا الكود الذي حفظتها به

عندي عنصر مثل LIST BOX يحتوي على الأسماء

و عندي عنصر مثل TEDIT يحتوي على المسار

void __fastcall TPicConvertorForm::ConvertClick(TObject *Sender)
{
    for ( int i = 0; i < FLB->Count; i ++ )
    {
        TImage * Image = new TImage ( this );
        Image->Proportional = true; 
        Image->Stretch = true;
        Image->Width = 100;
        Image->Height = 100;
        Image->Picture->LoadFromFile( FLB->Items->Strings );

        try
        {
            Image->Picture->SaveToFile(
                EdDistenation->Text + "\\Img" + IntToStr(i) + ".bmp" );
        }
        catch ( ... )
        {
            ShowMessage("Select Save Change In Direction Current !");
            break;
        }
    }
}

الكود طبعا بالسي

لكن إذا بدك تكتب بالباسكال

أنا هعمل عملية Convert :D

سلام

سؤال

هل تريد التحويل بين الانواع أم تريد

فتح الصورة وحفظها بنفس النوع

جميل جدا

أريد قراءة ملف

و معرفة إذا كان صورة

أحدد النوع

و أقوم بعرضها

ثم حفظها بصيغة أخرى

شكرا لسؤالك

جرب هدا الكود

procedure TForm1.Button1Click(Sender: TObject);
var
  icon : ticon;
  Bmp      : TBitmap;
  S : String;
begin
  S := Copy(Edit1.Text ,length(Edit1.Text)-2,3);
  if  s= 'ico' then   //لمعرفة نوع الصورة
    begin
      icon:=TIcon.create;             //لتحويل الصورة من iconإلى bmp
      Bmp:=TBitmap.create;
      try
        icon.LoadFromFile(Edit1.Text);
        with Bmp do
          begin
            Height:=icon.Height;
            Width:=icon.Width;
            Canvas.Draw(0,0,icon);
            SaveToFile(Edit2.Text );
            Free;
          end;
      finally
        icon.Free;
      end;
    end
end;

شكرا كثير

استفدت كثير من الأكواد

لكن عم اقرأ أيقونة 46 × 46

لكن عم يطلعها 32 × 32

شو الخطأ

شكرا لك

مرحبا

طريقة أخرى لتحويل الصور

procedure TForm1.Button1Click(Sender: TObject);
var
  s : string;
  Bitmap: TBitmap;
begin

  OpenDialog1.DefaultExt := '.bmp';

  OpenDialog1.Filter := 'icons (*.bmp)|*.bmp';
  OpenDialog1.Options := [ofOverwritePrompt, ofFileMustExist, ofHideReadOnly ];
  if OpenDialog1.Execute then
  begin
    Bitmap := TBitmap.Create;
    try
      Bitmap.Loadfromfile(OpenDialog1.FileName);
      s:= ChangeFileExt(OpenDialog1.FileName,'.jpg');
      Image1.Width := Bitmap.Width;
      Image1.Height := Bitmap.Height;
      Image1.Canvas.Draw(0,0,Bitmap);
      Image1.Picture.SaveToFile(s);

      ShowMessage(OpenDialog1.FileName + ' Saved to ' + s);
    finally
      Bitmap.Free;
    end;
  end;


end;

تم تعديل الاخطاء في المشاركة السابقة

أسف للتأخر

شكرا على كودك

سلام