Delphi – Yakup ULUTAŞ

Fotoğraf Düzenleyici

25 Kasım 201725 Mayıs 2018 yhackup 0 yorum delphi, dizin, düzenle, edit, editor, fotograf, photoeditor

Merhabalar, Telefonumda çektiğim her anım değerlidir benim için sık sık bilgisayarıma HDD ve DVD’ye yedeklerim. Fakat telefona format atıyoruz veya

Devam

Delphi Genel Yazılım

.Net Ortamında geliştirilen dll içerisindeki fonksiyonu Delphi ile kullanmak.

27 Eylül 201723 Temmuz 2018 yhackup 0 yorum .net, c#, csharp, delphi, delphican, dll, Framework, makale, nasıl kullanılır, nasıl yapılır, pascal, regasm

Oldukça Basit bir dil ile adım adım .Net Ortamında geliştirilen dll içerisindeki fonksiyonu Delphi ile nasıl kullanılır bunu göstereceğim. Öncelikle Visual Studio

Devam

Delphi Genel

Toplu Olarak Dosya Uzantıları Değiştirme

6 Ağustos 201720 Temmuz 2018 yhackup 0 yorum

Merhabalar. Bir klasör içerisindeki dosyaların uzantılarını değiştirmek için, Ren komutunu kullanabiliriz. Ren yazdıktan sonra boşluk bırakıp şu andaki dosya formatını,

Devam

Delphi Genel İpucu Yazılım

Uzak Masaüstü Bağlantısı – Remote Desktop Connection Uygulaması

28 Haziran 201713 Eylül 2018 yhackup 2 yorum Connection, delphi, Desktop Connection, Masaüstü Bağlantısı, pascal, RDP, Remote Desktop, Remote Desktop Connection, Uzak, Uzak Masaüstü, Uzak Masaüstü Bağlantısı

Merhabalar, Kendi işlerim için geliştirdiğim\kullandığım, Sunuculara uzaktan erişim (RDP) yapabilmemi sağlayan bir uygulamadır. Sınırsız sayıda Uzak Masaüstü Bağlantısı yapılabilir. Veritabanı

Devam

Delphi Genel İpucu Yazılım

Delphi Soap Get ip

20 Mayıs 201720 Temmuz 2018 yhackup 0 yorum



function Getip: string;
var
 mWebModule : TWebModule;
 Dispatcher : IWebDispatcherAccess;
begin
 Result := 'Tespit Edilemedi';
 mWebModule := GetSOAPWebModule;
 if mWebModule <> nil then
 begin
   if Supports(mWebModule, IWebDispatcherAccess, Dispatcher) then
     Exit(Trim(Dispatcher.Request.RemoteAddr)); 
 end;
end;

function Getip: string;

var

mWebModule : TWebModule;

Dispatcher : IWebDispatcherAccess;

begin

Result := 'Tespit Edilemedi';

mWebModule := GetSOAPWebModule;

if mWebModule <> nil then

begin

if Supports(mWebModule, IWebDispatcherAccess, Dispatcher) then

Exit(Trim(Dispatcher.Request.RemoteAddr));

end;

Devam

Delphi Genel İpucu Yazılım

Delphi ile DataSet To XML

20 Mayıs 201720 Temmuz 2018 yhackup 0 yorum



Var
 XML : IXMLDOCUMENT;
 PolisoftXMLExport,TabloName,Field:IXMLNODE;
 i,a:integer;
begin
  if  Data.IsEmpty then
  begin
    ShowMessage('DataSet is not null');
    Exit;
  end;
 XML := NewXMLDocument;
 XML.Encoding  := 'utf-8';
 XML.Options   := [doNodeAutoIndent];
 PolisoftXMLExport      := XML.AddChild('PolisoftXMLExport');
  for I := 1 to Data.RecordCount do
    begin
      TabloName := PolisoftXMLExport.AddChild('Police',i);
       Data.First;
       for a := 1 to Data.FieldCount do
         begin
            Field := TabloName.AddChild(Data.Fields[a-1].FieldName,0);
                 Field.Text := Data.Fields[a-1].AsString;
         end;
    end;
 XMl.SaveToFile(Path);
 ShellExecute(HANDLE_FLAG_INHERIT,'open',PAnsiChar(Path),nil,nil,SW_HIDE); 
 
end

Var

XML : IXMLDOCUMENT;

PolisoftXMLExport,TabloName,Field:IXMLNODE;

i,a:integer;

begin

if Data.IsEmpty then

begin

ShowMessage('DataSet is not null');

Exit;

end;

XML := NewXMLDocument;

XML.Encoding := 'utf-8';

XML.Options := [doNodeAutoIndent];

PolisoftXMLExport := XML.AddChild('PolisoftXMLExport');

for I := 1 to Data.RecordCount do

begin

TabloName := PolisoftXMLExport.AddChild('Police',i);

Data.First;

for a := 1 to Data.FieldCount do

begin

Field := TabloName.AddChild(Data.Fields[a-1].FieldName,0);

Field.Text := Data.Fields[a-1].AsString;

end;

XMl.SaveToFile(Path);

ShellExecute(HANDLE_FLAG_INHERIT,'open',PAnsiChar(Path),nil,nil,SW_HIDE);

end

Devam

Delphi Genel İpucu Yazılım

Delphi ile Gmail Hesabından Mail Gönderimi

30 Aralık 201620 Temmuz 2018 yhackup 0 yorum delphi, Disconnect, DisplayName, EPosta, gmail, LHandler, libeay32.dll, Mail, MessageParts, pascal, Send, SMTP, ssleay32.dll, TIdAttachmentFile, TIdMessage, TIdSMTP, TIdSSLIOHandlerSocketOpenSSL, Username

Benim en çok kullandığım şeydir kendileri. Yaptığınız exe dizininde libeay32.dll ve ssleay32.dll dosyaları bulunması gerekiyor aksi takdirde ssl hatası alırsınız. dll

Devam