Kod Bankası

cemaliozan · 03/05/2008, 11:41

# Hepimizin elinde yeri geldiğinde çok işe yarayan ve baştan yazılması uzun süren yüzlerce binlerce kodcuk var. Elimizdeki KODCUK'ları bu başlık altından paylaşalım. Paylaşırken aşağıdaki örnek formata dikkat etmeye çalışalım.

################################################## #
1. Kodun tam olarak ne işe yaradığına dair kısa ve açıklayıcı bir başlık
Ör. :MS-Access veri tabanının sıkıştırılması ve onarılması

2. Hangi versiyonlarda sorunsuz çalışıyor
Ör. : D6-D7-BDS2006-CG2007

3. Kaynak Kodcuk :
Ör : Kodun kendisi

4. Açıklama ve ek bilgiler.
Ör.: Biz Delphi6 BDS2006 ve CG (Codegear 2007) üzerinde test ettik mükemmel çalışıyor.

################################################## ##

cemaliozan · 03/05/2008, 11:44

# MS-Access veri tabanını uygulama içinde sıkıştırmaya ve onarmaya yarıyor.

# D6-BDS2006-CG2007

PHP Kodu:

  CompactAndRepair(sOldMDB : String; sNewMDB : String) : Boolean;

const

sProvider = 'Provider=Microsoft.Jet.OLEDB.4.0;';

var

oJetEng : JetEngine;

begin

sOldMDB := sProvider + 'Data Source=' + sOldMDB;

sNewMDB := sProvider + 'Data Source=' + sNewMDB;

 
try

oJetEng := CoJetEngine.Create;

oJetEng.CompactDatabase(sOldMDB, sNewMDB);

oJetEng := Nil;

Result := True;

except

oJetEng := Nil;

Result := False;

end;

end;

 
if CompactAndRepair('e:\Old.mdb', 'e:\New.mdb') then

ShowMessage('İşlem Başarılı.')

else

ShowMessage('İşlemde Hata Oluştu.');

# Önemli Not:
1- JRO_TLB unit ini uses bölümüne ekleyin.
2- Database sıkıştırılırken kimse database i açıp kullanmamalıdır.
3- Eðer JRO_TLB unit i ile ilgili Delphi hata verirse aşağıdakileri yapın
a) Delphi menüsünde Project - Import Type Library i seçin
b) "Microsoft Jet and Replication Objects 2.1 Library" i bulun.
c) Install butonunu tıklayın.
d) Programınızı tekrar derleyin

cemaliozan · 03/05/2008, 12:56

# Bazı ASP.NET sunucularının güvenlik ayarları nedeniyle Code Gear yerleşik sınıf ve yöntemlerinin bazıları çalışmaz. Bunu düzeltmek için ilgili asp.net projesinin web.config dosyasının system.web anahtarı altına aşağıdaki satırları ekleyin...

#CG-2007 For ASP.Net

PHP Kodu:

  <system.web>

   <trust level="Full" originUrl="" />

......

......

......

# Not : Kessinlikle <system.web> takısı arasına eklenmeli. Bu çözümü @burhanmt bulmuş ve test etmiştir.

cemaliozan · 03/05/2008, 15:56

# Delphi ile ilgili bir çok püf noktasının toplandığı dökuman...Ek dosyada aşağıdaki başlıklara ait örnekler bulunmaktadır...

VERİ TABANI/BDE

AĞ IŞLEMLERI

SES VE GRAFİK İŞLEMLERİ

FORM VE PENCERE IŞLEMLERI

DİSK VE DOSYA İŞLEMLERİ

GENEL

# Gerekli düzenlemeler ile tüm versiyonlarda çalışırlar

# Not : İçeriğin tamamı internet ortamından karşılıksız paylaşılmış kodlardan oluşmaktadır...

cemaliozan · 03/05/2008, 16:06

# Delphi ile ilgili çok sık sorulan soruların ve cevaplarının toplandığı dökumanlar...Ek dosyalarda internet ortamında sorulmuş ve cevaplanmış HTML formatında 1990 soru ve çözümü bulunmaktadır.

# Soru ve Cevaplar ingilizcedir.

cemaliozan · 03/05/2008, 20:43

# BDS 2006 ve Codegear 2007 ile ASP.NET tabanlı site tasarlarken tasarımın farklı tarayıcılarda düzgün görüntülenmesini sağlar. Aşağıdaki satırları asp.net uygulamanızın web.config dosyasında <system.web> </system.web> anahtarları arasına ekleyiniz...

# Delphi 2006 (BDS 2006) - CodeGear 2007

PHP Kodu:

      <!-- // Eklenecek Bölüm Başlangıcı //-->

        <browserCaps>

        <!-- 

        Name:        BrowserCaps update for modern browsers, http://slingfive.com/pages/code/browserCaps/

        Author:    Rob Eberhardt, http://slingfive.com/

        History:

            2004-11-19    improved detection of Safari, Konqueror &amp; Mozilla variants, added Opera detection

            2003-12-21    updated TagWriter info

            2003-12-03    first published

        -->

 
            <!-- GECKO Based Browsers (Netscape 6+, Mozilla/Firefox, ...) //-->

            <case match="^Mozilla/5\.0 \([^)]*\) (Gecko/[-\d]+)(?'VendorProductToken' (?'type'[^/\d]*)([\d]*)/(?'version'(?'major'\d+)(?'minor'\.\d+)(?'letters'\w*)))?">

                browser=Gecko

                <filter>

                    <case match="(Gecko/[-\d]+)(?'VendorProductToken' (?'type'[^/\d]*)([\d]*)/(?'version'(?'major'\d+)(?'minor'\.\d+)(?'letters'\w*)))">

                        type=${type}

                    </case>

                    <case> <!-- plain Mozilla if no VendorProductToken found -->

                        type=Mozilla

                    </case>

                </filter>

                frames=true

                tables=true

                cookies=true

                javascript=true

                javaapplets=true

                ecmascriptversion=1.5

                w3cdomversion=1.0

                css1=true

                css2=true

                xml=true

                tagwriter=System.Web.UI.HtmlTextWriter

                <case match="rv:(?'version'(?'major'\d+)(?'minor'\.\d+)(?'letters'\w*))">

                    version=${version}

                    majorversion=0${major}

                    minorversion=0${minor}

                    <case match="^b" with="${letters}">

                        beta=true

                    </case>

                </case>

            </case>

 
            <!-- AppleWebKit Based Browsers (Safari...) //-->

            <case match="AppleWebKit/(?'version'(?'major'\d?)(?'minor'\d{2})(?'letters'\w*)?)">

                browser=AppleWebKit

                version=${version}

                majorversion=0${major}

                minorversion=0.${minor}

                frames=true

                tables=true

                cookies=true

                javascript=true

                javaapplets=true

                ecmascriptversion=1.5

                w3cdomversion=1.0

                css1=true

                css2=true

                xml=true

                tagwriter=System.Web.UI.HtmlTextWriter

                <case match="AppleWebKit/(?'version'(?'major'\d)(?'minor'\d+)(?'letters'\w*))(.* )?(?'type'[^/\d]*)/.*( |$)">

                    type=${type}

                </case>

            </case>

 
            <!-- Konqueror //-->

            <case match=".+[K|k]onqueror/(?'version'(?'major'\d+)(?'minor'(\.[\d])*)(?'letters'[^;]*));\s+(?'platform'[^;\)]*)(;|\))">

                browser=Konqueror

                version=${version}

                majorversion=0${major}

                minorversion=0${minor}

                platform=${platform}

                type=Konqueror

                frames=true

                tables=true

                cookies=true

                javascript=true

                javaapplets=true

                ecmascriptversion=1.5

                w3cdomversion=1.0

                css1=true

                css2=true

                xml=true

                tagwriter=System.Web.UI.HtmlTextWriter

            </case>

 
            <!-- Opera //-->

            <case match="Opera[ /](?'version'(?'major'\d+)(?'minor'\.(?'minorint'\d+))(?'letters'\w*))">

                <filter match="[7-9]" with="${major}">

                    tagwriter=System.Web.UI.HtmlTextWriter

                </filter>

                <filter>

                    <case match="7" with="${major}">

                        <filter>

                            <case match="[5-9]" with="${minorint}">

                                ecmascriptversion=1.5

                            </case>

                            <case>

                                ecmascriptversion=1.4

                            </case>

                        </filter>

                    </case>

                    <case match="[8-9]" with="${major}">

                        ecmascriptversion=1.5

                    </case>

                </filter>

            </case>

    </browserCaps>

  <!-- // Eklenecek Bölüm Sonu //-->

Caylaq · 03/05/2008, 22:46

Cemali Hocam Ellerinize sağlık harika bir çalışma olmuş

Teşekkürler

cemaliozan · 06/05/2008, 00:04

# Delphi ile geliştirilen ASP.NET web projelerinde kullanılmak üzere lokal sunucu üzerinden resim yüklenmesi, resmin yeniden oluşturulması ve uygun bir isim ve klasör altına kaydedilmesi.

# BDS-2006 - CG-2007

Resimlerin yüklendiği ASPX ana sayfasının kodu

PHP Kodu:

  <%@ Page language="c#" Debug="true" Codebehind="m_resimekle.pas" AutoEventWireup="false" Inherits="m_uyeresimekle.TWebFormm_Resim_Ekle" %>

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">

<html>

 <head>

<title>Yeni Resim Ekleyin</title>

<meta http-equiv="Content-Language" content="tr">

  <meta http-equiv="Content-Type" content="text/html; charset=utf-8" />

<link rel="stylesheet" type="text/css" href="./css/ana.css" />

   <link rel="stylesheet" type="text/css" href="./css/profil_tabview.css" />

<style type="text/css">.gonderbutton {

BORDER-RIGHT: medium none; PADDING-RIGHT: 2px; BORDER-TOP: medium none; PADDING-LEFT: 2px; BACKGROUND-IMAGE: url(img/nr_bck.gif); PADDING-BOTTOM: 2px; FONT: bold 9pt tahoma,arial,verdana; OVERFLOW: visible; BORDER-LEFT: medium none; WIDTH: 70px; CURSOR: hand; COLOR: #000054; PADDING-TOP: 2px; BORDER-BOTTOM: medium none; HEIGHT: 25px

}

</style>

<link rel="stylesheet" type="text/css" href="./css/profil.css" />

<SCRIPT LANGUAGE="JavaScript">

<!-- Gizle

function textCounter(field, countfield, maxlimit)

{

 if (field.value.length > maxlimit)

 field.value = field.value.substring(0, maxlimit);

 else

countfield.value = maxlimit - field.value.length;

}

// End -->

</SCRIPT>

 

<script type="text/javascript">

<!--

function resim_goster(islem, ry, resim) {

rdiv = document.getElementById(ry);

if (islem == 0)

rdiv.style.display = 'none';

else {

rdiv.innerHTML = '<img src="' + resim + '" width="300" height="225">';

rdiv.style.display = '';

rdiv.style.background = '';

tb = document.getElementById("TextBox_resim_adi");

tb.value = "Resim";//resim;

   }

}

//-->

</script>

</head>

<body style="BACKGROUND-IMAGE: url(img/gradinent/dino.gif)" onunload="javascript:opener.ListeyiYenile();">

    <form enctype="multipart/form-data" runat="server">

<table style="WIDTH: 100%">

<tr>

<td class="etiket9pt" style="WIDTH: 69px">Resim Seçin</td>

<td class="etiket9pt">

<input id="dosya" type="file" name="dosya" viewstate="true" runat="server" class="editbox" onchange="resim_goster(1,'resimdiv',this.value);" title="Eklenecek Resmi Seçin"></td>

<td class="etiket9pt">

&nbsp;</td>

</tr>

<tr>

<td colspan="3">

<table style="WIDTH: 100%">

<tr>

<td class="etiket9pt" style="WIDTH: 79px">Albüm Adı</td>

<td>

 

                     <ASP:DropDownList id="DropDownList_Album" runat="server" cssclass="editbox"></ASP:DropDownList></td>

<td class="etiket9pt">

&nbsp;</td>

</tr>

<tr>

<td class="etiket9pt" style="WIDTH: 79px">Resim Adı</td>

<td>

                     <ASP:TextBox id="TextBox_resim_adi" runat="server" CssClass="editbox"></ASP:TextBox></td>

<td class="etiket9pt">

<ASP:CheckBox id="CheckBox_Ozel" runat="server" text="Yalnızca arkadaşlarım görebilir" enableviewstate="False"></ASP:CheckBox>

</td>

</tr>

<tr>

<td class="etiket9pt" style="WIDTH: 79px">kategori</td>

<td>

                     <ASP:TextBox id="TextBox_Kategori" runat="server" CssClass="editbox" enableviewstate="False"></ASP:TextBox></td>

<td class="etiket9pt">

</td>

</tr>

<tr>

<td colspan="3" class="etiket9pt">Resim Açıklaması 

<input size="5" name="thisSayac" id="thisSayac" value="1000" class="readonlyeditbox" readonly="true">&nbsp;Karakter kaldı...</td>

</tr>

<tr>

<td colspan="3" class="etiket9pt">

<asp:TextBox runat="server" id="TextBox_resim_aciklama" TextMode="MultiLine" Rows="4" Width="99%" CssClass="editbox"></asp:TextBox>

</td>

</tr>

<tr>

<td colspan="3" align="center" class="etiket8pt">

<ASP:Label

                        id="Label_Msg" runat="server" enableviewstate="False">Yükleyeceğiniz resimlerin formatı jpg veya gif ve dosya büyüklüğü max. 512 KB olmalıdır.</ASP:Label></td>

</tr>

<tr>

<td colspan="3" align="center">

                     <ASP:Button id="Button_Kapat" runat="server" text="  Kapat  " enableviewstate="False" cssclass="gonderbutton" CausesValidation="False"></ASP:Button>

<asp:Button runat="server" Text="   Ekle   " id="Button_Ekle" cssclass="gonderbutton" /></td>

</tr>

  </table>

</td>

</tr>

<tr>

  <td colspan="3" class="etiket11pt" style="FONT-WEIGHT: 900; FONT-SIZE: 16pt; BACKGROUND-IMAGE: url(img/gradinent/marigold.gif); COLOR: #cc3300; FONT-FAMILY: tahoma, Helvetica, Verdana, Arial" align="center" valign="middle">

             <ASP:Label id="Label_Eklenen" runat="server">0 Resim Eklendi</ASP:Label></td>

</tr>

<tr>

  <td colspan="3" style="BORDER-RIGHT: #fdefc6 2px dotted; BORDER-TOP: #fdefc6 2px dotted; BORDER-LEFT: #fdefc6 2px dotted; BORDER-BOTTOM: #fdefc6 2px dotted" align="center" valign="middle">

  <div id="resimdiv" style="BACKGROUND-POSITION: center center; BACKGROUND-IMAGE: url(img/resimgoster.jpeg); WIDTH: 100%; BACKGROUND-REPEAT: no-repeat; HEIGHT: 225px; TEXT-ALIGN: center">

<ASP:Label id="Label_Resim" runat="server" enableviewstate="False">***</ASP:Label>

  </div>

  </td>

</tr>

<tr>

<td class="etiket8pt" colspan="3" align="center" valign="middle"><ASP:Label id="Label_KullanimDurumu" runat="server">Size ayrılan 1024 KB. Alanın 512 KB. Bölümünü Kullanıyorsunuz. Toplam 4096 Kb. Kullanılabilir Alanınız Mevcut...</ASP:Label></td>

</tr>

 

</table>

</form>

 </body>

</html>

# Resimleri sayfaya basan bir yordam...

PHP Kodu:

  procedure TWebUserControl_pg_resimpaylasyorumekle.ResimleriBas(Const UID,AID,ResimID:String);

Var

  Baglantim         : MySqlConnection;

  Komutcu           : MySqlCommand;

  Okuyucu           : MySqlDataReader;

  TamEkran          : String;

begin

 try

   TamEkran            := '';

   Baglantim           := MySqlConnection.Create(GetBaglantiText);

   Komutcu             := MySqlCommand.Create('select * from tbl_resimler where id="'+ResimID+'"',Baglantim);

   Baglantim.Open;

 

   Okuyucu             := Komutcu.ExecuteReader;

   if Okuyucu.Read then

   begin

     TamEkran  := '<a href="http://'+GetSiteAdresi+UyelerResimKlasoru+AID+'/orj/'+Okuyucu.Item['bresim_dosyasi'].ToString+'" Title="'+Okuyucu.Item['resim_adi'].ToString+' İsimli resmi orjinal boyutlarında göster" target="_blank">';

     Label_Resim_Adi.Text       := StrToHTml(Okuyucu.Item['resim_adi'].ToString);

     Label_KResim_Dosyasi.Text  := TamEkran+ResimGoster(AID, Page.Server.MapPath(Sabitler.UyelerResimKlasoru+AID+'/'+Okuyucu.Item['bresim_dosyasi'].ToString),Okuyucu.Item['bresim_dosyasi'].ToString)+'</a>';

     Label_Resim_Aciklama.Text  := StrToHtml(Okuyucu.Item['resim_aciklama'].ToString);

   end;

 finally

   Komutcu.Free;

   Baglantim.Close;

   Baglantim.Free;

 end;

end;

 
procedure TWebForm_Profilim_Uye_Resim_Ekle.YuklenebilecekResimBoyutu(Const UID:String;Out Ayrilan,KullanilanYer,BosYer : Double);

Var

Baglantim : MySqlConnection;

Komutcu : MySqlCommand;

Okuyucu  : MySqlDataReader;

Begin

Try

     Ayrilan         := 0;

     KullanilanYer   := 0;

     BosYer          := 0;

Baglantim       := MySqlConnection.Create(GetBaglantiText);

Komutcu      := MySqlCommand.Create('Select resim_size From uyeler Where id="'+UID+'"',Baglantim);

Baglantim.Open;

Okuyucu      := Komutcu.ExecuteReader;

if Okuyucu.Read then

     begin

       Ayrilan      := Okuyucu.GetDouble(0);

       Okuyucu.Close;

     end;

 

 Komutcu := MySqlCommand.Create('Select sum(bresim_size) as kullanilan From tbl_resimler Where uye_id="'+UID+'"',Baglantim);

     Okuyucu   := Komutcu.ExecuteReader;

     if Okuyucu.Read then

     begin

       KullanilanYer := Okuyucu.GetDouble(0);

       Okuyucu.Close;

     end;

 

 Komutcu := MySqlCommand.Create('Select count(id) as toplam From tbl_resimler Where uye_id="'+UID+'"',Baglantim);

     Okuyucu   := Komutcu.ExecuteReader;

     if Okuyucu.Read then

     begin

       Label_Eklenen.Text := 'Klasörünüzde '+Okuyucu.Item['toplam'].ToString+' Resim Var...';

       Okuyucu.Close;

     end else

       Label_Eklenen.Text := 'Kayıtlı Resim Yok';

     BosYer              := Ayrilan - KullanilanYer;

Finally

Komutcu.Free;

Baglantim.Close;

Baglantim.Free;

end;

END;

 

Function TWebForm_Profilim_Uye_Resim_Ekle.tbl_resimler_Insert(UID,BResimDosyasi,KResimDosyasi,bEn,bBoy,bSize,kEn,kBoy,kSize,kategori:String):Int16;

Var

Baglantim   : MySqlConnection;

Komutcu    : MySqlCommand;

Okuyucu    : MySqlDataReader;

KayitSayisi : Int16;

Begin

KayitSayisi := 0;

Try

Baglantim:= MySqlConnection.Create(GetBaglantiText);

Komutcu := MySqlCommand.Create('INSERT INTO tbl_resimler (uye_id,resim_adi,resim_aciklama,'+

                                      'resim_gonderme_tarihi,bresim_dosyasi,bresim_en,bresim_boy,bresim_size,kresim_dosyasi,kresim_en,kresim_boy,kresim_size,kategori,'+

                                      'album_id,album_adi,ozel) VALUES('+

                                      '"'+UID+'" ,'+

                                      '"'+IlkHarfBuyuk(Duzelt(TextBox_resim_adi.Text))+'" ,'+

                                      '"'+IlkHarfBuyuk(Duzelt(TextBox_resim_aciklama.Text))+'" ,'+

                                      '"'+Sabitler.GetBugun+'" ,'+

                                      '"'+bResimDosyasi+'" ,'+

                                      '"'+bEn+'" ,'+

                                      '"'+bBoy+'" ,'+

                                      '"'+bSize+'" ,'+

                                      '"'+kResimDosyasi+'" ,'+

                                      '"'+kEn+'" ,'+

                                      '"'+kBoy+'" ,'+

                                      '"'+kSize+'" ,'+

                                      '"'+IlkHarfBuyuk(Duzelt(kategori))+'" ,'+

                                      '"'+DropDownList_Album.SelectedValue+'" ,'+

                                      '"'+DropDownList_Album.SelectedItem.Text+'" ,'+

                                      '"'+

03/05/2008, 11:41	#1 (permalink)
cemaliozan Kodlarım, Canlarım... Üyelik Tarihi: 05/2005 Yer: » Delphi Bölümü « Mesaj: 1,677	Kod Bankası # Hepimizin elinde yeri geldiğinde çok işe yarayan ve baştan yazılması uzun süren yüzlerce binlerce kodcuk var. Elimizdeki KODCUK'ları bu başlık altından paylaşalım. Paylaşırken aşağıdaki örnek formata dikkat etmeye çalışalım. ################################################## # 1. Kodun tam olarak ne işe yaradığına dair kısa ve açıklayıcı bir başlık Ör. :MS-Access veri tabanının sıkıştırılması ve onarılması 2. Hangi versiyonlarda sorunsuz çalışıyor Ör. : D6-D7-BDS2006-CG2007 3. Kaynak Kodcuk : Ör : Kodun kendisi 4. Açıklama ve ek bilgiler. Ör.: Biz Delphi6 BDS2006 ve CG (Codegear 2007) üzerinde test ettik mükemmel çalışıyor. ################################################## ## __________________ Haberbox \| Tek Sevgi \| Genel Seçimler \| Magice Book \| Yerel Seçimler Yaşamaya Değer Bir Hayattan, Sevmeye Değer Bir Aşktan, Dostluğa Değer Bir Arkadaşlıktan Asla Vazgeçmeyin... Enson 23/05/2008 19:41 tarihinde cemaliozan tarafından düzenlenmiştir.. Sebep: Google hatırlandı ve başlık değişti...

03/05/2008, 11:44	#2 (permalink)
cemaliozan Kodlarım, Canlarım... Üyelik Tarihi: 05/2005 Yer: » Delphi Bölümü « Mesaj: 1,677	MS-Access Veri Tabanının Sıkıştırılması - Onarılması # MS-Access veri tabanını uygulama içinde sıkıştırmaya ve onarmaya yarıyor. # D6-BDS2006-CG2007 PHP Kodu: CompactAndRepair(sOldMDB : String; sNewMDB : String) : Boolean; const sProvider = 'Provider=Microsoft.Jet.OLEDB.4.0;'; var oJetEng : JetEngine; begin sOldMDB := sProvider + 'Data Source=' + sOldMDB; sNewMDB := sProvider + 'Data Source=' + sNewMDB; try oJetEng := CoJetEngine.Create; oJetEng.CompactDatabase(sOldMDB, sNewMDB); oJetEng := Nil; Result := True; except oJetEng := Nil; Result := False; end; end; if CompactAndRepair('e:\Old.mdb', 'e:\New.mdb') then ShowMessage('İşlem Başarılı.') else ShowMessage('İşlemde Hata Oluştu.'); # Önemli Not: 1- JRO_TLB unit ini uses bölümüne ekleyin. 2- Database sıkıştırılırken kimse database i açıp kullanmamalıdır. 3- Eðer JRO_TLB unit i ile ilgili Delphi hata verirse aşağıdakileri yapın a) Delphi menüsünde Project - Import Type Library i seçin b) "Microsoft Jet and Replication Objects 2.1 Library" i bulun. c) Install butonunu tıklayın. d) Programınızı tekrar derleyin __________________ Haberbox \| Tek Sevgi \| Genel Seçimler \| Magice Book \| Yerel Seçimler Yaşamaya Değer Bir Hayattan, Sevmeye Değer Bir Aşktan, Dostluğa Değer Bir Arkadaşlıktan Asla Vazgeçmeyin...

03/05/2008, 12:56	#3 (permalink)
cemaliozan Kodlarım, Canlarım... Üyelik Tarihi: 05/2005 Yer: » Delphi Bölümü « Mesaj: 1,677	Code Gear 2007 For ASP.NET Web.Config # Bazı ASP.NET sunucularının güvenlik ayarları nedeniyle Code Gear yerleşik sınıf ve yöntemlerinin bazıları çalışmaz. Bunu düzeltmek için ilgili asp.net projesinin web.config dosyasının system.web anahtarı altına aşağıdaki satırları ekleyin... #CG-2007 For ASP.Net PHP Kodu: `<system.web> <trust level="Full" originUrl="" /> ...... ...... ......` # Not : Kessinlikle <system.web> takısı arasına eklenmeli. Bu çözümü @burhanmt bulmuş ve test etmiştir. __________________ Haberbox \| Tek Sevgi \| Genel Seçimler \| Magice Book \| Yerel Seçimler Yaşamaya Değer Bir Hayattan, Sevmeye Değer Bir Aşktan, Dostluğa Değer Bir Arkadaşlıktan Asla Vazgeçmeyin...

03/05/2008, 20:43	#6 (permalink)
cemaliozan Kodlarım, Canlarım... Üyelik Tarihi: 05/2005 Yer: » Delphi Bölümü « Mesaj: 1,677	Delphi Püfleri - 003 # BDS 2006 ve Codegear 2007 ile ASP.NET tabanlı site tasarlarken tasarımın farklı tarayıcılarda düzgün görüntülenmesini sağlar. Aşağıdaki satırları asp.net uygulamanızın web.config dosyasında <system.web> </system.web> anahtarları arasına ekleyiniz... # Delphi 2006 (BDS 2006) - CodeGear 2007 PHP Kodu: <!-- // Eklenecek Bölüm Başlangıcı //--> <browserCaps> <!-- Name: BrowserCaps update for modern browsers, http://slingfive.com/pages/code/browserCaps/ Author: Rob Eberhardt, http://slingfive.com/ History: 2004-11-19 improved detection of Safari, Konqueror & Mozilla variants, added Opera detection 2003-12-21 updated TagWriter info 2003-12-03 first published --> <!-- GECKO Based Browsers (Netscape 6+, Mozilla/Firefox, ...) //--> <case match="^Mozilla/5\.0 \([^)]\) (Gecko/[-\d]+)(?'VendorProductToken' (?'type'[^/\d])([\d])/(?'version'(?'major'\d+)(?'minor'\.\d+)(?'letters'\w)))?"> browser=Gecko <filter> <case match="(Gecko/[-\d]+)(?'VendorProductToken' (?'type'[^/\d])([\d])/(?'version'(?'major'\d+)(?'minor'\.\d+)(?'letters'\w)))"> type=${type} </case> <case> <!-- plain Mozilla if no VendorProductToken found --> type=Mozilla </case> </filter> frames=true tables=true cookies=true javascript=true javaapplets=true ecmascriptversion=1.5 w3cdomversion=1.0 css1=true css2=true xml=true tagwriter=System.Web.UI.HtmlTextWriter <case match="rv:(?'version'(?'major'\d+)(?'minor'\.\d+)(?'letters'\w))"> version=${version} majorversion=0${major} minorversion=0${minor} <case match="^b" with="${letters}"> beta=true </case> </case> </case> <!-- AppleWebKit Based Browsers (Safari...) //--> <case match="AppleWebKit/(?'version'(?'major'\d?)(?'minor'\d{2})(?'letters'\w)?)"> browser=AppleWebKit version=${version} majorversion=0${major} minorversion=0.${minor} frames=true tables=true cookies=true javascript=true javaapplets=true ecmascriptversion=1.5 w3cdomversion=1.0 css1=true css2=true xml=true tagwriter=System.Web.UI.HtmlTextWriter <case match="AppleWebKit/(?'version'(?'major'\d)(?'minor'\d+)(?'letters'\w))(.* )?(?'type'[^/\d])/.( \|$)"> type=${type} </case> </case> <!-- Konqueror //--> <case match=".+[K\|k]onqueror/(?'version'(?'major'\d+)(?'minor'(\.[\d]))(?'letters'[^;]));\s+(?'platform'[^;\)])(;\|\))"> browser=Konqueror version=${version} majorversion=0${major} minorversion=0${minor} platform=${platform} type=Konqueror frames=true tables=true cookies=true javascript=true javaapplets=true ecmascriptversion=1.5 w3cdomversion=1.0 css1=true css2=true xml=true tagwriter=System.Web.UI.HtmlTextWriter </case> <!-- Opera //--> <case match="Opera[ /](?'version'(?'major'\d+)(?'minor'\.(?'minorint'\d+))(?'letters'\w))"> <filter match="[7-9]" with="${major}"> tagwriter=System.Web.UI.HtmlTextWriter </filter> <filter> <case match="7" with="${major}"> <filter> <case match="[5-9]" with="${minorint}"> ecmascriptversion=1.5 </case> <case> ecmascriptversion=1.4 </case> </filter> </case> <case match="[8-9]" with="${major}"> ecmascriptversion=1.5 </case> </filter> </case> </browserCaps> <!-- // Eklenecek Bölüm Sonu //--> __________________ Haberbox \| Tek Sevgi \| Genel Seçimler \| Magice Book \| Yerel Seçimler Yaşamaya Değer Bir Hayattan, Sevmeye Değer Bir Aşktan, Dostluğa Değer Bir Arkadaşlıktan Asla Vazgeçmeyin...

03/05/2008, 22:46	#7 (permalink)
Caylaq Üye Üyelik Tarihi: 12/2007 Yer: DELPHI LAND Mesaj: 640	Cemali Hocam Ellerinize sağlık harika bir çalışma olmuş Teşekkürler __________________ Soru Sormadan Önce: http://forum.ceviz.net/pascal-delphi-delphinet/announcement-soru-sormadan-once.html Sigarayı BIRAKMANIN YOLLARI.......! http://www.yesilay.org.tr/sigara_nasil_birakilmali.asp