Как получить строку, зная её Pointer?

[A.A.Z.]

Собственно, сабж
Думаю, что вопрос, как всегда, ламерский

[tyomitch]

Самый дубовый способ - SysAllocString.
Если знаешь длину этой строки, то можно и привычнее - сделать строку нужной длины и с-CopyMemory-ить туда данные по твоему указателю.
Ещё можно поверх VarPtr(s) перезаписать твой указатель, но только нужно потом не забыть перезаписать его обратно нулём. Это, кстати, единственный способ без копирования данных. Но он подходит, только если перед строкой уже записана её длина (или есть возможность её там записать).

[gaidar]

Собственно, сабж
Думаю, что вопрос, как всегда, ламерский

Не понял. Где ты имеешь указатель на сроку? А вообще, используй функцию CopyMemory.

Код: Выделить всё

void CopyMemory(
  PVOID Destination,
  const VOID* Source,
  SIZE_T Length
);

За описанием - в MSDN

[A.A.Z.]

2 tyomitch: подскажи, плиз, как дубовым способом пользоваться, куда пихать Pointer и что ждать от pOleChar

[A.A.Z.]

2 gaidar: указатель получен после StrPtr А RtlMoveMemory я пользоваться не умею

[gaidar]

А зачем - вот вопрос? При нормальном подходе указатели тебе в VB не нужны.

[A.A.Z.]

Это мне так, для прогресса

[tyomitch]

2 tyomitch: подскажи, плиз, как дубовым способом пользоваться, куда пихать Pointer и что ждать от pOleChar

Руководство по использованию дубового способа

Код: Выделить всё

Option Explicit

Private Declare Function SysAllocString Lib "oleaut32" (ByVal sz As Long) As String

Sub Main()
    Debug.Print StrConv(SysAllocString(StrPtr("Hello!")), vbFromUnicode)
End Sub

Если её объявить в TLB, тогда StrConv будет не нужен.

[A.A.Z.]

А, As Long! Да еще и ByVal! Да еще и sz! А в API-Viewer'е ByRef pOleChar As Byte Спасибо!

[tyomitch]

Вот, я же говорю, что в API-Viewer-е через раз глюки...

Если строка действительно получена из StrPtr, то вот ещё один способ - без копирования данных строки:

Код: Выделить всё

Option Explicit

Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)

Sub Main()
    Debug.Print DerefStr(StrPtr("Hello!"))
End Sub

Private Function DerefStr(ByVal StrPtr As Long) As String
    CopyMemory ByVal VarPtr(DerefStr), StrPtr, 4
End Function


[A.A.Z.]

Спасибо, будем разбираться...

[gaidar]

Вот, я же говорю, что в API-Viewer-е через раз глюки...

Ну, скажем так, глюки там редко бывают и с примерами обычно все хорошо. Так что не надо лишних слов

[tyomitch]

Примеры в API-Guide-е, а декларации в API-Viewer-е, а это две разные вещи.

[GSerg]

Да, разочаровываюсь во вьюере всё больше.
Хотя прекрасно понимаю, почему в данном случае byref byte, и, более того, это даже в некотором роде правильнее

[tyomitch]

Ну так ясное дело, что для полноценного машинного перевода, даже с C на VB, нужен искусственный интеллект, который ещё не придумали...
Почему ByRef Byte - мне непонятно. По логике вещей, должно бы стоять ByRef Integer.