Jump to content

FranzB

Members
  • Content Count

    57
  • Joined

  • Last visited

Everything posted by FranzB

  1. 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
  2. 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;
  3. use TPath and change before drawing again or use TObjectList and always draw the full objectlist , individual items are rects .....
  4. 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 ....
  5. always full path like: variation : OS language, Computer hardware ,......
  6. 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
  7. 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
×