Sql server da Recovery Pending olan database in düzeltilmesi
1 2 3 4 5 | ALTER DATABASE [DB_Name] SET SINGLE_USER WITH NO_WAITALTER 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 |
01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 | 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
1 | uses Soap.EncdDecd,System.NetEncoding; |
Dosyamızı base64 formatına çevirmek için aşağıdaki kodu kullanıyoruz
01 02 03 04 05 06 07 08 09 10 11 12 | 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
01 02 03 04 05 06 07 08 09 10 | procedure TForm3.Button2Click(Sender: TObject);var stream : TmemoryStream;beginstream := TmemoryStream.Create; stream.write(TNetEncoding.Base64.DecodeStringToBytes(Memo1.Text), length(TNetEncoding.Base64.DecodeStringToBytes(Memo1.Text))); stream.Position := 0; stream.SaveToFile('d:\test2.pdf');end; |
