Sql server da Recovery Pending olan database in düzeltilmesi
ALTER DATABASE [DB_Name] SET SINGLE_USER WITH NO_WAIT
ALTER DATABASE [DB_Name] SET EMERGENCY;
DBCC checkdb ([DB_Name], REPAIR_ALLOW_DATA_LOSS )
ALTER DATABASE [DB_Name] SET online;
ALTER DATABASE [DB_Name] SET Multi_USER WITH NO_WAIT
function YaziyaCevir(Rakam:real ):string;
const
b1:ARRAY [1..9] of string =
('BİR','İKİ','ÜÇ','DÖRT','BEŞ','ALTI','YEDİ','SEKİZ','DOKUZ');
b2:ARRAY [1..9] of string =
('ON','YİRMİ','OTUZ','KIRK','ELLİ','ALTMIŞ','YETMİŞ','SEKSEN','DOKSAN');
b3:ARRAY [1..6] of string =
('KATRİLYON','TRİLYON','MİLYAR','MİLYON','BİN','');
var
gr:ARRAY [1..6] of string[3];
sn:ARRAY [1..6] of string;
bs:ARRAY [1..3] of integer;
tutars, tutart, tutark , sonuct, sonuck: string;
tur,i,l: integer;
begin
tutars:=floattostr(Rakam);
if pos(',',tutars)=0 then tutars:=tutars+',00';
tutart:=copy(tutars,1,(pos(',',tutars)-1));
tutark:=copy(tutars,(pos(',',tutars)+1),2);
tutart:=stringofchar('0',(18-(length(trim(tutart))))) + tutart;
tutark:=tutark + stringofchar('0',( 2-(length(trim(tutark)))));
for i:=1 to 6 do gr[i]:=copy(tutart,1+(3*(i-1)),3);
for l:=1 to 6 do
begin
bs[1]:=strtoint(copy(gr[l],1,1));
if bs[1]<>0 then
(
if bs[1]<>1 then
sn[l]:=sn[l]+b1[bs[1]]+'YÜZ'
else
sn[l]:=sn[l]+'YÜZ'
);
bs[2]:=strtoint(copy(gr[l],2,1));
if bs[2]<>0 then sn[l]:=sn[l]+b2[bs[2]];
bs[3]:=strtoint(copy(gr[l],3,1));
if bs[3]<>0 then sn[l]:=sn[l]+b1[bs[3]];
if length(trim(sn[l]))<>0 then sn[l]:=sn[l]+b3[l];
end;
if sn[5]='BİRBİN' then sn[5]:='BİN';
for i:=1 to 6 do sonuct:=sonuct+sn[i];
if strtoint(copy(tutark,1,1))<> 0 then sonuck:=sonuck + b2[strtoint(copy(tutark,1,1))];
if strtoint(copy(tutark,2,1))<> 0 then sonuck:=sonuck + b1[strtoint(copy(tutark,2,1))];
if tur=0 then result:=sonuct + '.TL / ' + sonuck + '.KR ';
if tur=1 then result:=sonuct + '.TL ';
if tur=2 then result:=sonuck + '.KR ';
end;
Projemize alttaki kütüphaneleri ekliyoruz
daha sonra formumuza 2 adet buton bir tane filenameedit yada opendialog da olabilir 1 tane de memo ekliyoruz
uses Soap.EncdDecd,System.NetEncoding;
Dosyamızı base64 formatına çevirmek için aşağıdaki kodu kullanıyoruz
procedure TForm3.Button1Click(Sender: TObject);
var
stream: TMemoryStream;
begin
stream := TMemoryStream.Create;
try
stream.LoadFromFile(JvFilenameEdit1.Text);
Memo1.Text := EncodeBase64(stream.Memory, stream.Size);
finally
stream.Free;
end;
end;
Base64 olan bir string i dosyaya çevirmek için benim çevirdiğim dosya pdf olduğundan pdf olarak ekledim
procedure TForm3.Button2Click(Sender: TObject);
var
stream : TmemoryStream;
begin
stream := TmemoryStream.Create;
stream.write(TNetEncoding.Base64.DecodeStringToBytes(Memo1.Text),
length(TNetEncoding.Base64.DecodeStringToBytes(Memo1.Text)));
stream.Position := 0;
stream.SaveToFile('d:\test2.pdf');
end;
