🚀 go-pugleaf

On 10 Sty, 20:14, "marfi" <marfi @bb.onet.pl> wrote:
> U ytkownik "xbary" <xb...@wp.pl> napisa w wiadomo cinews:75934d7e-dc45-4c01-a2ac-36a9e13814b9@i6g2000vbk.googlegroups.com...
> ...>Problem polega na tym e ow bitmap chcia bym wczyta z jakiego
> >TStream lub bezpo rednio z pami ci... ???
>
> ...
>
> Zale y jak biblioteka korzysta z pliku ale moze prze knie odczyt z "named
> pipe" czyli np. w w tku tworzysz i piszesz do pipe:
>
>   hPipe:=CreateNamedPipe('\\.\pipe\mypipe',
>         PIPE_ACCESS_OUTBOUND OR FILE_FLAG_WRITE_THROUGH,
>         PIPE_TYPE_BYTE OR PIPE_WAIT,1,512,512,1000,nil);
>  if hPipe...
>
>   bRet:=ConnectNamedPipe(hPipe, nil);
>   if bRet ...
>
>   bRet := WriteFile(hPipe, buf, 512, WR, nil);
>
>   if bRet ...
>
>   CloseHandle(hPipe);
>
> A do biblioteki przesy asz nazw pliku '\\.\pipe\mypipe'.
>
> --
> marfi

Zrobiłem tak jak napisałeś oto kod procedurki:

PROCEDURE Front_Init;
VAR
  s: STRING;
  HPipe, wr: Cardinal;
  bRet: LongBool;
  ms: TMemoryStream;
BEGIN
  HPipe := 0;
  ms := NIL;
  TRY
    ms := TMemoryStream.Create;
    s := ExtractFilePath(Application.ExeName) + '000\0001.bmp';
    ms.LoadFromFile(s);
    ms.Position := 0;

    HPipe := CreateNamedPipe(
      PChar('\\.\pipe\mypipe'),
      PIPE_ACCESS_OUTBOUND OR FILE_FLAG_WRITE_THROUGH,
      PIPE_TYPE_BYTE OR PIPE_WAIT,
      1,
      ms.size,
      ms.size,
      1000,
      NIL);

    CASE HPipe OF
      INVALID_HANDLE_VALUE:
        BEGIN
          MessageBox(0, 'NVALID_HANDLE_VALUE', 'ERROR', 0);
          Exit;
        END;
      ERROR_INVALID_PARAMETER:
        BEGIN
          MessageBox(0, 'ERROR_INVALID_PARAMETER', 'ERROR', 0);
          Exit;
        END;
      PIPE_UNLIMITED_INSTANCES:
        BEGIN
          MessageBox(0, 'PIPE_UNLIMITED_INSTANCES', 'ERROR', 0);
          Exit;
        END;
    END;


    bRet := ConnectNamedPipe(HPipe, NIL);
    IF bRet THEN
    BEGIN
      bRet := WriteFile(HPipe, ms.Memory, ms.size, wr, NIL);
      IF bRet THEN
      BEGIN
        FrontSurface := al_load_bitmap('\\.\pipe\mypipe',
al_default_Palette);
      END;
    END;

    GameResult := grFrontWait;
    Tool_Reload(2);
    Flip := true;

  FINALLY
    IF HPipe <> 0 THEN CloseHandle(HPipe);
    IF ms <> NIL THEN FreeAndNil(ms);
  END;
END;

i program stoi na      bRet := ConnectNamedPipe(HPipe, NIL);

hmm nie wiem co jest grane...