Search found 477 matches

Go to advanced search

by ShumingWang
Tue Aug 04, 2026 3:20 am
Forum: FiveWin for Harbour/xHarbour
Topic: How to save excel cell/ osheet:cell(ni,i) picture out to a jpg file ?
Replies: 3
Views: 2178

Re: How to save excel cell/ osheet:cell(ni,i) picture out to a jpg file ?

if ( oExcel := ExcelObj() ) <> nil
lexcel:=.t.
oExcel:WorkBooks:Open(ALLTRIM(::cfile))
oSheet := oExcel:ActiveSheet()

oimg:=timage():new()
oShapes := oSheet:Shapes
for i2:=1 TO osheet:shapes:Count
oShape := oShapes:Item( i2 )
nRow := oShape:TopLeftCell:Row // row where the picture starts ...
by ShumingWang
Tue Jul 28, 2026 1:59 am
Forum: FiveWin for Harbour/xHarbour
Topic: How to save excel cell/ osheet:cell(ni,i) picture out to a jpg file ?
Replies: 3
Views: 2178

Re: How to save excel cell/ osheet:cell(ni,i) picture out to a jpg file ?

Antonio,
Thank you very much!
Shuming Wang

by ShumingWang
Thu Jul 23, 2026 8:54 am
Forum: FiveWin for Harbour/xHarbour
Topic: How to save excel cell/ osheet:cell(ni,i) picture out to a jpg file ?
Replies: 3
Views: 2178

How to save excel cell/ osheet:cell(ni,i) picture out to a jpg file ?

Hi!
As below:
if ( oExcel := ExcelObj() ) <> nil
lexcel:=.t.
oExcel:WorkBooks:Open(ALLTRIM(::cfile))
oSheet := oExcel:ActiveSheet()
oSheet:Cells(nI,i):Value
...

Anyone can help me to save "oSheet:Cells(nI,i):picture" as a jpg/bmp file ?
Thanks!
Shuming Wang

by ShumingWang
Tue Feb 03, 2026 1:12 am
Forum: FiveWin for Harbour/xHarbour
Topic: What databases are we really using? Quick community survey
Replies: 50
Views: 9719

Re: What databases are we really using? Quick community survey

MySQL

by ShumingWang
Tue Nov 25, 2025 8:27 am
Forum: FiveWin for Harbour/xHarbour
Topic: Happy Birthday Antonio,
Replies: 24
Views: 18334

Re: Happy Birthday Antonio,

Happy Birthday !

by ShumingWang
Wed Oct 29, 2025 3:45 am
Forum: FiveWin for Harbour/xHarbour
Topic: FTPPutFile() requires too minutes to upload
Replies: 21
Views: 9972

Re: FTPPutFile() requires too minutes to upload

hLib = LOADLIBRARY( "wininet.dll" )

hInternet := INETOPEN( "Anystring", 1, 0, 0, 0 )

hConnect := INETCONNECT( hInternet, "mysite",21, "ftpacount", "ftppassword", 1, 0,0 )

if !EMPTY( hInternet ).and.!EMPTY( hConnect )
FTPGETFILE( hConnect, "cpath/my.exe", "my.exe", 0,32, 0, 0 )
end ...
by ShumingWang
Wed Oct 29, 2025 3:12 am
Forum: FiveWin for Harbour/xHarbour
Topic: FTPPutFile() requires too minutes to upload
Replies: 21
Views: 9972

Re: FTPPutFile() requires too minutes to upload

hLib = LOADLIBRARY( "wininet.dll" )
oInternet = TInternet():New()

IF oInternet:hSession != 0
oFtp = TFtp():New( "xtech2.top", oInternet, "ftpcount", "ftppassword")

IF oFtp:hFTP != 0

l1:=FTPGETFILE( oFtp, "mysite/my.exe", "my.exe", 0,32, 0, 0 )
?l1 // --> .f.

oFtp:End()
endif
else ...
by ShumingWang
Wed Jul 09, 2025 3:01 am
Forum: FiveWin for Harbour/xHarbour
Topic: Ocalc:how to open an exist file?
Replies: 5
Views: 2142

Re: Ocalc:how to open an exist file?

It works!
cfile:="file:///"+StrTran(Alltrim(cfile),"\","/")
// can convert like "d:\tmp\file1.xls" , "\\127.0.0.1\tmp\file1.xls" into url .
Thank Antonio,karinha,hua!
Shuming Wang
by ShumingWang
Sun Jul 06, 2025 9:02 am
Forum: FiveWin for Harbour/xHarbour
Topic: Ocalc:how to open an exist file?
Replies: 5
Views: 2142

Re: Ocalc:how to open an exist file?

Thank you! But I can't open this China mainland forbidden site.
Shuming Wang
by ShumingWang
Fri Jul 04, 2025 1:04 am
Forum: FiveWin for Harbour/xHarbour
Topic: Ocalc:how to open an exist file?
Replies: 5
Views: 2142

Ocalc:how to open an exist file?

Hi,
cfile:="d:\tmp\my.xls")
if (oCalc := SunCalcObj()) <> nil
oDesktop := oCalc:CreateInstance( "com.sun.star.frame.Desktop" )
aprop:={}
AAdd(aProp,GetPropertyValue(oCalc, "Hidden", .T. ) )
oBook := oDesktop:LoadComponentFromURL(ALLTRIM(cfile) , "_blank", 0, aprop )

oSheet := oBook:GetSheets ...
by ShumingWang
Fri Feb 21, 2025 9:57 am
Forum: FiveWin for Harbour/xHarbour
Topic: Friends Let us all pray for Mr Nageswarao Gunupudi
Replies: 32
Views: 23745

Re: Friends Let us all pray for Mr Nageswarao Gunupudi

Image
by ShumingWang
Wed Feb 19, 2025 1:55 am
Forum: FiveWin for Harbour/xHarbour
Topic: xbrowse multisel
Replies: 9
Views: 14064

Re: xbrowse multisel

::nMarqueeStyle := MARQSTYLE_HIGHLROWMS
::select(1)
::seleect(2)
...
::aseleted stores Eval( ::bBookMark) //nrow

::select(0) clear selected rows ,::aselected:={}

Shuming Wang
by ShumingWang
Tue Nov 05, 2024 3:11 am
Forum: FiveWin for Harbour/xHarbour
Topic: How to add 2d barcode to fastreport or fwh/harbour？
Replies: 7
Views: 2476

Re: How to add 2d barcode to fastreport or fwh/harbour？

1.1 Download zint.exe from https://sourceforge.net/projects/zint/files/zint/
New version is 2.13
1.2
fastreport--page: image type cell -- Code page:

procedure Picture12OnBeforePrint(Sender: TfrxComponent);
begin
callhbfunc('fr3img3',[trim(<masterdata."model">)+',sub']) ;
LoadImageFromHbVar ...
by ShumingWang
Fri Nov 01, 2024 2:24 am
Forum: FiveWin for Harbour/xHarbour
Topic: How to add 2d barcode to fastreport or fwh/harbour？
Replies: 7
Views: 2476

Re: How to add 2d barcode to fastreport or fwh/harbour？

1. Download zint.exe from https://sourceforge.net/projects/zint/files/zint/

WaitRun("zint.exe -d "+csourcestr+" -b 58 -o "+cdir) encode csourcestr:"abcd12345" to directory cdir+"\out.bmp", 58 is 2 demention coderbar brcode .

2.
implib -ae zint.lib zint.dll

#include <zint.h>
int load2dc(char *argv ...
by ShumingWang
Tue Oct 15, 2024 1:45 am
Forum: FiveWin for Harbour/xHarbour
Topic: How to add 2d barcode to fastreport or fwh/harbour？
Replies: 7
Views: 2476

Re: How to add 2d barcode to fastreport or fwh/harbour？

1.
FUNCTION img2dbarcode()
local h2d
private hlib
hLib = LOADLIBRARY( "zint.dll" )

h2d:=ZBarcode_Create()
//// h2d should has datas: symbology,height,width,bitmap,...
?h2d:symbology
// error: method symbology does not exsist

ZBarcode_Encode_and_buffer(h2d,"abc45",5,0)
//error: will ...

Go to advanced search