vb p/ delphi

01/02/2006

0

Estou tentando transformar um codigo V.S.(asp.net) em delphi(asp.net), e estou encontrando essa dificuldade nesta linha:

&Array.Copy(pdfimage, pdfbuffer, size);
erro:[Error] WebForm1.pas(58): E2010 Incompatible types: ´Array´ and ´Object´

esta declarada assim:
pdfimage:System.&Array;

também tentei assim:
pdfimage:System.Object;
mas também dá erro.
ps. já tentei sem o &. (pdfimage:System.Array;) dá o mesmo erro.

Estou trabalhando como add references, eu carrego a dll.

exemplo original em V.B


Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim PDF ´ PDF object
Dim Size As Long
Dim PDFImage As System.Array
´ create pdf library object
PDF = CreateObject(´PDFCreatorPilot2.piPDFDocument´)
´ initialize PDF Engine
PDF.StartEngine(´demo@demo´, ´demo´)
´ set GenerateInMemoryFile generation flag to TRUE so keep PDF ´ only in the memory
PDF.GenerateInMemoryFile = True
´ start document generation
PDF.BeginDoc()
´ draw ´HELLO, PDF´ message on the current PDF page
PDF.PDFPAGE_SetActiveFont(´Verdana´, True, False, False, False, 14, 0)
PDF.PDFPAGE_TextOut(10, 20, 0, ´HELLO, PDF!´)
´ finalize document generation
PDF.EndDoc() ´ clear the output stream
´ get size of generated in-memory pdf file
Size = PDF.MemoryFileSize
´ create new buffer with size equal to generated pdf file
Dim PDFBuffer(CInt(Size)) As Byte
´ get in-memory pdf file as byte stream
PDFImage = PDF.BinaryImage
´ copy byte stream into buffer
Array.Copy(PDFImage, PDFBuffer, Size)
´ clear http output
Response.Clear()
´ set the content type to PDF
Response.ContentType = ´application/pdf´
´ add content type header
Response.AddHeader(´Content-Type´, ´application/pdf´)
´ set the content disposition
Response.AddHeader(´Content-Disposition´, ´inline;filename=form.pdf´)
´ write the buffer with pdf file to the output
Response.BinaryWrite(PDFBuffer)
Response.End()
´ disconnect from library
PDF = Nothing
End Sub

----------------------------------------------------------------------------
e com as alterações em delphi

procedure TWebForm1.Page_Load(sender: System.Object; e: System.EventArgs);
var
pdf:PDFCreatorPilot2.IpiPDFDocument2;
size:integer;
pdfbuffer:byte;
pdfimage:System.&Array;
begin
// TODO: Put user code to initialize the page here
pdf:= PDFCreatorPilot2.piPDFDocumentClass.Create;
pdf.StartEngine(´demo@demo´, ´demo´);
pdf.GenerateInMemoryFile:= true;
pdf.BeginDoc;
//pdf.PDFPAGE_SetActiveFont(´times new roman´, true, false, false, false, 14, 0);
pdf.PDFPAGE_TextOut(10, 20, 0, ´HELLO, PDF!´);
pdf.EndDoc;
size:= pdf.MemoryFileSize;
pdfbuffer:= size;

pdfimage:= pdf.BinaryImage;
&Array.Copy(pdfimage, pdfbuffer, size);

response.Clear;
response.ContentType:= ´application/PDF´;
Response.AddHeader(´Content-Type´, ´application/pdf´);
Response.AddHeader(´Content-Disposition´, ´inline;filename=form.pdf´);

response.BinaryWrite(pdfbuffer);

Response.&End;
end;


obrigado pela atenção de todos.


Forumpec

Forumpec

Responder

Posts

17/04/2006

Ladamiak

Cara..

To com o Mesmo problema...

Se encontrar a solução pode me dar um toque?

[]´s
Classificados de carros


Responder

18/04/2006

Forumpec

ainda estou tentando, qdo descobri posto aqui, se vc descobri post aqui também.

um abraço


Responder

22/04/2006

It3r

Olá amigo ForumPEC

Não sei se vai ser util, mas ao ver o teu codigo vc quer salvar em pdf..Seguinte, utilize o abcpdf, para isso...


Espero ter ajudado.


Responder

24/04/2006

Forumpec

Caro It3r;

Obrigado por ter respondido, vou fazer teste com sua sugestão, eu só quero abrir o pdf e não salvar, se esse codigo em vb tem esta possibilidade melhor, mas não é a minha prioridade abrir o pdf sem que o usuário tenha qulaquer aplicativo na maquina dele é meu objetivo, mas uma vez obrigado pela sugestão.

um abraço

pec


Responder

11/01/2007

Flaviodfp

Entra em: http://dotnet.borland.com/babelclient/BabelClient.aspx

Espero ter ajudado.

flaviodfp


Responder

Que tal ter acesso a um e-book gratuito que vai te ajudar muito nesse momento decisivo?

Ver ebook

Recomendado pra quem ainda não iniciou o estudos.

Eu quero
Ver ebook

Recomendado para quem está passando por dificuldades nessa etapa inicial

Eu quero

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar