CONVERTER PICTURE EM BINARIO ?

Citação:

e colocar o conteúdo dentro de uma string.

Citação:

:
e colocar o conteúdo dentro de uma string.

Se fizer isso, não vai adiantar muito, porque o conteúdo binário não pode ser convertido corretamente para string(nem sempre)

Citação:

:
Não entendo a necessidade de se salvar uma imagem como texto... mas não, não tem solução, dados binários, não podem ser convertidos para string sem perda de dados.

Citação:

uma foto de uma picture-box para binário (arquivo texto)

Citação:

:
E o por que ? uma foto de uma picture-box para binário (arquivo texto)

Não conseguir entender......

O seu server vai ser via winsock?

 
[ô]Gravando
Private Sub CmDGrava_Click()
    On Error GoTo ErrorLine
    Conecta True
    Set RsImagem = New ADODB.Recordset
    Set mystream = New ADODB.Stream
    mystream.Type = adTypeBinary
    Sql = [Ô]SELECT id,catlogo,catlogopresente FROM cadcat where id=[ô][Ô] & TDBGrid1.TextMatrix(TDBGrid1.Row, 0) & [Ô][ô][Ô]
    RsImagem.Open Sql, Conexao, adOpenStatic, adLockOptimistic
    mystream.Open
    mystream.LoadFromFile StrImagem
    RsImagem!ID = TDBGrid1.TextMatrix(TDBGrid1.Row, 0)
    RsImagem!catlogopresente = [Ô]1[Ô]
    RsImagem!catlogo = mystream.Read
    RsImagem.Update
    mystream.Close
    RsImagem.Close
    Set RsImagem = Nothing
    CmDGrava.Visible = False
    btnImgAdd.Visible = True
    Conecta False
    Exit Sub
ErrorLine:
    If Err = -2147217887 Then
        msg1.MsgBox [Ô]   Imagem muito grande para ser arquivada![Ô] & _
                    Chr(13) & [Ô]   Selecione outra imagem ou redefina a mesma![Ô], vbExclamation, [Ô]Aviso[Ô]
        Img.Picture = Picture1.Picture
        Call btnImgAdd_Click
    Else
        MsgError
    End If
End Sub
 

 
[ô]salvando a imagem temporaria para carregar o image
Private Sub PegarImagem()
    On Error GoTo ErrorLine
    Conecta True
    Set RsImagem = New ADODB.Recordset
    Dim mystream As New ADODB.Stream
    With mystream
        .Type = adTypeBinary
        cSql = [Ô]SELECT catlogo FROM cadcat where id=[ô][Ô] & TDBGrid1.TextMatrix(TDBGrid1.Row, 0) & [Ô][ô][Ô]
        RsImagem.Open cSql, Conexao, adOpenStatic, adLockReadOnly
        .Open
        .Write RsImagem!catlogo
        .SaveToFile App.Path & [Ô]    mp.bmp[Ô], adSaveCreateOverWrite
        .Close
        Img.Picture = LoadPicture(App.Path & [Ô]    mp.bmp[Ô])
        Kill (App.Path & [Ô]    mp.bmp[Ô])
        RsImagem.Close
        Set RsImagem = Nothing
        Conecta False
    End With
    Exit Sub
ErrorLine:
    If Err.Number = 481 Then
        Img.Picture = Picture1.Picture
    Else
        MsgError
    End If
End Sub