I'm looking for any learning materials that may help me learn free pascal to
the target Android and Mobile.
There are a good number of tutorials online for general development, but I'm
sure there is a lot to learn in order to specifically target Android.
Thanks!,
Pete
__
I ran into a problem just removing spaces for the alias name, I guess the
slashes and colon from the path are not valid for the alias,
so now I have a new function that removes everything that is not a letter,
and that seems to have solved the problem:
mciSendString(PChar(Ansistring('Close '+Le
That Alias method does seem to work.. thank you for the suggestion, although it
makes it more complicated for asynchronous operation, which is of course what I
wanted.
So here is what I came up with.. for synchronous operation, this works fine:
mciSendString(Pchar(Ansistring('Open ' + #34+MyLong
May be by escaping the spaces with ^ ?
Something like: MyFileName:= StringReplace(MyFileName, ' ', '^ ',
[rfReplaceAll]);
^ is the escape char for cmd.exe but may be it is active in this context
too ?
Le 20/09/2022 à 18:31, James Richters via fpc-pascal a écrit :
I just tried it that way
Hi,
I'm not so sure if that's an FPC-only issue. MCI commands like that have been
around for a while, so spaces might not have been "considered" in the first
place.
A workaround was presented years ago, I can only find the archived version:
https://ftp.zx.net.nz/pub/archive/ftp.microsoft.com/M
I just figured out that short filenames won't work, my files are on a linux
server... not NTFS drives.. so I'm back to getting it to work with spaces
the normal file names
James
___
fpc-pascal maillist - fpc-pascal@lists.freepascal.org
https://lists.fr
I just tried it that way:
Var
pcmd: String;
MyFileName: String;
pcmd:='play "'+MyFileName+'"'+#0;
mciSendString(@pcmd[1],Nil,0,0);
I get the same results, files with no spaces in the name even long file
names play fine, if there's spaces, they won't play.
I had the idea to just get the wind
I've only ever done this like:
pcmd: string;
pcmd:='open "'+filename+'" ... '+#0;
mciSendString(@pcmd[1], ...);
mciSendString does return errors.. duno if that'll be helpful.
I originally used it in Virtual Pascal and had to make a partial header myself
so the FreePascal one might take parame
I'm trying to get mciSendString() to work with long file names with spaces
in them and I'm not having any success.
I know with winnows you need quotes around long file names, so I'm trying
things like this:
Var MySoundFile:String;
mciSendString(PChar('play '+Ansistring(#34+MySoundFile+#34)),Nil,0
