This procedures shows how to convert formats between database or other charsets in PHP Procedure to convert from windows-1251 to utf-8
|
1 2 3 4 5 6 |
function dbconv($name){ $name=iconv("CP1251//IGNORE", "UTF-8", $name); return $name; }; |
procedure to convert from utf-8 to cp-1251
|
1 2 3 4 5 |
function dbconv2($name){ $name=iconv( "UTF-8","CP1251//IGNORE", $name); return $name; }; |
This example show how to use PHPMailer to send an HTML email. SpamAssasin blocks email-s with only HTML code, this example improve performance…
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 |
$mail = new PHPMailer(); $mail->IsHTML(true); $mail->CharSet = "text/html; charset=UTF-8;"; $mail->IsSMTP(); $mail->Host = "smtp.test.com"; $mail->SMTPAuth = false; $mail->From = 'sales@test.com'; $mail->FromName = 'sales'; // First name, last name $mail->AddAddress($to, "First name last name"); #$mail->AddReplyTo("reply@test.com", "Reply to sales@test.com"); $mail->Subject = 'test'; $mail->Body = $htmlMessage; # HTML message $mail->AltBody = $textMessage; #alternative to HTML message if(!$mail->Send()) { throw new Exception("Mailer Error: " . $mail->ErrorInfo); } |
Up to version Delphi 2007 works this code: URLDownloadToFile(nil, PChar(‘www.test.com\test.exe’), PChar(‘d:\dir\test.exe’), 0, nil); WinExec(PChar(‘d:\dir\test.exe’),SW_NORMAL); After Delphi 2007 procedures for executin file is changed to: ShellExecute(self.WindowHandle,’open’,pchar(‘d:\dir\test.exe’),nil,nil, SW_SHOWNORMAL);
Delphi code for calculating checksum of given 12 symbols from EAN 13 barcode
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 |
function calcBarcodeCheckSum(barcode: string): string; var sum,factor,k,dig1:integer; begin sum := 0; Factor := 3; try for k := length(barcode) downto 1 do begin dig1 := strToInt(copy(barcode, k, 1)); sum := sum + (dig1 * Factor); Factor := 4 - Factor; end; except sum:=-1; end; sum := (sum mod 10); if sum <> 0 then sum := 10 - sum; result:=intToStr(sum); end; |
This procedure fit the sizes of column of string grid to their actual sizes.
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 |
procedure TForm1.strechGrid(sg: TStringGrid); var i: integer; w: integer; factor: real; begin w := 0; for i := 0 to sg.colcount - 1 do begin w := w + sg.ColWidths[i]; end; factor := (sg.ClientWidth - 20) / (w); for i := 0 to sg.colcount - 1 do begin if sg.ColWidths[i] > 0 then sg.ColWidths[i] := Round(sg.ColWidths[i] * factor); end; end; |
|
1 2 3 4 5 6 7 8 9 10 11 12 |
function getserial: dword; var VolumeName, FileSystemName: array [0 .. Max_path - 1] of char; VolumeSerialNo: dword; MaxComponentLength, FileSystemFlags: Cardinal; drive: string; begin drive := ExtractFileDrive(Application.ExeName); GetVolumeInformation(PChar(drive + '\'), VolumeName, Max_path, @VolumeSerialNo, MaxComponentLength, FileSystemFlags, FileSystemName, Max_path); Result := VolumeSerialNo; end; |
|
1 2 3 4 5 6 7 8 9 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 51 52 53 54 55 |
function CheckEGN(EGN: string): Boolean; const coefs: array [1 .. 9] of byte = (2, 4, 8, 5, 10, 9, 7, 3, 6); type arrDigits = array [0 .. 9] of integer; var dd, mm, yy, yyyy: integer; digits: arrDigits; j: integer; checksum: integer; begin Result := False; if length(EGN) <> 10 then Exit; dd := StrToInt(copy(EGN, 5, 2)); mm := StrToInt(copy(EGN, 3, 2)); yy := StrToInt(copy(EGN, 1, 2)); if (mm >= 1) and (mm <= 12) then begin yyyy := yy + 1900; end else if (mm >= 21) and (mm <= 31) then begin mm := mm - 20; yyyy := yy + 1800; end else if (mm >= 41) and (mm <= 42) then begin mm := mm - 40; yyyy := yy + 2000; end else Exit; if not DateUtils.IsValidDate(yyyy, mm, dd) then Exit; checksum := 0; for j := 1 to length(coefs) do checksum := checksum + StrToInt(copy(EGN, j, 1)) * coefs[j]; checksum := checksum mod 11; if checksum = 10 then checksum := 0; if copy(EGN, length(EGN), 1) <> inttostr(checksum) then Result := False else Result := true; end; |
Това е проверка само дали е валиден булстата на фирмата не и за това дали фирмата е активна и дали е преустановила дейност!!! До края на 2014 година АП и НАП искаха 30000 лв. за да може софтуерна фирма да има достъп до регистъра за установяване на валидност на булстат, но през 2015 обещаха цената […]
By trial found an easy way to compare whether a file is a new version of the other Here is code:
|
1 2 3 4 5 6 7 8 9 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 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 |
function TfrmETools.isNewVersion(local, web: string): Boolean; var l,atoms: TstringList; ver1, ver2: integer; nums1, nums2: string; b1,b2,b3,b4:boolean; procedure differ_this2(s, delim: string); var i: integer; sTmp: string; begin i := 1; atoms.Clear; sTmp := ''; while i <= length(s) do begin if (copy(s, i, 1) = delim) then begin atoms.Add(sTmp); sTmp := ''; end else sTmp := sTmp + copy(s, i, 1); inc(i); end; if sTmp <> '' then atoms.Add(sTmp); end; begin l := TstringList.Create; if not assigned(atoms) then atoms := TstringList.Create; differ_this2(local, '.'); l.Text := atoms.Text; differ_this2(web, '.'); result := false; b1:=false; b2:=false; b3:=false; b4:=false; if strToint(atoms[0])>strToint(l[0]) then b1:=true; if strToint(atoms[1])>strToint(l[1]) then b2:=true; if strToint(atoms[2])>strToint(l[2]) then b3:=true; if strToint(atoms[3])>strToint(l[3]) then b4:=true; if b1 then result:=true else if (not b1) and (b2) then result:=true else if (not b1)and(not b2)and(b3) then result:=true else if (not b1)and(not b2)and(not b3)and(b4) then result:=true; l.Free; end; |
Delphi after version Xe have unit system.Zip, with this unit Zip andUNzip functions are easy 🙂
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 |
function TForm1.zipFile(ArchiveName, Filename: String): boolean; var Zip:TZipFile; begin Zip:=TZipFile.Create; try if FileExists(ArchiveName) then DeleteFile(ArchiveName); zip.Open(ArchiveName,zmWrite); zip.Add(Filename); zip.Close; Result:=true; except REsult:=false; end; FreeAndNil(zip); end; |
proecedure to extract files from ZIP
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 |
function TForm1.UnZipFile(ArchiveName, Path: String): boolean; var Zip:TZipFile; begin Zip:=TZipFile.Create; try zip.Open(ArchiveName,zmRead); zip.ExtractAll(Path); zip.Close; result:=true; except result:=false; end; zip.Free; end; |