Jump to content

FranzB

Members
  • Content Count

    10
  • Joined

  • Last visited

Community Reputation

0 Neutral
  1. is there an option to increase the amount of information written to the XML outputfile ? a) I want to add all parameter for a testcase to the XML log b) I want to add some information during the test case execution to the XML log my code follow the basic instructions given for DUNITX var runner : ITestRunner; results : IRunResults; logger : ITestLogger; nunitLogger : ITestLogger; begin try //Check command line options, will exit if invalid TDUnitX.CheckCommandLine; //Create the test runner runner := TDUnitX.CreateRunner; //Tell the runner to use RTTI to find Fixtures runner.UseRTTI := True; //tell the runner how we will log things //Log to the console window logger := TDUnitXConsoleLogger.Create(true); runner.AddLogger(logger); //Generate an NUnit compatible XML File nunitLogger := TDUnitXXMLNUnitFileLogger.Create(TDUnitX.Options.XMLOutputFile); runner.AddLogger(nunitLogger); runner.FailsOnNoAsserts := False; //When true, Assertions must be made during tests; //Run tests results := runner.Execute; if not results.AllPassed then System.ExitCode := EXIT_ERRORS; {$IFNDEF CI} //We don't want this happening when running under CI. if TDUnitX.Options.ExitBehavior = TDUnitXExitBehavior.Pause then begin System.Write('Done.. press <Enter> key to quit.'); System.Readln; end; {$ENDIF} except on E: Exception do System.Writeln(E.ClassName, ': ', E.Message); end; end.
  2. FranzB

    Draw TBitmap

    procedure InsertonMyleft(aBMP: TBitmap); var tempBMP: TBitmap; RecFull: TRectF; RecLeft: TRectF; begin tempBMP := TBitmap.Create; try // tempBMP.Assign(aBMP); // tempBMP.SaveToFile('c:\temp\debugme.bmp'); tempBMP.LOadfromFile('c:\temp\debugme3.bmp'); RecFull := RectF(0, 0, aBMP.Width - 2, aBMP.Height - 2); RecLeft := RectF(0, 0, round(aBMP.Width / 3), round((aBMP.Height - 1) / 1)); aBMP.Canvas.BeginScene; aBMP.Canvas.DrawBitmap(tempBMP, RecFull, RecLeft, 50, True); aBMP.Canvas.EndScene; aBMP.SaveToFile('c:\temp\debugme2.bmp'); finally tempBMP.Free; end; end; if I load a bitmap from a file , my code works fine but the assign sequence does not have the desired function, (insert the bmp on the left side) even the savetofile saved the correct bitmap content
  3. FranzB

    Draw TBitmap

    already changed to width-1 ...... see code above RecFull := RectF(0, 0, aBMP.Width-1, aBMP.Height-1); // size of full trect, 0,0,500,500
  4. FranzB

    Draw TBitmap

    I changed the code to make it a full separate process function like below , Trect full has correct size 0,0,500,500 and Trect left size is 0,0,250,500 image size is 501 x501 pixel but still no effect from this code 😞 procedure InsertonMyleft(aBMP : TBitmap); var tempBMP: TBitmap; RecFull: TRectF; RecLeft: TRectF; begin tempBMP := TBitmap.Create; try aBMP.Canvas.BeginScene; tempBMP.Assign(aBMP); tempBMP.SaveToFile('c:\temp\debugme.bmp'); RecFull := RectF(0, 0, aBMP.Width-1, aBMP.Height-1); // size of full trect, 0,0,500,500 RecLeft := RectF(0, 0, round((aBMP.Width-1) / 2), // just lest side round((aBMP.Height-1) / 1)); aBMP.Canvas.DrawBitmap(tempBMP, RecFull, RecLeft, 50, True); aBMP.Canvas.EndScene; aBMP.SaveToFile('c:\temp\debugme2.bmp'); finally tempBMP.Free; end; end;
  5. use TPath and change before drawing again or use TObjectList and always draw the full objectlist , individual items are rects .....
  6. FranzB

    Draw TBitmap

    I want to insert a bitmap on it's own left side again using canvas.drawbitmap function but actually this code does not do anything..... can't see my mistake here 😞 procedure InsertonMyleft(aBMP : TBitmap); var tempBMP: TBitmap; RecFull: TRectF; RecLeft: TRectF; begin tempBMP := TBitmap.Create; try aBMP.Canvas.BeginScene; tempBMP.Assign(localBMP); tempBMP.SaveToFile('c:\temp\debugme.bmp'); RecFull := RectF(0, 0, aBMP.Width, aBMP.Height); RecLeft := RectF(0, 0, round(aBMP.Width / 3), round(aBMP.Height / 1)); aBMP.Canvas.DrawBitmap(tempBMP, RecFull, RecLeft, 50, True); aBMP.Canvas.EndScene; aBMP.SaveToFile('c:\temp\debugme2.bmp'); finally tempBMP.Free; end; end;
  7. always full path like: variation : OS language, Computer hardware ,......
  8. I'm suffering some strange issue, guessing that the function fileexist will not work 100 % stable, if I check for filenames with several spaces .... filenamestr := 'my report from home.csv' if fileexists () then begin .... end else begin ..... end; on some computers, some folders, ... this seems to work, other computer and folder structure this call fails ....
  9. the identical setup as mentioned here , I did on second computer, now with MYSQL database server how to evaluate the correct connection parameters using Delphi and firedac @ LINUX
  10. FranzB

    Connect MSSQL Server

    I'm running 2 MSSQL Servers on my Computer MSSQL Server #1 : installed on WIN 10 Host OS on my Computer MSSQL Server #2 : installed on VM Ware LINUX ( UBUNTU 18.04) Client, I also installed AZURE data studio inside the VM Ware OS Q1 : How to connect from AZURE data studio to SQL Server #2, I failed with different settings so far :-(, what will be the correct server name ?? Q2 : How to connect to MSSQL Server #1 on HOST OS ?? Computername\sqlexpress does not work from AZURE data studio, but this works fine connecting directly from HOST OS to this MSSQL server I#m using VM network settings = Bridged
×