Dosya content type bulma

[tuna]

Arkadaşlar merhaba.
Delphide yazdığım uygulamanın web tarafı için farklı platformda web arayüzü yapılıyor.
Delphi tarafından servera kullanıcı dosyalar kaydediyor ve bu dosyaları daha sonra webden başkaları girip bakıyor.
Yanlız şöyle bir şey var. Dosya isimlerinin tutulduğu tabloya dosya adı uzantısı dışında web tarafındaki yazılımcı arkadaşımız dosyanın content-type bilgisini de eklememi istiyor.
Bu bilgiyi opendialog componentinde bulamadım. Dosyanın content-type bilgisini nasıl elde edebilirim.

[RAD Coder]

Anladığım kadarıyla sunucu tarafını siz yazdınız. 
Eğer öyleyse göndereceğiniz verinin tipini aşağıdaki gibi belirleyebilirsiniz.

   

Örneğin

Response.ContentType := 'multipart/form-data';

[tuna]

(12-01-2023, Saat: 14:15)RAD Coder Adlı Kullanıcıdan Alıntı: Anladığım kadarıyla sunucu tarafını siz yazdınız. 
Eğer öyleyse göndereceğiniz verinin tipini aşağıdaki gibi belirleyebilirsiniz.



Örneğin

Response.ContentType := 'multipart/form-data';

Sunucu tarafını ben yazmadım. Aslında bir sunucuda yok.
Web sayfası direkt sql e bağlanabiliyor. Sql server va IIS sunucusu aynı lokasyondalar.
Benim yazdığım masa üstü programı direkt sql e bağlanıyor. Arada herhangi bir sunucu vs yok.
Kullanıcının seçtiği dosyanın content type nı bulmam gerekiyor.

[mrmarman]

Merhaba
Kullanıcıların gönderdiği dosya tiplerinde bir standart var mıdır?

En azından text, application, image, audio, video vb. temel tipleri belli midir?

Eğer cevabınız evet ise spesifik olarak sadece dosya uzantısı yeterli geliyorsa temel tipiniz yazıp slash koyup yanına yıldız koymanız kafidir.

text/*
audio/*
video/*

gibisinden.

Ama jpeg, png vb detay lazım geliyorsa ve uzantısı da sizin için yeterli değilse emin olmak için binary header okuyup dosya tipi şablonunu kontrol etmek isteyebilirsiniz.

İnternetten bu tip listesini bulabilirsiniz. Web arayüzü yapan arkadaşınıza tam olarak ne istediğini sorarsanız zaten cevabı vetecektir. Çünkü bu mime type ne için kullanacağını (önizleme, player, thumbnail oluşturma, icon belirleme vb) ne kadar derin bir detay gereğini ancak o bilir ve söyler.

[delphi.developer]

İlk mesajınızı okuduğumda HTTP üzerinden dosya gönderirken sorun yaşadığınızı düşündüm. Fakat daha sonraki mesajınızda yanlış anlamadıysam, server 'a dosya paylaşımı yapar gibi kopyama yapıyor ardından bu dosyanın adını SQL Server 'a yazıyorsunuz. Bu durumda Muharrem Bey 'in mesajında belirtiği gibi dosya uzantısı üzerinden Mime Types tablosunu kullanarak ilgili uzantının MIME karşılığını SQL Server daki tablo alanına yazacaksınız. Bu, sunucudan daha çok istemci taraf için gereklidir aslında. Ancak bu şekilde web server 'dan talep edilen sayfanın web tarayıcılar tarafından nasıl yorumlanacağı belirlenebilir. Web sunucudan talep edilen .pdf uzantılı bir dosyanın ekseriyetle direk görüntüleme modunda açılması gibi. MIME tablosunu Mozilla 'dan temin edebilirsiniz.

[tuna]

(13-01-2023, Saat: 12:21)delphi.developer Adlı Kullanıcıdan Alıntı: İlk mesajınızı okuduğumda HTTP üzerinden dosya gönderirken sorun yaşadığınızı düşündüm. Fakat daha sonraki mesajınızda yanlış anlamadıysam, server 'a dosya paylaşımı yapar gibi kopyama yapıyor ardından bu dosyanın adını SQL Server 'a yazıyorsunuz. Bu durumda Muharrem Bey 'in mesajında belirtiği gibi dosya uzantısı üzerinden Mime Types tablosunu kullanarak ilgili uzantının MIME karşılığını SQL Server daki tablo alanına yazacaksınız. Bu, sunucudan daha çok istemci taraf için gereklidir aslında. Ancak bu şekilde web server 'dan talep edilen sayfanın web tarayıcılar tarafından nasıl yorumlanacağı belirlenebilir. Web sunucudan talep edilen .pdf uzantılı bir dosyanın ekseriyetle direk görüntüleme modunda açılması gibi. MIME tablosunu Mozilla 'dan temin edebilirsiniz.

Hocalarım yorumlarınız için çok teşekkür ederim. Mozilladan bu listeyi indirip bi tabloya bastım. Dosyanın uzantısına göre bu tablodan search edip ilgili content type buluyorum ve bunu kullanıyorum. Mükemmel çalıştı.

[SimaWB]

@tuna problemini çözmüş ama başkalarının işine yarayabilir...

Delphi 10.2 ile birlikte gelen TMimeTypes kullanılabilir:

uses System.Net.Mime;

procedure TForm2.Button1Click(Sender: TObject);
var
 mTypes: TMimeTypes;
 aType: string;
 aKind: TMimeTypes.TKind;
begin
 if OpenDialog1.Execute then
 begin
   mTypes := TMimeTypes.Create;
   try
     mTypes.AddDefTypes; // varsayılan olarak tanımlanmışları kullanmak için
     mTypes.AddOSTypes; // işletim sisteminden almak için
     if mTypes.GetFileInfo(OpenDialog1.FileName, aType, aKind) then
       ShowMessage(aType);
   finally
     mTypes.Free;
   end;
 end;
end;

[tuna]

(18-01-2023, Saat: 19:14)SimaWB Adlı Kullanıcıdan Alıntı: @tuna problemini çözmüş ama başkalarının işine yarayabilir...

Delphi 10.2 ile birlikte gelen TMimeTypes kullanılabilir:

uses System.Net.Mime;

procedure TForm2.Button1Click(Sender: TObject);
var
 mTypes: TMimeTypes;
 aType: string;
 aKind: TMimeTypes.TKind;
begin
 if OpenDialog1.Execute then
 begin
   mTypes := TMimeTypes.Create;
   mTypes.AddDefTypes; // varsayılan olarak tanımlanmışları kullanmak için
   mTypes.AddOSTypes; // işletim sisteminden almak için
   try
     if mTypes.GetFileInfo(OpenDialog1.FileName, aType, aKind) then
       ShowMessage(aType);
   finally
     mTypes.Free;
   end;
 end;
end;

Çok teşekkürler hocam. Bu çok daha iyimiş. Deneme yapıp kodu buna çeviricem. Her dosya ekleme işleminde ekstra sql sorgusu yapmaktan kurtarıyor.