>>199 ・Delphi Perspma; Version 6.0 (Build 6.163) ・Indy 9.0.14 Source code distribution ・取り込んだAcriveX Microsoft HTML Object Library(Version 4.0) Microsoft Internet Controls (Version 1.1) MsieActiveX Control module (Version 1.0) ・WindowsXP Home SP1 ・IE6.0 ・狂躁ノートPC
//stdctrls.pas内 function TCustomComboBoxStrings.Get(Index: Integer): string; var Len: Integer; begin Len := SendMessage(ComboBox.Handle, CB_GETLBTEXTLEN, Index, 0); if Len > 0 then begin SetLength(Result, Len); SendMessage(ComboBox.Handle, CB_GETLBTEXT, Index, Longint(PChar(Result))); end end;
//ComCtrls.pas内 function TToolBar.UpdateItem(Message, FromIndex, ToIndex: Integer): Boolean; var //Buffer: array[0..4095] of Char; Buffer: array of Char; begin （略） //StrPCopy(Buffer, CaptionText); SetLength(Buffer, Length(captiontext) + 1); StrPLCopy(@Buffer[0], CaptionText, Length(CaptionText)); //UpdateItem2も同じように直した。 （略） end;
function TCustomListView.GetSearchString: string; var Buffer: array[0..1023] of char; begin Result := ''; if HandleAllocated and ListView_GetISearchString(Handle, Buffer) then Result := Buffer; end;
(×) Access violation at address 00403FBA in module 'gikoNabi.exe'. Read of address 9A947981 (×) Access violation at address 00449FC5 in module 'gikoNabi.exe'. Read of address 0000000D (×) Access violation at address 0044ACFA in module 'gikoNabi.exe'. Read of address 00000000
>>58 のツールをインストールしてみたけど、SshClient.exe は使い方が全くわからない！ 同梱の ssh2.exe をWinCVSに食わせても cvs [checkout aborted]: end of file from server (consult above messages if any) だし・・・
=================================================================== RCS file: /cvsroot/gikonavi/gikonavi/Round.pas,v retrieving revision 1.7 diff -r1.7 Round.pas 72a73,84 > > if not Giko.GikoForm.LoginAction.Checked then begin > if GikoSys.Setting.UserID <> '' then begin > msg := 'ログインしないと巡回は出来ません' + #13#10 > + '今ログインしますか'; > if MsgBox(Handle, msg, '確認', MB_YESNO or MB_ICONQUESTION or MB_DEFBUTTON2) <> IDYES then begin > Exit; > end; > Giko.GikoForm.LoginAction.Execute; > end; > end; >
=================================================================== RCS file: /cvsroot/gikonavi/gikonavi/RoundData.pas,v retrieving revision 1.14 diff -r1.14 RoundData.pas 429c429,430 < for i := 1 to sl.Count - 1 do begin --- > i := 1; > while i < sl.Count do begin 437c438,439 < end; --- > end; > i := i + 1;
(2/2) －－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－ ・ギコナビの雑誌での掲載許可：○ or × ・ギコナビの付録CD-ROMへの収録許可：○ or × ・ギコナビの弊誌ホームページでの掲載許可：○ or × ・弊誌ホームページおよび付録CD-ROM内のHTMLメニューにおける ギコナビプロジェクト様のホームページへのリンク許可：○ or ×
・正式表記と最新バージョンの確認：ギコナビ Version バタ45 Build 468 （できるだけ最新バージョンを収録させていただきたいと思っております。 このバージョンでOKかどうかご確認ください）
・許諾後に最新版がリリースされた場合の自動収録許可：○ or × （できるだけ最新のものを収録させていただくため，許諾をいただいた後 でも，時間の許す限り最新版をチェックしております。許可いただいた バージョンより新しいものがアップされた場合，それを収録しても大丈夫 かどうかの確認です。なお当然のことながら，許諾をいただいた月号のCD- ROMが対象となります）
Index: Giko.pas =================================================================== RCS file: /cvsroot/gikonavi/gikonavi/Giko.pas,v retrieving revision 1.196 diff -r1.196 Giko.pas 3087c3087 < if ActiveTab then begin --- > if (ActiveTab) or (BrowserTab.Tabs.Count=1) then begin