interface

type

Vec3D = record
  x,y,z:real;
end;

Vec2D = record
  x,y:real;
end;

function dwmath_getVecLength3D(vec:Vec3D):real;
function dwmath_getVecLength2D(vec:Vec2D):real;

implementation

function dwmath_getVecLength3D(vec:Vec3D):real;
Begin
  result:=sqrt(vec.x*vec.x + vec.y*vec.y + vec.z * vec.z);
End;

function dwmath_getVecLength2D(vec:Vec2D):real;
Begin
  result:=sqrt(vec.x*vec.x + vec.y*vec.y);
End;

interface

type

Vec3D = record
  x,y,z:real;
end;

Vec2D = record
  x,y:real;
end;

function dwmath_getVecLength(vec:Vec3D):real; overload;
function dwmath_getVecLength(vec:Vec2D):real; overload;

implementation

function dwmath_getVecLength(vec:Vec3D):real;
Begin
  result:=sqrt(vec.x*vec.x + vec.y*vec.y + vec.z * vec.z);
End;

function dwmath_getVecLength(vec:Vec2D):real;
Begin
  result:=sqrt(vec.x*vec.x + vec.y*vec.y);
End;

ByteArray = packed record
    case Integer of
    1: (A: array[0..3] of Byte);
    2: (Card: Cardinal);
  end;

procedure D4SortByteArray(var A: ByteArray);
var
  Temp: Byte;
  procedure SwapB(var A,B: Byte);
  begin
    Temp:=A;
    A:=B;
    B:=Temp;
  end;
begin
  // Shell-Sort
  //if A.A[0] < A.A[2] then SwapB(A.A[0],A.A[2]);
  //if A.A[1] < A.A[3] then SwapB(A.A[1],A.A[3]);
  //if A.A[0] < A.A[1] then SwapB(A.A[0],A.A[1]);
  //if A.A[1] < A.A[2] then SwapB(A.A[1],A.A[2]);
  //if A.A[2] < A.A[3] then SwapB(A.A[2],A.A[3]);

  // Bubbel-Sort
  if A.A[0] < A.A[1] then SwapB(A.A[0],A.A[1]);
  if A.A[1] < A.A[2] then SwapB(A.A[1],A.A[2]);
  if A.A[2] < A.A[3] then SwapB(A.A[2],A.A[3]);
  if A.A[0] < A.A[1] then SwapB(A.A[0],A.A[1]);
  if A.A[1] < A.A[2] then SwapB(A.A[1],A.A[2]);
  if A.A[2] < A.A[3] then SwapB(A.A[2],A.A[3]);
  if A.A[0] < A.A[1] then SwapB(A.A[0],A.A[1]);
  if A.A[1] < A.A[2] then SwapB(A.A[1],A.A[2]);
  if A.A[2] < A.A[3] then SwapB(A.A[2],A.A[3]);

end;

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);

  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;
  MannX: Integer;
  MannY: Integer;
  JagdX: Integer;
  JagdY: Integer;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
Button1.Visible := false;
Button2.Visible := true;
Button3.Visible := true;
Button4.Visible := true;
Button5.Visible := true;
Canvas.Brush.Color := clred;
Form1.Canvas.Rectangle(MannX,MannY,MannX+50,MannY+50);
Form1.Canvas.Rectangle(JagdX,JagdY,JagdX+50,JagdY+50);

end;

procedure TForm1.Button4Click(Sender: TObject);
begin
//links
dec(MannX,5);
Form1.Refresh;
Canvas.Rectangle(MannX,MannY,MannX + 50,MannY+50);
JagdX:=random(40)+1;
JagdY:=random(40)+1;
Form1.Canvas.Rectangle(JagdX,JagdY,JagdX+50,JagdY+50);

If (MannX+50>JagdX) and (MannX<JagdX+50) or (MannY<JagdY+50) and (MannÝ+50>JagdY)
then (Form1.Canvas.Rectangle(JagdX,JagdY,JagdX+50,JagdY+50))and(JagdX:=random(400)+1) and
(JagdY:=random(400)+1);

end;



procedure TForm1.Button5Click(Sender: TObject);
begin
//rechts
inc(MannX,5);
Form1.Refresh;
Canvas.Rectangle(MannX,MannY,MannX + 50,MannY+50);
JagdX:=random(40)+1;
JagdY:=random(40)+1;
Form1.Canvas.Rectangle(JagdX,JagdY,JagdX+50,JagdY+50);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
//hoch
dec(mannY,5);
Form1.Refresh;
Canvas.Rectangle(MannX,MannY,MannX + 50,MannY+50);
JagdX:=random(40)+1;
JagdY:=random(40)+1;
Form1.Canvas.Rectangle(JagdX,JagdY,JagdX+50,JagdY+50);
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
//runter
inc(MannY,5);
Form1.Refresh;
Canvas.Rectangle(MannX,MannY,MannX + 50,MannY+50);
JagdX:=random(40)+1;
JagdY:=random(40)+1;
Form1.Canvas.Rectangle(JagdX,JagdY,JagdX+50,JagdY+50);
end;


end.

procedure TForm2.Button7Click(Sender: TObject);
begin
 /////////// das hier funktioniert leider überhaupt nicht
 // uhrzeit schon überschritten
 // z.b: time = 00:30 und MaskEdit = 00:29
 if Time > StrToTime(MaskEdit1.Text) then
  begin
   showmessage('1:' + sLineBreak + IntToStr(SecondsBetween(Time - 1, StrToTime(MaskEdit1.Text))) + sLineBreak +
    formatdatetime('dd.mm.yyyy hh:nn', IncSecond(Now, SecondsBetween(Time - 1, StrToTime(MaskEdit1.Text)))));
  end
 else
  /////////// das hier funktioniert wunderbar
  // in kürze
  // z.b: time = 00:30 und MaskEdit = 00:31
  begin
   showmessage('2:' + sLineBreak + IntToStr(SecondsBetween(Time, StrToTime(MaskEdit1.Text))) + sLineBreak +
    formatdatetime('dd.mm.yyyy hh:nn', IncSecond(Now, SecondsBetween(Time, StrToTime(MaskEdit1.Text)) + 60)));
  end;
end;

dlgColor:= TColorDialog.Create(nil);
try
  if dlgColor.Execute then pnlColorLine.Color:= dlgColor.Color;
finally
  dlgColor.Free;
end;

<?php
   class Contact
   {
      private $Name = "";
      private $Vorname = "";
      
      public function SetName($Name) {
         $this->Name = $Name;
      }
      
      public function GetName() {
         return $this->Name;
      }
      
      public function SetVorname($Vorname) {
         $this->Vorname = $Vorname;
      }
      
      public function GetVorname() {
         return $tis->Vorname;
      }
   }
?>

<?php
   class ContactList {
      
      private $Contact;
      private $List = array();
      
      public function SetContact($Contact) {
         $this->Contact = $Contact;
      }
      
      public function Add($Contact) {
         array_push($this->List, $Contact);
      }
   }
?>

<?php
   include("Contact.php");
   include("ContactList.php");

    $Contact = new Contact();
    $ContactList = new ContactList();
    
    $Contact->SetName("Puff");
    $Contact->SetVorname("Michael");
    $ContactList->Add($ContactList);
    $Contact->SetName("Müller");
    $Contact->SetVorname("Karl");
    $ContactList->Add($ContactList);
    $Contact->SetName("Schmidt");
    $Contact->SetVorname("Hans");
    $ContactList->Add($ContactList);
    
    print_r($ContactList);
//    foreach($ContactList as $Contact) {
//       echo $Contact->GetName().", ".$Contact->GetVorname()."<br>";
//    }
?>

ContactList Object ( [Contact:ContactList:private] =>[List:ContactList:private] => Array ( [0] => ContactList Object *RECURSION* [1] => ContactList Object *RECURSION* [2] => ContactList Object *RECURSION* ) )

  Form := TStandardBasisDialog(GetParentForm(Self,false));
  Form.OnStandardChange(Sender);

procedure TForm1.Button1Click(Sender: TObject);
var
  mem_addr: integer;
  Wert: UInt;
  name: string;
  Data: PWideChar;

begin
  OPEN_PROCESS;
  mem_addr := PointerSolve(process_handle, Mem_Text1);
  RichEdit1.Clear;
  name := '';
  GetMem(Data, 10000);
  ReadProcessMemory(process_handle, ptr(mem_addr), Data, 10000, Wert);
  name := WideCharToString(Data);
  RichEdit1.Text := name;
  mem_addr := PointerSolve(ao_handle, Mem_Text2);
  RichEdit2.Clear;
  name := '';
  GetMem(Data, 10000);
  ReadProcessMemory(preocess_handle, ptr(mem_addr), Data, 10000, Wert);
  name := WideCharToString(Data);
  RichEdit2.Text := name;
  CLOSE_PROCESS;
end;

[DCC Fehler] TextReader.pas(58): E2033 Die Typen der tatsächlichen und formalen Var-Parameter müssen übereinstimmen

type
  tbruch = record
    z,n : integer;
  end;
var
  a : Tbruch;
  p : Pointer;
begin
  a.z := 1;
  a.n := 3;
  p := @a;
  ShowMessage(IntToStr(TBruch(p^).n));
end;

if (p^) is TBruch then
...

type
  TMyThread = class(TThread)
  private
    FOnDings: TDingsEvent;

...

procedure TMyThread.DoOnDings;
begin
  if Assigned(FOnDings) then
    FOnDings(Parameter);
end;

procedure TMyThread.Execute;
begin
  //arbeiten
  if Dings then
    Synchronize(DoOnDings);
end;

procedure TMyForm.DoOnDings(Parameter);
begin
  EditDings.Text := Parameter;
end;

   public static function bcrypt_encode($password, $global_salt, $rounds='12')
    {
        if (@CRYPT_BLOWFISH != 1)
        {throw new Exception("CRYPT_BLOWFISH != 1");}
        # 22 byte unique random token within symbol-range
        $individual_salt = substr(str_shuffle('./0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ'), 0, 22);

        return crypt(hash_hmac("whirlpool",$password,$global_salt,true),'$2a$'.$rounds.'$'.$individual_salt);
    }

public static function bcrypt_check($password, $global_salt, $stored)
    {
        if (@CRYPT_BLOWFISH != 1)
        {throw new Exception("CRYPT_BLOWFISH != 1");}

        return crypt(hash_hmac("whirlpool",$password,$global_salt,true),substr($stored, 0, 30)) == $stored;
    }

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Mapi, Vcl.StdCtrls;


type
  TStrArray = array of String;
  TForm1 = class(TForm)
    Mail1: TButton;
    procedure Mail1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

const MapiRecipClassStrings : array[1..3] of String =('to','cc','bcc');

function SendEMail(Handle:THandle; Mail:TStrings):Cardinal;

implementation

{  **** Verwendung ***

procedure TTestForm.Mail1Click(Sender: TObject);
var
  mail: TStringList;
begin
  mail:= TStringList.Create;
  try
      mail.values['to0']:= 'fifi@abc.de';
      mail.values['to1']:= 'otto@abc.de';
      mail.values['to2']:= 'Maria@abc.de';
      mail.values['to3']:= 'Joseph@abc.de';
      mail.values['cc0']:= 'detlef@abc.de';
      mail.values['cc1']:= 'Mordo@abc.de';
      mail.values['bcc0']:= 'Klaus@abc.de';
      mail.values['subject']:= 'subject';
      mail.values['body']:= 'text text text';
      mail.values['attachment0']:= 'C:\Anhang1.txt';
      mail.values['attachment1']:= 'C:\Anhang2.txt';
      mail.values['attachment2']:= 'C:\Anhang3.txt';
    SendEMail(Self.Handle, mail);
  finally
    mail.Free;
  end;
end;

}

function SendEMail(Handle:THandle; Mail:TStrings):Cardinal;
var
  MapiMessage: TMapiMessage;
  Receip: array of TMapiRecipDesc;
  Attachments: array of TMapiFileDesc;
  i,
  j,
  mc,
  ReceipCount,
  AttachCount: Integer;
  FileName: string;
  MAPI_Session: Cardinal;
  WndList: Pointer;
  MapiRecipClassCounter : array[1..3] of Integer;

  function GetMailValue (AMapiRecipClass, Index : Integer) : string;
  begin
   result:=Mail.Values[MapiRecipClassStrings[AMapiRecipClass]+IntToStr(index)];
  end;


begin
Result:= MAPI_E_FAILURE;
  if (MapiLogon(Handle, PAnsiChar(''), PAnsiChar(''), MAPI_LOGON_UI or MAPI_NEW_SESSION, 0, @MAPI_Session) <> SUCCESS_SUCCESS)
  then
    MessageBox(Handle, PChar('Fehler beim Versuch eMails zu versenden'), PChar('Error'), MB_ICONERROR or MB_OK)
  else
    begin
      for MC:=MAPI_TO to MAPI_BCC do
       begin
        MapiRecipClassCounter[MC]:=0;
        for j:= 0 to MaxInt do // Empfänger zählen
         begin
          if GetMailValue(MC,j) = '' then break;
          Inc(MapiRecipClassCounter[MC]);
         end;
       end;
      ReceipCount:=MapiRecipClassCounter[MAPI_TO]+
                   MapiRecipClassCounter[MAPI_CC]+
                   MapiRecipClassCounter[MAPI_BCC]; // Gesamtempfängerzahl errechnen
      SetLength(Receip,ReceipCount); // Empfängerarray dimensionieren
      i:=0;
      if ReceipCount>0 then
       begin
        for MC:=MAPI_TO to MAPI_BCC do
         if MapiRecipClassCounter[MC]>0 then
          for j:=0 to MapiRecipClassCounter[MC]-1 do
           begin
            Receip[i].ulReserved:= 0;
            Receip[i].ulRecipClass:= MC;
            Receip[i].lpszName:= StrNew(PAnsiChar(AnsiString(GetMailValue(MC,j))));
            Receip[i].lpszAddress:= StrNew(PAnsiChar(AnsiString('SMTP:' + GetMailValue(MC,j))));
            Receip[i].lpEntryID:=nil;
            Receip[i].ulEIDSize:= 0;
            inc(i);
           end;
        end;
      MapiMessage.nRecipCount:= ReceipCount; // Empfängeranzahl in Message setzen
      MapiMessage.lpRecips:= Pointer(Receip); // Pointer auf Empfängerarray übergeben

      if Mail.Values['subject']<>'' then MapiMessage.lpszSubject:= PAnsiChar(AnsiString(Mail.Values['subject']));
      if Mail.Values['body']<>'' then MapiMessage.lpszNoteText:= PAnsiChar(AnsiString(Mail.Values['body']));

      AttachCount:= 0; // Anhänge verarbeiten
      for i:= 0 to MaxInt do // zählen
       begin
        if Mail.Values['attachment' + IntToStr(i)] = '' then break;
        Inc(AttachCount);
       end;
      SetLength(Attachments, AttachCount); // array dimensinieren

      if AttachCount>0 then
       begin
        for i:=0 to AttachCount-1 do
         begin
          FileName:= Mail.Values['attachment' + IntToStr(i)]; // Einträge erzeugen
          Attachments[i].ulReserved:= 0;
          Attachments[i].flFlags:= 0;
          Attachments[i].nPosition:= ULONG($FFFFFFFF);
          Attachments[i].lpszPathName:= StrNew(PAnsiChar(AnsiString(FileName)));
          Attachments[i].lpszFileName:= StrNew(PAnsiChar(AnsiString(ExtractFileName(FileName))));
          Attachments[i].lpFileType:= nil;
         end;
        MapiMessage.nFileCount := AttachCount; // Anzahl der Anhänge in der Message setzen
        MapiMessage.lpFiles := Pointer(Attachments); // Pointer auf AnhangsArray übergeben
      end;

      WndList:= DisableTaskWindows(0); // "semimodal" machen
      try
        Result:= MapiSendMail(MAPI_Session, Handle, MapiMessage, MAPI_DIALOG, 0);// senden der Mail
      finally
        EnableTaskWindows(WndList);
        for i:=0 to ReceipCount-1 do // aufräumen
         begin
          StrDispose(Receip[i].lpszName);
          StrDispose(Receip[i].lpszAddress);
         end;
        for i:=0 to AttachCount-1 do
         begin
          StrDispose(Attachments[i].lpszPathName);
          StrDispose(Attachments[i].lpszFileName);
         end;
        Finalize(Attachments); // richtig aufräumen
        Finalize(Receip);
      end;
      MapiLogOff(MAPI_Session, Handle, 0, 0);
    end;
end;

procedure TForm1.Mail1Click(Sender: TObject);
var
  mail: TStringList;
begin
  mail:= TStringList.Create;
  try
      mail.values['to0']:= 'test@test.de';
      mail.values['subject']:= 'TEST!';
      mail.values['body']:= 'DIE TEST E-MAIL!!!';
      mail.values['attachment0']:= 'D:\TEST.txt';
    SendEMail(Self.Handle, mail);
  finally
    mail.Free;
  end;
end;

end.

(2b4.244): Unknown exception - code c0000090 (first chance)

delete From tour where gccode='12345' or '56789' or '4565654'

delete From tour where gccode='12345' or gccode='56789' or gccode='4565654'

isolation.tools.getPtrLocation.disable = "TRUE"
isolation.tools.setPtrLocation.disable = "TRUE"
isolation.tools.setVersion.disable = "TRUE"
isolation.tools.getVersion.disable = "TRUE"
monitor_control.restrict_backdoor = "TRUE"
monitor_control.disable_directexec = "TRUE"