Cancelado

Small Delphi method, needs help.

Need somebody interested in finishing method that I am having problems with.

See Section:

/// START OF PROBLEM

/// END OF PROBLEM

If done successfully. Would be happy to let you bid on other problems are they arise.

**// This method is not done...**

**procedure [url removed, login to view];

var

BiTiffObj : TBITIFF;

Comp : SmallInt;

SizeOfBlock : integer;

hDib : integer;

hMemBlock : Cardinal;

oSource : TMemoryStream;

pPointer : pointer;

begin

oSource := [url removed, login to view];

//

hDib := [url removed, login to view];

case [url removed, login to view] of

24: // Color...

Comp := TCOMP_NOCOMP;

8: // Grayscale...

Comp := TCOMP_PACKBITS;

1: // BW...

Comp := TCOMP_CCITTG4;

else

Comp := TCOMP_NOCOMP;

end;

/// START OF PROBLEM ///////////////////////////////////////////////////////////////////////////////////////

BiTiffObj := [url removed, login to view](self);

hMemBlock := GlobalAlloc(GHND, ???);

pPointer := GlobalLock(hMemBlock);

[url removed, login to view](hMemBlock, hDib, Comp, tiffoNormal);

[url removed, login to view](pbyte(pPointer)^, ???);

[url removed, login to view] := 0;

[url removed, login to view];

GlobalUnlock(hMemBlock);

GlobalFree(hMemBlock);

/// END OF PROBLEM ///////////////////////////////////////////////////////////////////////////////////////

[url removed, login to view]('C:\[url removed, login to view]');

[url removed, login to view];

end;

**

Habilidades: Delphi, Engenharia, Microsoft, MySQL, PHP, Gestão de projetos, Arquitetura de software, Teste de Software, Área de trabalho do Windows

Ver mais: osource, method, create windows help, help section, php cardinal, section start, delphi pointer, cardinal, need delphi free, delphi tform, needs finishing, small delphi 2008, small delphi

Acerca do Empregador:
( 1 comentário ) Lake City, United States

ID do Projeto: #3970215

1 freelancer is bidding on average $43 for this job

vnoutsourcingvw

See private message.

$42.5 USD in 5 dias
(47 Comentários)
4.7