Odczyt danych strumienia

0

Witam wszystkich.
Mam taki problem - wczytałem treści zawarte w Memo do strumienia i chciałbym je otworzyć/podejrzeć np w Notatniku ale bez zapisu do pliku i otwierania przez "ShellExecute". Możecie pomóc?

0
Zmienna := Strumien.DataString[I];

gdzie I to numer linii.

0

@mkaz: jedynie co przychodzi mi do głowy to wysłać ten tekst do kontrolki edycyjnej z treścią w Notatniku, na przykład tak:

var
  S : string;
  EditH : HWND;
begin
  EditH := FindWindowEx(FIndWindow('Notepad', nil), 0, 'Edit', nil);
  if EditH > 0 then
  begin
    S := 'to tylko test';
    SendMessage(EditH, WM_SETTEXT, 0, integer(PChar(S)));
  end;
end;
0

@TomRiddle: Tak chodzi mi o to aby odpalił się notatnik a w jego oknie widniała treść która jest w strumieniu lub jeśli w strumieniu znajduje się plik *.exe to aby on się uruchomił.

0

No to sposób z wstawieniem tekstu do notatnika już masz. Jeżeli treść "siedzi" w Streamie to można zapisać ją do TStringList albo do zmiennej typu string tak jak poniżej. A uruchomienie exeka ze streama - na przykład z zasobów - masz pokazane w kodzie dołączonym przeze mnie do tego posta.

var
  S : string;
begin
  // wcześniej wczytanie do SomeStream, a później...
  SetLength(S, SomeStream.Size);
  Document.Read(PChar(S)^, Length(S));
end;
0

@olesio dziękuję, zawsze można na ciebie liczyć. Pozdrawiam wszystkich i dziękuję.

1 użytkowników online, w tym zalogowanych: 0, gości: 1