Question

I am using Delphi 7. Could you tell me if there is or can be found somewhere a procedure
which acts like: CopyMemory but I would be able to copy memory from
the specific number of byte.

I need something with the following signature:

procedure CopyMemory(Destination: Pointer; Source: Pointer; Length: DWORD; fromByte: Integer);

I need this, because I have to send unsent bytes over tcpip and that’s the reason why I have to extract unsent bytes stored in the memory.

I have looked in the source and I would need to rewrite a little asm section.
I have not touched asm for years and I would rather stay with something reliable ..

Thanks!

Answer 1

procedure CopyMemory(Src, Dest: Pointer; Len: Cardinal; Offset: Integer);
var
  OffsetSrc: ^Byte;
begin
  OffsetSrc := Src;
  inc(OffsetSrc, Offset);
  Move(OffsetSrc^, Dest^, Len);
end;

But I think I’d probably prefer to do the pointer arithmetic outside a helper function.