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.
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
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 188.8.131.52
Pincodes has been released!
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)).
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;