Android Control

[barisatalay]

LItem.BitmapRef := bitmap.create;
LItem.BitmapRef.assign(BM)

Böyle bir denermisiniz hiç test etmedim önceki yaptıklarımdan aklıma gelen bir kod parçası.

[yusuf]

Bu konuda yardım lütfen

[yusuf]

Barış hocam verdiğiniz kodları Windows'a yine sorun yok çalışıyor ama mobile çalışmıyor

[yusuf]

cevap yokmu arkadaşlar

[mrmarman]

- Delphi ile Android projeleri konusunda uzun sayılabilecek zaman harcadım ve bu başlığı da o harcanan emeğin hatırına gözlemliyorum ama cevap yazmaya elim bir türlü varmıyor.

- Çünkü sayacağım iki ana konu canımı sıkıyor. Örnek projeyi kaynak kodlarıyla sunduğum halde olmuyor diyorsun ki buna da değil, iki defa yardım eden yok mu diye sorduğun için eleştirel bir şekilde yazmaya karar verdim.

(1) TListViewItem tanımıyla FireMonkey olduğunu görüyorum ama aynı kodu değiştirmeden kullandığını mı yoksa veritabanı içeriğini bambaşka bir Win32 projesinde mi denediği konusunda bilgimiz yok.

(2) Senin BLOB field içeriğindeki resmin niteliği nedir, ne değildir bu konuda bilgimiz yok.

(3) Direkt veritabanına girmeden, SDCard üzerindeki bir resmi alıp gösterebildin mi? Bir kere Image gösteren mekanizman doğru çalışıyor mu hiç test ettin mi ? Bundan bahsetmemişsin.

(4) ListView dışında başka bir oratama, seçili kayda ait bir resmi veritabanından getirmeyi denedin mi ? Bu mekanizman doğru çalışıyor mu hiç test ettin mi ? Bundan da bahsetmemişsin.

- Bedavadan kod yazmak, ardından da projem diye sahiplenmek olmaz. Biraz elini taşın altına koyacak, ondan sonra tıkandığın yerde belgelerle sorularını soracaksın.

- Paylaşım yaparken böyle spesifik durumlarla karşılaşıldığında; ölçme ve değerlendirme imkanı olsun diye soru, cevap veya makaleyi örnek bir proje ile taçlandırırız.

- Şimdi senin yapacağın ilk iş; bağımsız bir uygulama projesi oluşturmak, veritabanına örnek resim ve veri ile doldurup bize yollamak. Onun üzerinden konuşalım. Çünkü ben diyeceğim ki zaten resmi gösteriyordur, sadece basit bir Anchor hatası yapmışsındır ekran sınırları dışında kalmıştır, sen diyeceksin ki X ve Y değerini hesapladım da verdim. Bunun hangisinin doğru olduğuna ilişkin bir dayanak noktası lazım geliyor.

- İnan ki örnek proje hazırlarken %90 ihtimal veriyorum sorunsal kendiliğinden çözülecektir. Buna bahse girerim.

- Forumda son yazdığım cevaplara bir bakarsan, bu günlerde sorulan soruların niteliğini eleştirmekle vakit geçiyor oldum. Sorunların sahiplerinden sorular hakkındaki detayları cımbızla aldığım içindir ama artık daha net sorulara cevap veriyorum. Bu da son olsun istiyorum.

[yusuf]

Sayın mrmarman Hocam Üst tarafta bahsettim ama gözünüzden kaçtı sanırım eleştirilerinizde haklı olabilirsiniz Benim Şöyle bir MySql veritabanım var Haber isminde tablom tablomun içinde Haber Başığı,HaberDetayı ve HaberFoto isminde Fieldlarım var yapımak istediğim ListView içinde Solda resim Başlıkta Haber Başlığı ve Resmin sağında Haber detayı bu arada HaberFoto DataType LongBlob tur. ben birşeyler araştırdım yaptığım şöyle windows uygulamasında sorunsuz çalışıyor fakat Mobile attığımda resim gözükmüyor Resim Jpg formatında

Kod: Tümünü seç

procedure TForm1.AnaMenuListBoxItemClick(const Sender: TCustomListBox;
  const Item: TListBoxItem);
var
  Tablo :String;
  c: Char;
  i,p: Integer;
  ListBoxItem : TListBoxItem;
  LItem: TListViewItem;
  BF: TBlobField;
  BS: TStream;
  BM: TBitmap;
begin
 try
 DataModule1.AltMenuQry.SQL.Text := 'Select * From AltMenu where AltMenuAdi=:menu';
 DataModule1.AltMenuQry.ParamByName('menu').AsString := AnaMenuListBox.Selected.ItemData.Text;
 DataModule1.AltMenuQry.Open;

 Tablo := 'Select * from '+ DataModule1.AltMenuQryTabloAdi.AsString;
 TabloSec(Tablo);
//----------------- ListBoxTemizle ---------------------
 ListViewAltMenu.BeginUpdate;
p := ListViewAltMenu.Items.Count;
while p <> 0 do begin
  ListViewAltMenu.Items.Delete(p-1);
  p := p - 1;
end;
  ListViewAltMenu.endUpdate;

     ListViewAltMenu.BeginUpdate;
     for I := 1 to DataModule1.MenuGrubuListelemeQry.RecordCount do
  begin
    BF  :=  DataModule1.MenuGrubuListelemeQry.FieldByName('Foto') as TBlobField;
    BS  :=  DataModule1.MenuGrubuListelemeQry.CreateBlobStream(BF, bmRead);
    BM := TBitmap.Create;
    BM.LoadFromStream(BS);

    LItem := ListViewAltMenu.Items.Add;

    LItem.Text := DataModule1.MenuGrubuListelemeQry.FieldByName('MenuAdi').AsString; 
  
    LItem.Data[TRatingsListItemAppearanceNames.Text2Name] := DataModule1.MenuGrubuListelemeQry.FieldByName('Detay').AsString;

    LItem.Data[TRatingsListItemAppearanceNames.RatingsImageName] := I mod 6;  // Set to a number between 0 and 5

     LItem.BitmapRef  := BM;
    DataModule1.MenuGrubuListelemeQry.Next;

   end;
    ListViewAltMenu.EndUpdate;
 
   Label7.Text     :=  AnaMenuListBox.Selected.ItemData.Text;
   SwipeLeft;
  except
  ShowMessage('Tabloya ulaşılamıyor');

end;

[yusuf]

Arkadaşlar teşekkür ederim. Muharem hocanın söyledikleri doğrultularda yaptım buraya atacağım sonucu çok sağolun hepinize ayrı ayrı teşekkür ederim.