delphi convert bmptojpg

uses Jpeg,Graphics;

procedure Convert();
var 
  Bitmap  : TBitmap;
  JpegImg : TJpegImage;
begin                   
  Bitmap := TBitmap.Create;
  try
    Bitmap.LoadFromFile('c:\a.bmp');
    JpegImg := TJpegImage.Create;
    try
      JpegImg.Assign(Bitmap);
      JpegImg.SaveToFile('c:\a.jpg');
    finally
      JpegImg.Free;
    end;
  finally
    Bitmap.Free;
  end;
end;

delphi inifile kullanımı

Örnek ini dosyamız aşağıdaki gibi olsun:

[FORMLISTE]
GENEL_BASLIK=DENEMEE
GENEL_LOGO=Logo1.png
GENEL_ACILIS=1
FormCaption=Form1
[LISTE]
Kisi1=AD-SOYAD1
Kisi2=AD-SOYAD2
Kisi3=AD-SOYAD3
Kisi4=AD-SOYAD4
[Transfer]
Transfer_Onay=1
Transfer_Kisi_ID=2

Inifile işlemleri için basit bir örnek:

uses IniFiles;

procedure IniIslemleri();
var
  IniF: TIniFile;
begin
  IniF:=TIniFile.Create('c:\deneme.ini');
  try
  
    // Yazma İşlemi
    IniF.WriteString('FORMLISTE','FormCaption',Self.Caption);
    
    // Okuma İşlemi
    ShowMessage(IniF.ReadString('FORMLISTE','FormCaption','Bos Geldi'));
    
    // "FORMLISTE" başlığı altındaki genel tanımlamaları getirir.
    // Dönecek Değerler : GENEL_BASLIK,GENEL_LOGO,GENEL_ACILIS,FormCaption
    IniF.ReadSection('FORMLISTE',Listbox2.Items);
    
    // "Deneme.ini" içindeki genel başlıkları getirir.
    // Dönecek Değerler : FORMLISTE,LISTE,Transfer
    IniF.ReadSections(ListBox1.Items);
        
    // "FORMLISTE" başlığı altındaki genel tanımlamaları ve değerlerini getirir
    // Dönecek Değerler :
    // --------------------
    // GENEL_BASLIK=DENEMEE
    // GENEL_LOGO=Logo1.png
    // GENEL_ACILIS=1
    // FormCaption=Form1
    IniF.ReadSectionValues('FORMLISTE',ListBox3.Items);
    
    // "TRANSFER" başlığı altındaki Title1 değerini siler.
    IniF.DeleteKey('TRANSFER','Title1');
    
  finally
    IniF.Free;
  end;
end;

delphi xml kullanım örneği

XML kullanabilmemiz için XMLDocument nesnesi ile işlem yapmamız gerekiyor.Elimizdeki xml örneği aşağıdaki gibi olsun:

<?xml version="1.0" encoding="utf-8" standalone="yes"?>
<channels>
  <channel>
    <item>
      <title>Title1</title>
      <description>desc1</description>
      <link>link1</link>
    </item>
    <item>
      <title>Title2</title>
      <description>desc2</description>
      <link>link2</link>
    </item>
    <item>
      <title>Title3</title>
      <description>desc3</description>
      <link>link3</link>
    </item>
  </channel>
</channels>

Aşağıdaki program da başlık.link ve açıklama alanını listbox’a atan basit bir örnektir.

procedure XMLOku;
var
   StartItemNode, ANode : IXMLNode;
   sTitle, sDesc, sLink : widestring;
begin
   XMLDocument1.Active:=False;
   XMLDocument1.FileName := 'c:\read.xml';
   XMLDocument1.Active:=True;
   StartItemNode := XMLDocument1.DocumentElement.ChildNodes.First.ChildNodes.FindNode('item');
   ANode := StartItemNode;
   repeat
     sTitle := UTF8Decode(ANode.ChildNodes['title'].Text);
     sLink  := UTF8Decode(ANode.ChildNodes['link'].Text);
     sDesc  := UTF8Decode(ANode.ChildNodes['description'].Text);
     ListBox1.Items.Add(sTitle+' - '+sLink +' - '+sDesc);
     ANode  := ANode.NextSibling;
   until ANode = nil;
end;

delphi blob alanki resmi bilgisayara kaydetme

Oracle blob alandaki resmi bilgisayara kayıt edebilmemiz için LOBLocator nesnesini kullanacağız.Oracle query nesnesi ile sql scripti çalıştırıldıktan sonra lobfield özelliği ile LOBLocator nesnesini set edeceğiz.LOBLocator nesnesi set edildikten sonra SaveToFile özelliği ile bilgisayara kayıt edeceğiz.

procedure LogoyuKaydet();
var
  oraclquery : TOracleQuery;
  aLob       : TLOBLocator;
begin
  oraclquery:=TOracleQuery.Create(nil);
  try
    oraclquery.Session:=OracleSession;
    oraclquery.SQL.Text:='select sabit_logo from sabitler';
    oraclquery.Execute;  
    aLob:=oraclquery.LOBField('sabit_logo');
    aLob.SaveToFile(ExtractFilePath(Application.ExeName)+'sabitlogo.jpg');
  finally
    oraclquery.Free;
  end;   
end;

delphi grid filter root

QGrid ‘te label ‘daki isme göre yada runtime’da istenilen bir string ‘ e göre filterelemesini istiyorsak filter root özelliğini kullanabiliriz.Filter root özelliği bilgiler çekildikten sonra istenilen string’e göre tekrar filtreleme yapar.Örneğin aşağıdaki örnek’te tüm sabit bilgiler çekildikten sonra kolon1 ‘ de gözüken verilerden sadece “Turkey” olanları listelenir.

TableView1.DataController.Filter.Clear;
TableView1.DataController.Filter.Root.BoolOperatorKind:=fboOr;
TableView1.DataController.Filter.Root.AddItem(TableView1Column1,foLike,'Turkey','');
TableView1.DataController.Filter.Active:=True;

delphi text file write

var
  txt : TextFile;
begin
  AssignFile(txt,'c:\ornek.txt');
  ReWrite(txt);
  WriteLn(txt,'Deneme1');
  WriteLn(txt,'Deneme2');
  CloseFile(txt);
end;

delphi text file read

var
  txt : TextFile;
  tmp : string;
begin
  AssignFile(txt,'c:\ornek.txt');
  Reset(txt);
  while not EOF(txt) do
  begin
    ReadLn(txt, tmp);
    ShowMessage(tmp);
  end;
  CloseFile(txt);
end;

delphi set oci.dll(SetOCIDLL)

OCI.dll adresini programdan set edilebilmesi için “OracleCI” uses kısmına eklenmelidir.Set edilecek olan adres bilgisi yazıldıktan sonra OCI.dll istediğimiz adresten çalıştırılmış olacaktır.

uses OracleCI;

procedure SetOCIDLL();
begin
  if FileExists('c:\oracledata\bin\oci.dll') then
    OCIDLL:='c:\oracledata\bin\oci.dll';
end;

initialization
  SetOCIDLL();

end.

delphi username bulma(getusername)

Function ActiveUserName: string;
Var
  fUserName : string;
  fUserNameLen : Dword;
Begin
  fUserNameLen := 255;
  SetLength(fuserName, fUserNameLen) ;
  GetUserName(PChar(fUserName), fUserNameLen);
  Result := pchar(fUserName);
End;

delphi bilgisayar adını bulma(getcomputername)

function ActiveComputerName: string;
var
  buffer: array[0..MAX_COMPUTERNAME_LENGTH + 1] of Char;
  Size: Cardinal;
begin
  Size := MAX_COMPUTERNAME_LENGTH + 1;
  Windows.GetComputerName(@buffer, Size);
  Result := StrPas(buffer);
end;