This code works with xp but not with win7
#include "fivewin.ch"
function main()
local oVoice := tOleAuto():New( "Sapi.SPVoice" )
local SSFMCreateForWrite := 3
oVoice:Speak( "Good morning ! Welcome to the LTCG." )
return .T.
how to solve it ??
Search found 249 matches
- Mon Nov 07, 2011 7:19 pm
- Forum: FiveWin for Harbour/xHarbour
- Topic: Sapi.SPVoice
- Replies: 0
- Views: 254
- Wed Sep 28, 2011 9:24 am
- Forum: FiveWin for Harbour/xHarbour
- Topic: XBROWSE and Colors
- Replies: 1
- Views: 351
XBROWSE and Colors
I want the change the color of specific word in a column of a Xbrowse .
If a special word is present in a string , i want to display it in red and the rest in blue .
Thanks
If a special word is present in a string , i want to display it in red and the rest in blue .
Thanks
- Wed Aug 03, 2011 3:31 pm
- Forum: FiveWin for Harbour/xHarbour
- Topic: Xbrowse and memo field
- Replies: 2
- Views: 412
Re: Xbrowse and memo field
Thanks
- Tue Aug 02, 2011 6:45 pm
- Forum: FiveWin for Harbour/xHarbour
- Topic: Xbrowse and memo field
- Replies: 2
- Views: 412
Xbrowse and memo field
Hello,
I have to browse records with 1 memo field from a Ms Sql Tables and Ado .
Is it possible that the number of lines for each record change adapting with the size of the field or is it
possible to have a vertical scroll in the column with the memo when there is a lot of characters ?
Thansk .
I have to browse records with 1 memo field from a Ms Sql Tables and Ado .
Is it possible that the number of lines for each record change adapting with the size of the field or is it
possible to have a vertical scroll in the column with the memo when there is a lot of characters ?
Thansk .
- Sat Jul 30, 2011 11:17 am
- Forum: FiveWin for Harbour/xHarbour
- Topic: MySql
- Replies: 4
- Views: 693
Re: MySql
Thanks
- Sat Jul 30, 2011 10:06 am
- Forum: FiveWin for Harbour/xHarbour
- Topic: MySql
- Replies: 4
- Views: 693
Re: MySql
Does the solution with the ODBC driver work with Win7 32 or 64 bits ?
Thanks
Thanks
- Mon Jul 25, 2011 8:00 am
- Forum: FiveWin for Harbour/xHarbour
- Topic: MySql
- Replies: 4
- Views: 693
MySql
I want to connect to a mysql database . What is the connection string ? Should i have to install an ODBC drivers ? Here is a sample with MS sql : cConnStr := 'Provider='+cPROVIDER+';Data Source='+cFrom+';Initial Catalog='+cDB+';User Id='+cuser+';Password='+cpsw oCon := TOLEAuto():New('ADODB.Connecti...
- Thu Jun 23, 2011 3:00 pm
- Forum: FiveWin for Harbour/xHarbour
- Topic: Convert Real to Scientific Format
- Replies: 5
- Views: 743
Re: Convert Real to Scientific Format
Thanks for this feed back .
- Wed Jun 22, 2011 7:57 pm
- Forum: FiveWin for Harbour/xHarbour
- Topic: Convert Real to Scientific Format
- Replies: 5
- Views: 743
Convert Real to Scientific Format
Hello,
I have to convert a numeric to a scientific notation , How to ??
Any function ?
10000 ==> 1,E+04
Thanks
I have to convert a numeric to a scientific notation , How to ??
Any function ?
10000 ==> 1,E+04
Thanks
- Sun Mar 27, 2011 10:02 am
- Forum: FiveWin for Harbour/xHarbour
- Topic: call Winword
- Replies: 4
- Views: 690
Re: call Winword
oWord := TOleAuto():New("Word.Application")
if empty(oWord)
MsgInfo("Word is not present")
else
if VAL(oword:Version) < 12
MsgInfo("It is an old word !")
endif
endif
if empty(oWord)
MsgInfo("Word is not present")
else
if VAL(oword:Version) < 12
MsgInfo("It is an old word !")
endif
endif
- Sun Mar 06, 2011 11:17 am
- Forum: FiveWin for Harbour/xHarbour
- Topic: How to send email from app ?
- Replies: 3
- Views: 1639
Re: How to send email from app ?
Here is a sample with GMAIL : * === function VAMAIL(p1) Local oEmailCfg,oEmailMsg,oError,cHtml,lef * lef:=fcreate("n:\tables\bio_tx\info.txt") fwrite(lef,"Start log"+CRLF) fwrite(lef,p1+CRLF) fclose(lef) * cHtml:='<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN&...
- Sun Mar 06, 2011 11:12 am
- Forum: FiveWin for Harbour/xHarbour
- Topic: How to send email from app ?
- Replies: 3
- Views: 1639
Re: How to send email from app ?
Here is a sample with Outlook oOutLook := TOleAuto():New("Outlook.Application") * oMailItem := oOutLook:Invoke("CreateItem", 0) oMailitem:to:="slfpvsoa@skynet.be" && si plusieur separe ; oMailitem:CC:="ph.jacquet@skynet.be;test@test.be" oMailItem:Set(&...
- Sun Mar 06, 2011 11:09 am
- Forum: FiveWin for Harbour/xHarbour
- Topic: How to send email from app ?
- Replies: 3
- Views: 1639
Re: How to send email from app ?
Here is some code from Fivewin : * aaqui:={} winfo:="Content of the message) wsubject:="Subject of the message" aadd(aaqui,"test@test.be") oOutM1 := TSmtp():New( cIP := GetHostByName( "smtp.ulg.ac.be" ) ) * oMail := TSmtp():New( cIP := GetHostByName( "smtp.ulg...
- Wed Jan 12, 2011 2:44 pm
- Forum: FiveWin for Harbour/xHarbour
- Topic: EXTRACT JPEG METADATA
- Replies: 3
- Views: 592
Re: EXTRACT JPEG METADATA
Thanks for this link but how to obtain the list of meta data stored in the JPEG file ?
Thanks
Thanks
- Sat Jan 08, 2011 12:06 pm
- Forum: FiveWin for Harbour/xHarbour
- Topic: EXTRACT JPEG METADATA
- Replies: 3
- Views: 592
EXTRACT JPEG METADATA
Hello,
I 'd like to display the name and the contents of all metadata included in a JPEG file ,
How To ?
Thanks
I 'd like to display the name and the contents of all metadata included in a JPEG file ,
How To ?
Thanks