ブラウザ

メッセージ

２０㌫

今インターネットブラウザを作っているのですが
IEのように戻す進むの処理をどうすればいいのかわかりません
できればソース付の解説をお願いします。

kwn · #2 投稿記事 by **kwn** » 2007年8月23日(木) 10:10

COMを使ってGoBack、GoForward命令を出せば良いと思います。

20㌫ · #3 投稿記事 by **20㌫** » 2007年8月24日(金) 01:18

もうちょっと詳しくお願いします

ゲスト

配列でも、ポインタでも好いのですが、アドレスを記憶するメモリを確保します。
例えば、 Dim AddressPoint(9)

新しいアドレスを入力した場合は、AddressPoint(1)～(9)をAddressPoint(0)～(8)にシフトしAddressPoint(9)に新アドレスを代入します。

戻るボタンを１回押すとAddressPoint(8)を参照します。
更に戻るボタンを１回押すとAddressPoint(7)を参照します。
次に進むを押すとAddressPoint(8)

こんな感じで行けると思います。

20㌫ · #5 投稿記事 by **20㌫** » 2007年8月24日(金) 23:15

定義してみたのですがアクセス違反が出たんですが
できればあなたの組んだソースを教えてもらえないですかね。
お願いします。

konisi

#私は上のゲストさんとは別人ですが

このようなコードでどうでしょうか？

[ここをクリックすると内容が表示されます]

コード: 全て選択

Dim AddressPoint(9) As *Byte
Dim NowPointingAddressPoint As Long

'第一引数に、保存するアドレス名へのポインタを渡す。
Sub PushNewAddress(Addr As *Byte)
    If NowPointingAddressPoint = 10 then
        free(AddressPoint(0))
        Dim i As Long
        For i=0 To 8
            AddressPoint(i)=AddressPoint(i + 1)
        Next i
        AddressPoint(9)=calloc(lstrlen(Addr))
        memcpy(AddressPoint(9),Addr,lstrlen(Addr))
    Else
        Dim npap As Long
        npap = NowPointingAddressPoint
        If AddressPoint(npap) then
            Dim i As Long
            For i = npap To 9
                If AddressPoint(npap) then
                    free(AddressPoint(npap))
                    AddressPoint(npap) = 0
                End If
            Next i
        End If
        AddressPoint(npap) = calloc(lstrlen(Addr) + 1)
        memcpy(AddressPoint(npap),Addr,lstrlen(Addr))
        NowPointingAddressPoint ++
    End If
End Sub

'引数なし。
'戻り値は、エラーなら0、エラーで無いならアドレス名へのポインタ。
Function GoAddress() As *Byte
    If NowPointingAddressPoint = 10 then
        GoAddress = 0
        Exit Function
    End If
    Dim npap As Long
    npap = NowPointingAddressPoint
    If AddressPoint(npap) = 0 then
        GoAddress = 0
        Exit Function
    Else
        GoAddress = AddressPoint(npap)
        NowPointingAddressPoint ++
        Exit Function
    End If
End Function

'引数なし。
'戻り値は、エラーなら0、エラーで無いならアドレス名へのポインタ。
Function BackAddress() As *Char
    If NowPointingAddressPoint = 0 then
        BackAddress = 0
        Exit Function
    End If
    NowPointingAddressPoint --
    BackAddress = AddressPoint(NowPointingAddressPoint)
    Exit Function
End Function

今適当に考えながら打ったので、どこかにバグがあるかもしれません。また、上手く動かないかもしれません。ご了承ください。

20㌫ · #7 投稿記事 by **20㌫** » 2007年8月25日(土) 06:09

konishiさんすみません、また私です。ソースを私なりに改良したんですが
(konishiさんのソースは完璧でした)
このソースを今度はMainWndのボタン１を押したら戻る
ボタン２を押したら進むみたいなことをしたいのですが
そのときはどうすればいいでしょうか。
お願いします。

konisi

先ほど投稿した関数を用いるなら、こんな感じでどうでしょうか？

[ここをクリックすると内容が表示されます]

コード: 全て選択

Dim NowAddressName As *Byte

Sub MainWnd_CommandButton1_Click()'戻る
    Dim AddressName As *Byte
    AddressName = BackAddress()
    If AddressName <> 0 then
        NowAddressName = AddressName
        Flash()'再描画関数か何か。
    End If
End Sub

Sub MainWnd_CommandButton2_Click()'進む
    Dim AddressName As *Byte
    AddressName = GoAddress()
    If AddressName <> 0 then
        NowAddressName = AddressName
        Flash()'再描画関数か何か。
    End If
End Sub

＃BackAddress()関数が*Char型で返すことになっていますが、タイプミスです。*Byteか*Charのどちらかに統一してください。

＃それと皆さんよく間違えるのですが、konisiです。

20㌫ · #9 投稿記事 by **20㌫** » 2007年8月26日(日) 14:37

サポートしてくださった皆さん本当にありがとう御座いました。