Merhaba.. Geciken cevap için üzgünüm
Delphi FMX altyapısını yeni kurduğu dönemlerden kalma ürettiğim bir çözümdü bu kodlar.
ListView yerine ListBox kullanımını öneriyorum aslında ama sizin için inceledim Delphi ListView yapısındaki değişimi inceledim.
Çözüm için en alt satıra şunu ekleyin.
AItem.Objects.Add(LItem);
Önceleri Create içerisine Item'i verdiğinizde Object içine otomatik eklenirken, yeni sistemde bunu kullanıcıya bırakmışlar olduğunu anlıyorum.
LItem := TListItemText.Create(nil);
LItem.Name := strRefKod;
LItem.Font.Size := iFontSize;
LItem.TextColor := iFontColor;
LItem.Align := TListItemAlign.Leading; // En Sol
LItem.VertAlign := TListItemAlign.Leading; // En Üst
LItem.PlaceOffset.X := iOffsetX;
LItem.PlaceOffset.Y := iOffsetY;
LItem.TextAlign := TTextAlign.taLeading;
LItem.Trimming := TTextTrimming.ttCharacter;
LItem.IsDetailText := True;
LItem.Width := iWidth;
LItem.Height := iHeight;
LItem.Text := strText;
AItem.Objects.Add(LItem);
Başarılar.
Eski bir metod olsa da merak edenler için bir örnek proje hazırladım.
Örnekte DelphiCan RSS ile XML formatındaki ilk 15 başlığı alarak ListView'de gösteren, bu içerikten herhangi birine tıklayınca varsayılan browser ile açıp gösteren giriş seviyesi minik bir proje.
Örnekten edinilebilecek bilgiler :
- Bir web sitesine erişim yapılarak içeriğinin alınması. (örnekte XML içerik geliyor)
- TIdHttp Indy kullanımı yerine THTTPClient kullanımı ile SSL kütüphaneleri gereği olmadan siteye SSL erişim imkanı.
- XML içerik veri okuma yöntemleri
- WEB Tarih / Saat verisinin yerel tarih saate dönüştürme
- Record yapıları
- Array ( dizi ) yapıları
- Android / MSWindows şartlı kod yazımı
- Class ( Sınıf ) oluşturma ve kullanma
Kaynak kodları aşağıda bulabilir ve inceleyebilirsiniz.
Hem android hem de windows uyumlu FMX projedir.
Forma (2) tane TButon, (1) tane de TListView bırakmanız deneme için yeterlidir. Birinci buton listeyi dolduru ikincisi formu kapatır.
Main Form :
Uses
{$IF Defined(ANDROID)}
FMX.Platform.Android,
{$ENDIF}
DelphiCanHelperU;
var
FDelphiCan : TDelphiCanHelper;
procedure TForm1.Button1Click(Sender: TObject);
begin
if NOT Assigned(FDelphiCan) then
begin
FDelphiCan := TDelphiCanHelper.Create;
FDelphiCan.ListView := ListView1;
end;
FDelphiCan.DoBrowse();
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
// Bizim Close()'un Android karşılığı...
// USES FMX.Platform.Android
// MainActivity.Finish();
{$IF Defined(ANDROID)}
FMX.Platform.Android.MainActivity.finish();
{$ENDIF}
{$IF Defined(MSWINDOWS)}
Close;
{$ENDIF}
end;
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
if Assigned(FDelphiCan)
then FreeAndNil(FDelphiCan)
end;
Uses ile eklenecek Helper Unit :
unit DelphiCanHelperU;
interface
Uses System.SysUtils, System.Classes, System.Types, System.UITypes,
FMX.Dialogs,
FMX.StdCtrls, FMX.Types, FMX.Graphics,
FMX.ListView, FMX.ListView.Types, FMX.ListView.Appearances, FMX.ListView.Adapters.Base,
{$IF Defined(ANDROID)}
Androidapi.JNI.GraphicsContentViewText,
Androidapi.JNI.App,
Androidapi.JNI.Net,
Androidapi.Helpers,
{$ENDIF}
{$IF Defined(MSWINDOWS)}
WinApi.Windows, WinApi.ShellApi,
{$ENDIF}
System.Net.HTTPClient,
IDGlobalProtocols,
XMLIntf, XMLDoc,
System.DateUtils;
type
TDelphiCanHelper = Class( TObject )
private
const
FURL = 'https://www.delphican.com/syndication.php?limit=15';
FImageUrl = 'http://www.delphistudio.es/img/delphi/dp-01.png';
Type
TGuid = Record
isPermaLink : boolean;
text : string;
End;
TItemRecord = record
Title,
Link,
Desc,
ContEnco: String;
PubDate : TDateTime;
Guid : TGuid;
end;
TDelphiCanRecord = Record
Title,
Link,
Desc : String;
PubDate : TDateTime;
Items : Array of TItemRecord;
End;
var
FNetClient : THTTPClient;
FListView : TListView;
FDelphiCan : TDelphiCanRecord;
procedure ListViewItemClick(const Sender: TObject; const AItem: TListViewItem);
procedure ParseData( aXMLData: String );
procedure PrepareListView;
procedure SetListView(Value: TListView);
public
constructor Create;
destructor Destroy; override;
property ListView : TListView read FListView write SetListView;
procedure DoBrowse;
End;
implementation
{ TDelphiCanHelper }
constructor TDelphiCanHelper.Create;
begin
inherited;
FNetClient := THTTPClient.Create;
end;
destructor TDelphiCanHelper.Destroy;
begin
FreeAndNil(FNetClient);
Finalize(FDelphiCan);
inherited;
end;
procedure TDelphiCanHelper.DoBrowse;
var
LSS : TStringStream;
LStat : Integer;
begin
LSS := TStringStream.Create( '', TEncoding.UTF8 );
try
LStat := FNetClient.Get(FURL, LSS).StatusCode;
if LStat = 200 then
begin
ParseData( LSS.DataString );
PrepareListView();
end;
finally
FreeAndNil(LSS);
end;
end;
procedure TDelphiCanHelper.ParseData( aXMLData: String );
var
LDoc : IXMLDocument;
LNode : IXMLNode;
LData : IXMLNode;
LDate : String;
LItem : TItemRecord;
begin
LDoc := LoadXMLData( aXmlData );
if LDoc <> nil then
try
LNode := LDoc.DocumentElement; // rss
LNode := LNode.ChildNodes.First; // channel
Finalize(FDelphiCan);
if LNode.ChildNodes.FindNode('title') <> nil
then FDelphiCan.Title := LNode.ChildNodes.FindNode('title').NodeValue;
if LNode.ChildNodes.FindNode('link') <> nil
then FDelphiCan.Link := LNode.ChildNodes.FindNode('link').NodeValue;
if LNode.ChildNodes.FindNode('description') <> nil
then FDelphiCan.Desc := LNode.ChildNodes.FindNode('description').NodeValue;
if LNode.ChildNodes.FindNode('pubDate') <> nil
then begin
LDate := LNode.ChildNodes.FindNode('pubDate').NodeValue;
FDelphiCan.PubDate := IDGlobalProtocols.StrInternetToDateTime( LDate );
FDelphiCan.PubDate := TTimeZone.Local.ToLocalTime( FDelphiCan.PubDate );
end;
LData := LNode.ChildNodes.FindNode('item');
while LData <> nil do
begin
LItem := default(TItemRecord);
if LData.ChildNodes.FindNode('title') <> nil
then LItem.Title := LData.ChildNodes.FindNode('title').NodeValue;
if LData.ChildNodes.FindNode('link') <> nil
then LItem.Link := LData.ChildNodes.FindNode('link').NodeValue;
if LData.ChildNodes.FindNode('pubDate') <> nil
then begin
LDate := LData.ChildNodes.FindNode('pubDate').NodeValue;
LItem.PubDate := IDGlobalProtocols.StrInternetToDateTime( LDate );
LItem.PubDate := TTimeZone.Local.ToLocalTime( FDelphiCan.PubDate );
end;
if LData.ChildNodes.FindNode('guid') <> nil
then begin
if LData.AttributeNodes.FindNode('isPermaLink') <> nil
then LItem.Guid.isPermaLink := LData.AttributeNodes.FindNode('isPermaLink').NodeValue;
LItem.Guid.text := LData.ChildNodes.FindNode('guid').Text;
end;
if LData.ChildNodes.FindNode('description') <> nil
then LItem.Desc := LData.ChildNodes.FindNode('description').NodeValue;
if LData.ChildNodes.FindNode('content:encoded') <> nil
then LItem.ContEnco := LData.ChildNodes.FindNode('content:encoded').NodeValue;
SetLength( FDelphiCan.Items, Length(FDelphiCan.Items)+1 );
FDelphiCan.Items[high(FDelphiCan.Items)] := LItem;
LData := LData.NextSibling;
end;
finally
LDoc := Nil;
end;
end;
procedure TDelphiCanHelper.PrepareListView;
Procedure ObjectOlustur( AItem:TListViewItem; var LItem: TListItemText; strRefKod, strText:String; iOffsetX, iOffsetY, iWidth,iHeight, iFontSize:Integer; iFontColor: Cardinal );
begin
LItem := TListItemText.Create(nil);
LItem.Name := strRefKod;
LItem.Font.Size := iFontSize;
LItem.TextColor := iFontColor;
LItem.Align := TListItemAlign.Leading; // En Sol
LItem.VertAlign := TListItemAlign.Leading; // En Üst
LItem.PlaceOffset.X := iOffsetX;
LItem.PlaceOffset.Y := iOffsetY;
LItem.TextAlign := TTextAlign.Leading;
LItem.Trimming := TTextTrimming.Character;
LItem.IsDetailText := True;
LItem.Width := iWidth;
LItem.Height := iHeight;
LItem.Text := strText;
AItem.Objects.Add(LItem);
end;
Var
AItem : TListViewItem;
LImage : TListItemImage;
LData1, LData2, LData3, LData4,
LLabel1, LLabel2, LLabel3 : TListItemText;
MS : TMemoryStream;
i : Integer;
begin
ListView.Items.Clear;
for i := Low(FDelphiCan.Items) to High(FDelphiCan.Items) do
begin
AItem := ListView.Items.Add;
AItem.Height := 132;
AItem.Text := '';
LImage := TListItemImage.Create(nil);
LImage.Name := 'Resim';
LImage.Align := TListItemAlign.Trailing; // En Sağ
LImage.VertAlign := TListItemAlign.Center; // Orta
LImage.PlaceOffset.Y := 2;
LImage.PlaceOffset.X := 0;
LImage.Width := 90;
LImage.Height := 128;
LImage.OwnsBitmap := True;
LImage.Bitmap := FMX.Graphics.TBitmap.Create(0, 0);
AItem.Objects.Add(LImage);
MS := TMemoryStream.Create;
FNetClient.Get( FImageUrl, MS);
MS.Seek(0,soFromBeginning);
LImage.Bitmap.LoadFromStream(MS);
MS.Free;
// Başlıklar
// -----------------------------------------------------------------------------
ObjectOlustur( AItem, LLabel1, 'Bas1', 'Title:', 4, 20, 500, 20, 12, TAlphaColorRec.Maroon );
ObjectOlustur( AItem, LLabel2, 'Bas2', 'PubDt:', 4, 40, 500, 20, 8, TAlphaColorRec.Black );
ObjectOlustur( AItem, LLabel3, 'Bas3', 'Auth.:', 4, 60, 500, 20, 8, TAlphaColorRec.Black );
// Veri Alanları
// -----------------------------------------------------------------------------
ObjectOlustur( AItem, LData1, 'Data1', FDelphiCan.Items[i].Title, 54, 20, 500, 20, 12, TAlphaColorRec.Maroon );
ObjectOlustur( AItem, LData2, 'Data2', DateTimeToStr(FDelphiCan.Items[i].PubDate),
54, 40, 500, 20, 8, TAlphaColorRec.Black );
ObjectOlustur( AItem, LData3, 'Data3', 'Author', 54, 60, 500, 20, 8, TAlphaColorRec.Black );
ObjectOlustur( AItem, LData4, 'Data4', FDelphiCan.Items[i].Link, 04, 100, 500, 20, 12, TAlphaColorRec.Black );
end; // While
end;
procedure TDelphiCanHelper.SetListView(Value: TListView);
begin
FListView := Value;
FListView.OnItemClick := ListViewItemClick;
end;
procedure TDelphiCanHelper.ListViewItemClick(const Sender: TObject;
const AItem: TListViewItem);
var
{$IF Defined(ANDROID)}
Intent : JIntent; // Androidapi.JNI.GraphicsContentViewText
{$ENDIF}
LURL : String;
begin
LURL := (AItem.Objects.FindDrawable('Data4') as TListItemText).Text;
{$IF Defined(ANDROID)}
Intent := TJIntent.Create;
Intent.setAction(TJIntent.JavaClass.ACTION_VIEW);
Intent.setData(StrToJURI( LURL ));
TAndroidHelper.Activity.startActivity(Intent);
{$ENDIF}
{$IF Defined(MSWINDOWS)}
ShellExecute(HInstance, 'open', PChar(LUrl), nil, nil, SW_NORMAL);
{$ENDIF}
end;
end.
