My “Kaspersky” trial period was over and I have changed my security software to “F-Secure Internet Security”. Then it happened something.
When I would start the program (actually my program), F-Secure showed a message box with the security risk blah blah ..
If your security software prompts you to start or not, let it allow run my software, otherwise you cannot use them at all.
My program has no digital signature. And that’s why security software reacts so.
The digital signature can buy by anyone who has money and UNFORTUNATELY, I cannot afford. Only thing you must do is you have to trust me.
I thought that “TRUST” grows between the parties, like you and me. But now it can be purchased, although there are discounts. Ironically! Ha ha!
By the way!
My program is virus-free and add-ware free so far I know, and they carry no onto prospective threat to your system.
An updated version of Bassmidi has been released. And I modified some codes for Midi To Wav as well.
Download MidiToWav version 2.0.5.3 / 1,03 MB (1 089 382 byte)
Hashes
MD5: 8EB5D74DEC1B6B0220F0D361F31674EA
SHA1: EFA3DAEF308D010DD1C3A2B54103F8321737FA60
There are two versions, Gigastudio and EXS24. I do not have the software, and therefore no benefit from these samples, but you have them maybe?
I should have read the following sentences but I did not. It is a large file. I just downloaded and got a little (actually just a little) disappointed. I expected that I got SoundFont (SF2) files. But they were not. Ha ha…
G-Town Church Sampling Project
http://www.clearbits.net/torrents/21-g-town-church-sampling-project
Recorded in his local church in Grebbestad, Sweden by music producer Tobias Marberger, this set of CC-licensed music samples (available in two separate torrents, with either the original .WAV files with separate EXS24 soft sampler patches, or as .GIG Gigastudio-formatted versions) should be invaluable to amateur and professional musicians alike – includes anvil, snare, wood stick, hihat, brushplate, bongos, piano, organ, mandolin, glockenspiel, flute, many other instruments.
New Bass has arrived and I have upgraded “Midi To Wav”. This time I have not changed particularly.
MIDI TO WAV version 2.0.4.12
Mirror:
http://mino.ucoz.com/load/freeware/midi_to_wav_version_2_0_4_12/1-1-0-15
Hashes
MD5: 5AE01581E8810CB6AC3A310B6CF1299A
SHA1: 67A08837DE57630A32914A341E2756520622F7FB
Team Foundation Service is live! Up to 5 users are free, and for a limited time all use is free!
Go to http://tfs.visualstudio.com/.
I found a bug and fixed..
You can start many instances, is fixed.
Current version is 1.0.1.209
and can download from here.
Pincodes Version 1.0.1.209
1,08 MB (1 136 019 byte)
MD5: 1C74077CFB6D24B1C70584CB50550C31
SHA1: C1593678F40BD1AEBED0101A5F0E88F8C1602850
Pincodes has been released!
Version 1.0.1.207
I have changed its appearance a bit and checked the features. It seems OK. I renamed its name “Pin Codes” to “Pincodes” as well.
You can read about details of Pincodes here (http://www.minostudio.com/blog/freeware/pincodes/).
I will update the download page soon. Until then you can download it from here (1,00 MB (1 052 898 byte)).
Hashes:
MD5: 593CCE71F0FD1D20CFCF6FCEF5AF237F
SHA1: 70CC7BD25FA2531C39B1E17E3AC8D246BAA9C0B6
Pin Codes will soon be here.
It is a program to store your passwords and stuff in a compact database. If you work with affiliate programs, it fits perfectly well.
When you have once filled in a form, it is not necessary then save files and stuff, it is saved. And of course you can password protect them.
I want to read, write (modify) and save Unicoded document with TMemo component in Delphi. And failed.
On the Internet, I had found a procedure to load Unicode files into TMemo, and it worked. But Unicoded string shows like this “???????” (without quotation marks). No, it didn’t work. It seems to be quite difficult to do so.
Here is the code I used. I named TMemo to “Doc”.
Be sure, it didn’t work!
procedure TForm1.LoadUnicodeFile(const filename: String; strings: TStrings);
procedure SwapWideChars(p: PWideChar);
begin
while p^ <> #0000 Do
begin
p^ := WideChar(Swap(Word(p^)));
Inc(p);
end;
end;
var
ms: TMemoryStream;
wc: WideChar;
pWc: PWideChar;
begin
ms:= TMemoryStream.Create;
try
ms.LoadFromFile(filename);
ms.Seek(0, soFromend);
wc := #0000;
ms.Write(wc, sizeof(wc));
pWC := ms.Memory;
if pWc^ = #$FEFF then
Inc(pWc)
else if pWc^ = #$FFFE then
begin
SwapWideChars(pWc);
Inc(pWc);
end
else
;
strings.Text := WideChartoString(pWc);
finally
ms.free;
end;
end;
// This function is necessary to validate the file.
function IsTextFileUnicode(const TextFilename: string): boolean;
var
FS : TFileStream;
w : word;
begin
result := false;
if FileExists(TextFilename) then
begin
FS := TFileStream.Create(TextFilename, fmOpenRead or fmShareDenyNone);
try
if FS.Read(w, SizeOf(w)) = SizeOf(w) then
result := (w = $FEFF) or
(w = $FFFE);
finally
FS.Free;
end;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
var OD: TOpenDialog;
begin
Doc.Lines.Clear;
OD := TOpenDialog.Create(Self);
with OD do
begin
Filter := 'Text Files (*.txt)|*.txt';
if Execute then
begin
if IsTextFileUnicode(FileName) then
LoadUnicodeFile(FileName, Doc.Lines) // Load Unicoded text
else
Doc.Lines.LoadFromFile(FileName); // Load ANSI text
end;
end;
end;
This blog has been updated to version 3.5. And works just fine.

