【Delphi互換!?】FreePascal/Lazarus その2【GPL】

**デフォルトの名無しさん** · 2009/12/25(金) 02:46:18

（クロス）オープンソースコンパイラ FreePascal [i386/68K/PPC/ARM/SPARC]
http://www.freepascal.org/

オープンソース開発ライブラリ等 [IDE/GUI環境 Lazarus]
http://www.lazarus.freepascal.org/

FreePascal/Lazarusのメーリングリスト(Pascalにホエロ！)
ttp://www.freeml.com/lazarus

Q:これで作ったソフトは自動的にGPLになるの？

A:制限付き LGPL だから、自分が作ったソースは GPL にする必要は無い
例え FreePascal 付属のライブラリにリンクしていても GPL にはしなくて良い
http://www.freepascal.org/faq.html#general-license

**デフォルトの名無しさん** · 2015/12/10(木) 13:51:45.92

ラザルス/パスカルの入門用の日本語の書籍ってある？

**デフォルトの名無しさん** · 2015/12/10(木) 13:51:47.70

lazarusでopen janeをコンパイル出来ませんか？

**デフォルトの名無しさん** · 2015/12/10(木) 16:05:19.78

>>562
パスカル言語自体の入門なら、古いDelphi用の書籍を図書館で借りたり
古本屋でゲットすれば十分だと思うよ。
stringがUTF16でなくUTF8だというのさえ気をつければ
なんとかなると思うよ。

IDEの使い方の入門は、DelphiやVS C#などのIDE使ったことある人なら
適当に触ってるうちになんとかなると思うよ。

**デフォルトの名無しさん** · 2015/12/10(木) 16:13:28.25

>>563
修正無しでコンパイルはできないと思うよ。
でもC++から移植するよりは絶対楽だから勉強のつもりで移植してみるのはいいかもね。
他人のコードを見るのが何よりも勉強になるし。

ちなみに今からラザロで新規プロジェクト作るなら先日出たばかりの
Lazarus 1.6RC1 で作り始めたほうが絶対によいと思うよ。
FPC 3.0、特にコードページ文字列型にフル対応してるから。

**デフォルトの名無しさん** · 2015/12/10(木) 18:08:42.14

>>560
ああ、古臭いは言い過ぎかもしれない。

> 変数スコープを縮めるってのは例えばforループ内でのみ有効なローカル変数が欲しいとかそういうこと？
そうそう、使う直前での定義とかそんなの。先頭に戻るのがめんどいような長い関数は書くなって思想かもしれないけど。
あと、最近はやり (？) の型推論とか。

**デフォルトの名無しさん** · 2015/12/10(木) 18:26:06.61

>>566
＞そうそう、使う直前での定義とかそんなの。
確かにC++で取り入れられたときはうらやましかったけど、
今はエディタが発達して自動定義とかしちゃうからな～
見込み薄かもね。
そういえばbegin 、end、then とか打つの面倒とかいう意見も昔はあったけど
エディタが自動入力しちゃう時代だしね～

型推論はジェネリクス絡みでそのうちある程度はできるようになるだろうね。
まあスクリプト言語じゃないので、実行速度を犠牲にしてまではできない
という限界はあるだろうけど。RTTIみたいに、便利だけど組み込むと重くなる
みたいなのもあるから。

**デフォルトの名無しさん** · 2015/12/11(金) 07:39:54.62

>>567
> そういえばbegin 、end、then とか打つの面倒とかいう意見も昔はあったけど
自分は Shift + ホームポジションから離れたカッコを多用する C 系よりはアルファベットで begin end 書く方がいいな。
仕事ではどうしても C 系の言語が多いので慣れてしまったが。

型推論は、var で型を指定しておいて、.Create だけで生成できるとかが Pascal 的なような気がした。

**名無しさん＠そうだ選挙に行こう** · 2015/12/14(月) 16:02:55.66

Lasarus 1.6 では component/googleapis なるものがあるな

**デフォルトの名無しさん** · 2016/01/06(水) 09:53:07.11

CustomDrawnをインストールし、ボタンなどを配置してみましたが、どれもコンパイルが通りません。
1.4.4、1.6RCもダメでgithubの最新版も通りませんでした。
OSはWindows7です。
カラーボタンを使いたいのでCustomDrawnが良いのですが、使えた方いますか。

**デフォルトの名無しさん** · 2016/01/06(水) 14:08:20.57

確か最近修正があった気がするからtruncでないとだめかも。

＞カラーボタンを使いたい
ほんとにそれだけの理由なら標準のウィジェットでもできるよ。
CustomDrawnだと日本語入力とかできないしデメリットのほうが多い気がする。

**デフォルトの名無しさん** · 2016/01/06(水) 15:40:56.45

>ほんとにそれだけの理由なら標準のウィジェットでもできるよ。
どのコンポーネントでできるの？

今のところCustomDrawnで日本語を使う予定がないので、英語でも良いんですけどね。。

**デフォルトの名無しさん** · 2016/01/06(水) 21:17:50.57

BGRA Controlでできたからこれでいいや。
ありがとう。
あとはCaptionを２行にする方法を考えねば。
TButtonでは２行にできたけどね。

**デフォルトの名無しさん** · 2016/01/07(木) 08:13:29.34

今が一番楽しい過程だね。
すぐにできると思うから頑張れ！

**デフォルトの名無しさん** · 2016/01/07(木) 12:19:25.71

IDE は一つのウィンドウにして欲しいな。
複数開いてそれぞれのモニタにとかいうのが気軽にできん。

**デフォルトの名無しさん** · 2016/01/07(木) 14:33:28.16

やったことないけどドッキングに対応してたはずだよ。

**デフォルトの名無しさん** · 2016/01/07(木) 23:00:29.83

えー、そうだったっけ。
またそのうち調べてみよう。

**デフォルトの名無しさん** · 2016/01/09(土) 19:57:11.08

ドッキングで検索するとすぐに出てくるよ。
慣れたこともあるけどでもすぐに戻した。

だんだん、delphiよりも使いやすくなってきた。

**デフォルトの名無しさん** · 2016/01/14(木) 15:35:51.69

laztoapkで教えて下さい。
Windowsでプログラムができあがってandroidでもと思い、laztoapkでAPKを作ったのですがタイマーアプリなってしまいます。
テンプレートから読んできているようなので、そこを変更しようと思いましたがわかりません。
どのファイルを修正したらよいでしょうか。

**デフォルトの名無しさん** · 2016/01/18(月) 12:55:25.72

日本語でおｋ

**デフォルトの名無しさん** · 2016/01/23(土) 20:47:52.62

androidの簡単なプログラムを作っています。
wikiを見ながらsoまでできたのですが、次にどうしたらいいのでしょうか。
見本のプロジェクトをいただけるとうれしいのですが。

**デフォルトの名無しさん** · 2016/01/24(日) 18:48:57.02

apkを作る

**デフォルトの名無しさん** · 2016/01/24(日) 20:21:03.36

真面目に頼むよ～～

**デフォルトの名無しさん** · 2016/01/25(月) 11:20:48.12

というかsoできたならあとは言語関係ない
（Lazarus特有の問題はない）よね。

**デフォルトの名無しさん** · 2016/01/25(月) 13:20:14.70

soだよ

**デフォルトの名無しさん** · 2016/01/26(火) 10:02:27.99

soですね

**デフォルトの名無しさん** · 2016/02/05(金) 20:11:14.14

やっとandroidにコンパイルできた。
javaの事はさっぱりわからんから、作れただけでもよしとするか。
TButtonの背景は、やっぱり色が付かないね。

**デフォルトの名無しさん** · 2016/02/06(土) 12:08:28.51

TButtonがWindowsのボタンコントロールを使用しているので
ボタンの色はWindowsが決定してしまうからどうにもならない
という問題だったキガス。
というわけで既出のとおりWindowsのボタンコントロールに依存しない
カスタムボタンを使用するしかない。

**デフォルトの名無しさん** · 2016/02/06(土) 13:23:20.11

android用にコンパイルしたら変わると思ったけどダメだね。

**デフォルトの名無しさん** · 2016/02/10(水) 14:34:11.58

Lazarusでandroidの簡単なプログラムを作成しています。
動作を遅くするための遅延をかけたいのですが、Windowsにコンパイルすると正常に動くものの、androidではウエイトタイマーが働きません。
サンプルをネットから持ってきて試しましたが、全部動きませんでした。
簡単でいいので教えてください。

**デフォルトの名無しさん** · 2016/02/11(木) 10:24:59.82

>>590
sleep でだめなの？

**デフォルトの名無しさん** · 2016/02/11(木) 12:33:39.96

ダメだった。delayもダメ。
mmsystemも使えないし。
タイマーコンポーネントなしで書きたいんだけど、うまくいかない。

**デフォルトの名無しさん** · 2016/02/11(木) 18:10:17.22

はまり込んだけど何とか遅延タイマーできた。

**デフォルトの名無しさん** · 2016/02/17(水) 12:13:38.47

うちではsleepで無問題だが。
unit単位で関数が重複してんじゃね？

**デフォルトの名無しさん** · 2016/02/20(土) 14:06:46.13

androidアプリで教えてください。
マルチタッチはできますか。あるボタンを押しながら、別のボタンを押す処理をしたいのです。

それからもう一つ、アプリ終了の処理でcloseやterminateでは終了できませんでした。できる方法がありましたら教えてください。

**デフォルトの名無しさん** · 2016/02/21(日) 21:40:45.15

数枚の画像を埋め込んでパラパラ変えるようなプログラムを考えています。
JPG画像の埋め込み方を教えて下さい。

**デフォルトの名無しさん** · 2016/02/22(月) 09:15:50.74

色々なやり方が考えられるが $R でリソースに取り込んで
LoadFro,Resourceとかで読み込むというのが簡単じゃね。
基本は同じだからDelphiの超初心者スレで聞いてみれ。

**デフォルトの名無しさん** · 2016/02/22(月) 12:55:01.70

>>597
ありがとう。
lrsエクスプローラで1つにまとめてできた。
delphiと微妙に違っていて苦労した。

**デフォルトの名無しさん** · 2016/02/25(木) 04:57:55.42

おいおいおいおい、いつの間にか1.6出てるじゃんよ。
書き込んでくれないから、気付くの遅れたよ。

**デフォルトの名無しさん** · 2016/02/27(土) 20:07:48.97

最近インストールしたばかりだが
よく出来てるねこれ

**デフォルトの名無しさん** · 2016/02/29(月) 22:38:02.78

Laz 1.6.0 + FPC 3.3.0 を Windows にインストールしました。
FPC3 ではこれが通るのかと思っていたら動作しませんね。

var
s: UTF8String;
begin
s := '123あいうえお456';
ShowMessage(Copy(s, 5, 3));
end;

従来の
uses LazUTF8

ShowMessage(UTF8Copy(s, 5, 3));
は使えるけど。

**デフォルトの名無しさん** · 2016/03/01(火) 08:16:01.11

Copy、Insert、Delete、Lengthなどの伝統的関数（手続）が
要素単位（ANSIやUTF8ではバイト単位、UTF16ではワード単位）を
基準にするというのは永久不滅かと。

**601** · 2016/03/02(水) 21:07:51.79

それはどうですかね。
引数に文字列リテラルか定数を渡せば期待する動作をしますが変数では駄目なのです。

**デフォルトの名無しさん** · 2016/03/02(水) 21:45:17.29

「通る」「動作しません」「使える」「期待する動作」「駄目」などの
曖昧な言葉が多くてよくわからんな。
少し整理して機械翻訳でもいいから英語にして本家のフォーラム
で質問すると中の人が返事をくれると思うよ。

**デフォルトの名無しさん** · 2016/03/03(木) 01:14:14.44

コンパイルのタイミングで、リテラルはAnsiStringとして評価、文字列定数はおそらく最適化によりAnsiStringにでもなったんじゃないの、なんとなくだけど。

**デフォルトの名無しさん** · 2016/03/03(木) 01:19:05.87

文字列定数、

const AAA = 'foo';

としてれば、最適化うんぬん関係なく、AnsiStringとして評価されそう。

一方、

const BBB: string = 'bar';

だと、変数と同じ結果になりそう。
(今手元に環境ないから試せない)

**デフォルトの名無しさん** · 2016/03/03(木) 10:25:00.04

型なし文字列定数のコードページはCP_NONE？

**デフォルトの名無しさん** · 2016/03/11(金) 18:06:14.35

Lamw: Lazarus Android Module Wizard
ttps://github.com/jmpessoa/lazandroidmodulewizard

既に使ってみた人いますか？

**デフォルトの名無しさん** · 2016/03/14(月) 10:19:13.12

>>601
改めて試したけど、そもそもうちでは

var
s: UTF8String;
begin
s := '123あいうえお456';
ShowMessage(s);
end;

で「あいうえお」部分が文字化けする。
s: string;
にすると文字化けしない。
ShowMessageがUTF8Stringに対応してないんじゃあるまいか。

**デフォルトの名無しさん** · 2016/03/14(月) 10:21:34.75

>>607
ShowMessage(IntToStr(StringCodePage('あいうえお')));
で0と表示されるからCP_NONEみたいだ。

**デフォルトの名無しさん** · 2016/03/14(月) 18:06:18.97

>>609
自己レス。ShowMessageの問題ではないみたい。

**デフォルトの名無しさん** · 2016/03/14(月) 18:19:06.24

>>610
こっちも自己レス。汚してすみません。
0は、CP_NONEでなくCP_ACPだた。

**デフォルトの名無しさん** · 2016/03/31(木) 09:15:03.95

>>601
UTF8String を使う場合は、ソースの先頭部付近に
{$codepage UTF8}
を加えるのがほぼ必須みたいです。
そして、copyはやはりコードページを意識しない
（要素単位固定、現在は１要素=１バイト）みたいです。
ですので s: string; とした場合と動作は変わらないみたいです。

**デフォルトの名無しさん** · 2016/04/10(日) 18:47:56.27

どうして不人気なんだろう

**デフォルトの名無しさん** · 2016/04/10(日) 19:28:01.82

いや、そもそも Pascal が

**デフォルトの名無しさん** · 2016/04/11(月) 08:09:18.63

Delphiがああなっちゃったからな

**デフォルトの名無しさん** · 2016/04/11(月) 14:01:09.14

自分は Pascal 好きなんだけどね。
でも遊びくらいにしか使えないわなあ。
余計な苦労するだけだし。

**デフォルトの名無しさん** · 2016/04/11(月) 18:04:07.15

>>617
どういう苦労なの。
俺はVBなら出来るんだけどという奴に合うたびに閉口するんだけど。
参考に教えてちょうだい。

**デフォルトの名無しさん** · 2016/04/11(月) 23:08:16.24

>>618
ああ、ここ Linux の板じゃなかったな。
たいていサンプルがあるのって C じゃん？無理やり Pascal に書きなおすか、
なんとかしてドッキングさせたりとかそういうところ。
Windows は、最近はネイティブアプリを作ることがないな。
.NET 使うなら言語の違いは大して意味ないし。

**デフォルトの名無しさん** · 2016/04/12(火) 07:42:12.61

たいした苦労してねぇじゃんｗ

**デフォルトの名無しさん** · 2016/04/12(火) 19:58:26.51

そ、そうだな
(誰も苦労話なんかしてないんだが……)

**デフォルトの名無しさん** · 2016/04/13(水) 08:12:25.93

俺は逆にCをPascalに移植するの好きだけどな。
変にマニュアルとか読むよりも仕様がよくわかるし
何よりもPascalの便利さがわかる。

**デフォルトの名無しさん** · 2016/04/13(水) 08:39:28.24

でも１万行とか、移植しかねるけどなぁ。

**デフォルトの名無しさん** · 2016/04/14(木) 08:09:53.69

それはケースバイケースで、CでDLLを作るという手もあるよ。
いずれにせよCでできることはObjectPascalでもほぼできるわけで
慣れれば困るということはないよ。
僕の経験上で今までObjectPascalでできなかったのは
デバイスドライバ開発時のメモリアドレスの絶対指定ぐらいかな。

**デフォルトの名無しさん** · 2016/04/14(木) 10:14:23.22

Delphi3でデバイスドライバーを作ってる人見たが
VCと混合だったかな
うろおぼえ

**デフォルトの名無しさん** · 2016/04/23(土) 22:03:11.97

ツールのDelphi Conversionで簡単なDelphiプロジェクトをLazarusに変換したんだけど
コンパイルしようとすると「プロジェクトにメインソースファイルがありません」って出ちゃう
どこをいじったらいいでしょう？

**デフォルトの名無しさん** · 2016/04/24(日) 10:19:11.75

変換前のDelphiプロジェクトはこれです
http://fast-uploader.com/file/7016973507576/

**デフォルトの名無しさん** · 2016/04/27(水) 10:18:46.99

>>626
試したけどそのようなエラーは出なかったよ

**デフォルトの名無しさん** · 2016/04/28(木) 18:14:24.74

>>626
コンバートで失敗はなかったけど、コンパイルする時に4つエラーが出た
lazarusにはない記述だから仕方ないけど

**デフォルトの名無しさん** · 2016/04/29(金) 16:31:19.76

>>628
>>629
レスありがとうございます
もう一度試してだめなら
手作業で変換することにします

**デフォルトの名無しさん** · 2016/05/08(日) 13:18:08.88

Shift_JIS漢字を含む文字列をUTF-8文字列に変換したいのですが
AnsiToUtf8関数は見当違いですか？
試してみましたがうまくいきませんでした

**デフォルトの名無しさん** · 2016/05/08(日) 15:01:22.75

そりゃANSIだからな

**デフォルトの名無しさん** · 2016/05/08(日) 15:21:32.70

OSがWindowsなら見当違いじゃないよ

**デフォルトの名無しさん** · 2016/05/08(日) 18:47:19.53

>>632
>>633
OSはWindows7 64Bitです
うまくいかないのは何かコンパイラ指示とか足りないのでしょうか
他にShift_JISからUTF-8に変換できる関数とかないでしょうか

**デフォルトの名無しさん** · 2016/05/08(日) 19:23:38.54

WindowsならAPIがあるよ

**デフォルトの名無しさん** · 2016/05/08(日) 22:14:02.22

15年ぶりぐらいでプログラミングを
Lazarus で復帰し、半年ほど前からさわってるけどこうやって変換してるよ。Ver1.6

ただしLConvertEncode Unitの半角カナの扱いにバグがありConverterEncode() で半角カナが消える。
全角とANSIなら問題ない。

LConvertEncodeのasiancodepagefunctions.inc のDBCSToUTF8() のソースコードを少し修正すればOk。

uses
LazUTF8Classes,LazUTF8,.....,LConvEncording;

中略

SL:=TStringList.Create;
try
LoadStringsFromFileUTF8(SL, filename);
for i := 0 to SL.Count - 1 do begin
if GuessEncoding(SL[i]) = 'cp932' then
Memo.Lines.Add(ConvertEncoding(SL[i], 'cp932', 'utf8')) // SJIS to UTF8コード変換
else
Memo.Lines.Add(SL[i]);
end;
finally
FreeAndNil(SL);
end;

**デフォルトの名無しさん** · 2016/05/08(日) 22:55:56.40

>>636

C:\lazarus\components\lazutils\lconvencoding.pasのConvertEncoding(SL[i], 'cp932', 'utf8')で半角ｶﾅが消える件
asiancodepagefunctions.inc　の下記ルーチンがCP932 SJISの半角ｶﾅを正しくハンドリングできていない

function DBCSToUTF8(const s: string; CodeP: integer): string;
:
:
repeat
c := Src^;
Inc(Src);
if Ord(c) < 128 then begin
if (c=#0) and (Src-PChar(s)>=len) then break;
Dest^ := c;
Inc(Dest);
end
else begin
code := Byte(c) shl 8; <---- Ord(c) > $80 の時は無条件に２Byte文字にしているのがNG
c:=Src^;
if (c=#0) and (Src-PChar(s)>=len) then break;
code := code + Byte(c);
Inc(Src);

**デフォルトの名無しさん** · 2016/05/08(日) 23:00:44.78

>>636 以下修正したコードだけど、参考まで。
function DBCSToUTF8(const s: string; CodeP: integer): string;
:
const // 半角ｶﾅ対応
HankakuKanaUTF8Code:array[$A1..$DF] of array[1..3] of Byte
=(($EF,$BD,$A1),($EF,$BD,$A2),($EF,$BD,$A3),($EF,$BD,$A4),($EF,$BD,$A5),($EF,$BD,$A6),($EF,$BD,$A7),($EF,$BD,$A8),
($EF,$BD,$A9),($EF,$BD,$AA),($EF,$BD,$AB),($EF,$BD,$AC),($EF,$BD,$AD),($EF,$BD,$AE),($EF,$BD,$AF),($EF,$BD,$B0),
($EF,$BD,$B1),($EF,$BD,$B2),($EF,$BD,$B3),($EF,$BD,$B4),($EF,$BD,$B5),($EF,$BD,$B6),($EF,$BD,$B7),($EF,$BD,$B8),
($EF,$BD,$B9),($EF,$BD,$BA),($EF,$BD,$BB),($EF,$BD,$BC),($EF,$BD,$BD),($EF,$BD,$BE),($EF,$BD,$BF),($EF,$BE,$80),
($EF,$BE,$81),($EF,$BE,$82),($EF,$BE,$83),($EF,$BE,$84),($EF,$BE,$85),($EF,$BE,$86),($EF,$BE,$87),($EF,$BE,$88),
($EF,$BE,$89),($EF,$BE,$8A),($EF,$BE,$8B),($EF,$BE,$8C),($EF,$BE,$8D),($EF,$BE,$8E),($EF,$BE,$8F),($EF,$BE,$90),
($EF,$BE,$91),($EF,$BE,$92),($EF,$BE,$93),($EF,$BE,$94),($EF,$BE,$95),($EF,$BE,$96),($EF,$BE,$97),($EF,$BE,$98),
($EF,$BE,$99),($EF,$BE,$9A),($EF,$BE,$9B),($EF,$BE,$9C),($EF,$BE,$9D),($EF,$BE,$9E),($EF,$BE,$9F));
// ここまで
begin
:
repeat
:
begin
if (c=#0) and (Src-PChar(s)>=len) then break;
Dest^ := c;
Inc(Dest);
end
else if (CodeP = 932) and (Ord(c) >= $A1) and (Ord(c) <= $DF) then begin // 半角ｶﾅ対応
Dest^ := Char(HankakuKanaUTF8Code[Ord(c)][1]);
Inc(Dest);
Dest^ := Char(HankakuKanaUTF8Code[Ord(c)][2]);
Inc(Dest);
Dest^ := Char(HankakuKanaUTF8Code[Ord(c)][3]);
Inc(Dest);
end // ここまで

**デフォルトの名無しさん** · 2016/05/09(月) 20:03:45.11

>>635
ありがとうございます
APIを探してみます
>>636
>>637
>>638
サンプルコードまで書いてくれてすみません
早速試してみます

**デフォルトの名無しさん** · 2016/05/09(月) 21:59:01.22

>>636
コードページを使うってことがまったく頭にありませんでした
DelphiならAnsiToUtf8ExとかUtf8ToAnsiExあたりが使えそうですがLazarusにはなさそうで…
>>635
Win32APIを探してみたらMultiByteToWideCharというのが使えそうですね
コードページはCP_OEMCPあたりでしょうか

WideCharからUTF-8はWideStringにしてStringに代入で変換できそうですね
このあたりを使ってコードを書いて見ます

**デフォルトの名無しさん** · 2016/05/10(火) 08:00:47.53

>>640
素直に SetStringCodePage　を使えば？

**デフォルトの名無しさん** · 2016/05/10(火) 08:19:54.24

>>640
あと1.6以降でのUTF16、UTF8の自動相互変換は思わぬところで嵌まることがあるので
1.4以前みたくUtf8EncodeやUtf8Decodeを噛ませておいたほうがいいよ

**デフォルトの名無しさん** · 2016/05/10(火) 17:28:34.34

>>640
636だけど良い方法分かったらレポよろしく。
10数年前にDelphi 7を使ったのが最後だったんでLazarusで半角カナ混じりのSJISテキストファイル表示するのに試行錯誤したよ。
知らなかっただけかもしれないが当時はUnix がEUC主流でUTFなんて無かったような。

**デフォルトの名無しさん** · 2016/05/10(火) 19:02:26.62

delphi7は、一応utf-8に変換する関数は用意されてるね。
基本面のみなので、サロゲートペアを適切に扱ってはくれないけど。

**640** · 2016/05/10(火) 22:51:51.91

一応こんな感じで今のところうまくいっています

1.uses節にWindowsを追加

2.varはこんな感じ
var
　SJStr, U8Str: String;
　WStr: WideString;
　Wlen: Integer;

3.ShiftJIStoUTF8内
　WLen:=MultiByteToWideChar(CP_OEMCP,MB_PRECOMPOSED,PChar(SJStr),
　　　　　　Length(SJStr),PWideChar(WStr),0);
　SetLength(WStr,WLen);
　MultiByteToWideChar(CP_OEMCP,MB_PRECOMPOSED,PChar(SJStr),
　　　　　　Length(SJStr),PWideChar(WStr),WLen);
U8Str:=String(WStr);
//半角Spaceを全角Space ni置き換えています

SJStrはShift_JIS String
U8StrはUTF-8 String
APIを2回Callしているのは1回目で変換後のサイズを取得して2回目で実際に変換しているからです

API出力のUTF-16をPWideChar(array of WideChar)とかで受けて
String(PWideChar(…とかするとうまく変換してくれませんでした
（コンパイルは通るけど）
String（WideString(PWideChar(…なら変換してくれました
なので最初からAPIの出力はWideStringで受けています

しばらくこんな感じで使ってみて不具合が出たらまた考えて見ます
皆さんいろいろな助言をありがとうございました

**640** · 2016/05/10(火) 23:19:26.73

テスト用のProjectです
http://yahoo.jp/box/Vl_y-O

**640** · 2016/05/10(火) 23:41:44.72

ファイルが壊れていたので再UPしました
http://yahoo.jp/box/wFfctM

**デフォルトの名無しさん** · 2016/05/11(水) 08:48:13.55

難しく考え過ぎじゃない？
LazUTF8 か SetCodePage じゃだめなの？

procedure TForm1.Button1Click(Sender: TObject);
var
s, s1, s2: string;
sl: tstringlist;
begin
s:= 'ABCDEFGあいうえおｱｲｳｴｵ';

s1:= UTF8ToWinCP(s);
Label1.Caption:= LazUTF8.WinCPToUTF8(s1);

s2:= s;
SetCodePage(RawByteString(s2), 932{SJIS}, true);
Label2.Caption:= LazUTF8.WinCPToUTF8(s2);
end;

**デフォルトの名無しさん** · 2016/05/11(水) 22:06:49.06

>>648
LazUTF8というのがまったくの初耳でした
WinCPToUTF8であっさりできてしまうんですね
ありがとうございます

**デフォルトの名無しさん** · 2016/05/25(水) 00:13:49.87

>>648
slは？

**デフォルトの名無しさん** · 2016/05/25(水) 08:41:27.50

>>650
テストでテキストファイルに書き出してたのだが
その名残り。削除し忘れた

**デフォルトの名無しさん** · 2016/05/26(木) 00:50:04.87

>>651
なるほど了解

**デフォルトの名無しさん** · 2016/05/28(土) 11:29:41.05

SysUtilsのFileCreate,FileOpen,FileRead,FileWriteは使わないほうがいいですか？
Byteの動的配列をSetlengthしてFileReadに食わせたらFileReadはエラーが出ないけれど
それ以降の動的配列のアクセスすべてで例外が発生します。

**デフォルトの名無しさん** · 2016/05/28(土) 15:04:50.57

>>653
こういう質問のときはエラーになるコードも書いてよ
まぁ状況から察するには
×FileRead(FileHandle, a, Count)
○FileRead(FileHandle, a[0], Count)

**デフォルトの名無しさん** · 2016/05/28(土) 15:41:31.05

>>654
すみませんでした。
まさにお察しのとおりでしたありがとうございます。

**デフォルトの名無しさん** · 2016/05/29(日) 22:53:35.12

自分で使う用にリネームツールを作ってたんだけど
もしかしてFileExistsとかRenameFileって2バイトコード対応してないのですかね？

**656** · 2016/05/29(日) 23:05:42.58

「Lazarusのだと」ってことね
念の為w

**デフォルトの名無しさん** · 2016/05/30(月) 10:19:18.03

質問するならせめて用語くらいは正しく使おうよ。
2バイトコードがSJISのことだと仮定すると
（なぜならUTF8の日本語は3バイトなので）
Lazの文字コ－ドは標準がUTF8なのでUTF8-SJIS変換をかませる必要がある。
なお、Laz v1.6以降のFileExistsやRenameFileはUTF8にフル対応してる。
Laz v1.4以前は FileExistsUTF8 などを使う必要がある。

**デフォルトの名無しさん** · 2016/05/30(月) 20:27:03.00

>>658
勉強になりました
ありがとうございます

**デフォルトの名無しさん** · 2016/06/10(金) 17:51:09.92

これってdelphiで作ったプロジェクトをコンパイルできますか？

**デフォルトの名無しさん** · 2016/06/10(金) 20:01:04.17

コンバートできるものとできないものがある。
さすがに修正することが多いですね。

**デフォルトの名無しさん** · 2016/06/10(金) 23:04:41.83

>>661
ありがとう