Türker Tunalı

Install Remmina on macOS for easy connection to your servers via SSH, RDP, VNC.

2023-12-01T01:31:00.005+03:00

When you need to connect to multiple servers time to time via ssh, Remmina is by far the easiest solution. You can RDP, SSH, VNC to your server with just one click.

Although Remmina is super easy way to connect your servers, installing it on Mac OS requires a little bit effort. Here is my solution to install Remmina on MacOS Sonoma.

- Download "remmina.rb" from Homebrew Core, Github project.

- Open the "terminal" app and in the "Downloads" folder install it by

brew install remmina.rb

PS: It may throw some exceptions at first try, but you can install required packages via same command.

To start the Remmina application on your MacOS, you can type "remmina" in the terminal.

Click the plus icon on the left upper side to setup SSH (Or VNC, RDP) connection to your server on your MacOS.

Then in the main screen you can connect to your server via SSH with just one click on your MacOS.

PS: This method installs Remmina 1.4.30. If you want to install the latest version follow this guide.

- Open "remmina.rb" file and make 2 changes.

- "url" part should be:

url "https://gitlab.com/Remmina/Remmina/-/archive/v.1.4.33/Remmina-v.1.4.33.tar.bz2"

- "sha256" part should be:

sha256 "129d73dcfd597aa7ba3bd23c7f15d6174718ca981983cfe2c565cfcf150b1c22"

ddf

This will update your current remmina installation 🎊

A Farewell

2023-03-08T19:32:00.007+03:00

I will remember the impacts of the earhquake in Turkey with two images.

A month ago, we lost 50.000 people in fraction of time. Lives of 10 million changed suddenly. Without any warning or anything.

It's realy hard to keep going. But life goes on. From now on, I will try to feel normal. These are the two images which I will remember forever.

First one is not from warzone or anything like that. This one taken in the 10th days of aftermath. Antakya is a city which has streets that are illumanated since the Paleolithic Age. And it is like night in the day time.

Second image is about what we have tried to get anyone alive. Rescue teams, doctors, nurses, soldiers, the government, Greeks, Japans, Germans, Mexicans, software developers, engineers, dogs, you name it. It was like the whole planet was trying to get a voice, a click, a sound, anything.

One last thing. This one is pure horror. The entire saga of the horrific seconds. If you have courage, try to listen with earphones on and try to imagine what is going on.

İlk zamanlar her şey basitti

2022-11-11T16:35:00.004+03:00

2018 Yılında işimde henüz tek başımaydım. Önce satışa odaklandım.

1-2 İş alınca iş bitirmeye odaklandım. Ve bir süre işler böyle devam etti.

Ama şimdi durum şöyle:
Satış aktivitelerimi azaltırsan iş alamıyorum. Satış aktivitelerime odaklanırsam elimde ki işleri teslim edemediğim için mevcut iş ortaklarım ile sorun yaşıyorum.

Bazen işi teslim ediyorum, muhasebe işlerine odaklanamadığım için fatura kesmeyi atlıyorum. Faturayı kesersem ödeme istemeyi unutuyorum. Ödeme alamayınca satış aktivitelerine odaklanmam gerekiyor. Bu durumda mevcut işlerde ki sorunlar tekrar ediyor.

Yani;
Pazarlama aktivitelerine odaklanırsam satışa zaman kalmıyor.
Satışa odaklanırsam iş bitirmeye zaman kalmıyor.
Elimde ki işleri bitirmeye odaklanırsam, pazarlama, satış, muhasebe, tahsilat, personel eğitimleri aksıyor.

Arıtk bu problemleri yeni personellerle aştım. Ben, şahsım, kendim ve benliğim iyi bir ekip olduğumuzu düşünüyorum.

Öğrendiğim her şeyi bu kitaba borçluyum. Sizde edinmelisiniz.

ERPNext ile fatura yazılarının Türkçeleştirilmesi

2020-05-28T01:24:00.002+03:00

ERPNext rakamların yazıya çevrilmesi için num2words kütüphanesini kullanıyor. Bunu güncellemek için Frappe tarafında ki gerekli kütüphaneler dosyasında güncelleme yapmamız gerekli. "apps/frappe/requirements.txt" Dosyasını açıp "num2words" satırını buluyoruz. Burada bugün için 0.5.5 versiyonu yazıyor. Bu kütüphaneye Türkçe özelliği 0.5.6'da geldi. Şuan için kütüphanenin son versiyonu ise 0.5.10.

Dolayısıyla bu dosyada
num2words==0.5.5
yazan yere
num2words==0.5.10
yaparsak Frappe'ye gerekli kütüphane versiyonunu söylemiş oluyoruz.

Bundan sonra güncelleme için sırasıyla şu komutları çalıştırabiliriz.

bench setup requirements
bench build
bench clear-cache
bench restart

Logo Apps Eğitim Notları

2016-03-11T11:30:00.001+02:00

Logo App Nedir?
Logo App, LOGO firmasının 3ncü nesil uygulamalarında kullanılmak üzere geliştirilen küçük uygulama parçalarıdır.

Tavsiye edilen kullanımı, basit ve tek bir işi kusursuz yapması. Örnek olarak sevkiyat esnasında barkod okutularak bipleyen, malzeme uygunsuz ise uyarı sesi çıkaran uygulama gösterildi. Uygulamanın tek işi uygun sesi çıkarması. Şuan için Logo Store mağazasında hava durumu gösteren uygulama, yılan oyunu uygulaması, yapılacak işler listesi uygulamaları mevcut.

Logo App Uygulaması Nasıl Geliştirilir?
Geliştirici açısından bakıldığında birçok iyi özellik ve birkaç uğraştırıcı prosedürümüz var.

Öncelikle geliştirme ortamımız Visual Studio. Ayrıca "Logo App Project" eklentisi ile birkaç dakika içinde test edilmeye hazır uygulama derlenebiliyor. (Şuan için Visual Studio 2015 ile daha sağlık çalışıyor ama geliştirilmesi devam ediyor) Yani Logo Object Designer tarzı bir editör ile uğraşmak zorunda değiliz. Bu bence en iyi özelliklerinden biri.

Logo App uygulaması lisans kontrolü yapmadan Logo Rest servisini kullanabiliyor. Rest servisi yetenekleri arasında yetkilendirilebilir sorgulama, Logo Objects veri nesneleri (Malzeme kartı, sipariş vs...) okuma/oluşturma/güncelleme/silme, Logo Objects metodları (İrsaliye faturalaştırma) kullanımı ve bazı üretim metodlarının çağrılabilmesi var.

Logo App kullanarak KOBİ ürünlerine de kayıt atılması mümkün ancak orada da belirli bir kısıtlama var. GO3 - Tiger3 - Tiger Enterprise 3 Rest Api veri işleme farkları sayfasından atılabilecek kayıt türleri arasında ki farklara bakılabilir.

Gelelim bizi biraz uğraştırabilecek konulara. Geliştirme için Çözüm Ortağı veya Logo App Geliştirici seti olmalı. Bu setler ile sınırsız yükleme ve test yapabiliyoruz. Ancak son kullanıcının bu uygulamayı kullanabilmesi için Logo Store üstünden yüklemesi gerekli. Yani butik çözümler, kişiye özel çözümler geliştirmemiz önlenmiş. Bu bence iyi bir özellik, bizi daha genel daha paket çözümler geliştirmeye zorlar.

Logo Store mağazasına yüklenecek uygulamayı daha geliştirmeye başlamadan önce LOGO'dan izin almamız gerekiyor. Çünkü LOGO geliştirdiğimiz uygulamayı marketine koymama hakkına sahip. İzin alım sürecinde kaynak kodu verme zorunluluğumuz yok, çözüm ortağı olma zorunluluğumuz yok. Herkes küçük bir sertifikasyon döneminden sonra Logo App geliştirmeye başlayabiliyor.

Linker:
Logo App
Logo App Geliştirici Kılavuzu
Logo App Sık Sorulan Sorular (Umarım yakında sorular artar)
Döviz Çevirici uygulamasının geliştirme süreci

Kullanılabilecek Kaynaklar:
wikidocs.logo.com.tr (Kayıt istemiyor)
forum.logo.com.tr

LOGO'nun Logo App ile Hedefleri Neler?
Burada verilen örnekler arasında "Çaycı" uygulaması örneği var. Toplantı odasına çay talebini verebileceğimiz basit uygulama. Özellikle altı çizilen konu basit, tek bir amacı olan bir sürü uygulama geliştirmek. Günde 2-3 uygulama geliştirmek.

Ayrıca mobil uygulamalarda izlenilen yollarla ilgili de bilgi verildi. Mobil uygulamalarda kullanıcıya eğitimin verilmediği, basit arayüzlerin kullanıldığı, ana menu ile uğraşılmadan direk konuya girdiği, 2-3 renk kullanıldığı bilgileri verildi. Bizim de bunlara uymamız istendi.

Sonuç olarak LOGO irili ufaklı bir sürü uygulama geliştirilmesinin önünü açmış, bunların oldukça kolay geliştirilmesini hedeflemiş ve kendi ekosistemini yaratmaya çalışmış.

Düşüncelerim
Günümüz standartlarına uygun ortamlarda kod geliştirilmesi, kısa sürelerde sonuç alınabilecek çözümler sunulabilmesi oldukça iyi. Ancak devamlı örneklenen Apple ve Android marketlerinin başarısının yakalanması kısa vadede zor. Mobil uygulamarda, geliştirici uygulama açıldığı anda kullanıcı bilgilerine, cinsiyetine, lokasyonuna ve daha birçok ek bilgiye sahip veya 2 satır ile bunlara ulaşabilecek konumda. Logo App ile sahip olduğumuz bilgiler kullanıcının 16 nolu firmaya giriş yaptığının bilinmesi ve kullanıcı adının "sevkiyat2" olduğunun bilinmesi. Burada diğer marketler sahip oldukları ekosistem ile bir sürü ek kütüphane ile yapılan uygulamaların geliştirilmesine katkı sunuyorlar. Henüz Logo App tarafında bu yok ancak bu sadece LOGO için bir handikap. LOGO hedeflerine bunları sunarsa daha kolay ulaşabilir.

Konuyu geliştirici açısından değerlendirirsek artık kısa sürelerde çok verimli uygulamalar geliştirebileceğimiz ek bir güce daha sahibiz. Sadece düşünce şeklimizi butik çözümlerden genel çözümler üstüne yoğunlaştırmalıyız.

Not: 3 serisi LOGO ürünleri önyüzde çok fazla değişiklik yapmış ancak bu değişiklikleri yaparken bütün prosedürler elden geçirilmiş gibi duruyor. Uygulama performansından gözle görülür bir artış var. Kullanımı ise çok farklı alışılması zaman isteyen bir konu ancak ünlü bir tasarımcı ile çalışılmış olması beni umutlandırıyor. 2nci günün sonunda kendimi daha çok evimde hissettim diyemem ama sokağa yaklaşmış gibiyim.

SQL Server ile silinen kayıtların geri getirilmesi

2015-10-02T12:30:00.000+03:00

SQL Server ile iş yaparken, kod geliştirirken bazı istenmeyen durumlarla karşılaşılması elbette olağandır. Bu yüzden geliştirme ortamını kurarken, müşteri tarafında ki asıl kullanım alanlarını kurarken düzgün bir yedek alma stratejisi belirlenmesi ve yetkilendirme şeması yapılması şarttır.

Bütün önlemlere rağmen çeşitli şekiller de bazı kayıtlar silinebilir. Böyle durumlarda tabi ki ilk çözüm yedekleme tarafında ki çözümdür. Ancak uygun koşullarda "Transaction Log" üstünden de veri kurtarabiliriz. Aşağıda bu işlemi bizim için yapan ve kurtardığı kayıtları gösteren örnek bir kod görebilirsiniz. Kurtardığı kayıtları tablosuna geri yazmıyor sadece gösteriyor, bu şekilde dikkatli bir şekilde elle geri dönüş işlemi yapılabiliyor.

Kullanımı eğer tarih aralığı verilmeyecekse aşağıdaki gibidir.

EXEC Recover_Deleted_Data_Proc 'VT_ADI','DBO.TABLO_ADI'

Eğer tarih aralığı verilecekse:
EXEC Recover_Deleted_Data_Proc 'VT_ADI','DBO.TABLO_ADI' ,'2011/12/01','2012/01/30'

Ben araştırma yaparken kaynak olarak RareSQL sitesini kullandım. Sitede ki prosedür üstünde bazı düzeltmeler yapmam gerekti ama sonuçta düzgün bir şekilde kayıtların büyük kısmını kurtarabildik. Sitesinde adım adım açıklamalar ile her aşamada neyi neden yaptığını düzgün bir şekilde anlatıyor. Detaylı bilgi isteyenler inceleyebilir.

Prosedürün düzelttiğim hali aşağıdaki gibidir. Görüşmek üzere.
Kaynak: RareSQL http://raresql.com/2011/10/22/how-to-recover-deleted-data-from-sql-sever/

-- Script Name: Recover_Deleted_Data_Proc
-- Script Type : Recovery Procedure
-- Develop By: Muhammad Imran
-- Date Created: 15 Oct 2011
-- Modified By: Turker TUNALI
-- Modify Date: 02 Oct 2015
-- Version    : 3.2
-- Notes : Included BLOB data types for recovery.& Compatibile with Default , CS collation , Arabic_CI_AS.

--DROP PROCEDURE Recover_Deleted_Data_Proc
--GO
Create PROCEDURE Recover_Deleted_Data_Proc
@Database_Name NVARCHAR(MAX),
@SchemaName_n_TableName NVARCHAR(Max),
@Date_From DATETIME='1900/01/01',
@Date_To DATETIME ='9999/12/31'
AS

DECLARE @RowLogContents VARBINARY(8000)
DECLARE @TransactionID NVARCHAR(Max)
DECLARE @AllocUnitID BIGINT
DECLARE @AllocUnitName NVARCHAR(Max)
DECLARE @SQL NVARCHAR(Max)
DECLARE @Compatibility_Level INT

SELECT @Compatibility_Level=dtb.compatibility_level
FROM
master.sys.databases AS dtb WHERE dtb.name=@Database_Name

IF ISNULL(@Compatibility_Level,0)<=80
BEGIN
    RAISERROR('The compatibility level should be equal to or greater SQL SERVER 2005 (90)',16,1)
    RETURN
END

IF (SELECT COUNT(*) FROM INFORMATION_SCHEMA.TABLES WHERE [TABLE_SCHEMA]+'.'+[TABLE_NAME]=@SchemaName_n_TableName)=0
BEGIN
    RAISERROR('Could not found the table in the defined database',16,1)
    RETURN
END

DECLARE @bitTable TABLE
(
[ID] INT,
[Bitvalue] INT
)
--Create table to set the bit position of one byte.

INSERT INTO @bitTable
SELECT 0,2 UNION ALL
SELECT 1,2 UNION ALL
SELECT 2,4 UNION ALL
SELECT 3,8 UNION ALL
SELECT 4,16 UNION ALL
SELECT 5,32 UNION ALL
SELECT 6,64 UNION ALL
SELECT 7,128

--Create table to collect the row data.
DECLARE @DeletedRecords TABLE
(
    [Row ID]            INT IDENTITY(1,1),
    [RowLogContents]    VARBINARY(8000),
    [AllocUnitID]       BIGINT,
    [Transaction ID]    NVARCHAR(Max),
    [FixedLengthData]   SMALLINT,
    [TotalNoOfCols]     SMALLINT,
    [NullBitMapLength] SMALLINT,
    [NullBytes]         VARBINARY(8000),
    [TotalNoofVarCols] SMALLINT,
    [ColumnOffsetArray] VARBINARY(8000),
    [VarColumnStart]    SMALLINT,
    [Slot ID]           INT,
    [NullBitMap]        VARCHAR(MAX)

)
--Create a common table expression to get all the row data plus how many bytes we have for each row.
;WITH RowData AS (
SELECT

[RowLog Contents 0] AS [RowLogContents]

,[AllocUnitID] AS [AllocUnitID]

,[Transaction ID] AS [Transaction ID]

--[Fixed Length Data] = Substring (RowLog content 0, Status Bit A+ Status Bit B + 1,2 bytes)
,CONVERT(SMALLINT, CONVERT(BINARY(2), REVERSE(SUBSTRING([RowLog Contents 0], 2 + 1, 2)))) AS [FixedLengthData] --@FixedLengthData

-- [TotalnoOfCols] = Substring (RowLog content 0, [Fixed Length Data] + 1,2 bytes)
,CONVERT(INT, CONVERT(BINARY(2), REVERSE(SUBSTRING([RowLog Contents 0], CONVERT(SMALLINT, CONVERT(BINARY(2)
,REVERSE(SUBSTRING([RowLog Contents 0], 2 + 1, 2)))) + 1, 2)))) as [TotalNoOfCols]

--[NullBitMapLength]=ceiling([Total No of Columns] /8.0)
,CONVERT(INT, ceiling(CONVERT(INT, CONVERT(BINARY(2), REVERSE(SUBSTRING([RowLog Contents 0], CONVERT(SMALLINT, CONVERT(BINARY(2)
,REVERSE(SUBSTRING([RowLog Contents 0], 2 + 1, 2)))) + 1, 2))))/8.0)) as [NullBitMapLength]

--[Null Bytes] = Substring (RowLog content 0, Status Bit A+ Status Bit B + [Fixed Length Data] +1, [NullBitMapLength] )
,SUBSTRING([RowLog Contents 0], CONVERT(SMALLINT, CONVERT(BINARY(2), REVERSE(SUBSTRING([RowLog Contents 0], 2 + 1, 2)))) + 3,
CONVERT(INT, ceiling(CONVERT(INT, CONVERT(BINARY(2), REVERSE(SUBSTRING([RowLog Contents 0], CONVERT(SMALLINT, CONVERT(BINARY(2)
,REVERSE(SUBSTRING([RowLog Contents 0], 2 + 1, 2)))) + 1, 2))))/8.0))) as [NullBytes]

--[TotalNoofVarCols] = Substring (RowLog content 0, Status Bit A+ Status Bit B + [Fixed Length Data] +1, [Null Bitmap length] + 2 )
,(CASE WHEN SUBSTRING([RowLog Contents 0], 1, 1) In (0x10,0x30,0x70) THEN
CONVERT(INT, CONVERT(BINARY(2), REVERSE(SUBSTRING([RowLog Contents 0],
CONVERT(SMALLINT, CONVERT(BINARY(2), REVERSE(SUBSTRING([RowLog Contents 0], 2 + 1, 2)))) + 3
+ CONVERT(INT, ceiling(CONVERT(INT, CONVERT(BINARY(2), REVERSE(SUBSTRING([RowLog Contents 0], CONVERT(SMALLINT, CONVERT(BINARY(2)
,REVERSE(SUBSTRING([RowLog Contents 0], 2 + 1, 2)))) + 1, 2))))/8.0)), 2)))) ELSE null END) AS [TotalNoofVarCols]

--[ColumnOffsetArray]= Substring (RowLog content 0, Status Bit A+ Status Bit B + [Fixed Length Data] +1, [Null Bitmap length] + 2 , [TotalNoofVarCols]*2 )
,(CASE WHEN SUBSTRING([RowLog Contents 0], 1, 1) In (0x10,0x30,0x70) THEN
SUBSTRING([RowLog Contents 0]
, CONVERT(SMALLINT, CONVERT(BINARY(2), REVERSE(SUBSTRING([RowLog Contents 0], 2 + 1, 2)))) + 3
+ CONVERT(INT, ceiling(CONVERT(INT, CONVERT(BINARY(2), REVERSE(SUBSTRING([RowLog Contents 0], CONVERT(SMALLINT, CONVERT(BINARY(2)
,REVERSE(SUBSTRING([RowLog Contents 0], 2 + 1, 2)))) + 1, 2))))/8.0)) + 2
, (CASE WHEN SUBSTRING([RowLog Contents 0], 1, 1) In (0x10,0x30,0x70) THEN
CONVERT(INT, CONVERT(BINARY(2), REVERSE(SUBSTRING([RowLog Contents 0],
CONVERT(SMALLINT, CONVERT(BINARY(2), REVERSE(SUBSTRING([RowLog Contents 0], 2 + 1, 2)))) + 3
+ CONVERT(INT, ceiling(CONVERT(INT, CONVERT(BINARY(2), REVERSE(SUBSTRING([RowLog Contents 0], CONVERT(SMALLINT, CONVERT(BINARY(2)
,REVERSE(SUBSTRING([RowLog Contents 0], 2 + 1, 2)))) + 1, 2))))/8.0)), 2)))) ELSE null END)
* 2) ELSE null END) AS [ColumnOffsetArray]

-- Variable column Start = Status Bit A+ Status Bit B + [Fixed Length Data] + [Null Bitmap length] + 2+([TotalNoofVarCols]*2)
,CASE WHEN SUBSTRING([RowLog Contents 0], 1, 1)In (0x10,0x30,0x70)
THEN (
CONVERT(SMALLINT, CONVERT(BINARY(2), REVERSE(SUBSTRING([RowLog Contents 0], 2 + 1, 2)))) + 4

+ CONVERT(INT, ceiling(CONVERT(INT, CONVERT(BINARY(2), REVERSE(SUBSTRING([RowLog Contents 0], CONVERT(SMALLINT, CONVERT(BINARY(2)
,REVERSE(SUBSTRING([RowLog Contents 0], 2 + 1, 2)))) + 1, 2))))/8.0))

+ ((CASE WHEN SUBSTRING([RowLog Contents 0], 1, 1) In (0x10,0x30,0x70) THEN
CONVERT(INT, CONVERT(BINARY(2), REVERSE(SUBSTRING([RowLog Contents 0],
CONVERT(SMALLINT, CONVERT(BINARY(2), REVERSE(SUBSTRING([RowLog Contents 0], 2 + 1, 2)))) + 3
+ CONVERT(INT, ceiling(CONVERT(INT, CONVERT(BINARY(2), REVERSE(SUBSTRING([RowLog Contents 0], CONVERT(SMALLINT, CONVERT(BINARY(2)
,REVERSE(SUBSTRING([RowLog Contents 0], 2 + 1, 2)))) + 1, 2))))/8.0)), 2)))) ELSE null END) * 2))

ELSE null End AS [VarColumnStart]
,[Slot ID]
FROM sys.fn_dblog(NULL, NULL)
WHERE
AllocUnitId IN
(SELECT [Allocation_unit_id] FROM sys.allocation_units allocunits
INNER JOIN sys.partitions partitions ON (allocunits.type IN (1, 3)
AND partitions.hobt_id = allocunits.container_id) OR (allocunits.type = 2
AND partitions.partition_id = allocunits.container_id)
WHERE object_id=object_ID('' + @SchemaName_n_TableName + ''))

AND Context IN ('LCX_MARK_AS_GHOST', 'LCX_HEAP') AND Operation in ('LOP_DELETE_ROWS')
And SUBSTRING([RowLog Contents 0], 1, 1)In (0x10,0x30,0x70)

/*Use this subquery to filter the date*/
AND [TRANSACTION ID] IN (SELECT DISTINCT [TRANSACTION ID] FROM    sys.fn_dblog(NULL, NULL)
WHERE Context IN ('LCX_NULL') AND Operation in ('LOP_BEGIN_XACT')
And [Transaction Name] In ('DELETE','user_transaction')
And CONVERT(NVARCHAR(11),[Begin Time]) BETWEEN @Date_From AND @Date_To)),

--Use this technique to repeate the row till the no of bytes of the row.
N1 (n) AS (SELECT 1 UNION ALL SELECT 1),
N2 (n) AS (SELECT 1 FROM N1 AS X, N1 AS Y),
N3 (n) AS (SELECT 1 FROM N2 AS X, N2 AS Y),
N4 (n) AS (SELECT ROW_NUMBER() OVER(ORDER BY X.n)
           FROM N3 AS X, N3 AS Y)

INSERT INTO @DeletedRecords
SELECT RowLogContents
        ,[AllocUnitID]
        ,[Transaction ID]
        ,[FixedLengthData]
        ,[TotalNoOfCols]
        ,[NullBitMapLength]
        ,[NullBytes]
        ,[TotalNoofVarCols]
        ,[ColumnOffsetArray]
        ,[VarColumnStart]
        ,[Slot ID]
         ---Get the Null value against each column (1 means null zero means not null)
        ,[NullBitMap]=(REPLACE(STUFF((SELECT ',' +
        (CASE WHEN [ID]=0 THEN CONVERT(NVARCHAR(1),(SUBSTRING(NullBytes, n, 1) % 2)) ELSE CONVERT(NVARCHAR(1),((SUBSTRING(NullBytes, n, 1) / [Bitvalue]) % 2)) END) --as [nullBitMap]

FROM
N4 AS Nums
Join RowData AS C ON n<=NullBitMapLength
Cross Join @bitTable WHERE C.[RowLogContents]=D.[RowLogContents] ORDER BY [RowLogContents],n ASC FOR XML PATH('')),1,1,''),',',''))
FROM RowData D

IF (SELECT COUNT(*) FROM @DeletedRecords)=0
BEGIN
    RAISERROR('There is no data in the log as per the search criteria',16,1)
    RETURN
END

DECLARE @ColumnNameAndData TABLE
(
[Row ID]           int,
[Rowlogcontents]   varbinary(Max),
[NAME]             sysname,
[nullbit]          smallint,
[leaf_offset]      smallint,
[length]           smallint,
[System_Type_Id]   tinyint,
[bitpos]           tinyint,
[xprec]            tinyint,
[xscale]           tinyint,
[is_null]          int,
[Column value Size]int,
[Column Length]    int,
[hex_Value]        varbinary(max),
[Slot ID]          int,
[Update]           int
)

--Create common table expression and join it with the rowdata table
-- to get each column details
/*This part is for variable data columns*/
--@RowLogContents,
--(col.columnOffValue - col.columnLength) + 1,
--col.columnLength
--)
INSERT INTO @ColumnNameAndData
SELECT
[Row ID],
Rowlogcontents,
NAME ,
cols.leaf_null_bit AS nullbit,
leaf_offset,
ISNULL(syscolumns.length, cols.max_length) AS [length],
cols.System_Type_Id,
cols.leaf_bit_position AS bitpos,
ISNULL(syscolumns.xprec, cols.precision) AS xprec,
ISNULL(syscolumns.xscale, cols.scale) AS xscale,
SUBSTRING([nullBitMap], cols.leaf_null_bit, 1) AS is_null,
(CASE WHEN leaf_offset<1 and SUBSTRING([nullBitMap], cols.leaf_null_bit, 1)=0
THEN
(Case When CONVERT(INT, CONVERT(BINARY(2), REVERSE (SUBSTRING ([ColumnOffsetArray], (2 * leaf_offset*-1) - 1, 2)))) >30000
THEN
CONVERT(INT, CONVERT(BINARY(2), REVERSE (SUBSTRING ([ColumnOffsetArray], (2 * leaf_offset*-1) - 1, 2)))) - POWER(2, 15)
ELSE
CONVERT(INT, CONVERT(BINARY(2), REVERSE (SUBSTRING ([ColumnOffsetArray], (2 * leaf_offset*-1) - 1, 2))))
END)
END) AS [Column value Size],

(CASE WHEN leaf_offset<1 and SUBSTRING([nullBitMap], cols.leaf_null_bit, 1)=0 THEN
(Case

When CONVERT(INT, CONVERT(BINARY(2), REVERSE (SUBSTRING ([ColumnOffsetArray], (2 * leaf_offset*-1) - 1, 2)))) >30000 And
ISNULL(NULLIF(CONVERT(INT, CONVERT(BINARY(2), REVERSE (SUBSTRING ([ColumnOffsetArray], (2 * ((leaf_offset*-1) - 1)) - 1, 2)))), 0), [varColumnStart])<30000
THEN (Case When [System_Type_Id]In (35,34,99) Then 16 else 24 end)

When CONVERT(INT, CONVERT(BINARY(2), REVERSE (SUBSTRING ([ColumnOffsetArray], (2 * leaf_offset*-1) - 1, 2)))) >30000 And
ISNULL(NULLIF(CONVERT(INT, CONVERT(BINARY(2), REVERSE (SUBSTRING ([ColumnOffsetArray], (2 * ((leaf_offset*-1) - 1)) - 1, 2)))), 0), [varColumnStart])>30000
THEN (Case When [System_Type_Id]In (35,34,99) Then 16 else 24 end) --24

When CONVERT(INT, CONVERT(BINARY(2), REVERSE (SUBSTRING ([ColumnOffsetArray], (2 * leaf_offset*-1) - 1, 2)))) <30000 And
ISNULL(NULLIF(CONVERT(INT, CONVERT(BINARY(2), REVERSE (SUBSTRING ([ColumnOffsetArray], (2 * ((leaf_offset*-1) - 1)) - 1, 2)))), 0), [varColumnStart])<30000
THEN (CONVERT(INT, CONVERT(BINARY(2), REVERSE (SUBSTRING ([ColumnOffsetArray], (2 * leaf_offset*-1) - 1, 2))))
- ISNULL(NULLIF(CONVERT(INT, CONVERT(BINARY(2), REVERSE (SUBSTRING ([ColumnOffsetArray], (2 * ((leaf_offset*-1) - 1)) - 1, 2)))), 0), [varColumnStart]))

When CONVERT(INT, CONVERT(BINARY(2), REVERSE (SUBSTRING ([ColumnOffsetArray], (2 * leaf_offset*-1) - 1, 2)))) <30000 And
ISNULL(NULLIF(CONVERT(INT, CONVERT(BINARY(2), REVERSE (SUBSTRING ([ColumnOffsetArray], (2 * ((leaf_offset*-1) - 1)) - 1, 2)))), 0), [varColumnStart])>30000

THEN POWER(2, 15) +CONVERT(INT, CONVERT(BINARY(2), REVERSE (SUBSTRING ([ColumnOffsetArray], (2 * leaf_offset*-1) - 1, 2))))
- ISNULL(NULLIF(CONVERT(INT, CONVERT(BINARY(2), REVERSE (SUBSTRING ([ColumnOffsetArray], (2 * ((leaf_offset*-1) - 1)) - 1, 2)))), 0), [varColumnStart])

END)

END) AS [Column Length]

,(CASE WHEN SUBSTRING([nullBitMap], cols.leaf_null_bit, 1)=1 THEN NULL ELSE
SUBSTRING
(
Rowlogcontents,
(

(Case When CONVERT(INT, CONVERT(BINARY(2), REVERSE (SUBSTRING ([ColumnOffsetArray], (2 * leaf_offset*-1) - 1, 2)))) >30000
THEN
CONVERT(INT, CONVERT(BINARY(2), REVERSE (SUBSTRING ([ColumnOffsetArray], (2 * leaf_offset*-1) - 1, 2)))) - POWER(2, 15)
ELSE
CONVERT(INT, CONVERT(BINARY(2), REVERSE (SUBSTRING ([ColumnOffsetArray], (2 * leaf_offset*-1) - 1, 2))))
END)

-
(Case When CONVERT(INT, CONVERT(BINARY(2), REVERSE (SUBSTRING ([ColumnOffsetArray], (2 * leaf_offset*-1) - 1, 2)))) >30000 And
ISNULL(NULLIF(CONVERT(INT, CONVERT(BINARY(2), REVERSE (SUBSTRING ([ColumnOffsetArray], (2 * ((leaf_offset*-1) - 1)) - 1, 2)))), 0), [varColumnStart])<30000

THEN (Case When [System_Type_Id]In (35,34,99) Then 16 else 24 end) --24
When CONVERT(INT, CONVERT(BINARY(2), REVERSE (SUBSTRING ([ColumnOffsetArray], (2 * leaf_offset*-1) - 1, 2)))) >30000 And
ISNULL(NULLIF(CONVERT(INT, CONVERT(BINARY(2), REVERSE (SUBSTRING ([ColumnOffsetArray], (2 * ((leaf_offset*-1) - 1)) - 1, 2)))), 0), [varColumnStart])>30000

THEN (Case When [System_Type_Id]In (35,34,99) Then 16 else 24 end) --24
When CONVERT(INT, CONVERT(BINARY(2), REVERSE (SUBSTRING ([ColumnOffsetArray], (2 * leaf_offset*-1) - 1, 2)))) <30000 And
ISNULL(NULLIF(CONVERT(INT, CONVERT(BINARY(2), REVERSE (SUBSTRING ([ColumnOffsetArray], (2 * ((leaf_offset*-1) - 1)) - 1, 2)))), 0), [varColumnStart])<30000

THEN CONVERT(INT, CONVERT(BINARY(2), REVERSE (SUBSTRING ([ColumnOffsetArray], (2 * leaf_offset*-1) - 1, 2))))
- ISNULL(NULLIF(CONVERT(INT, CONVERT(BINARY(2), REVERSE (SUBSTRING ([ColumnOffsetArray], (2 * ((leaf_offset*-1) - 1)) - 1, 2)))), 0), [varColumnStart])

When CONVERT(INT, CONVERT(BINARY(2), REVERSE (SUBSTRING ([ColumnOffsetArray], (2 * leaf_offset*-1) - 1, 2)))) <30000 And
ISNULL(NULLIF(CONVERT(INT, CONVERT(BINARY(2), REVERSE (SUBSTRING ([ColumnOffsetArray], (2 * ((leaf_offset*-1) - 1)) - 1, 2)))), 0), [varColumnStart])>30000

THEN POWER(2, 15) +CONVERT(INT, CONVERT(BINARY(2), REVERSE (SUBSTRING ([ColumnOffsetArray], (2 * leaf_offset*-1) - 1, 2))))
- ISNULL(NULLIF(CONVERT(INT, CONVERT(BINARY(2), REVERSE (SUBSTRING ([ColumnOffsetArray], (2 * ((leaf_offset*-1) - 1)) - 1, 2)))), 0), [varColumnStart])

END)

) + 1,
(Case When CONVERT(INT, CONVERT(BINARY(2), REVERSE (SUBSTRING ([ColumnOffsetArray], (2 * leaf_offset*-1) - 1, 2)))) >30000 And
ISNULL(NULLIF(CONVERT(INT, CONVERT(BINARY(2), REVERSE (SUBSTRING ([ColumnOffsetArray], (2 * ((leaf_offset*-1) - 1)) - 1, 2)))), 0), [varColumnStart])<30000

THEN (Case When [System_Type_Id] In (35,34,99) Then 16 else 24 end) --24
When CONVERT(INT, CONVERT(BINARY(2), REVERSE (SUBSTRING ([ColumnOffsetArray], (2 * leaf_offset*-1) - 1, 2)))) >30000 And
ISNULL(NULLIF(CONVERT(INT, CONVERT(BINARY(2), REVERSE (SUBSTRING ([ColumnOffsetArray], (2 * ((leaf_offset*-1) - 1)) - 1, 2)))), 0), [varColumnStart])>30000

THEN (Case When [System_Type_Id] In (35,34,99) Then 16 else 24 end) --24
When CONVERT(INT, CONVERT(BINARY(2), REVERSE (SUBSTRING ([ColumnOffsetArray], (2 * leaf_offset*-1) - 1, 2)))) <30000 And
ISNULL(NULLIF(CONVERT(INT, CONVERT(BINARY(2), REVERSE (SUBSTRING ([ColumnOffsetArray], (2 * ((leaf_offset*-1) - 1)) - 1, 2)))), 0), [varColumnStart])<30000

THEN ABS(CONVERT(INT, CONVERT(BINARY(2), REVERSE (SUBSTRING ([ColumnOffsetArray], (2 * leaf_offset*-1) - 1, 2))))
- ISNULL(NULLIF(CONVERT(INT, CONVERT(BINARY(2), REVERSE (SUBSTRING ([ColumnOffsetArray], (2 * ((leaf_offset*-1) - 1)) - 1, 2)))), 0), [varColumnStart]))

When CONVERT(INT, CONVERT(BINARY(2), REVERSE (SUBSTRING ([ColumnOffsetArray], (2 * leaf_offset*-1) - 1, 2)))) <30000 And
ISNULL(NULLIF(CONVERT(INT, CONVERT(BINARY(2), REVERSE (SUBSTRING ([ColumnOffsetArray], (2 * ((leaf_offset*-1) - 1)) - 1, 2)))), 0), [varColumnStart])>30000

THEN POWER(2, 15) +CONVERT(INT, CONVERT(BINARY(2), REVERSE (SUBSTRING ([ColumnOffsetArray], (2 * leaf_offset*-1) - 1, 2))))
- ISNULL(NULLIF(CONVERT(INT, CONVERT(BINARY(2), REVERSE (SUBSTRING ([ColumnOffsetArray], (2 * ((leaf_offset*-1) - 1)) - 1, 2)))), 0), [varColumnStart])

END)
)

END) AS hex_Value
,[Slot ID]
,0
FROM @DeletedRecords A
Inner Join sys.allocation_units allocunits On A.[AllocUnitId]=allocunits.[Allocation_Unit_Id]
INNER JOIN sys.partitions partitions ON (allocunits.type IN (1, 3)
AND partitions.hobt_id = allocunits.container_id) OR (allocunits.type = 2 AND partitions.partition_id = allocunits.container_id)
INNER JOIN sys.system_internals_partition_columns cols ON cols.partition_id = partitions.partition_id
LEFT OUTER JOIN syscolumns ON syscolumns.id = partitions.object_id AND syscolumns.colid = cols.partition_column_id
WHERE leaf_offset<0
UNION
/*This part is for fixed data columns*/
SELECT
[Row ID],
Rowlogcontents,
NAME ,
cols.leaf_null_bit AS nullbit,
leaf_offset,
ISNULL(syscolumns.length, cols.max_length) AS [length],
cols.System_Type_Id,
cols.leaf_bit_position AS bitpos,
ISNULL(syscolumns.xprec, cols.precision) AS xprec,
ISNULL(syscolumns.xscale, cols.scale) AS xscale,
SUBSTRING([nullBitMap], cols.leaf_null_bit, 1) AS is_null,
(SELECT TOP 1 ISNULL(SUM(CASE WHEN C.leaf_offset >1 THEN max_length ELSE 0 END),0) FROM
sys.system_internals_partition_columns C WHERE cols.partition_id =C.partition_id And C.leaf_null_bit<cols.leaf_null_bit)+5 AS [Column value Size],
syscolumns.length AS [Column Length]

,CASE WHEN SUBSTRING([nullBitMap], cols.leaf_null_bit, 1)=1 THEN NULL ELSE
SUBSTRING
(
Rowlogcontents,(SELECT TOP 1 ISNULL(SUM(CASE WHEN C.leaf_offset >1 And C.leaf_bit_position=0 THEN max_length ELSE 0 END),0) FROM
sys.system_internals_partition_columns C where cols.partition_id =C.partition_id And C.leaf_null_bit<cols.leaf_null_bit)+5
,syscolumns.length) END AS hex_Value
,[Slot ID]
,0
FROM @DeletedRecords A
Inner Join sys.allocation_units allocunits ON A.[AllocUnitId]=allocunits.[Allocation_Unit_Id]
INNER JOIN sys.partitions partitions ON (allocunits.type IN (1, 3)
AND partitions.hobt_id = allocunits.container_id) OR (allocunits.type = 2 AND partitions.partition_id = allocunits.container_id)
INNER JOIN sys.system_internals_partition_columns cols ON cols.partition_id = partitions.partition_id
LEFT OUTER JOIN syscolumns ON syscolumns.id = partitions.object_id AND syscolumns.colid = cols.partition_column_id
WHERE leaf_offset>0
Order By nullbit

Declare @BitColumnByte as int
Select @BitColumnByte=CONVERT(INT, ceiling( Count(*)/8.0)) from @ColumnNameAndData Where [System_Type_Id]=104

;With N1 (n) AS (SELECT 1 UNION ALL SELECT 1),
N2 (n) AS (SELECT 1 FROM N1 AS X, N1 AS Y),
N3 (n) AS (SELECT 1 FROM N2 AS X, N2 AS Y),
N4 (n) AS (SELECT ROW_NUMBER() OVER(ORDER BY X.n)
           FROM N3 AS X, N3 AS Y),
CTE As(
Select RowLogContents,[nullbit]
        ,[BitMap]=Convert(varbinary(1),Convert(int,Substring((REPLACE(STUFF((SELECT ',' +
        (CASE WHEN [ID]=0 THEN CONVERT(NVARCHAR(1),(SUBSTRING(hex_Value, n, 1) % 2)) ELSE CONVERT(NVARCHAR(1),((SUBSTRING(hex_Value, n, 1) / [Bitvalue]) % 2)) END) --as [nullBitMap]

from N4 AS Nums
Join @ColumnNameAndData AS C ON n<=@BitColumnByte And [System_Type_Id]=104 And bitpos=0
Cross Join @bitTable WHERE C.[RowLogContents]=D.[RowLogContents] ORDER BY [RowLogContents],n ASC FOR XML PATH('')),1,1,''),',','')),bitpos+1,1)))
FROM @ColumnNameAndData D Where [System_Type_Id]=104)

Update A Set [hex_Value]=[BitMap]
from @ColumnNameAndData A
Inner Join CTE B On A.[RowLogContents]=B.[RowLogContents]
And A.[nullbit]=B.[nullbit]

/**************Check for BLOB DATA TYPES******************************/
DECLARE @Fileid INT
DECLARE @Pageid INT
DECLARE @Slotid INT
DECLARE @CurrentLSN INT
DECLARE @LinkID INT
DECLARE @Context VARCHAR(50)
DECLARE @ConsolidatedPageID VARCHAR(MAX)
DECLARE @LCX_TEXT_MIX VARBINARY(MAX)

declare @temppagedata table
(
[ParentObject] sysname,
[Object] sysname,
[Field] sysname,
[Value] sysname)

declare @pagedata table
(
[Page ID] sysname,
[FILE IDS] int,
[Page IDS] int,
[AllocUnitId] bigint,
[ParentObject] sysname,
[Object] sysname,
[Field] sysname,
[Value] sysname)

DECLARE @ModifiedRawData TABLE
(
[ID] INT IDENTITY(1,1),
[PAGE ID] VARCHAR(MAX),
[FILE IDS] INT,
[PAGE IDS] INT,
[Slot ID] INT,
[AllocUnitId] BIGINT,
[RowLog Contents 0_var] VARCHAR(Max),
[RowLog Length] VARCHAR(50),
[RowLog Len] INT,
[RowLog Contents 0] VARBINARY(Max),
[Link ID] INT default (0),
[Update] INT
)

            DECLARE Page_Data_Cursor CURSOR FOR
            /*We need to filter LOP_MODIFY_ROW,LOP_MODIFY_COLUMNS from log for deleted records of BLOB data type& Get its Slot No, Page ID & AllocUnit ID*/
            SELECT LTRIM(RTRIM(Replace([Description],'Deallocated',''))) AS [PAGE ID]
            ,[Slot ID],[AllocUnitId],NULL AS [RowLog Contents 0],NULL AS [RowLog Contents 0],Context
            FROM    sys.fn_dblog(NULL, NULL)
            WHERE
            AllocUnitId IN
            (SELECT [Allocation_unit_id] FROM sys.allocation_units allocunits
            INNER JOIN sys.partitions partitions ON (allocunits.type IN (1, 3)
            AND partitions.hobt_id = allocunits.container_id) OR (allocunits.type = 2
            AND partitions.partition_id = allocunits.container_id)
            WHERE object_id=object_ID('' + @SchemaName_n_TableName + ''))
            AND Operation IN ('LOP_MODIFY_ROW') AND [Context] IN ('LCX_PFS')
            AND Description Like '%Deallocated%'
            /*Use this subquery to filter the date*/
            AND [TRANSACTION ID] IN (SELECT DISTINCT [TRANSACTION ID] FROM    sys.fn_dblog(NULL, NULL)
            WHERE Context IN ('LCX_NULL') AND Operation in ('LOP_BEGIN_XACT')
            AND [Transaction Name]='DELETE'
            AND CONVERT(NVARCHAR(11),[Begin Time]) BETWEEN @Date_From AND @Date_To)
            GROUP BY [Description],[Slot ID],[AllocUnitId],Context

            UNION

            SELECT [PAGE ID],[Slot ID],[AllocUnitId]
            ,Substring([RowLog Contents 0],15,LEN([RowLog Contents 0])) AS [RowLog Contents 0]
            ,CONVERT(INT,Substring([RowLog Contents 0],7,2)),Context --,CAST(RIGHT([Current LSN],4) AS INT) AS [Current LSN]
            FROM    sys.fn_dblog(NULL, NULL)
            WHERE
             AllocUnitId IN
            (SELECT [Allocation_unit_id] FROM sys.allocation_units allocunits
            INNER JOIN sys.partitions partitions ON (allocunits.type IN (1, 3)
            AND partitions.hobt_id = allocunits.container_id) OR (allocunits.type = 2
            AND partitions.partition_id = allocunits.container_id)
            WHERE object_id=object_ID('' + @SchemaName_n_TableName + ''))
            AND Context IN ('LCX_TEXT_MIX') AND Operation in ('LOP_DELETE_ROWS')
            /*Use this subquery to filter the date*/
            AND [TRANSACTION ID] IN (SELECT DISTINCT [TRANSACTION ID] FROM    sys.fn_dblog(NULL, NULL)
            WHERE Context IN ('LCX_NULL') AND Operation in ('LOP_BEGIN_XACT')
            And [Transaction Name]='DELETE'
            And CONVERT(NVARCHAR(11),[Begin Time]) BETWEEN @Date_From AND @Date_To)

            /****************************************/

        OPEN Page_Data_Cursor

        FETCH NEXT FROM Page_Data_Cursor INTO @ConsolidatedPageID, @Slotid,@AllocUnitID,@LCX_TEXT_MIX,@LinkID,@Context

        WHILE @@FETCH_STATUS = 0
        BEGIN
            DECLARE @hex_pageid AS VARCHAR(Max)
            /*Page ID contains File Number and page number It looks like 0001:00000130.
              In this example 0001 is file Number & 00000130 is Page Number & These numbers are in Hex format*/
            SET @Fileid=SUBSTRING(@ConsolidatedPageID,0,CHARINDEX(':',@ConsolidatedPageID)) -- Seperate File ID from Page ID

            SET @hex_pageid ='0x'+ SUBSTRING(@ConsolidatedPageID,CHARINDEX(':',@ConsolidatedPageID)+1,Len(@ConsolidatedPageID)) ---Seperate the page ID
            SELECT @Pageid=Convert(INT,cast('' AS XML).value('xs:hexBinary(substring(sql:variable("@hex_pageid"),sql:column("t.pos")) )', 'varbinary(max)')) -- Convert Page ID from hex to integer
            FROM (SELECT CASE substring(@hex_pageid, 1, 2) WHEN '0x' THEN 3 ELSE 0 END) AS t(pos)

            IF @Context='LCX_PFS'
              BEGIN
                        DELETE @temppagedata
                        INSERT INTO @temppagedata EXEC( 'DBCC PAGE(' + @DataBase_Name + ', ' + @fileid + ', ' + @pageid + ', 1) with tableresults,no_infomsgs;');
                        INSERT INTO @pagedata SELECT @ConsolidatedPageID,@fileid,@pageid,@AllocUnitID,[ParentObject],[Object],[Field] ,[Value] FROM @temppagedata
              END
            ELSE IF @Context='LCX_TEXT_MIX'
              BEGIN
                        INSERT INTO @ModifiedRawData SELECT @ConsolidatedPageID,@fileid,@pageid,@Slotid,@AllocUnitID,NULL,0,CONVERT(INT,CONVERT(VARBINARY,REVERSE(SUBSTRING(@LCX_TEXT_MIX,11,2)))),@LCX_TEXT_MIX,@LinkID,0
              END
            FETCH NEXT FROM Page_Data_Cursor INTO @ConsolidatedPageID, @Slotid,@AllocUnitID,@LCX_TEXT_MIX,@LinkID,@Context
        END

    CLOSE Page_Data_Cursor
    DEALLOCATE Page_Data_Cursor

    DECLARE @Newhexstring VARCHAR(MAX);

    --The data is in multiple rows in the page, so we need to convert it into one row as a single hex value.
    --This hex value is in string format
    INSERT INTO @ModifiedRawData ([PAGE ID],[FILE IDS],[PAGE IDS],[Slot ID],[AllocUnitId]
    ,[RowLog Contents 0_var]
    , [RowLog Length])
    SELECT [Page ID],[FILE IDS],[PAGE IDS],Substring([ParentObject],CHARINDEX('Slot', [ParentObject])+4, (CHARINDEX('Offset', [ParentObject])-(CHARINDEX('Slot', [ParentObject])+4))-2 ) as [Slot ID]
    ,[AllocUnitId]
    ,Substring((
    SELECT
    REPLACE(STUFF((SELECT REPLACE(SUBSTRING([Value],CHARINDEX(':',[Value])+1,CHARINDEX('†',[Value])-CHARINDEX(':',[Value])),'†','')
    FROM @pagedata C WHERE B.[Page ID]= C.[Page ID] And Substring(B.[ParentObject],CHARINDEX('Slot', B.[ParentObject])+4, (CHARINDEX('Offset', B.[ParentObject])-(CHARINDEX('Slot', B.[ParentObject])+4)) )=Substring(C.[ParentObject],CHARINDEX('Slot', C.[ParentObject])+4, (CHARINDEX('Offset', C.[ParentObject])-(CHARINDEX('Slot', C.[ParentObject])+4)) ) And
    [Object] Like '%Memory Dump%' Order By '0x'+ LEFT([Value],CHARINDEX(':',[Value])-1)
    FOR XML PATH('') ),1,1,'') ,' ','')
    ),1,20000) AS [Value]

    ,
     Substring((
    SELECT '0x' +REPLACE(STUFF((SELECT REPLACE(SUBSTRING([Value],CHARINDEX(':',[Value])+1,CHARINDEX('†',[Value])-CHARINDEX(':',[Value])),'†','')
    FROM @pagedata C WHERE B.[Page ID]= C.[Page ID] And Substring(B.[ParentObject],CHARINDEX('Slot', B.[ParentObject])+4, (CHARINDEX('Offset', B.[ParentObject])-(CHARINDEX('Slot', B.[ParentObject])+4)) )=Substring(C.[ParentObject],CHARINDEX('Slot', C.[ParentObject])+4, (CHARINDEX('Offset', C.[ParentObject])-(CHARINDEX('Slot', C.[ParentObject])+4)) ) And
    [Object] Like '%Memory Dump%' Order By '0x'+ LEFT([Value],CHARINDEX(':',[Value])-1)
    FOR XML PATH('') ),1,1,'') ,' ','')
    ),7,4) AS [Length]

    From @pagedata B
    Where [Object] Like '%Memory Dump%'
    Group By [Page ID],[FILE IDS],[PAGE IDS],[ParentObject],[AllocUnitId]--,[Current LSN]
    Order By [Slot ID]

    UPDATE @ModifiedRawData SET [RowLog Len] = CONVERT(VARBINARY(8000),REVERSE(cast('' AS XML).value('xs:hexBinary(substring(sql:column("[RowLog Length]"),0))', 'varbinary(Max)')))
    FROM @ModifiedRawData Where [Link ID]=0

    UPDATE @ModifiedRawData SET [RowLog Contents 0] =cast('' AS XML).value('xs:hexBinary(substring(sql:column("[RowLog Contents 0_var]"),0))', 'varbinary(Max)')
    FROM @ModifiedRawData Where [Link ID]=0

    Update B Set B.[RowLog Contents 0] =
    (CASE WHEN A.[RowLog Contents 0] IS NOT NULL AND C.[RowLog Contents 0] IS NOT NULL THEN A.[RowLog Contents 0]+C.[RowLog Contents 0]
        WHEN A.[RowLog Contents 0] IS NULL AND C.[RowLog Contents 0] IS NOT NULL THEN C.[RowLog Contents 0]
        WHEN A.[RowLog Contents 0] IS NOT NULL AND C.[RowLog Contents 0] IS NULL THEN A.[RowLog Contents 0]
        END)
    ,B.[Update]=ISNULL(B.[Update],0)+1
    from @ModifiedRawData B
    LEFT Join @ModifiedRawData A On A.[Page IDS]=Convert(int,Convert(Varbinary(Max),Reverse(Substring(B.[RowLog Contents 0],15+14,2))))
    And A.[FILE IDS]=Convert(int,Convert(Varbinary(Max),Reverse(Substring(B.[RowLog Contents 0],19+14,2))))
    And A.[Link ID]=B.[Link ID]
    LEFT Join @ModifiedRawData C On C.[Page IDS]=Convert(int,Convert(Varbinary(Max),Reverse(Substring(B.[RowLog Contents 0],27+14,2))))
    And C.[FILE IDS]=Convert(int,Convert(Varbinary(Max),Reverse(Substring(B.[RowLog Contents 0],31+14,2))))
    And C.[Link ID]=B.[Link ID]
    Where (A.[RowLog Contents 0] IS NOT NULL OR C.[RowLog Contents 0] IS NOT NULL)

    Update B Set B.[RowLog Contents 0] =
    (CASE WHEN A.[RowLog Contents 0] IS NOT NULL AND C.[RowLog Contents 0] IS NOT NULL THEN A.[RowLog Contents 0]+C.[RowLog Contents 0]
        WHEN A.[RowLog Contents 0] IS NULL AND C.[RowLog Contents 0] IS NOT NULL THEN C.[RowLog Contents 0]
        WHEN A.[RowLog Contents 0] IS NOT NULL AND C.[RowLog Contents 0] IS NULL THEN A.[RowLog Contents 0]
        END)
    --,B.[Update]=ISNULL(B.[Update],0)+1
    from @ModifiedRawData B
    LEFT Join @ModifiedRawData A On A.[Page IDS]=Convert(int,Convert(Varbinary(Max),Reverse(Substring(B.[RowLog Contents 0],15+14,2))))
    And A.[FILE IDS]=Convert(int,Convert(Varbinary(Max),Reverse(Substring(B.[RowLog Contents 0],19+14,2))))
    And A.[Link ID]<>B.[Link ID] And B.[Update]=0
    LEFT Join @ModifiedRawData C On C.[Page IDS]=Convert(int,Convert(Varbinary(Max),Reverse(Substring(B.[RowLog Contents 0],27+14,2))))
    And C.[FILE IDS]=Convert(int,Convert(Varbinary(Max),Reverse(Substring(B.[RowLog Contents 0],31+14,2))))
    And C.[Link ID]<>B.[Link ID] And B.[Update]=0
    Where (A.[RowLog Contents 0] IS NOT NULL OR C.[RowLog Contents 0] IS NOT NULL)

    UPDATE @ModifiedRawData SET [RowLog Contents 0] =
    (Case When [RowLog Len]>=8000 Then
    Substring([RowLog Contents 0] ,15,[RowLog Len])
    When [RowLog Len]<8000 Then
    SUBSTRING([RowLog Contents 0],15+6,Convert(int,Convert(varbinary(max),REVERSE(Substring([RowLog Contents 0],15,6)))))
    End)
    FROM @ModifiedRawData Where [Link ID]=0

    UPDATE @ColumnNameAndData SET [hex_Value]=[RowLog Contents 0]
    --,A.[Update]=A.[Update]+1
    FROM @ColumnNameAndData A
    INNER JOIN @ModifiedRawData B ON
    Convert(int,Convert(Varbinary(Max),Reverse(Substring([hex_value],17,4))))=[PAGE IDS]
    AND Convert(int,Substring([hex_value],9,2)) =B.[Link ID]
    Where [System_Type_Id] In (99,167,175,231,239,241,165,98) And [Link ID] <>0

    UPDATE @ColumnNameAndData SET [hex_Value]=
    (CASE WHEN B.[RowLog Contents 0] IS NOT NULL AND C.[RowLog Contents 0] IS NOT NULL THEN B.[RowLog Contents 0]+C.[RowLog Contents 0]
    WHEN B.[RowLog Contents 0] IS NULL AND C.[RowLog Contents 0] IS NOT NULL THEN C.[RowLog Contents 0]
    WHEN B.[RowLog Contents 0] IS NOT NULL AND C.[RowLog Contents 0] IS NULL THEN B.[RowLog Contents 0]
    END)
    --,A.[Update]=A.[Update]+1
    FROM @ColumnNameAndData A
    LEFT JOIN @ModifiedRawData B ON
    Convert(int,Convert(Varbinary(Max),Reverse(Substring([hex_value],5,4))))=B.[PAGE IDS] And B.[Link ID] =0
    LEFT JOIN @ModifiedRawData C ON
    Convert(int,Convert(Varbinary(Max),Reverse(Substring([hex_value],17,4))))=C.[PAGE IDS] And C.[Link ID] =0
    Where [System_Type_Id] In (99,167,175,231,239,241,165,98) And (B.[RowLog Contents 0] IS NOT NULL OR C.[RowLog Contents 0] IS NOT NULL)

    UPDATE @ColumnNameAndData SET [hex_Value]=[RowLog Contents 0]
    --,A.[Update]=A.[Update]+1
    FROM @ColumnNameAndData A
    INNER JOIN @ModifiedRawData B ON
    Convert(int,Convert(Varbinary(Max),Reverse(Substring([hex_value],9,4))))=[PAGE IDS]
    And Convert(int,Substring([hex_value],3,2))=[Link ID]
    Where [System_Type_Id] In (35,34,99) And [Link ID] <>0

    UPDATE @ColumnNameAndData SET [hex_Value]=[RowLog Contents 0]
    --,A.[Update]=A.[Update]+10
    FROM @ColumnNameAndData A
    INNER JOIN @ModifiedRawData B ON
    Convert(int,Convert(Varbinary(Max),Reverse(Substring([hex_value],9,4))))=[PAGE IDS]
    Where [System_Type_Id] In (35,34,99) And [Link ID] =0

    UPDATE @ColumnNameAndData SET [hex_Value]=[RowLog Contents 0]
    --,A.[Update]=A.[Update]+1
    FROM @ColumnNameAndData A
    INNER JOIN @ModifiedRawData B ON
    Convert(int,Convert(Varbinary(Max),Reverse(Substring([hex_value],15,4))))=[PAGE IDS]
    Where [System_Type_Id] In (35,34,99) And [Link ID] =0

    Update @ColumnNameAndData set [hex_value]= 0xFFFE + Substring([hex_value],9,LEN([hex_value]))
    --,[Update]=[Update]+1
    Where [System_Type_Id]=241

CREATE TABLE [#temp_Data]
(
    [FieldName] VARCHAR(MAX),
    [FieldValue] NVARCHAR(MAX),
    [Rowlogcontents] VARBINARY(8000),
    [Row ID] int
)

INSERT INTO #temp_Data
SELECT NAME,
CASE
WHEN System_Type_Id IN (231, 239) THEN LTRIM(RTRIM(CONVERT(NVARCHAR(max),hex_Value))) --NVARCHAR ,NCHAR
WHEN System_Type_Id IN (167,175) THEN LTRIM(RTRIM(CONVERT(VARCHAR(max),hex_Value))) --VARCHAR,CHAR
WHEN System_Type_Id IN (35) THEN LTRIM(RTRIM(CONVERT(VARCHAR(max),hex_Value))) --Text
WHEN System_Type_Id IN (99) THEN LTRIM(RTRIM(CONVERT(NVARCHAR(max),hex_Value))) --nText
WHEN System_Type_Id = 48 THEN CONVERT(VARCHAR(MAX), CONVERT(TINYINT, CONVERT(BINARY(1), REVERSE (hex_Value)))) --TINY INTEGER
WHEN System_Type_Id = 52 THEN CONVERT(VARCHAR(MAX), CONVERT(SMALLINT, CONVERT(BINARY(2), REVERSE (hex_Value)))) --SMALL INTEGER
WHEN System_Type_Id = 56 THEN CONVERT(VARCHAR(MAX), CONVERT(INT, CONVERT(BINARY(4), REVERSE(hex_Value)))) -- INTEGER
WHEN System_Type_Id = 127 THEN CONVERT(VARCHAR(MAX), CONVERT(BIGINT, CONVERT(BINARY(8), REVERSE(hex_Value))))-- BIG INTEGER
WHEN System_Type_Id = 61 Then CONVERT(VARCHAR(MAX),CONVERT(DATETIME,CONVERT(VARBINARY(8000),REVERSE (hex_Value))),100) --DATETIME
WHEN System_Type_Id =58 Then CONVERT(VARCHAR(MAX),CONVERT(SMALLDATETIME,CONVERT(VARBINARY(8000),REVERSE(hex_Value))),100) --SMALL DATETIME
WHEN System_Type_Id = 108 THEN CONVERT(VARCHAR(MAX),CONVERT(NUMERIC(38,20), CONVERT(VARBINARY,CONVERT(VARBINARY(1),xprec)+CONVERT(VARBINARY(1),xscale))+CONVERT(VARBINARY(1),0) + hex_Value)) --- NUMERIC
WHEN System_Type_Id =106 THEN CONVERT(VARCHAR(MAX), CONVERT(DECIMAL(38,20), CONVERT(VARBINARY,Convert(VARBINARY(1),xprec)+CONVERT(VARBINARY(1),xscale))+CONVERT(VARBINARY(1),0) + hex_Value)) --- DECIMAL
WHEN System_Type_Id In(60,122) THEN CONVERT(VARCHAR(MAX),Convert(MONEY,Convert(VARBINARY(8000),Reverse(hex_Value))),2) --MONEY,SMALLMONEY
WHEN System_Type_Id = 104 THEN CONVERT(VARCHAR(MAX),CONVERT (BIT,CONVERT(BINARY(1), hex_Value)%2)) -- BIT
WHEN System_Type_Id =62 THEN RTRIM(LTRIM(STR(CONVERT(FLOAT,SIGN(CAST(CONVERT(VARBINARY(8000),Reverse(hex_Value)) AS BIGINT)) * (1.0 + (CAST(CONVERT(VARBINARY(8000),Reverse(hex_Value)) AS BIGINT) & 0x000FFFFFFFFFFFFF) * POWER(CAST(2 AS FLOAT), -52)) * POWER(CAST(2 AS FLOAT),((CAST(CONVERT(VARBINARY(8000),Reverse(hex_Value)) AS BIGINT) & 0x7ff0000000000000) / EXP(52 * LOG(2))-1023))),53,LEN(hex_Value)))) --- FLOAT
When System_Type_Id =59 THEN Left(LTRIM(STR(CAST(SIGN(CAST(Convert(VARBINARY(8000),REVERSE(hex_Value)) AS BIGINT))* (1.0 + (CAST(CONVERT(VARBINARY(8000),Reverse(hex_Value)) AS BIGINT) & 0x007FFFFF) * POWER(CAST(2 AS Real), -23)) * POWER(CAST(2 AS Real),(((CAST(CONVERT(VARBINARY(8000),Reverse(hex_Value)) AS INT) )& 0x7f800000)/ EXP(23 * LOG(2))-127))AS REAL),23,23)),8) --Real
WHEN System_Type_Id In (165,173) THEN (CASE WHEN CHARINDEX(0x,cast('' AS XML).value('xs:hexBinary(sql:column("hex_Value"))', 'VARBINARY(8000)')) = 0 THEN '0x' ELSE '' END) +cast('' AS XML).value('xs:hexBinary(sql:column("hex_Value"))', 'varchar(max)') -- BINARY,VARBINARY
WHEN System_Type_Id =34 THEN (CASE WHEN CHARINDEX(0x,cast('' AS XML).value('xs:hexBinary(sql:column("hex_Value"))', 'VARBINARY(8000)')) = 0 THEN '0x' ELSE '' END) +cast('' AS XML).value('xs:hexBinary(sql:column("hex_Value"))', 'varchar(max)') --IMAGE
WHEN System_Type_Id =36 THEN CONVERT(VARCHAR(MAX),CONVERT(UNIQUEIDENTIFIER,hex_Value)) --UNIQUEIDENTIFIER
WHEN System_Type_Id =231 THEN CONVERT(VARCHAR(MAX),CONVERT(sysname,hex_Value)) --SYSNAME
WHEN System_Type_Id =241 THEN CONVERT(VARCHAR(MAX),CONVERT(xml,hex_Value)) --XML

WHEN System_Type_Id =189 THEN (CASE WHEN CHARINDEX(0x,cast('' AS XML).value('xs:hexBinary(sql:column("hex_Value"))', 'VARBINARY(8000)')) = 0 THEN '0x' ELSE '' END) +cast('' AS XML).value('xs:hexBinary(sql:column("hex_Value"))', 'varchar(max)') --TIMESTAMP
WHEN System_Type_Id=98 THEN (CASE
WHEN CONVERT(INT,SUBSTRING(hex_Value,1,1))=56 THEN CONVERT(VARCHAR(MAX), CONVERT(INT, CONVERT(BINARY(4), REVERSE(Substring(hex_Value,3,Len(hex_Value)))))) -- INTEGER
WHEN CONVERT(INT,SUBSTRING(hex_Value,1,1))=108 THEN CONVERT(VARCHAR(MAX),CONVERT(numeric(38,20),CONVERT(VARBINARY(1),Substring(hex_Value,3,1)) +CONVERT(VARBINARY(1),Substring(hex_Value,4,1))+CONVERT(VARBINARY(1),0) + Substring(hex_Value,5,Len(hex_Value)))) --- NUMERIC
WHEN CONVERT(INT,SUBSTRING(hex_Value,1,1))=167 THEN LTRIM(RTRIM(CONVERT(VARCHAR(max),Substring(hex_Value,9,Len(hex_Value))))) --VARCHAR,CHAR
WHEN CONVERT(INT,SUBSTRING(hex_Value,1,1))=36 THEN CONVERT(VARCHAR(MAX),CONVERT(UNIQUEIDENTIFIER,Substring((hex_Value),3,20))) --UNIQUEIDENTIFIER
WHEN CONVERT(INT,SUBSTRING(hex_Value,1,1))=61 THEN CONVERT(VARCHAR(MAX),CONVERT(DATETIME,CONVERT(VARBINARY(8000),REVERSE (Substring(hex_Value,3,LEN(hex_Value)) ))),100) --DATETIME
WHEN CONVERT(INT,SUBSTRING(hex_Value,1,1))=165 THEN '0x'+ SUBSTRING((CASE WHEN CHARINDEX(0x,cast('' AS XML).value('xs:hexBinary(sql:column("hex_Value"))', 'VARBINARY(8000)')) = 0 THEN '0x' ELSE '' END) +cast('' AS XML).value('xs:hexBinary(sql:column("hex_Value"))', 'varchar(max)'),11,LEN(hex_Value)) -- BINARY,VARBINARY
END)

END AS FieldValue
,[Rowlogcontents]
,[Row ID]
FROM @ColumnNameAndData ORDER BY nullbit

--Create the column name in the same order to do pivot table.

DECLARE @FieldName VARCHAR(max)
SET @FieldName = STUFF(
(
    SELECT ',' + CAST(QUOTENAME([Name]) AS VARCHAR(MAX)) FROM syscolumns WHERE id=object_id('' + @SchemaName_n_TableName + '')
    FOR XML PATH('')), 1, 1, '')

--Finally did pivot table and get the data back in the same format.

SET @sql = 'SELECT ' + @FieldName + ' FROM #temp_Data PIVOT (Min([FieldValue]) FOR FieldName IN (' + @FieldName + ')) AS pvt'
EXEC sp_executesql @sql

GO
--Execute the procedure like
--Recover_Deleted_Data_Proc 'Database Name','Schema.table name'
--EXAMPLE #1 : FOR ALL DELETED RECORDS
--EXEC Recover_Deleted_Data_Proc 'VT_ADI','DBO.TABLO_ADI'
GO
--EXAMPLE #2 : FOR ANY SPECIFIC DATE RANGE
--EXEC Recover_Deleted_Data_Proc 'VT_ADI','DBO.TABLO_ADI' ,'2011/12/01','2012/01/30'
--It will give you the result of all deleted records.

ZBrush - Mudbox Karşılaştırması

2014-07-30T23:09:00.002+03:00

http://blog.digitaltutors.com/zbrush-mudbox-sculpting-showdown/ adresindeki yazıyı ilgilenen arkadaşlar için TR3D formunda yayınlanması için çevirdim.

Mesh Oluşturma (Mesh Creation)

   İşleme başlamadan önce elimizde üstünde çalışabileceğimiz temel bir model olmalı. Bu model diğer uygulamalardan aktarılabileceği gibi uygulamanın içinde de yaratılabilir.
   ZBrush içinde bir sürü mesh oluşturma seçeneği sunar. ZSpheres ile karakter gövdeleri oluşturulabilir, sanal armatürler yaratılarak kompleks yaratık şekilleri oluşturulabilir. ShadowBox ile kompleks sert yüzey parçaları, oluşturulan maskelerin kesişimleri kullanılarak kolaylıkla yaratılabilir. DynaMesh ile mesh parçalarının kesimi ve tekrar birleştirilmesi oldukça kolaydır. Ayrıca her türlü temel obje diğer uygulamalardan aktarılabilir.
   Mudbox mesh yaratma anlamında biraz daha sınırlıdır. Mudbox kullanırken gereken temel objeleri genelde Maya veya 3ds Max gibi uygulamalardan alırız. Bunu kolaylaştırmak için Mudbox diğer Autodesk araçları ile entegredir. Ayrıca Retopologize işlemi ile temel şekillerde objeler yaratılabilir.
   Sonuç olarak daha fazla opsiyonu ve esnekliği ile mesh yaratma bakımından ZBrush daha başarılıdır.

Şekil Verme (Sculpting)

   ZBrush çok fazla sayıda fırça sunar. Çok daha fazlasını da LightBox gezgini ile sunar. Bazı fırçalar şeklin genel görüntüsünü çekmek (Move) ve yüzeyinde materyal (ClayBuildup) oluşturmak içindir. Ayrıca keskin kırışıklar ve kenarlar DamStandart ile oluşturulabilir. Fırça (Brush) parametreleri ve vuruş türleri için geniş yelpazede seçenekler sunar. Vuruşları (strokes) kavisli modifiye etme yeteneği vardır. 2.5 Boyutlu görünümü klasik 3 boyutlu görünüme göre biraz farklı da olsa şekillendirme işlemleri hızlı ve dinamiktir.

   Mudbox, ZBrush ile aynı temel fırçaları sunar. Geometryi Grub fırçasını kullanarak değiştirebilir (Move) veya Wax ile materyal oluşturulabilir. Fırça (Brush) parametreleri biraz daha az olsa da çok sıklıkla kullanılanlara odaklanılmıştır.

   Mudbox uygulamasının şekil vermede öne çıktığı ve parladığı özellik vektörel değişim haritalarının (vectorel displacement maps) damga olarak kullanılabilmesidir. İçerdiği haritalar ile hızlıca, detaylı, alt alta/üst üste gelen kırışıklıklar yaratılabilir. Ayrıca kendi başımıza da bu haritaları yaratabiliriz. VDM (vectorel displacement maps) kesinlikle muhteşemdir ama fırça seçeneklerinin biraz daha fazla olması sebebiyle ZBrush şekillendirme özelliklerinde de Mudbox uygulamasına göre çok az farkla daha iyidir.

Kaplama Boyama (Texture Painting)

   Şuana kadar ZBrush oldukça önde gözüküyor. Ama hemen karar vermeyin. Kaplama boyama günlük iş süreçlerinizde olmayabilir ama bu tip uygulamalar için oldukça önemlidir.

ZBrush "Polypainting" tekniği ile kaplamalar oluşturur. Temel olarak modelin çözünürlüğüne göre renklendirir. Yani yüksek detaylı kaplama o kadar yüksek çözünürlükte şekil (Sculpt) ister. Ek olarak, boyama detayı, model dışarı aktarılana kadar (Export) henüz ortada yoktur. Pozitif tarafından bakarsak UV detayları hakkında düşünmemize henüz gerek yoktur, şekil verme ve boyama işlemine aynı anda devam edebiliriz.

   Mudbox tam özellikli, katman tabanlı kaplama boyama iş akışı sunar. Her harita bir materyal kanalına atanmıştır ve her bir kanal bir sürü katmanla harmanlanabilir. Bu daha tutarlı (geleneksel - traditional) iş akışı sunar ve öğrenmesi kullanması çok daha kolaydır. Ayrıca modelin çözünürlüğü ile hiçbir bağlantısı yoktur.

   Mudbox uygulamasının bir diğer iyi özelliği ise haritalarınız üstündeki değişikliklerin model üstünde anında görünmesidir. Hatta "Specularity" veya "Incandescence" haritalarındaki değişiklikler bile anında görünür. Ek olarak UV detaylarını tamamen unutup, Ptex ile kaplamaları boyayabiliriz. Bu özellikleri sebebiyle Mudbox burada oldukça farkla daha iyidir.

Retopoloji (Retopology)

   Şekillendirme (Sculpting) iş hattının hayati önemdeki parçası yeni, optimize topoloji oluşturmaktır. Bu yeni topoloji nihai sonuç olarak kullanılacak modeli (mesh) şekillendirilmiş (Sculpted) detayı ve atamaları tamamlanmış boyanmış kaplamaları (applied as maps) içerir. ZBrush ve Mudbox oluşturduğumuz kendi şekillerimiz üstünden yeni topoloji oluşturmak için metodlar barındırır.

   Kılavuzları (Guides) ve poligon sayısı parametrelerini kullanan, hızlı, yeni model (mesh) oluşturabileceğimiz otomatik bazı metodlar vardır. ZBrush, kendi araçlarına ZRemesher, Mudbox ise Retopologize ismini vermiştir. Ayrıca kendi poligonlarımızı çizebileceğimiz yollarda vardır. ZBrush uygulamasının retopoloji araçları biraz daha uzun süredir kullanımda olduğu için burada küçük farkla öndedir.

Harita Oluşturma (Map Baking)

   Şekillendirme işleminin son aşaması normal ve displacement haritalarının yüksek çözünürlükteki modele bağlı kalarak oluşturmaktır. Bu haritalar yüksek detaylı modeller ile düşük detaydaki, retopoloji işleminden geçmiş modellerin karşılaştırılması ile oluşturulur.

   ZBrush burada sıradışı bir yol izler. Yeni modelin (Mesh) Subdivide işleminden geçirilmesi ve detayın bu bölümlenmiş geometriye projekte edilmesi gereklidir. Bundan sonra normal ve displacement haritaları hesaplanabilir. Bu iş akışı Mudbox ve harita kaplama özellikleri sunan diğer 3D uygulamalardan biraz farklıdır.

   Mudbox ise harita oluşturmada çok daha esnektir. Aynı modelin (mesh) farklı katmanlarını (levels) hatta tamamen farklı bir geometri kullanabiliriz. Mudbox bu işlemler için bir sürü seçenek sunar ve bunları tekrar kullanım için kaydeder. Mudbox bu konuda kesinlikle öndedir.

Kazanan

   Kazanan kesinlikle sizsiniz. Model tasarımcısı olarak bu kadar özellikli araçların olması faydanızadır. ZBrush kullanmanız, Mudbox kullanmanız veya ikisini de kullanmanız modelleme cephanenize oldukça önemli katkı yapar. Projelerinizin özelliklerine ve sizin çalışma şeklinize göre büyük ihtimalle birisine daha çok yakınlaşacaksınız.

   Hangi programı tercih edeceksiniz? Projenizin hangi parçası Mudbox ile veya ZBrush ile yapılması daha kolay olur? Hangi iş akışındaki sıkıntı sizi delirtir?

   Bu arada ZBrush ve Mudbox bu konudaki tek seçenekler değildir. MODO, CINEMA 4D ve Blender uygulamaları birden fazla çözünürlükte şekil çizilmesine imkan veren özellikler barındırır. Üstelik 3D Coat, Sculptris veya daha küçük uygulamalardan 123D Sculpt gibi uygulamları da seçebilirsiniz. Aslında web tabanlı çizim imkanı veren SculptGL uygulamasını hemen şimdi kullanmaya başlayabilirsiniz.

Notlar:
- 2 uygulamayı da hiç kullanmadım.
- Bence kullanıcının hangi uygulamanın arayüzünü kendisine daha yakın gördüğü de önemlidir.
- Hatam elbet vardır. Bilgi verirseniz düzeltilebilecek yerleri düzeltebilirim.
- Yazı 2014 Haziran ayında yayınlanmış, ona uygun versiyonları karşılaştırdıklarını düşünüyorum.

WCF ile İstemci - Sunucu İletişimi (C#)

2013-12-07T17:47:00.002+02:00

   Windows Communication Foundation (WCF) ile sunucu ve istemci arasında iletişim kuran, sunucuya belirli parametrelerle istek gönderen, sunucuda istek sonucu alabilen bir sınıf geliştirdik. Örnek uygulamaya buradan ulaşabilirsiniz. Örnek uygulama verilen metnin tersini döndürüyor. Aşağıda sınıfın kodu var. Eğer daha iyi bir çözümünüz ya da kullanımında probleminiz varsa yorum bırakabilirsiniz.

   Örnek kullamı sunucu için bu şekilde:
clsWCFLib cloWCFServer = new clsWCFLib();
cloWCFServer.StartServer("http://localhost:8000/Reverse");

   İstemci için kullanımı:
clsWCFLib cloWCFClient = new clsWCFLib();
cloWCFClient.Connect("http://localhost:8000/Reverse");
string strSonuc = cloWCFClient.SendMessage("Merhaba Dünya");

   Şuana kadar 3 farklı işletim sistemi ve domain bağımlı ve bağımsız ortamlarda kullandık. Daha geliştirilebilecek çok yönü var ama başlangıç olarak fena değil.

class clsWCFLib
{
    #region Interface
    [ServiceContract]
    public interface IProcessor
    {
        [OperationContract]
        string Process(string value);
    }

    public class Processor : IProcessor
    {
        public string Process(string value)
        {
            char[] retVal = value.ToCharArray();
            int idx = 0;
            for (int i = value.Length - 1; i >= 0; i--)
                retVal[idx++] = value[i];

            return new string(retVal);
        }
    }
    #endregion

    #region Client
    private IProcessor httpProxy;

    public void Connect(string strURI = "http://localhost:8000/Reverse")
    {
        ChannelFactory<IProcessor> httpFactory =
            new ChannelFactory<IProcessor>(
            new BasicHttpBinding(),
            new EndpointAddress(
                strURI));

        httpProxy =
            httpFactory.CreateChannel();
    }

    public string SendMessage(string strMsg)
    {
        string strResult;
        strResult = httpProxy.Process(strMsg);
        return strResult;
    }
    #endregion

    #region Server
    ServiceHost host;
    public void StartServer(string strURI = "http://localhost:8000/Reverse")
    {
        host = new ServiceHost(
            typeof(Processor),
            new Uri[]{
                new Uri(strURI)});

            host.AddServiceEndpoint(typeof(IProcessor),
                new BasicHttpBinding(), strURI);

            host.Open();
    }

    public void StopServer()
    {
        host.Close();
    }
    #endregion
}

Invensys Wonderware System Platform altında SOAP web servislerinin çağrılması

2013-11-29T10:29:00.000+02:00

   System Platform altında script ile web servislerini çağıran kod örneğidir. Bir symbol altında kullanarak InTouch tarafında kullanıyoruz. Çalışması için standart .Net kütüphanelerinin import edilmesi gereklidir.

System.Windows.Forms.MessageBox.Show("Started", "Debug");

dim strWsUrl as string;
strWsUrl = "http://SERVER_ADDRESS:PORT/WEBSERVICE/services/WebService";

dim webRequest as System.Net.HttpWebRequest;
webRequest = System.Net.WebRequest.Create(strWsUrl);

System.Windows.Forms.MessageBox.Show("1", "Debug");
webRequest.Headers.Add("SOAPAction", "login");
webRequest.ContentType = "text/xml;charset=""utf-8""";
webRequest.Accept = "text/xml";
webRequest.Method = "POST";
webRequest.UseDefaultCredentials = True;

System.Windows.Forms.MessageBox.Show("2", "Debug");
Dim body As String;
body = "<soapenv:Envelope xmlns:xsi=""http://www.w3.org/2001/XMLSchema-instance"" xmlns:xsd=""http://www.w3.org/2001/XMLSchema"" xmlns:soapenv=""http://schemas.xmlsoap.org/soap/envelope/"" xmlns:web=""http://web.ias.com""> " +
   "<soapenv:Header/>" +
   "<soapenv:Body> " +
      "<web:login soapenv:encodingStyle=""http://schemas.xmlsoap.org/soap/encoding/"">" +
         "<p_strClient xsi:type=""xsd:string"">PARAMETER_1</p_strClient>" +
         "<p_strLanguage xsi:type=""xsd:string"">PARAMETER_2</p_strLanguage>" +
         "<p_strDBName xsi:type=""xsd:string"">PARAMETER_3</p_strDBName>" +
         "<p_strDBServer xsi:type=""xsd:string"">PARAMETER_4</p_strDBServer>" +
         "<p_strAppServer xsi:type=""xsd:string"">PARAMETER_5</p_strAppServer>" +
         "<p_strUserName xsi:type=""xsd:string"">PARAMETER_6</p_strUserName>" +
         "<p_strPassword xsi:type=""xsd:string"">PARAMETER_7</p_strPassword>" +
      "</web:login>" +
   "</soapenv:Body>" +
"</soapenv:Envelope>";

System.Windows.Forms.MessageBox.Show("3", "Debug");
Dim sw As System.IO.StreamWriter;
sw = System.IO.StreamWriter(webRequest.GetRequestStream());
sw.Write(body);
sw.Dispose();

System.Windows.Forms.MessageBox.Show("4", "Debug");
Dim webResponse As System.Net.WebResponse;
webResponse = webRequest.GetResponse();
System.Windows.Forms.MessageBox.Show("5", "Debug");
Dim rd As System.IO.StreamReader;
rd = new System.IO.StreamReader(webResponse.GetResponseStream());
System.Windows.Forms.MessageBox.Show(rd.ReadToEnd());
webResponse.Close();

System.Windows.Forms.MessageBox.Show("OK", "Debug");

Haftalık Görev Şablonu (Word)

2013-07-17T05:12:00.000+03:00

   Haftalık iş takiplerini daha uygun şekilde takip edebilmek için bir şablon hazırladım. Genel özellikleri:
   - Günlük bölümleri ile günlük plan yapma imkanı sağlıyor. Bu şekilde haftalık plan yapılamayacak durumlarda da kullanılabilir. Tabi ki sağlıklı iş süreçleri için haftalık, aylık, yıllık planlar yapmak daha doğru olacaktır.
   - Acil işler için, telefon ile aranacak ya da e-posta atılacak kişiler için ve takip edilecek iş süreçleri ile ilgili ayrı bölümleri mevcut. Bu şekilde tek bir plan ile daha az detay isteyen süreçleri de takip edebiliyoruz.

İndirme Linkleri: Türkçe İngilizce

Sizin kullandığınız başka bir şablonuz var mı?

Android uyarılarını bilgisayarda görmek

2013-07-15T19:02:00.000+03:00

Bilgisayar başında çalışırken android cihazımızın uyarısına kulak vermek genelde çok sorun olmaz. Ama belirli durumlarda gün boyu devamlı bölünmek çalışma performansımızı etkileyebilir. Desktop Notifications ile bütün uyarıları hiçbir kurulum yapmadan büyük ekranda görebiliyoruz.
Uygulamayı Google Play aracılığı ile yükledikten sonra Chrome veya Firefox (Beta) eklenti yükleme sayfasına yönlendiriliyoruz. Yükleme tamamlanıp eşleşme kodunu girdikten sonra artık uyarıları bilgisayarımızdan izleyebiliyoruz. Tabi ki tarayıcımız açıksa.
Uygulama bilgisayar ile android cihaz aynı ağda olmasa bile çalışıyor. Bluetooth eşleşme gerektirmiyor. Cihazın şirket ağlarına dahil olamasa bile uyarıların yinede gelmeye devam etmesi uygulamayı oldukça kullanışlı kılıyor.

Android 4.2 Jelly Bean İzlenimleri

2013-04-23T11:59:00.000+03:00

    Yaklaşık 3 haftadır Android 4.2 Jelly Bean kullanıyorum. Cihazım HTC Desire Z (Yurtdışında T-Mobile G2 Vision ismiyle de biliniyor) Cihazım 2-3 yıl önce çıktığında bile orta seviye olduğu için yıllanmış pili ve oldukça eskiyen işlemcisi yüzünden yeni ve eski versiyonlar arasındaki farkları çok rahat hissedebiliyorum.

   Öncelikle batarya kullanımından bahsetmek istiyorum. Android 4.1 kullanırken batarya 1 günü zor çıkartıyordu. Android 4.2 Jelly Bean ile batarya süresi 2 güne yaklaştı. Burada sanırım arka plan işlemlerindeki optimizasyonlar oldukça önemli rol oynamış. Mesela eskiden telefonu kullanmadığım zamanlarda da batarya seviyesinde ciddi düşüşler görürken artık bunları yaşamıyorum. Yani telefonu kullanmadığım zamanlarda ekranı kapalıyken bataryada çok küçük azalmalar oluyor. S3 kullanan arkadaşların bile bahsettiği kablosuz açıkken çok batarya kullanımı artık yok. Telefon o esnada kullanılmıyorsa batarya da kullanılmıyor ya da çok az kullanılıyor.

    "Lockscreen Widget" özelliği ile eskiden masaüstüne koyabildiğimiz her türlü küçük uygulamayı kilit ekranına da koyabiliyoruz. Telefonu açmadan takvime, haberlere, okunmamış e-posta sayısına ve başka bir çok olay ile ilgili ön bilgi alabiliyoruz. Ben DashClock kullandım ama daha bir çok uygulama mevcut. Ben şuan kilit ekranında takvim notlarına bakıp, ekranı sağa kaydırarak fotoğraf çekmeye başlayabiliyorum. Bu arada "Galeri" uygulamasında da büyük kolaylıklar mevcut. Mesela daha önceden çekilmiş resimlere bakarken en sola giderek direk fotoğraf çekimine geçebiliyoruz. Fotoğraf çekim esnasında da ekranı sağa kaydırarak "Galeri" ye direk geçiş yapabiliyoruz.

    Daha önce bir türlü kullanamadığım "Sesli Komut" işlevlerini hala kullanamıyorum ama artık klavyede yazmak yerine istediğimi söylerek direk yazıya dökebiliyorum. Jelly Bean, Whatsapp yada benzeri uygulamalarda eğer internetiniz varsa "Akşama geç geleceğim", "Bugün erken buluşalım", "Maç saat kaçta?" gibi cümleleri çok rahat yazıya dökebiliyor. Yazı yazabildiğiniz her ekranda Türkçe konuşarak istediğinizi yazdırabilirsiniz. Yaptığım testlerde oldukça efektif çalıştığını söyleyebilirim. Artık ortam uygunsa mutlaka söylüyorum, yazmıyorum.

   Genel olarak yaptığınız işlemlere Jelly Bean daha hızlı tepki veriyor. Tepki süresi oldukça düşmüş. Uygulamalar açılırken, kapatılırken, ekranlar arası geçişler gerçekten hızlanmış. Her zaman aynı hızda değil ama iOS işletim sistemine 1 adım daha yaklaştığını söyleyebilirim.

   Ben bu incelemeri Android 4.2.2 Jelly Baby 1.5.0 kullanarak yaptım. Başka versiyonlarda başka izlenimler elde edilebilir. Batarya süresini uzatmak için eskiden kullandığım uygulamardan (Twitter, Foursquare, Google+) feragat ettim. Ama bunların etkisinin çok minor olduğunu düşünüyorum. Hala Evernote, Astrid, Whatsapp, TuneIn gibi uygulamalar kullanıyorum.

WAMP Server kurduktan sonra www klasörünü değiştirmek

2013-04-09T15:52:00.002+03:00

    WAMP Server (Şu an 2.2 ile çalışıyorum) kurduktan sonra genelde ilk yaptığımız işlerden birisi www klasörünün yerini değiştirmektir. Çünkü genelde projelerimizi "C:/wamp/www" klasörü yerine devamlı yedeklediğimiz başka bir ortamda tutarız. Ben şahsen bütün projelerimi "D:/Projects" altında tutuyorum. "D:/Projects/Android", ""D:/Projects/www" gibi.

    WAMP kurulumundan sonra Apache için "httpd.conf" dosyasında gerekli ayarlamaları yapmamız gerekli. Bu dosyada 2 yerde (DocumentRoot "c:/wamp/www/", <Directory "c:/wamp/www/"> satırları) düzeltme yaptıktan sonra Apache sunucumuzu kapatıp açarak değişikliklerin çalıştığını test edebiliriz.

    Eğer bir adım daha öteye giderek sol tuş menüsündeki "www directory" seçeneğinin de güncel klasörü göstermesini istersek biraz daha uğraşmamız gerekecek. Bu seçenek wamp kurulumundaki "wampmanager.ini" dosyasından gerekli ayarlamaları alıyor. Ancak bu dosyayı güncelleyip wamp sunucumuzu kapatıp açarsak dosyanın tekrar eski haline döndüğünü görüyoruz. Bunun için asıl değiştirmemiz gereken yer "C:\wamp\scripts\" altındaki "config.inc.php" dosyası. Buradaki
$wwwDir = $c_installDir.'/www';
satırını
$wwwDir = 'd:/projects/www';
gibi bir hale getirerek "www directory" seçeneği ile istediğimiz klasörün açılmasını sağlayabiliriz.

Ubuntu, Mint türevi işletim sistemlerini Windows 7 yanına kurmak

2013-04-04T18:18:00.000+03:00

    Ubuntu, Mint ve bazı diğer işletim sistemi kurumlarında gelen ".... dağıtımını Windows 7 işletim sisteminin yanına kur" seçeneği bazı hallerde gözükmemektedir. Bu seçenek bilgisayarımızda daha önceden kurmuş ve hala kullanmakta olduğumuz işletim sistemi ile yeni dağıtımın yan yana çalışabilmesi için gereklidir. Ben yeni Windows 7 kurup hemen yanına Linux Mint kurmak istediğimde bile bu seçenek aktif değildi. Sanırım Windows 7 kurulumunda diski bölerken yaptığımız işlemler diskin MBR kayıtlarında biraz karışıklığa yol açıyor.
    İnternette bir çok kişinin aynı sorunla karşılaştığını görünce kendi çözümümü yazmak istedim. Ben Rod Smith adlı gurunun yazdığı Fixparts uygulamasını kullandım.Bu uygulama diskin bölümlerinde oluşmuş hataları giderebiliyor ve bizim örneğimizde olduğu gibi Ubuntu, Mint tarafında okunamayan disk bölümlerini tekrar görünür kılıyor.
    Uygulamayı uygun bir yere açtıktan sonra yönetici yetkisi ile "fixparts 0:" ile çalıştırdım. (İlk diskte çalıştırdım).
MBR command (? for help):
kısmında
MBR command (? for help): p
ile diskin bölümlerini gördüm. Bir problem olmadığını görüp
MBR command (? for help): w
ile yazma işlemine başladım.
Do you want to proceed? (Y/N): y
ile onayladım. Bilgisayarı tekrar çalıştırarak Windows tarafının sağlam olduğundan emin oldum.

    Bu işlemden sonra artık Mint kurulumuna devam ettiğimde hem "GParted" diskimi tanıdı, hem de "... dağıtımını Windows 7 işletim sisteminin yanına kur" seçeneği aktif hale geldi :)

    Tabi hala bazı problemlerim var.
- Ben önce Windows işletim sistemine ait boot seçenekleri gelsin istiyorum.(bcdedit) Burada eğer Linux tarafını seçersem sonra da Linux boot seçenekleri gelsin istiyorum. Ama şuan sadece GRUB geliyor. Oradan Windows 7 ya da Linux Mint seçiyorum. Burada şöyle bir problem olabilir. Windows işletim sistemini güncellerken (Mesela Windows 8 yüklerken) burası bozulabilir. Muhtemelen sadece Windows boot seçeneği gelecek ve Linux tarafını kurtarmam gerekecek.
- İkinci problemim ise ikinci işletim sistemimi hem sanal hemde normal açabilmeyi hala sağlayamamış olmam. Yani bilgisayar açılışta Linux ile açılacak. Visual Studio, SQL Server ile işim olduğunda sanal makinayı açarak işlem yapacağım. 3ds Max gibi uygulamalar ise güçlü sistemler istediği için sanalda düzgün çalışamaz. Bu durumda bilgisayarı kapatıp Windows işletim sistemini açacağım ama bu işletim sistemi az önce Linux tarafında açtığım sanal bilgisayar olmalı. Yani aynı işletim sistemini hem sanal bilgisayar ile hemde gerçek donanım ile açabilmem gerekli. Windows 7 ile artık "Disk Yönetimi" kısmında sanal disk yaratıp bununla sanallaştırma yapabildiğimiz gibi bilgisayarın bu diskten açılmasını da sağlayabiliyoruz. Ancak Linux ile entegre bir şekilde henüz bunu çalıştıramadım.Windows 7 altında yarattığımız sanal diskimiz sadece Windows 7 ve Windows Server 2008 R2 işletim sistemlerini boot edebiliyor.

    Yorumlarınızı ve önerilerinizi bekliyorum, görüşmek üzere.

Unity içinde Java sınıflarının kullanılması

2012-12-01T00:35:00.000+02:00

Aşağıdaki gibi bir Eclipse projesi oluşturalım ve "src" klasörü altındaki sınıfı "JAR" olarak export edelim.

package com.OnayBilisim.UnityJavaPlugin;

import android.util.Log;

public class MyFirstPlugin {

private static MyFirstPlugin m_instance;

public static MyFirstPlugin instance() {
if (m_instance == null)
{
m_instance = new MyFirstPlugin();
}
return m_instance;
}

private MyFirstPlugin() {

}

public void btnTestClicked() {
Log.d("btnTest", "Clicked");
}
}

Burada vermiş olduğumuz paket adını Unity tarafında "Bundle Identifier" kısmında kullanmamız gerekli. Ayrıca "JAR" dosyamızın adı sınıf adı ile aynı olmalı. Unity tarafındaki "Android API Level" ile Eclipse tarafındaki aynı olmalı. Eclipse kodu "instance()" metodu ile java sınıfının kendisini döndürüyor. Test metodu olarakta basit bir buton tıklanma fonksiyonu tanıtılmış durumda.

Unity projemizde "Assests\Plugins\Android\" altına JAR dosyamızı ekleyelim. Bu klasörler henüz oluşmadıysa oluşturalım. Aşağıdaki gibi "CallJava" sınıfı oluşturalım ve bunu "Main Camera" nesnesine bağlayalım.

using UnityEngine;

using System.Collections;

public class CallJava : MonoBehaviour {

private static AndroidJavaObject joMain;

static CallJava() {

if (Application.platform != RuntimePlatform.Android)

return;

}

// Use this for initialization

void Start () {

}

void OnGUI() {

if (GUI.Button(new Rect(Screen.width/2, 100, 100, 100),"Call Java")) {

using (var pluginClass = new AndroidJavaClass("com.OnayBilisim.UnityJavaPlugin.MyFirstPlugin"))

joMain = pluginClass.CallStatic<AndroidJavaObject>("instance");

joMain.Call (" btnTestClicked ");

}

// Update is called once per frame

void Update () {

}

Burada öncelikle bu sınıfın sadece Android tabanlı cihazlarda çalışması sağlanıyor. "OnGUI()" prosedürü içinde buton yaratılarak Java tarafında oluşturduğumuz sınıfın kullanılması örneklenmiş durumda. Java nesnemizi bir "Android Java Object" içine atıp "Call" metodu ile test prosedürümüzü çağırıyoruz.

Bu hali ile Unity içinde hata alabiliriz ancak Android cihaz üstünde çalışması gerekli. Sizin karşılaştığınız hatalar olursa yorum kısmında belirtmeniz halinde birlikte inceleyebiliriz.

Not: Eğer Java tarafındaki metodumuz parametre alsaydı Unity tarafında aşağıdaki gibi çağırmamız gerekirdi.
joMain.Call (" btnTestClicked ", new object[]{"Test Parametresi"});

Youtube Kanalı

2012-09-24T23:44:00.001+03:00

Biraz uğraştırdı ama Onay Bilişim adına bir Youtube kanalı açmayı başardık. Burdaki asıl sıkıntı tabiki filmlerin çekilmesi ve hazırlanması. Daha da yapılacak çok iş var. Decor8r filminin sonuna bazı ekran görüntüleri eklenecek. Supra Home için uygulama tanıtım kısmı hazırlanacak. Youtube kanal linkimiz.

Unity ve Eclipse Entegrasyonu

2012-09-15T13:46:00.001+03:00

Merhabalar,

Bugün Unity 3.5.3f ve Android 2.3.3 versiyonlarını kullanarak Unity'nin geçici klasörlerinde oluşturduğu projeyi Eclipse içinde nasıl kullanacağımızı örnekleyeceğim.

Unity her ne kadar şu sıralar bu işlemleri çok daha kolaylaştıracak bir çözüm üstünde çalışıyor olsada, resmi çözüm Eclipse tarafında "Android Plugin" yazmak ve bunu Unity tarafında çağırmak. Biz ise Unity projesini Eclipse tarafında çağıracağız.

Temel olarak işlem 2 adımdan oluşuyor. Önce Unity tarafında hazırlanan projeyi kütüphane olarak hazırlıyoruz. Sonra da başka bir proje daha yaratarak bu kütüphaneyi çağırıyoruz. Eğer Eclipse tarafında uygulamamız hazır ise ve buna sadece bazı 3 boyutlu görseller yada Unity ile oluşturulabilecek başka özellikler katmak istiyorsak oldukça ideal bir çözüm.

Öncelikle sadece küp gösteren bir Unity projesi oluşturalım ve çalıştığına emin olalım. Dikkat etmemiz gereken hususlar "Build Settings" kısmında "Bundle Identifier" (bunu Eclipse tarafında proje ayarlarımıza gireceğiz), "Minimum API Level" (bunu da Eclipse tarafında aynen seçeceğiz), Device Filter ("ARM v6 with VFP" olmalı).
Herşey hazırsa "Build" yapalım ve sonuçtan emin olalım. Unity tarafında işimiz bu kadar.
Unity projesi altındaki "Temp\StagingArea" klasörünü başka bir yere taşıyalım. "Eclipse Workspace" altında olmayan ayrı bir yere kopyalayalım. Bu klasörü direk kullanamıyoruz çünkü Unity tarafında birşey değiştirirsek bu klasörde hemen değişiyor ve Eclipse tarafında bazı problemlere yol açıyor.
Eclipse tarafında yeni bir proje açalım. "Create from existing source" seçeneğini seçerek az önce oluşturduğumuz "StagingArea" klasörünü gösterelim. Bu proje diğer uygulamamız için kütüphane olacağından ismine "UnityLibrary" koyabiliriz. Android versiyonunu (API Level) ve "Bundle Identifier" kısımlarını da Unity projesi ile aynı olacak şekilde girelim.
Eclipse tarafında uygulamamız olacak yeni bir proje daha oluşturalım. İsmi "UnityApplication" olabilir. Android versiyonu (API Level) ve "Bundle Identifier" kısımlarını yine aynı şekilde belirtelim.
"UnityLibrary" projemize sağ tıklayarak "Properties-Android" sayfasına gelelim. "Is Library" seçeneğini işaretleyelim ve kaydedelim.
"UnityApplication" projesinde "Properties-Android" kısmında "Add" ile gelecek olan "UnityLibrary" projesini seçelim. "Java Build Path" sayfasında "Libraries" sekmesinde "Add External Jars" ile bende C:\Program Files (x86)\Unity\Editor\Data\PlaybackEngines\androidplayer\bin" klasöründe olan "classes.jar" dosyasını ekleyelim. "Order and Export" kısmında "classes.jar" satırının sol tarafındaki kutuyu işaretleyelim.
"UnityLibrary" projesi altındaki "assets" klasörü içindeki klasörleri "UnityApplication" projesi altındaki "assets" klasörüne taşıyalım.
"UnityLibrary" altındaki "AndroidManifest.xml" dosyasını "UnityApplication" altına taşıyalım.

Şu an için "UnityApplication" projesini çalıştırmak istersek "The container 'Library Projects' references non existing library 'D:\Projects\Android\UnityLibrary\bin\unitylibrary.jar'" gibi bir hata alırız. "UnityLibrary" projesini "Build" etmek istersek "AndroidManifest.xml file is missing" hatası almamız gerekli.

"StagingArea" altındaki "AndroidManifest.xml" dosyasını "UnityLibrary" altına taşıyalım.
Bu seferde bu dosyada "android:configChanges" kısmıda çeşitli hatalar alıyoruz. Bunun nedeni Unity tarafından aldığımız dosyada bir şekilde Android 4'e özel ayarların olması ve Android 2.3.3'ün bunları desteklememesi. "android:configChanges" satırlarını aşağıdaki gibi kısaltalım.

Artık "UnityLibrary" kısmı düzgün bir şekilde "Build" edilebilmeli.
"UnityApplication" projesindeki ana sınıf "Android Activity" yerine "UnityPlayerActivity" sınıfından türetilmeli. Bunun için "UnityApplicationActivity" sınıfını "UnityPlayerActivity" sınıfından türeyecek şekilde aşağıdaki gibi ayarlayalım.

public class UnityApplicationActivity extends UnityPlayerActivity {

"CTRL-Shift-O" kısayolu ile bağımlılık sorunlarını giderelim.
"setContentView(R.layout.main);" satırını tamamen silelim.

Şu an için kod kısmında bir hata olmaması gerekli ancak uygulamayı çalıştırdığımızda cihaz üstünde uygulamanın hata vererek kapandığını görürüz. LogCat ile incelersek "Couldn't load mono: findLibrary returned null" hatasını görebiliriz. Bunun çözümü için "StagingArea\libs" klasörünü "UnityApplication\libs" altına kopyalamamız gerekli.

Tekrar çalıştırırsak ".UnityEclipse.UnityApplicationActivity (server)' ~ Consumer closed input channel or an error occurred. events=0x8" hatası alırız. Bunun çözümü için "UnityAplication" altındaki "AndroidManifest.xml" dosyasında "android:name=".UnityApplicationActivity" satırına

android:configChanges="orientation"

bilgisini eklememiz gerekli. Artık çalıştırdığımızda uygulamanın düzgün bir şekilde başladığını görmeliyiz.

Ek Dosyalar:

- "UnityApplication" projesinin "AndroidManifest.xml" dosyası.

- "UnityLibrary" projesinin "AndroidManifest.xml" dosyası.

- Unity projesi, Eclipse UnityLibrary projesi ve Eclipse UnityApplication projelerinin dosyası.

Referanslar

- RoflHarris'in yazısı. (Bazı başka konulara da değiniyor)

- Unity tarafında bu konu ile ilgili bazı geliştirmeler yapıldığı için resmi dokümantasyon sayfasından bu konu kaldırıldı. Eski sayfalara buradan bakabilirsiniz.

- Bazıları problemleri "UnityApplication" projesinden oluşan apk dosyasını "zipalign -v 4 UnityApplication.apk YeniUygulama.apk" komutunu çalıştırarak gidermiş. Bende gerek kalmadı ama sizin çözülemeyen bir probleminiz olursa deneyebilirsiniz. Cihazda uygulamayı kaldırıp "adb install YeniUygulama.apk" komutunu çalıştırarak tekrar yükleyin.

Not: Burada en basit Unity projesinin nasıl Eclipse tarafında çağırabileceğimizi anlattım. Daha kompleks projelerde daha farklı hatalar alınabilir. Bu tip durumlarda "Android Plugin" seçeneğini öneririm.

Zaman Gazetesi Arttırılmış Gerçeklik Uygulaması

2012-09-05T12:12:00.001+03:00

Zaman gazetesinin Arttırılmış Gerçeklik (Augmented Reality) uygulaması aslen Aurasma kütüphanesini kullanıyor. Bu kütüphane ile Arttırılmış Gerçeklik uygulamalarına tanımlayıcı (marker) resim ekleme (Aurasma platformunda 'Auras' deniyor), cihaz ile resme bakıldığında gösterilecek film ya da 3 boyutlu görüntünün eklenmesi çok kolay. Çünkü herşey Aurasma sunucularında tutuluyor ve bütün ayarlar buradan tanımlanabiliyor.

Artıları

Kolay resim ve video eklenebilmesi

Eksileri

Yavaş ve işlemciye çok yük bindiriyor
Resmin (Aura) tanımlanma süresi uzun
Çalışma esnasında internet bağlantısı gerektiriyor
Video ekrandan kolay yok oluyor (Çift tıklama ile sabitlenebiliyor)
İnteraktif bir çözüm sunmuyor.

Onay Bilişim Arttırılmış Gerçeklik Uygulaması (SupraAR)
Onay Bilişim'in hazırlamış olduğu Arttırılmış Gerçeklik uygulamasında tanımlayıcı resimler uygulamanın içine gömülür. Resme bakıldığında yapılacak işlemlerde uygulamanın içinde tanımlanır. Bu şekilde daha hızlı resim tanımlama, performans artışı ve buna bağlı olarakta interaktif çözümlerin (Restaurant masasında servis resmine bakarak sipariş verilmesi, Mercedes-Benz firmasının yaptığı gibi tanıtıcı uygulamalar da kullanılması gibi) yapılması sağlanır.

Artıları

Hızlı
Daha görsel ve interaktif seçenekler sunar
Sadece kurulumdan sonraki ilk çalıştırma esnasında internet bağlantısı gerektirir.

Eksiler

Sonradan yeni resim, video, 3 boyutlu görsel eklemek için uygulama güncellemesi gerekli. (Sonraki versiyonlarda düzeltilebilir)

Sonuç: Statik içerikli ama daha görsel çözümler için SupraAR daha iyi bir çözüm. Bir marka için katalog broşür gazete reklamı gibi görsellerde etkileyici sonuçlar verir.
Aurasma platformu genel olarak hantal olsada devamlı değişen içeriklerde günlük resim ve video eklenebilen ortamlar için daha uygun.

Android'in hayatımıza kattıkları

2012-06-16T12:56:00.002+03:00

Bu küçük sevimli yeşil droid ile tanıştıktan sonra hayatımızda pek çok şey değişti. Önce telefonlarımız birçok yeni özellik ile tanıştı. Mesela iOS kullanan arkadaşlarıma "Bilgisayarımdan Play Store sayfasını açıp istediğim uygulamayı telefonuma buradan yükleyebiliyorum" dediğimde hepsinin ağzı açık kalıyor. iTunes gibi gereksiz yazılımların yüklenmesine ihtiyacımız olmadan, cihazımızı uzaktan birçok özelliği ile yönetebiliyoruz. Google Contacts ile arkadaşlarımızın anlık iletişim bilgilerine hemen ulaşabiliyoruz. Haritalar, navigasyon, kamera, kablosuz iletişim ve bir sürü uygulama. Yıllardır patlayacak denilen Arttırılmış Gerçeklik teknolojisinin artık iyice ısınma sebeplerinden birisi sanırım bu minik devler oldu.

Üstelik artık her yerdeler. Google Glass projesi ile gözlüklere, Google TV ile televizyonlara, navigasyon cihazlarına, uydu alıcılarına, kol saatlerine, araç içi eğlence sistemlerine uygulandı. Onay Bilişim olarak geliştirmekte olduğumuz projeler ile yakında giyim dükkanlarınızdaki aynalarda. (Kabinlerde giysi denemeye son :)

iOS ve Android kapışması yapmak istemiyorum çünkü ikisininde iyi ve kötü özellikleri var. Sanırım asıl konu hepimizin yanında devamlı internetten bilgi alıp gönderebilen, sizin yerinizi bilerek ona uygun işlemler yapabilen, grafik kapasitesi yüksek, ekranı kaliteli cihazlar taşımamız.

Peki Android ile bu sektörde neler değişti? Diyelim ki yeni bir telefon markası yaratacağız. Hangi oyunları içermeli, iletişim bilgileri, arama fonksiyonları nasıl çalışmalı? Hangi ofis işlemlerini yapabilmeli? Eskiden bu iş için önümüzde bir sürü engel vardı.Şimdi ise Android işletim sistemli her cihaz bütün bu özellikleri zaten kapsıyor. Yani üreticiler sadece donanım problemlerine odaklanabiliyor. Yazılım kısmı ise çok daha az bütçe ile çok daha fazla iş yapıyor.

Durum böyle olunca özellikle Çin'de oldukca farklı özelliklerde, çesitli ekranlarda tabletler, portatif oyun konsolları, kol saatleri çıkmış durumda. Portatif oyun konsolu olarak benim favorilerimden bir JXD S7100. Bunun dışında Yinlips ve diğerleri de bu konuda söz sahibi. Tablet olarak ise çeşit gerçekten çok. Tabi bunların donanım özellikleri ne kadar iyi, dokunmatik ekranları ne kadar kaliteli kontrol etmek gerekli. Çünkü bazen özelliklerinde belirtilen donanımlar yerine başka entegreler kullanılabiliyor.

İlginizi çekebilecek diğer cihazlar arasında ise 3.3" büyüklüğünde HDMI dongle olarak kullanabilen bir çeşit paket tv cihazı da var. Android 4 yüklü cihaz güçlü işlemcisi ile her televizyonu akıllı yapmak ile kalmıyor, eğlenceli oyunları salonumuza kadar getiriyor. Küçük olduğu için yanımızda taşıyıp projeksiyon cihazlarında sunum yapmamızı bile kolaylaştırıyor. G-Sensor destekli klavyesi ise oldukça kullanışlı gözüküyor. Bu ve benzeri birçok irili ufaklı çözüm görmek (bence) Android sayesinde artık mümkün.

Android, yurtdışında uygun fiyatlı board bulabilmemiz, istediğimiz modülü (Wi-Fi, bluetooth, g-sensor vs) entegre edebilmemiz sebebiyle aslında donanım tarafını da oldukça hareketlendirdi. Raberry Pi sadece 25$ ve Linux işletim sistemi kurulabiliyor. VIA ise 49$ HDMI çıkış veren 512MB hafızalı Android cihazını tanıttı.

Türkiye'de ise birçok forumda bu konular tartışılırken bazı satış sitelerinden sipariş bile verebiliyoruz. Hatta Ensar Kuyumculuk gibi firmalar Rogadis Saat markalarının yanına Rogadis Oyun Konsolu bile eklemiş durumda. Tabi bunları dikkatli incelersek Yinlips markası olduğunu görebiliyoruz.

Sonuç olarak Android hem yazılım üreticileri için geliştirme ve satış anlamında yeni bir kanal oluşturdu, hemde donanım üreticilerinin çok daha standart cihazlar üretebilmelerini sağladı. iOS tarafında ise bu kadar çeşitli cihazları ancak rahmetli Steve Jobs mezarından kalkıp işin başına geçerse görebileceğiz.

SQL Server 2012 FileTable Özelliği

2012-06-15T16:13:00.001+03:00

SQL Server 2012 de böyle bir özellik olduğunu bilmiyordum ama kullanışlı geldi. Artık projelerimizde kullanmamız gereken resim, film, müzik dosyalarını veritabanına kaydetmek zorunda olmadan ama yine veritabanı sunucusu denetiminde kullanabileceğiz.

Örnek bir anlatım Yazılım Uzmanları'nda: http://www.yazilimuzmanlari.com/Makale/338/SQL-Server-2012-FileTable.html

Kurumsal Uygulamalara Mobil Çözümler

2012-06-15T10:23:00.000+03:00

Kurumsal Uygulamalar için bildiğim en iyi platformlardan olan DevExpress iPad, iPhone ve Android platformları içinde geliştirmelerine devam ediyor.

Artık kurumsal uygulamalarımız için ayırdığımız bütçeyi kullanarak direk olarak bu platformları hazırdaki sistemimize entegre edebiliyoruz. DevExpress Android kısmı ile ilgili "Resmi olarak desteklemiyoruz" dese de yapılan birçok çalışma bu platformu da kapsıyor.

2011'den başka bir sunum:http://tv.devexpress.com/#ASPiPadSupport

Arttırılmış Gerçeklik Uygulamalarında Film Gösterimi

2012-06-13T20:29:00.002+03:00

Benim için oldukça enteresan bir gün daha geride kaldı. Aslında haftanın tamamı çok enteresan geçti ama bugün hayret edici geliştirmeler tavan yaptı.

Bütün hafta alyans üreticileri ile yapacağımız görüşme için demo hazırlamayla geçti. Daha küçük bir resmi çok daha iyi düzeyde tanıtıp kaliteli render sunmam gerekti. Yaklaşık 7 farklı resim denedim hepsi küçültülünce çok zor tanınmaya başladı. Bende Frame Marker metoduna yöneldim. Bu metod ile daha iyi tanımlama yapabildik ancak doğru boyutta çıktıyı almak çok zamanımızı aldı.

Geçen gün EKA Mimarlık ile görüşerek ellerindeki bazı 3 boyutlu mimari projeleri ve projeler için hazırlanmış katalogları aldım. Yani artık gerçek bir katalog üstünde gerçek bir model sunumunun çalışmalarına başladık. Tabi halletmemiz gereken birkaç küçük detay yok değil. Mesela model yaklaşık 17 milyon üçgenden oluşuyor ama Android ve iPhone cihazları sahnede yaklaşık 1000 üçgen gösterebiliyor. Unity'nin ücretsiz versiyonunu kullandığımız için ciddi bir performans ayarıda yapamıyoruz. Birde model yaklaşık 3GB, Unity'e modeli 3 dakikada atamazsak hata alıyoruz. Bakalım daha ne sorunlar çıkacak.

Gelelim bugünün ilginç olayına. Ben işlemci yetersizliğinden dolayı kaliteli bir şekilde olamaz diyordum ama Vuforia (QCAR) ile resim ya da frame tanımlayıp onun üstünde video oynatabildim. (Hala sıfır bütçe, tamamen ücretsiz araçlarla) Örnek bir uygulama filmi aşağıda. Ben kendim için akşama başka bir video hazırlamayı düşünüyorum :)

Ege ile yaptığımız deneme çekimi:

(What we have done so far [still] beyond your imagination :)

PES 2013 ve FIFA 2013

2012-06-12T11:19:00.001+03:00

PES ve FIFA oyunlarının yeni sürümleri E3 2012'de tanıtıldı. Yanlış hatırlamıyorsam daha önce E3 fuarlarına bu kadar hazırlanmazlardı ama bu yıl ikiside işi sıkı tutmuş anlaşılan. Oyunların sıkıntısı ise bence oyun kolu. Yeni jenerasyon ekran kartı, yeni jenerasyon oyun konsolu, yeni jenerasyon ekran kartı ama hala 80'lerin sonlarından kalma oyun kolu.O kadar çeşitli hareketliliği bu kollar ile sağlamak çok zor. PS Move ve Kinect ile bu sorun çözümlenemedi.

Sanırım bu konu ancak kontrol yapısının daha gerçekçi olarak tekrar modellenmesi ile olabilir. Bence tek bir topa vuruş tuşu olmalı. Bu tuş ile yaptığım diğer kombinasyonların bunun kavisli bir orta veya sert bir şut olduğunu belirlemeli. Tabi bu çözüm çalım hareketlerini ve diğer top sürme özelliklerini kapsamıyor ama şuan geldiğimiz noktada da "hızlıca sağ-sol, L2 basılı iken, X, O, X" ile yaptığımız hareketlerinde çok bir espirisi yok.

Sonuç olarak yazılımlar gelişti, donanımlar gelişti ama bu tip spor similasyonları için düzgün bir oyun kolu geliştirilemedi.

Firefox 13 sağ tuş ile yapılan aramalar

2012-06-08T12:20:00.000+03:00

Firefox 13 ile bir yazı seçip sağ tuş menusunden "Google ile ara" veya "Search Google for" yaparsak yeni açılan sekme öne geliyor. Eğer arama başka sekmede devam ederken bulunduğunuz sekmenin kapanmamasını istiyorsanız eski dostumuz "about:config" sayfasını açıp "browser.search.context.loadInBackground" değerini "true" yapabilirsiniz. Bu şekilde arama yeni açılan sekmede yapılır ancak siz okumakta olduğunuz sekmeden ayrılmak zorunda kalmazsınız.

"Bu öğe cihazınızın bulunduğu ülkede yüklenemez" mi?

2012-06-08T11:44:00.000+03:00

Google Play ile bazı uygulamaları yüklemek istediğimizde "Bu öğe cihazınızın bulunduğu ülkede yüklenemez." uyarısı alabiliyoruz. Bu can sıkıcı durumu aşmak için bu dosyayı (alt tarafta telefonunuzdan barkodu okutabilirsiniz) telefonunuza yükleyerek ve "Providers" sekmesinden "T-Mobile (US)" seçerek giderebilirsiniz. Gayet başarılı çalışıyor.

Kaynaklar: